<%@LANGUAGE="VBSCRIPT"%>
<%
dim lType
if Request.ServerVariables ("REQUEST_METHOD") = "POST" then
country = replace(request("country"), " ", "%20")
county = replace(request("county"), " ", "%20")
stock = request("stock")
if stock=("fitting_center") then
url = "/store/showstores.asp?country=" & country & "&stock=" & stock & "&county=" & county
response.redirect(url)
response.end
end if
if stock=("demodays") then
url = "showdemos.asp?country=" & country & "&Type=0"
response.redirect(url)
end if
if stock=("demoweeks") then
url = "showdemos.asp?country=" & country & "&Type=1"
response.redirect(url)
end if
else
Dim strSQL
strSQL="SELECT pk, Country FROM tblCountry ORDER BY Country"
Dim rs
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open strSQL, strConnectionString
end if
%>
Mizuno