let spørgsmål / Indsæt i database

Opret en side der i dette tilfælde hedder update.asp, og indsæt nedenstående kode, den vil oprette en record i din database:

<html>
    <head>
<title>Skriv navn i database</title>
    </head>
    <body bgcolor=\"#ffffff\" leftmargin=\"0\" topmargin=\"0\" marginwidth=\"0\" marginheight=\"0\">
<% if request(\"Update\")=\"Update\" then
    Set myConn = Server.CreateObject(\"ADODB.Connection\")
    strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"../test/database.mdb\")
    myConn.Open strDSN
    Fornavn = Replace(Request.form(\"Fornavn\"), \"\'\", \"\'\'\")
    StrSQL = \"INSERT INTO bog  (Fornavn) \"
    strSQL = strSQL & \"VALUES (\'\" & Fornavn & \"\') \"
    Set rs = myConn.Execute(strSQL)
    resposne.write(\"<h1>Databasen er opdateret!</h1>\")
    else
%>
<form name=\"FormName\" action=\"update.asp\" method=\"post\">
    <input type=\"text\" name=\"Fornavn\" size=\"24\"><br>
    <input type=\"submit\" name=\"Update\" value=\"Update\">
</form>
<%
    end if
    myConn.Close
    Set myConn = Nothing
%>
    </body>
</html>

når jeg laver sådan en side kommer den med denne fejl :

Microsoft VBScript runtime error \'800a01a8\'

Object required: \'\'

/test/update.asp, line 23

.............................................
jeg kan godt se feldtet og skrive i feldtet, når jeg så trykker update. kommer der en fejl besked mere :

Microsoft VBScript runtime error \'800a01a8\'

Object required: \'\'

/test/update.asp, line 14

----------------------------------------------
men navnet kommer ind i databasen... ved du hvorfor den kommer med de 2 fejl... det må jo bare være en lille ting, da scriptet endelig virker med kommer bare med 2 fejl beskeder... :-)

linie 23 henviser den ikke til myConn.Close ?

Hedder din db connection myConn og ikke kun Conn som vist i din kode?

linie 14 henviser den til: Set rs = myConn.Execute(strSQL)

Igen DB connection myConn og ikke Conn

her du kopieret hele koden og sat ind på siden?

Hvis det ikke lige virker så tjekker jeg den lige på serveren....

/søren

Ja jeg har kopieret alt ind på siden update.asp

linie 23 henviser til myConn.Close

linie 13 : Set rs = myConn.Execute(strSQL)
linie 14 : resposne.write(\"<h1>Databasen er opdateret!</h1>\")

??

jeg kigger lige på det senere......i aften

Prøv denne her, den virker.....

siden skal hedde update.asp

<html>
    <head>
        <meta http-equiv=\"content-type\" content=\"text/html;charset=iso-8859-1\">
    </head>
    <body bgcolor=\"#ffffff\" leftmargin=\"0\" topmargin=\"0\" marginwidth=\"0\" marginheight=\"0\">
<% if request(\"Update\")=\"Update\" then
    Set myConn = Server.CreateObject(\"ADODB.Connection\")
    strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"../test/database.mdb\")
    myConn.Open strDSN
    Fornavn = Replace(Request.form(\"Fornavn\"), \"\'\", \"\'\'\")
    StrSQL = \"INSERT INTO bog  (Fornavn) \"
    strSQL = strSQL & \"VALUES (\'\" & Fornavn & \"\') \"
    Set rs = myConn.Execute(strSQL)
    myConn.Close
    Set myConn = Nothing
    response.write(\"<h1>Databasen er opdateret!</h1>\")
    else
%>
<form name=\"FormName\" action=\"update.asp\" method=\"post\">
    <input type=\"text\" name=\"Fornavn\" size=\"24\"><br>
    <input type=\"submit\" name=\"Update\" value=\"Update\">
</form>
<%end if
%>
    </body>
</html>

/søren

Den her køber jeg IKKE :
strSQL = \"Insert into bog (\"

strSQL = strSQL & \"Fornavn) \"

strSQL = strSQL & \"values( \"

strSQL = strSQL & \"\'Kim Kristensen\')\"
--------------------------------
hvordan står den i virkelighed ?