<% Dim cnn Set cnn = CreateObject("ADODB.Connection") Dim connectString connectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=/fishermensnews.com/db/classads.mdb;Persist Security Info=False;" cnn.Open(connectString) Dim rs Set rs = Server.CreateObject ("ADODB.Recordset") Dim SQLQuery SQLQuery = "SELECT tbl_Ads.AdID, tblCategories.Category, tbl_Ads.RunCode, tbl_Ads.AdTitle, tbl_Ads.Price, tbl_Ads.Body, tblMain.Phone, tbl_Ads.Photo, tbl_Ads.Internet " &_ "FROM tblMain INNER JOIN (tblCategories INNER JOIN tbl_Ads ON tblCategories.CatID = tbl_Ads.CatID) ON tblMain.CustomerID = tbl_Ads.CustomerID " &_ "WHERE (((tbl_Ads.Internet)<0));" rs.Open SQLQuery, cnn Dim Photolink Dim dq dq = chr(34) 'quote mark for HTML emulation purposes If rs.EOF then Response.write("Sorry, no records found") Else Response.Write("") Response.Write("" ) Response.Write("" ) Response.Write("" ) Response.Write("" ) Response.Write("" ) Response.Write("" ) Response.Write("" ) Do While (NOT rs.EOF) Response.Write("" ) Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") rs.MoveNext Loop end if Response.Write("

Ad	Category	Title	Price	Body	Phone	Photo
" & rs("adID") & "	" & filler(rs("Category")) & "	" & filler(rs("AdTitle")) & "	" & filler(rs("Price")) & "	" & filler(rs("Body")) & "	" & filler(rs("Phone")) & "	" & hypers(rs("photo"),rs("adid")) & "

") rs.close set rs = nothing cnn.close set cnn = nothing function hypers (bPhoto,iRecordID) if bPhoto = "True" then hypers = " yes " else hypers = "n/a" end if end function Function Filler (iFill) if isnull(ifill) then Filler = " " else Filler = ifill end if end function %>

Copyright © 2009              Philips Publishing Group            All rights reserved.