<%
Option Explicit
%>
Vis Kommuner
<%' Må evt. lage en egen for norsk,tysk,engelsk.... Kanskje best
Dim dcnDB
Dim rsKom
Dim strSQL
Set dcnDB = Server.CreateObject("ADODB.Connection")
'dcnDB.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=\\RAMBO\D$\PROSJEKTER\IF283-10\PUBLIC_HTML\Mariustest\Sykkel\sykkelDB.mdb"
dcnDB.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("/database/sykkelDB.mdb")
strSQL="SELECT * FROM Kommune "
strSQL= strSQL & "ORDER BY Kommune;"
Set rsKom = dcnDB.Execute(strSQL)
%>