Kan ikke \"connecte\" til min Access database !

<%
\' Connection til database
Set Con = Server.CreateObject(\"ADODB.Connection\")
DBPath = \"DBQ=\" & server.mappath(\"database.mdb\")
Con.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBPath

\' Her hiver vi indholdet af databasen ud, sorterer dem efter dato
    Sql = \"SELECT * FROM Tabel\"
    Set rs =  Con.Execute(Sql)
%>

øhhh mener du skrive så er det.

<%
\'Åbner connection til databasen
Set conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"database.mdb\")

\'Hvis brugeren har submittet formularen
    if Request.ServerVariables(\"REQUEST_METHOD\") = \"POST\" then
   
\'Tjecker om felterne er udfyld
    if (Request.Form(\"navn\") <> \"\" AND Request.Form(\"tag\") <> \"\") then
   
\'Tilføjer brugeren til databasen
    Set rs = Server.CreateObject(\"ADODB.Recordset\")
    strSQL = \"select * from tagwall\"
    rs.Open strsql, conn, 1, 3
   
\' Tilføjer kommentaren til tagwallen
    rs.AddNew
    rs(\"navn\") = Server.HTMLEncode(Request(\"navn\"))
    rs(\"mail\") = Server.HTMLEncode(Request(\"mail\"))
    rs(\"icq\") = Server.HTMLEncode(Request(\"icq\"))
    rs(\"url\") = Server.HTMLEncode(Request(\"url\"))
    rs(\"tag\") = (Request(\"tag\"))
    rs(\"dato\") = Now()
    rs.update
   
    Response.Redirect(\"tagwall.asp\")
   
    rs.Close
    set rs = nothing
   
    else
    Response.Write(\"<strong><font color=\'red\'>Du mangler at udfylde felter!</font></strong>\")
   
    end if
    end if
%>

Ingen af de muligheder du har givet virker ???
Den skriver at den mangler DB

JEg stratede med
<%
sponsorURL = request.querystring(\"url\")


set outpostDB = Server.CreateObject(\"ADODB.Connection\")

outpostDB.open \"Driver={Microsoft Access Driver (*.mdb)};DBQ=g:\\Inetpub\\wwwroot\\outpost.mdb\"

sqlText = \"insert into ad_log (sponsor, clickDate) values (\'\"
sqlText = sqlText & sponsorURL
sqlText = sqlText & \"\', \'\"
sqlText = sqlText & Now
sqlText = sqlText & \"\')\"
outpostDB.Execute(sqlText)
Response.write SqlText

outpostDB.close

%>

nu er jeg ikke helt med. Kan du ikke finde adressen til din DB ?

JO jo - men hvis jeg sætter din kode
<%
sponsorURL = request.querystring(\"url\")



Set Con = Server.CreateObject(\"ADODB.Connection\")
DBPath = \"DBQ=\" & server.mappath(\"outpost.mdb\")
Con.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBPath

outpostDB.open \"outpost\"

sqlText = \"insert into ad_log (sponsor, clickDate) values (\'\"
sqlText = sqlText & sponsorURL
sqlText = sqlText & \"\', \'\"
sqlText = sqlText & Now
sqlText = sqlText & \"\')\"
outpostDB.Execute(sqlText)

outpostDB.close

set outpostDB = Nothing
%>

Skriver den følgende fejl medd.

Der opstod en Microsoft VBScript-kørselsfejl (0x800A01A8)
Et objekt er obligatorisk: \'outpostDB\'
/Default.asp, line 12

prøv lige at fortælle mig helt precist hvad den form skal....

Den skal ikke noget bestemt - jeg er bare ved at se om jeg kan lave en ASP side der skriver noget input - f.eks. fra en tekstbox til en database !!
MEn jeg kan ikke få min ASP side til at komme i kontakt med databasen ??

Jeg forstår ikke lige dit script. Det her script VIRKER !

<%
\'Åbner connection til databasen
Set conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"outpost.mdb\")

\'Hvis du har trykket på submit
    if Request.ServerVariables(\"REQUEST_METHOD\") = \"POST\" then
   
\'Tilføjer det til databasen
    Set rs = Server.CreateObject(\"ADODB.Recordset\")
    strSQL = \"select * from ad_log\"
    rs.Open strsql, conn, 1, 3
   
\' Tilføjer det til databasen
    rs.AddNew
    rs(\"navn\") = Server.HTMLEncode(Request(\"navn\"))
    rs(\"tag\") = Server.HTMLEncode(Request(\"tag\"))
    rs(\"dato\") = Now()
    rs.update
   
    end if
%>