Skriv til en Access Database

Hejsa!

Jeg har webhotel hos Azero.dk
Der har man 2 mapper

En db-mappe med skriveadgang
og
En www-mappe til asp-filer


Jeg har problemer med at skrive til min access database med nedenstående kode. Jeg har problemer med at finde fejlen. Så man kan skrive til databasen

<!-- #include file=\"forminc.inc\" -->
<%

Const adOpenKeyset = 1
Const adLockOptimistic = 3

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"database.mdb\") & \";UID=admin;PWD=;\"
strConnect = \"Data Source=d:\\home\\MIT FTP LOGIN\\db\\database.mdb;Provider=Microsoft.Jet.OLEDB.4.0;\"

    Set rs = Server.CreateObject(\"ADODB.RecordSet\")
    strSQL = \"Select * From links\"
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

      rs.AddNew
      rs(\"LinkName\") = Request.form(\"1\")
      rs(\"LinkURL\") = Request.form(\"2\")
      rs(\"sogeord\") = Request.form(\"sogeord\")
      rs(\"Beskrivelse\") = Request.form(\"Beskrivelse\")
      rs(\"Email\") = Request.form(\"Email\")
      rs(\"Rigtignavn\") = Request.form(\"Rigtignavn\")
      rs.Update

    rs.Close
    Set rs = Nothing

Conn.Close
set Conn = Nothing
%>





Og min include file ser sådan ud
<%
  strConnect = \"Data Source=d:\\home\\MIT FTP LOGIN\\db\\database.mdb;Provider=Microsoft.Jet.OLEDB.4.0;\"

  \' Følgende kode gør at du kan stoppe adgangen til databasen hvis du skal opdatere den.
  strUpdate = \"no\"
  If strUpdate = \"yes\" Then
    Response.Write \"<p>Siden er under opdatering. Kom tilbage om 60 minutter.</p>\"
    Response.End
    \' Alternativt kan du slette ovenstående 2 linier og istedet bruge nedenstående til at kalde en anden fil.
    \' Response.Redirect(\"update.htm\")
  End If
%>