skrive i Database??

<% if mode = \"\" then %>
<form action=\"?mode=tilfoj\" method=\"POST\">
Felt:<br>
<input type=\"text\" size=\"30\" name=\"felt\"><br><br>
Felt2:<br>
<input type=\"text\" size=\"30\" name=\"felt2\"><br><br>
<input type=\"submit\" value=\"Send\">
</form>
<% end if %>
<% if mode = \"tilfoj\" then %>
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"database.mdb\")
Set rs = Server.CreateObject(\"ADODB.RecordSet\")
SQL = \"Select * From tabel\"
rs.Open SQL, Conn, 1, 3

rs.AddNew
rs(\"felt\") = Request.form(\"felt\")
rs(\"felt2\") = Request.form(\"felt2\")
rs.Update
%>
Færdig med den :)
<% end if %>
rs.Update
%>
Færdig med den :)
<% end if %>

<input type=\"text\" size=\"30\" name=\"felt2\"><br><br>

^^^hvordan skriver man så hvilken Kolonne den skal skrive i?

rs.AddNew
rs(\"felt\") = Request.form(\"felt\")
rs(\"felt2\") = Request.form(\"felt2\")
rs.Update

der

navnet på databasen er \"guest.mdb\" og den ligger i mappen \"data\" og under databaen hedder \"messages\" hvordan  ser scripted så ud?

\' skriver i din database

SqlQ = \"Insert Into tabel (kolonne1, kolonne2) values
(\"
SqlQ = SqlQ & \"\'\" & request(\"streng1\") & \"\'\" & \",\"
SqlQ = SqlQ & \"\'\" & request(\"streng2\") & \"\'\" & \")\"

<% if mode = \"\" then %>
<form action=\"?mode=tilfoj\" method=\"POST\">
Felt:<br>
<input type=\"text\" size=\"30\" name=\"felt\"><br><br>
Felt2:<br>
<input type=\"text\" size=\"30\" name=\"felt2\"><br><br>
<input type=\"submit\" value=\"Send\">
</form>
<% end if %>
<% if mode = \"tilfoj\" then %>
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"data/guest.mdb\")
Set rs = Server.CreateObject(\"ADODB.RecordSet\")
SQL = \"Select * From messages\"
rs.Open SQL, Conn, 1, 3

rs.AddNew
rs(\"felt\") = Request.form(\"felt\")
rs(\"felt2\") = Request.form(\"felt2\")
rs.Update
%>
Færdig med den :)
<% end if %>
rs.Update
%>
Færdig med den :)
<% end if %>

hvis jeg bruger den kode siger den:

\"HTTP 500 Internal server error\"

Hvorfor gør den det?

<% if mode = \"\" then %>
<form action=\"?mode=tilfoj\" method=\"POST\">
Felt:<br>
<input type=\"text\" size=\"30\" name=\"felt\"><br><br>
Felt2:<br>
<input type=\"text\" size=\"30\" name=\"felt2\"><br><br>
<input type=\"submit\" value=\"Send\">
</form>
<% end if %>
<% if mode = \"tilfoj\" then %>
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"data/guest.mdb\")
Set rs = Server.CreateObject(\"ADODB.RecordSet\")
SQL = \"Select * From messages\"
rs.Open SQL, Conn, 1, 3

rs.AddNew
rs(\"felt\") = Request.form(\"felt\")
rs(\"felt2\") = Request.form(\"felt2\")
rs.Update
%>
Færdig med den :)
<% end if %>

Nu virker Formlen... men den tilføjer ikke noget i databasen =(

prøv www.asp.dk og www.activeserverpages.dk og lær lidt asp og MEGET HTML først!

<% mode = request(\"mode\") %> i toppen af filen

       
        <%
        \' åbner databasen
        set Connection=server.createobject(\"adodb.connection\")
        path=\"DBQ=\" & server.mappath(\"data/guest.mdb\")
        Connection.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & path, 1
        %>
<!-- Hvis der ikke er en querystreng (sendt data) -->
<% if mode = \"\" then %>
<form action=\"?mode=tilfoj\" method=\"POST\">
Felt:<br>
<input type=\"text\" size=\"30\" name=\"felt\"><br><br>
Felt2:<br>
<input type=\"text\" size=\"30\" name=\"felt2\"><br><br>
<input type=\"submit\" value=\"Send\">
</form>


<% elseif mode = \"tilfoj\" then %>
<%
\' Hvis der er en querystreng (sendt data) skrives disse til databasen

SqlQ = \"Insert Into tabel (dbrow1, dbrow2) values (\"
SqlQ = SqlQ & \"\'\" & request(\"felt\") & \"\'\" & \",\"
SqlQ = SqlQ & \"\'\" & request(\"felt2\") & \"\'\" & \")\"
Conn.execute(SqlQ)
end if

%>

Conn.execute(SqlQ)  = Connection.execute(SqlQ)

Sorry...