MS Access script skal konverteres til SQL server script

Jeg har dette script der henter fra en access fil, det skal konverteres så det henter fra en MS SQL server DB i stedet for.

Hvis en ville rette scriptet så ville jeg være glad.

tak. :-)

<%
set conn = server.createobject("adodb.connection")
conn.open "Provider=Microsoft.Jet.OleDb.4.0;Data Source=" & Server.MapPath("legendarisk.mdb")
if session("kunenprsession") = "" then
  conn.execute("UPDATE tblTaeller SET taellerfelt = taellerfelt + 1")
  session("kunenprsession") = "1"
end if
set rs = conn.execute("SELECT taellerfelt FROM tblTaeller")
if not rs.eof then Taeller = rs("taellerfelt")
conn.close
set rs = nothing
set conn = nothing
%>