%@ LANGUAGE="VBSCRIPT" %> <% Dim CommandText,ConnecObj Dim M_user_id,qrystr,M_no_inq,M_no_rep 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) CommandText="Select * from sellerTB where UPPER(user_id)='" & UCASE(M_user_id) & "'" Set RS_seller = ConnecObj.Execute(CommandText,RecordsAffected,adCmdText) '***********Getting the currency of the country in which seller is residing **** If (NOT RS_seller.EOF) then CommandText = "Select * from countrTB where UPPER(coun_name)='" & UCASE(RS_buyer("country")) & "'" Set RS_curr = ConnecObj.Execute(CommandText,RecordsAffected,adCmdText) End if '******************************************************************************* %>
|
ORIENTAL JEWELS INC. 301 EAST 47th Street #14A NEW YORK, N.Y.-10017 TELEPHONE : 212-486-0423 FAX: 212-759-4434 |
<%
If (RS_seller.EOF) then%>
Action4bid - User LoginInvalid access - Please use login box to access your INBOX. Request through entering proper SELLER user ID and password is allowed ONLY. <% Else%>
| ||||||||
|