Er på vej på weekend, så du får lige den måde som jeg har gjort det på:
<%@ LANGUAGE = \"VBScript\" %>
<%
Option Explicit
SetLocale(1030)
Response.Expires = 0
Dim Conn, MyConn, strSQL, rs
Dim ForumID, ID, ForumNavn
Dim strNavn, strEmail, strEmne, strTekst
Dim strError
ForumID = Request.QueryString(\"forumid\")
ForumNavn = Request.QueryString(\"forumnavn\")
%>
<SCRIPT TYPE=\"text/javascript\">
function CheckForm(form) {
if (form.Navn.value != \"\" && form.Email.value != \"\" && form.Emne.value != \"\" && form.Tekst.value != \"\") {
alert(\'Dit svar bliver behandlet! Vent venligst...\');
return true;
}
alert(\'Nogen af felterne er ikke udfyldt.\');
return false;
}
</SCRIPT>
<%
if (Request.Form(\"Send\") <> \"\") then
strNavn = Request.Form(\"Navn\")
strEmail = Request.Form(\"Email\")
strEmne = Request.Form(\"Emne\")
strTekst = Request.Form(\"Tekst\")
ForumID = Request.QueryString(\"forumid\")
strSQL = \"SELECT * FROM Forum;\"
Set rs = Server.CreateObject(\"ADODB.RecordSet\")
%><!-- #include file=\"connect.asp\" -->
<%
rs.Open strSQL, Conn, 1, 3
rs.AddNew
rs(\"ForumID\") = ForumID
rs(\"ParentID\") = 0
rs(\"Dato\") = Now()
rs(\"Navn\") = strNavn
rs(\"Email\") = strEmail
rs(\"Emne\") = strEmne
rs(\"Tekst\") = strTekst
rs.Update
<!-- #include file=\"connect_close.asp\" -->
Response.Redirect(\"visforum.asp?forumid=\"& ForumID &\"&forumnavn=\"& Request.QueryString(\"forumnavn\") )
end if
%>
<FORM ACTION=\"nytindlaeg.asp?forumid=<%= ForumID %>&forumnavn=<%= ForumNavn %>\" METHOD=\"POST\" NAME=\"Besked-Form\" onsubmit=\"if (!CheckForm(this)) return false;\">
<TABLE BORDER=\"0\">
<tr>
<td><b>Opret indlæg:</b></td>
</tr>
<TR>
<TD><div style=\'font-size:8pt; font-weight:bold\'>Navn</div></TD>
</TR>
<TR>
<TD><INPUT TYPE=\"text\" VALUE=\"<%= strNavn %>\" SIZE=\"40\" MAXLENGTH=\"255\" NAME=\"Navn\"></TD>
</TR>
<TR>
<TD><div style=\'font-size:8pt; font-weight:bold\'>Email</div></TD>
</TR>
<TR>
<TD><INPUT TYPE=\"text\" VALUE=\"<%= strEmail %>\" SIZE=\"40\" MAXLENGTH=\"255\" NAME=\"Email\"></TD>
</TR>
<TR>
<TD><div style=\'font-size:8pt; font-weight:bold\'>Emne</div></TD>
</TR>
<TR>
<TD><INPUT TYPE=\"text\" VALUE=\"<%= strEmne %>\" SIZE=\"60\" MAXLENGTH=\"255\" NAME=\"Emne\"></TD>
</TR>
<TR>
<TD><div style=\'font-size:8pt; font-weight:bold\'>Tekst</div></TD>
</TR>
<TR>
<TD><TEXTAREA WRAP=\"physical\" ROWS=\"6\" COLS=\"66\" NAME=\"Tekst\"><%= strTekst %></TEXTAREA></TD>
</TR>
</TABLE>
<INPUT TYPE=\"submit\" VALUE=\"Indsend\" NAME=\"Send\">
</FORM>
Håber du finder ud af det... For jeg er først tilbage engang søndag.
