%@ LANGUAGE="VBSCRIPT" %> <% Dim CommandText,ConnecObj Dim M_cont_id,M_coun_id,M_stat_id,M_city_id,M_bkto,QS '*********special treatment for bkto because bkto is not taking full ********* '*********url upto end instead it takes upto first & in query string ***** QS=Request.ServerVariables("QUERY_STRING") If (QS="") then M_bkto=Request.ServerVariables("HTTP_REFERER") Else M_bkto = Right(QS,Len(QS)-InStr(QS,"bkto=")-4) End if If Session("cont_id")="" then Session("cont_id")=8 Session("coun_id")=0 Session("stat_id")=0 Session("city_id")=0 End if '***************************************** M_cont_id = Request.QueryString("cont_id") M_coun_id = Request.QueryString("coun_id") M_stat_id = Request.QueryString("stat_id") M_city_id = Request.QueryString("city_id") If (M_cont_id ="") then M_cont_id=1 End if Set ConnecObj=Server.CreateObject("ADODB.Connection") ConnecObj.Open "orientaljewels","plunia","PL765$" %>
|
ORIENTAL JEWELS INC. 301 EAST 47th Street #14A NEW YORK, N.Y.-10017 TELEPHONE : 212-486-0423 FAX: 212-759-4434 |
|