<%@ Language=VBScript%> <% Server.ScriptTimeout = 30 %> Penton Owners Group - Engine Number List
<% '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