ligger ikke i database!!
Hey!Så er den gal igen!!
Jeg skriver fra "write_comment" til "make_comment" - Jeg får ikke nogen fejl, men den smider ingenting i databasen.??? WHY???
<%ElseIf Request.QueryString("Action") = "write_comment" Then %>
<tr>
<td width="100%">
<font face="Trebuchet MS" style="font-size: 9pt; font-weight:700">
<img border="0" src="images/all_a3_small_red.gif">Skriv kommentar</font><p>
<form name=write_comment method=post action="pgruppe.asp?Action=make_comment?id=<%Response.Write(Request("id"))%>">
<textarea rows="11" name="text" cols="72" id="sites"></textarea><br>
<input type="submit" value="Submit" name="Send" id="sites"></form>
</td>
</tr>
<%ElseIf Request.QueryString("Action") = "make_comment" Then %>
Set DataConn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("dbase.mdb")
DataConn.Open DSN
Set RS_make_comment = Server.CreateObject("ADODB.RecordSet")
RS_make_comment.open "Select * From [comments] Order by id", DataConn, 1, 3
'Tilføjer brugeren tekst til databasen
RS_make_comment.Addnew
RS_make_comment("text") = request.form("text")
RS_make_comment("author") = Session("username")
RS_make_comment("textid") = Response.Write(Request("id"))
RS_make_comment("date") = FormatDateTime(Now, vbShortDate)
RS_make_comment.Update
DataConn.Close
%>
<font face="Trebuchet MS" style="font-size: 9pt; font-weight:700">
<% Response.write("Databasen er opdateret") %>
</font>
</tr>
Håber I kan hjælpe!!
/Bruhn
