<%@ language=vbscript %>
<%
dim StrId,sql
StrId=request("itemno")+","
Session("StrId")=StrId
if len(CStr(Session("StrId")))<>0 then
dim getID
getID=CStr(Session("StrId"))
set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("myDB/Datasource.mdb")
'sql = "select * from Products where ID="& getID' where ID in ("+getID.Substring(0,getID.Length-1)+")"
sql = "select * from Products where ID in ('"+getID.Substring(0,getID.Length-1))+"')"
set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,3
%>