<%Response.Expires=0 if Session("ClientID") = "" then Session("Destination") = "clientservices.asp" Response.Redirect("logscr.asp") end if %> <% ConnectString = "FILEDSN=sunraj.DSN" Set Conn=Server.CreateObject("ADODB.Connection") Set Rs=Server.CreateObject("ADODB.Recordset") Set Rs2=Server.CreateObject("ADODB.Recordset") Conn.Open ConnectString if session("ClientID") <> 0 then ClientID=request("ClientID") else ClientID=0 end if Set RS2=Conn.execute("Select ItemName, ItemID from Items where ClientID =" & session("ClientID") & " order by ItemName;") %> Place New Order-1
 
Available Items
 
Selected Items
 
 

 

Back