%@ Language=VBScript %> <%dim cn, rs, con set cn = server.CreateObject("adodb.connection") cn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=d:\web\meenakshihandicrafts.com\db\Ecommerce.mdb" 'set rs = cn.Execute("select * from shop where code = '"&temp1&"' order by sno") ss = session.SessionID set rs6 = cn.Execute("select * from login where session = '"&ss&"'") con2 = 0 while not rs6.eof con2 = con2 +1 uu = rs6("user") rs6.movenext wend %>