<%
dim myconnection
dim rs
dim rstype
dim SQLQuery, sqlerror
set myconnection = Server.CreateObject("ADODB.Connection")
myconnection.open ("Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("\db\history.mdb"))
SQLQuery = "Select * from tournwinners"
set rs = Server.CreateObject("ADODB.Recordset")
set rs = myconnection.Execute(SQLQuery)
%>
