%@ LANGUAGE="VBSCRIPT" %>
<%
Dim CommandText,ConnecObj
Dim M_let,M_cont_id,M_coun_id,M_stat_id,M_city_id,M_cPage,rowCount,M_dblet
M_dblet = Request.QueryString("dblet")
M_let = LEFT(M_dblet,1)
M_cPage=Request.QueryString("cPage")
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=Session("cont_id")
M_coun_id=Session("coun_id")
M_stat_id=Session("stat_id")
M_city_id=Session("city_id")
Set ConnecObj=Server.CreateObject("ADODB.Connection")
ConnecObj.Open "orientaljewels","plunia","PL765$"
LocStr=""
CommandText="Select cont_name from continTB where cont_id=" & M_cont_id
Set RS_cont = Server.CreateObject("ADODB.Recordset")
RS_cont.Open CommandText, ConnecObj
If (NOT RS_cont.EOF) then
LocStr=RS_cont("cont_name")
CommandText="Select coun_name from countrTB where coun_id=" & M_coun_id & " AND cont_id=" & M_cont_id
Set RS_coun = Server.CreateObject("ADODB.Recordset")
RS_coun.Open CommandText, ConnecObj
If (NOT RS_coun.EOF) then
LocStr = LocStr & " - " & RS_coun("coun_name")
CommandText="Select stat_name from stateTB where stat_id=" & M_stat_id & " AND coun_id=" & M_coun_id
Set RS_stat = Server.CreateObject("ADODB.Recordset")
RS_stat.Open CommandText, ConnecObj
If (NOT RS_stat.EOF) then
LocStr = LocStr & " - " & RS_stat("stat_name")
CommandText="Select city_name from cityTB where city_id=" & M_city_id & " AND stat_id=" & M_stat_id & " AND coun_id=" & M_coun_id
Set RS_city = Server.CreateObject("ADODB.Recordset")
RS_city.Open CommandText, ConnecObj
If (NOT RS_city.EOF) then
LocStr = LocStr & " - " & RS_city("city_name")
End if
End if
End if
End if
CommandText = "Select * from categoTB where UPPER(LEFT(cate_name,2))='" & TRIM(UCASE(M_dblet)) & "'"
Set RS_cate = ConnecObj.Execute(CommandText,RecoredsAffected,adCmdText)
%>
Action4bid.com - The most easiest and innovative way of business
|
ORIENTAL JEWELS INC.
301 EAST 47th
Street #14A NEW YORK, N.Y.-10017
TELEPHONE
: 212-486-0423 FAX: 212-759-4434
|