Action4bid.com - The most easiest and innovative way of business

<%@ LANGUAGE="VBSCRIPT" %> <%Response.Buffer = true%> <% Dim CommandText,ConnecObj,CommandText2 Dim M_cont_id,M_coun_id,M_stat_id,M_city_id M_bkto = Request.Form("bkto") M_user_id = Request.Form("user_id") M_password = Request.Form("password") 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 CommandText ="Select * from buyerTB where UPPER(user_id)='" & UCASE(TRIM(M_user_id)) & "'" CommandText2="Select * from buyerTB where UPPER(user_id)='" & UCASE(TRIM(M_user_id)) & "' AND password='" & TRIM(M_password) & "'" Set RS = ConnecObj.Execute (CommandText,RecordsAffected,adCmdText) Set RS2 = ConnecObj.Execute (CommandText2,RecordsAffected,adCmdText) %> Action4bid.com - The most easiest and innovative way of business

ORIENTAL JEWELS INC.

301 EAST 47^thStreet #14A NEW YORK, N.Y.-10017

TELEPHONE : 212-486-0423 FAX: 212-759-4434



<% If (RS.EOF) then Response.write " User Name not registered... please go back and resubmit " Response.write " " Else If (RS2.EOF) then Response.write " Password NOT matches... please go back and resubmit " Response.write " " Else Session("user_id")=RS2("user_id") Session("cont_id")=RS2("default_con") Session("coun_id")=RS2("default_cou") Session("stat_id")=RS2("default_sta") Session("city_id")=RS2("default_cit") If (M_bkto<>"") then Response.ReDirect M_bkto Else Response.ReDirect "http://" & Request.ServerVariables("SERVER_NAME") End if End if End if %>
[Change location] [Buyer's Guide Tour] [Seller's Guide Tour] [Help Desk] [Contact Us] (C) Copyright 2000 Indiangyan.com Pvt. Ltd.

Home