Diwali Gifts
<%
Dim vPath, pPath, ConString, objConn
vPath = "data\aavishkarDB.mdb" 'use this one if database is in root of cart folder
pPath = Server.MapPath( vPath )
Set ObjConn = Server.CreateObject("ADODB.Connection")
objConn.Open = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & pPath & ";" & "JET OLEDB:Database Password="
set rs = Server.CreateObject("ADODB.recordset")
sql = "SELECT * FROM diwaligifts ORDER BY ID ASC"
rs.Open sql, objConn, 3, 2
If RS.BOF and RS.EOF Then
response.write("No records in the Database.")
Else
%>
<%
do while not rs.EOF
productID = rs("ID")
%>
<%
if not rs.EOF then rs.MoveNext
loop
End If
rs.close
objConn.close
Set rs=nothing
set objConn = nothing
%>
