TranAm 2007

<% 'Detail Page Dim debug debug = "off" Dim id 'As Integer = 0 Dim ErrMsg 'As String If Request("id") <> "" Then id = Request("id") ' OpenDBConn sSQL = "SELECT * FROM tblQNArticles where ArticleID = " & id Set rsPDF = Server.CreateObject("ADODB.Recordset") rsPDF.PageSize = giItemsPerPage rsPDF.CursorLocation = 3 'adUseClient rsPDF.Open sSQL, gobjConnect, &H0001 'adOpenStatic, adLockReadOnly, adCmdText If rsPDF.EOF Then ErrMsg = "No Records!" Else ManID = "" & rsPDF.Fields("ArticleID") ManName = "" & rsPDF.Fields("ArticleName") Logo = "" & rsPDF.Fields("ArticleImageURL") End If ' sSQL = "SELECT * FROM pdfDetail" Set rsPDF = Server.CreateObject("ADODB.Recordset") rsPDF.PageSize = giItemsPerPage rsPDF.CursorLocation = 3 'adUseClient rsPDF.Open sSQL, gobjConnect, &H0001 'adOpenStatic, adLockReadOnly, adCmdText If rsPDF.EOF Then ErrMsg = "No Records!" Else pdfid = "" & rsPDF.Fields("id") pdfName = "" & rsPDF.Fields("sname") pdfTxt = "" & rsPDF.Fields("txt-desc") pdfImage = "" & rsPDF.Fields("image-url") pdfPage = "" & rsPDF.Fields("page-url") pdfActive = "" & rsPDF.Fields("active") End If Else ErrMsg = "No manufacturer selected." End If %> TranAm 2007

MEDIA COVERAGE | DEALER LOCATOR | LINKS


<% If Request("id") = "5" Then Response.Write "" Else Response.Write "" End If %>	<% If Request("id") = "7" Then Response.Write "" Else Response.Write "" End If %>	<% If Request("id") = "8" Then Response.Write "" Else Response.Write "" End If %>	<% If Request("id") = "9" Then Response.Write "" Else Response.Write "" End If %>	<% If Request("id") = "10" Then Response.Write "" Else Response.Write "" End If %>	<% If Request("id") = "11" Then Response.Write "" Else Response.Write "" End If %>	<% If Request("id") = "24" Then Response.Write "" Else Response.Write "" End If %>	<% If Request("id") = "6" Then Response.Write "" Else Response.Write "" End If %>	<% If Request("id") = "12" Then Response.Write "" Else Response.Write "" End If %>	<% If Request("id") = "15" Then Response.Write "" Else Response.Write "" End If %>	<% If Request("id") = "13" Then Response.Write "" Else Response.Write "" End If %>

Homepage >

<% Dim counter counter = 0 Response.Write "" Response.Write "" Do while not rsPDF.EOF pdfid = "" & rsPDF.Fields("id") pdfName = "" & rsPDF.Fields("sname") pdfTxt = "" & rsPDF.Fields("txt-desc") pdfImage = "" & rsPDF.Fields("image-url") pdfPage = "" & rsPDF.Fields("page-url") pdfActive = "" & rsPDF.Fields("active") If pdfName = id Then counter = counter + 1 pge = server.URLEncode(pdfPage) 'Encodes the destination URL ready for parse Response.Write "" End If If counter = 6 Then Response.Write "" Response.Write "" Response.Write "" counter = 0 End If rsPDF.MoveNext Loop Response.Write "

" Response.Write "" Response.Write "

" 'Response.Write "

" Response.Write "

" Response.Write(pdfTxt) Response.Write "

" Response.Write "

" %>

[ Privacy Policy ] [Terms & Conditions]