<%@ LANGUAGE="VBSCRIPT" %>
<%Response.Buffer="true"%>
<%
Dim CommandText,ConnecObj,M_searchStr,M_searchFor
Set ConnecObj=Server.CreateObject("ADODB.Connection")
ConnecObj.Open "orientaljewels","plunia","PL765$"
M_searchStr = Request.Form("searchStr")
M_searchFor = Request.Form("searchFor")
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")
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
%>
Action4bid.com - The most easiest and innovative way of business