Form validation, HELP-HELP
Hvorfor sender formvalidationen den samme fejlkode uanset om formen er udfyldt eller ej???
<!--#include file=\"protect.inc\"-->
<% response.buffer = true %>
<html>
<head>
<title>Tilføj nyt forum</title>
</head>
<body bgcolor=\"#FFFFFF\">
<h3 align=\"center\"><% if Request.QueryString(\"mode\")=\"\" then %><font face=\"verdana Black\" >Rediger forum</font></h3>
<div align=\"center\"><center>
<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\">
<tr>
<td width=\"100%\">
<p align=\"center\"><font face=\"verdana Black\"><a href=\"tagwall.asp?mode=add\"><font size=\"3\" color=\"#1C261E\">Tilføj
forum</font></a> <a href=\"admin.asp\"><font size=\"3\" color=\"#1C261E\">Slet/rediger
forum</font></a><font
size=\"1\" face=\"Arial Black\"><br>
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"../../scripts/forum.mdb\")
strSQL = \"Select * From forums\"
set rs = Conn.execute(strSQL)
if rs.EOF then
Response.write \"<font face=\"\"Arial\"\" size=\"\"2\"\"><i>Der er ingen der har skrevet i tagwall`en...</i></font>\"
else
Do Until rs.EOF%>
<br>
</font></font></p>
</td>
</tr>
</table>
</center></div><div align=\"center\"><center>
<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\">
<tr>
<td width=\"100%\" align=\"center\"><font face=\"Arial\" size=\"2\"><b><%=RS(\"forum\")%></b></font><font face=\"Arial\"><br>
<font size=\"2\" face=\"Arial\"><%=RS(\"description\")%></font></font></td>
</tr>
</table>
</center></div>
<p><%RS.MoveNext
Loop
end if
Conn.Close
Set Conn = Nothing%></p>
<h3 align=\"center\"><% elseif Request.QueryString(\"mode\")=\"add\" then %><font face=\"verdana Black\" >Rediger
forum</font></h3>
<TABLE border=0 width=500 >
<TR><TD>
<%
\'ON THE FIRST TIME THAT THIS PAGE LOADS, SESSION(\"ERRORS\") HAS NO VALUE AND SO
\'EQUALS 0. ON SUBSEQUENT VISITS, SESSION(\"ERRORS WILL HAVE A VALUE OF 1 OR
\'MORE IF ERRORS WERE MADE
if Session(\"Errors\")=0 then
response.write \"Please fill out the form\"
else
\'ERRORS WERE MADE SO LIST THEM IN THE REST OF THE TABLE
\'reset our error counter
Session(\"Errors\")=\"0\"
response.write \"<BR>There are errors in your data. \" & _
\"Please make the following changes before \" & _
\"clicking the submit button:<br>\"
response.write\"<TABLE border=0 width=\' 400\' align=\'center\'>\"
\'THESE SESSION VARIABLES ARE SET IN THE SECOND PAGE
\' IF THERE WERE ERRORS \'VALUE IS \"F\"
If Session(\"badFirstName\") = \"T\" then
Response.write \"<TR><TD><font color=\'red\'>The First \" & _
\"Name field must be completed.</font>\"
Response.write \"</TD></TR>\"
Session(\"badFirstName\")=\"F\"
End If
If Session(\"badLastName\") = \"T\" then
Response.write \"<TR><TD><font color=\'red\'>The Last Name \" & _
\"field must be completed. </font>\"
Response.write \"</TD></TR>\"
Session(\"badLastName\")=\"F\"
End If
\'END THE ERRORS TABLE
response.write \"</TD></TR></TABLE>\"
End If
%>
<form action=\"test.asp\" NAME=\"frmUser\" method=\"POST\">
<div align=\"center\"><center>
<table border=\"0\" cellpadding=\"2\"
cellspacing=\"0\">
<tr>
<td align=\"right\" width=\"207\"><font face=\"Arial\" size=\"2\">Forum titel:</font></td>
<td colspan=\"2\" width=\"472\"><font size=\"2\"
face=\"Arial\">
<input type=\"text\" size=\"20\"
name=\"forum\">
</font></td>
</tr>
<tr>
<td align=\"right\" width=\"207\"><font face=\"Arial\" size=\"2\"><b>Kort</b>
beskrivelse:<br>
</font></td>
<td valign=\"top\" width=\"472\" colspan=\"2\"> <font size=\"2\"
face=\"Arial\">
<input type=\"text\" name=\"description\" size=\"75\" value=\"\" maxlength=\"75\">
</font><font size=\"2\"
face=\"Arial\"><font size=\"2\"
face=\"Arial\"><font size=\"1\"> </font></font></font></td>
</tr>
</table>
<font face=\"Arial\" size=\"2\"><font size=\"2\"
face=\"Arial\"><font size=\"1\">-MAX </font></font><font size=\"1\">60 ANSLAG-</font></font>
</center></div><p align=\"center\"><input type=\"submit\"
name=\"B1\" value=\"Tilføj\"></p>
</form>
<p><% elseif Request.QueryString(\"mode\")=\"save\" then %> <%
response.buffer = true
Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"../../scripts/forum.mdb\") & \";UID=admin;PWD=;\"
Set rs = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"Select * From forums\"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
rs.AddNew
rs(\"description\") = Request.form(\"description\")
rs(\"forum\") = Request.form(\"forum\")
rs.Update
rs.Close
Set rs = Nothing
Conn.Close
set Conn = Nothing
response.redirect \"\"
%><%end if%></p>
</body>
</html>
