| |
<%
'Make sure we have submitted a city and don't show results until we do
IF Request.Form("city") = "" Then
Else
Set objDC = Server.CreateObject("ADODB.Connection")
objDC.Open Application("sample_connectionstring")
Set objRS = objDC.Execute("Select * FROM Suppliers WHERE Country = '" & Request.Form("Country") & "' AND City = '" & Request.Form("city") & "'")
'Loop through the database and assign the appropriate values to variables
'that we will use later
Do Until objRS.EOF
CompanyName = objRS("CompanyName")
ContactName = objRS("ContactName")
Address = objRS("Address")
City = objRS("City")
Region = objRS("Region")
Zip = objRS("PostalCode")
Phone1 = objRS("Phone")
Fax1 = objRS("Fax")
Country = objRS("country")
objRS.MoveNext
Loop
objRS.Close
Set objRS = Nothing
objDC.Close
Set objDC = Nothing
%>
Our Supplier in:
<% Response.Write City & ", " & Country %>
<%
'Set up the display of the record
Response.Write CompanyName & "
"
Response.Write ContactName & "
"
Response.Write Address & "
"
Response.Write City & ", " & Region & " " & Zip & "
"
Response.Write "Phone: " & Phone1 & "
"
IF Fax1 <> "" Then
Response.Write "Fax: " & Fax1 & "
"
End IF
End IF
%>
|
|