<%
dim stateID
stateID = request.querystring("st")
if stateID = "CT" then
stateName = "Connecticut"
elseif stateID = "NJ" then
stateName = "New Jersey"
elseif stateID = "NY" then
stateName = "New York"
elseif stateID = "PA" then
stateName = "Pennsylvania"
elseif stateID = "DE" then
stateName = "Delaware"
end if
if stateID = "" or stateID = "NULL" then
response.write("
Please Choose A State
")
else
Set adoCon = Server.CreateObject("ADODB.Connection")
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("sales.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * From Sales WHERE St ='" & stateID & "'"
rs.Open SQL, adoCon
end if
%>
Request A Quote Form.
Listed Below Are The Counties for
<% ucase(response.write(stateName)) %>
Please Choose One and Hit The Submit Button
<% if stateID = "NY" or stateID = "NJ" or stateID = "PA" or stateID = "DE" or stateID = "CT" then
response.write("")
end if %>
|
<% 'if stateID = "NULL" then
'rs.close
'adoCon.close
'end if
%>
