<%@ Language=VBScript %>
Islamic Locator - HOME
<%
' if you do not define the param, after returning from
' on enter, theParam will be null
dim theParam
theParam=Request.QueryString("sid")
'QueryString for Get and Request.Form for Post
Set connection = Server.CreateObject("ADODB.Connection")
connection.Open "zipsearch"
strSql= "select * from Companies " &_
"where (CompanyNumber= "&_
theParam &_
")"
Set recordset = connection.Execute (strSql)
Response.Write(" ")
Response.Write("" & Recordset("Company") & "
")
Response.Write(Recordset("Street") & "
")
Response.Write(Recordset("Street2") & "
")
Response.Write(Recordset("City") & "
")
Response.Write(Recordset("State") & "
")
Response.Write(Recordset("Zip") & "
")
Response.Write(Recordset("Country") & "
")
Response.Write("Telephone Number: ")
Response.Write(Recordset("Phone") & "
")
Response.Write("
")
response.write ""
%>