<% option explicit %>
<!-- #include file=adovbs.inc -->
<html>
<head><title>ASP Report</title></head>
<body bgcolor=ffffff>
<%
dim ss, strCon, strCon2
dim objConn, objRst
strCon = "Driver={Microsoft Access Driver (*.mdb)}; "
strCon2 = "DBQ=C:\path\to\database\my.mdb"
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.open strCon & strCon2
Set objRst = Server.CreateObject("ADODB.Recordset")
objRst.Locktype = adLockReadOnly
objRst.Cursortype = adOpenForwardOnly
SomeInput = Request.QueryString("SomeValue")
Response.Write "<center><font size=6 color=#ff0000>" & SomeInput & "</center>"
Response.Write "<center><hr size=3 width=475></center>"
Response.Write "<center><table width=435 border=0>"
ss = "SELECT Table1.Field1, Table1.Field2, Table2.Field1, Table2.Field2 "
ss = ss & "from Table1 INNER JOIN Table2 ON Table1.ID = Table2.ID "
ss = ss & "where (((Table.Field1)='" & SomeInput & "')) "
ss = ss & "order by Table1.Field1, Table2.Field2 "
objRst.Open ss, objConn
while Not objRst.EOF
Response.Write "<tr><td><br></td>"
Response.Write "<td width=30><br></td>"
Response.Write "<td width=30><br></td>"
Response.Write "<td width=80>" & objRst("Year") & "</td>"
Response.Write "<td width=120>" & objRst("Name") & "</td>"
Response.Write "<td width=45><a href=mailto:" & objRst("eMail") & ">eMail</a></td>"
Response.Write "<td width=120><a href='http://" & objRst("Web Site") & "'>Web Site</a></td></tr>"
objRst.MoveNext
wend
objRst.Close
objConn.Close
Set objRst = Nothing
Set objConn = Nothing
%>
</table>
</body>
</html>