ODBC

Hej,

er der nogen der kan lave dette om til en odbc conn.

Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("databaser/rf_it.mdb") & ";UID=admin;PWD=;"
    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "Select * From helpdesk"
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
        rs.AddNew
    rs("initialer") = Request("initialer")
    rs("problem") = Request("problem")
    rs("hvor_sidder_du") = Request("hvor_sidder_du")
    rs("aktiv") = 1
    rs("selv") = 1
    rs("til") = "web"
    rs("ip") = Request.ServerVariables("remote_addr")
        rs("dato") = now()
        rs.Update
    rs.Close
    Set rs = Nothing
Conn.Close
set Conn = Nothing

Mvh
Daniel