<%
strState = Request.QueryString("state")
Set objRec = Server.CreateObject("ADODB.RecordSet")
szSql = "select * from Distributors where State = '" & strState & "'"
objRec.Open szSql, "DSN=ajatrade", adOpenStatic, adLockReadOnly, adCmdText
if objRec.EOF then
Response.Write "| No Records Found. | "
end if
Do While not objRec.EOF
%>
| <%=objRec("CompanyName")%> |
| Tel: <%=objRec("Phone")%> / Fax: <%=objRec("Fax")%> |
| <%=objRec("Street") & ", " & objRec("City") & ", " & objRec("State") & " " & objRec("Zip")%> |
| " target="_blank"><%=objRec("WebSite")%> |
|
<%
objRec.MoveNext
Loop
objRec.Close
Set objRec = Nothing
%>
| |
|
Select a State:
|
|
