<%
'---- CursorTypeEnum Values ----
Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3
set conn = Server.CreateObject("ADODB.Connection")
conn.Provider = "Microsoft.Jet.OLEDB.4.0"
conn.Open Server.MapPath("reps.mdb")
dim sql
sql = "SELECT * FROM reps WHERE state = '" + Request.QueryString("state") + "'"
set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql, conn, adOpenKeyset
If rs.RecordCount > 0 Then
Do Until rs.EOF
%>
<%=rs.Fields("agency") %>
| Contact: | <%=rs.Fields("first_name") %> <%=rs.Fields("last_name") %> |
| Email: | "><%= rs.Fields("email") %> |
| URL: | "><%=rs.Fields("url") %> |
| Phone: | <%=rs.Fields("phone") %> |
| Fax: | <%=rs.Fields("fax") %> |
| Address: |
<%=rs.Fields("address") %>
<%=rs.Fields("city") %>, <%=rs.Fields("st") %> <%=rs.Fields("zip") %> |
| Product: |
<%=rs.Fields("product") %> |
| Comments: |
<%=rs.Fields("comments") %>
|
<%
rs.MoveNext
Loop
rs.Close
conn.Close
End If
%>
