|
|
|
|
Current Fly Swaps - Join one today ! |
<%
'Setup connection and recordset objects
'Declare all variables
dim conn
dim rs
dim strconn
dim strSQL3
strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("swaps/swaps.mdb")
set conn = server.createobject("adodb.connection")
conn.open strconn
set rs = server.createobject("adodb.recordset")
strSQL3 = "SELECT * FROM Divisions WHERE s9='Active' ORDER BY domain, ID, name, s2, s5, s6"
'Open the Recordset object and retrieve data
rs.Open strSQL3, conn, adOpenStatic
%><%
'Loop through the recordset displaying the search result
Do while Not rs.EOF
response.write ""
response.write "| " & rs("name") & " - Click for details | "
response.write "Organized By: " & rs("s4") & " - (Click to e-mail)
Sign-up Deadline: " & rs("s2") & " | "
response.write "
"
rs.moveNext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
%> |
|
| Online
Fly Box |
Hundreds of patterns brought to you by The New Fly Fisher TV
Series. |
|
