<%@ Language=VBScript %>

Companies are sorted by City.

<% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "zipsearch", " ", " " adminSQL= "SELECT * FROM AdminInfo;" Set adminQuery= Conn.Execute(adminSQL) response.write "" IF Request.Form("txtCountry") <> "" then unzipSQL = "SELECT * FROM Companies WHERE Country = '" & Request.Form("txtCountry") & "'" & " ORDER BY City" Set unzipQuery = Conn.Execute(unzipSQL) while not unzipQuery.EOF response.write "

" If unzipQuery("Company") <> "" Then response.write "" response.write " " response.write " " End if response.write " " If unzipQuery("Street") <> "" Then response.write "" response.write " " response.write " " End if If unzipQuery("Street2") <> "" Then response.write "" response.write " " response.write " " End if If unzipQuery("City") <> "" Then response.write "" response.write " " response.write " " End if If unzipQuery("Phone") <> "" Then response.write "" response.write " " response.write " " End if If unzipQuery("Fax") <> "" Then response.write "" response.write " " response.write " " End if If unzipQuery("Email") <> "" Then response.write "" response.write " " response.write " " response.write "" End if If unzipQuery("URL") <> "" Then response.write "" response.write " " response.write " " response.write "" End if response.write "" response.write "" If ((unzipQuery("User1") <> "") AND (adminQuery("User1Name") <> "")) Then response.write "" response.write " " response.write " " response.write "" End if If ((unzipQuery("User2") <> "") AND (adminQuery("User2Name") <> "")) Then response.write "" response.write " " response.write " " response.write "" End if If ((unzipQuery("User3") <> "") AND (adminQuery("User3Name") <> "")) Then response.write "" response.write " " response.write " " response.write "" End if response.write "

Company	" & unzipQuery("Company") & "	" response.write "
Address	" & unzipQuery("Street") & "
	" & unzipQuery("Street2") & "
	" & unzipQuery("City") & " " & unzipQuery("State") & " " & unzipQuery("Zip") & " " & unzipQuery("Country") & "
Phone	" & unzipQuery("Phone") & "
Fax	" & unzipQuery("Fax") & "
E-Mail	" & unzipQuery("Email") & "
Web	" & unzipQuery("URL") & "
" & adminQuery("User1Name") & "	" & unzipQuery("User1") & "
" & adminQuery("User2Name") & "	" & unzipQuery("User2") & "
" & adminQuery("User3Name") & "	" & unzipQuery("User3") & "

" unzipQuery.MoveNext Wend Else Response.Write "please enter a country before you click find" End If Conn.Close %>

Back to Search Page