<%
Dim strSQL
Dim Connect
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=g:\home\bergslagskanal.se\db\bergdbase\anmalan.mdb"
strSQL = "SELECT * FROM qry_antal_anm"
Set rs = Server.CreateObject("ADODB.Recordset")
set rs = Connect.Execute(strSQL)
%>
Jonny Nilsson Maraton 2006
