<% 'START FIRST TABLE Dim oConn, oRS Dim qry, connectstr, sDSNDir Dim dsn_name Dim sOrderby Dim sYear Dim sType Dim sSerialNumber dsn_name = "access_penton.dsn" tablename1 = "tblS1" tablename2= "tbl52" tablename3= "tbl54" tablename4= "tbl55" 'Assumes that _dsn exists in the root sDSNDir = Server.MapPath("/_dsn") connectstr = "filedsn=" & sDSNDir & "\" & dsn_name On Error Resume Next Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open connectstr qry = "SELECT * FROM tbl51" orderby = " ORDER BY SerialNumber" qry = qry & orderby Set oRS = oConn.Execute(qry) %> Engine Number List   <% 'Check for EOF If oRS.EOF then Response.Redirect "/404/404.asp" End If oRS.MoveFirst Do While Not oRS.EOF sYear=oRS("Year") sType=oRS("Type") sSerialNumber=oRS("SerialNumber") %> <% oRS.Movenext Loop %> <% oRS.Close Set oRS=Nothing 'END FIRST TABLE %> Year Type 51 (125cc) Serial Number <%response.write sYear%>  <%response.write sType%>  <%response.write sSerialNumber%>  <% 'START SECOND TABLE Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open connectstr qry = "SELECT * FROM tbl52" orderby = " ORDER BY SerialNumber" qry = qry & orderby Set oRS = oConn.Execute(qry) %> <% 'Check for EOF If oRS.EOF then Response.Redirect "/404/404.asp" End If oRS.MoveFirst Do While Not oRS.EOF sYear=oRS("Year") sType=oRS("Type") sSerialNumber=oRS("SerialNumber") %> <% oRS.Movenext Loop %> <% oRS.Close Set oRS=Nothing 'END SECOND TABLE %> Year Type 52 Serial Number <%response.write sYear%>  <%response.write sType%>  <%response.write sSerialNumber%>  <% 'START THIRD TABLE Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open connectstr qry = "SELECT * FROM tbl54" orderby = " ORDER BY SerialNumber" qry = qry & orderby Set oRS = oConn.Execute(qry) %> <% 'Check for EOF If oRS.EOF then Response.Redirect "/404/404.asp" End If oRS.MoveFirst Do While Not oRS.EOF sYear=oRS("Year") sType=oRS("Type") sSerialNumber=oRS("SerialNumber") %> <% oRS.Movenext Loop %> <% oRS.Close Set oRS=Nothing 'END THIRD TABLE %> Year Type 54 Serial Number <%response.write sYear%>  <%response.write sType%>  <%response.write sSerialNumber%>  <% 'START FOURTH TABLE Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open connectstr qry = "SELECT * FROM tbl55" orderby = " ORDER BY SerialNumber" qry = qry & orderby Set oRS = oConn.Execute(qry) %> <% 'Check for EOF If oRS.EOF then Response.Redirect "/404/404.asp" End If oRS.MoveFirst Do While Not oRS.EOF sYear=oRS("Year") sType=oRS("Type") sSerialNumber=oRS("SerialNumber") %> <% oRS.Movenext Loop %> <% oRS.Close Set oRS=Nothing 'END FOURTH TABLE %> Year Type 55 Serial Number <%response.write sYear%>  <%response.write sType%>  <%response.write sSerialNumber%>

Last Five Digits

Production Years

Frame Number List