<%@ Language=VBScript %> <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "islamicbase", " ", " " 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") & "'" 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