<%
Dim mainadvert1,mainadvert2,mainadvert3,mainadvert4,mainadvert5,mainadvert1url,mainadvert2url,mainadvert3url,mainadvert4url,mainadvert5url
Set rs = Server.CreateObject("ADODB.RecordSet")
Set cnn=Server.CreateObject("ADODB.Connection")
mainDSN = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\inetpub\tfodata\vsproducts.mdb;" ' Microsoft Access 2000
cnn.open mainDSN
sSQL = "SELECT advert1,advert2,advert3,advert4,advert5,advert1url,advert2url,advert3url,advert4url,advert5url FROM admin"
rs.Open sSQL,cnn,0,1
mainadvert1=rs("advert1")
mainadvert2=rs("advert2")
mainadvert3=rs("advert3")
mainadvert4=rs("advert4")
mainadvert5=rs("advert5")
mainadvert1url=rs("advert1url")
mainadvert2url=rs("advert2url")
mainadvert3url=rs("advert3url")
mainadvert4url=rs("advert4url")
mainadvert5url=rs("advert5url")
rs.Close
If Len(mainadvert1)>0 then
Response.write " | "
end if
If Len(mainadvert2)>0 then
Response.write " | "
end if
If Len(mainadvert3)>0 then
Response.write " | "
end if
If Len(mainadvert4)>0 then
Response.write " | "
end if
If Len(mainadvert5)>0 then
Response.write " | "
end if
%>
|
Motorcycle
Parts, Accessories and Clothing
|
| |
