<% ConnectString = "FILEDSN=sunraj.DSN" Set Conn=Server.CreateObject("ADODB.Connection") Set Rs=Server.CreateObject("ADODB.Recordset") Conn.Open ConnectString SQL = "DELETE * FROM ProductInquiry WHERE ProductInquiryDate < Format(Now, ""mm-dd-yyyy"");" sql="SELECT * FROM ProductInquiry where ProductInquiry.SessionID=" & session.SessionID &";" 'response.write(sql & "
") Set RS=Conn.execute(sql) 'response.write(RS.Recordcount & "
") %> Sunjraj Industries/Inquiry

 

 
Full  Name: 
Address: 
City: 
State: 
Country: 
Telephone  Number: 
Fax Number: 
Zip Code: 
Email  Address: 

<% ctr=1 do while not RS.eof ''varSessionID=request("hdnSessionID"+trim(cstr(ctr))) varItemName=request("hdnItemName"+trim(cstr(ctr))) varAddParameters=request("hdnAddParameters"+trim(cstr(ctr))) varItemQty=request("hdnItemQty"+trim(cstr(ctr))) ctr=ctr+1 %> <% rs.movenext loop %>
List of Selected Items
Action
Item Name
Additional Parameters
Qty.
<%Response.Write("Remove" & "") %>
<%=RS.fields("ItemName")%> " size=24 maxlength=80 value="<%=RS.fields("ItemName")%>">
<%=RS.fields("SpecialParameters")%> " value="<%=RS.fields("SpecialParameters")%>">
<%=RS.fields("Qty")%> " value="<%=RS.fields("Qty")%>">


Additional Inquiries