%@ LANGUAGE="VBSCRIPT" %> <% Dim CommandText,ConnecObj Dim M_user_id,qrystr,M_no_rep,M_cPage,M_no_rep_new M_cPage=Request.QueryString("cPage") If (M_cPage="") then M_cPage=1 rowCount = 0 End if Set ConnecObj=Server.CreateObject("ADODB.Connection") ConnecObj.Open "orientaljewels","plunia","PL765$" If Session("cont_id")="" then Session("cont_id")=8 Session("coun_id")=0 Session("stat_id")=0 Session("city_id")=0 End if M_user_id=Session("user_id") CommandText="Select * from buyerTB where UPPER(user_id)='" & UCASE(M_user_id) & "'" Set RS_buyer = ConnecObj.Execute(CommandText,RecordsAffected,adCmdText) %>
|
ORIENTAL JEWELS INC. 301 EAST 47th Street #14A NEW YORK, N.Y.-10017 TELEPHONE : 212-486-0423 FAX: 212-759-4434 |
|