<%@ LANGUAGE="VBSCRIPT"%>
<%
Dim sqlText
dim sqlChk
dim ConnString
dim objRec
dim tmp
dim TmpC
%>
New Inventory
The following inventory will be up or is currently available at our eBay store.
<%
'Create and open the database object
Set objConn = Server.CreateObject("ADODB.Connection")
connstring = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("DataWeb.mdb")
objConn.Open connstring
set objRec = server.createobject ("ADODB.Recordset")
sqlText = "SELECT DISTINCT ComingSoon.keyReceipt, ComingSoon.Title " & _
"FROM ComingSoon order by ComingSoon.Title"
objrec.open sqlText, objConn
if objrec.eof = false then
tmpc =0
objrec.movefirst
response.write ""
While not objrec.eof
tmpc = tmpc + 1
select case tmpC
case 1
response.write "" & objrec("Title") & " | "
case 2
response.write "" & objrec("Title") & " | "
case 3
tmpC = 0
response.write "" & objrec("Title") & " |
"
end select
objrec.movenext
wend
response.write "
"
else
response.write "No inventory at this time! Check back!"
end if
objrec.close
set objrec=nothing
%> 