% 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) %>
|
|