Problem med validering af form
Den følgende side validere godt nok mine to felter når jeg trykker "opret indlæg" men når jeg så trykker ok i popup meddelelsen så opretter den posten i databasenHvis jeg trykker ok i popup meddelelsen skal jeg jo have mulighed for at rette det indtastede, hvad skal jeg gøre???
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
if Session("login") <> "loged_in" then Response.Redirect("login.asp")
%>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/db/login.mdb")
%>
<%
SQL = "SELECT * FROM tblmedlemmer WHERE licensnr = " & Session("licensnr")
Set rs = Conn.Execute(SQL)
%>
<%
If Request("Submit") <> "" Then
%>
<%
Set database = Server.CreateObject ("ADODB.Connection")
database.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/db/debatforum.mdb")
%>
<%
Set indlaeg = Server.CreateObject("ADODB.Recordset")
indlaeg.Open "SELECT * FROM debat", database, 2, 2
indlaeg.AddNew
indlaeg("overskrift") = Request("overskrift")
indlaeg("dato") = Request("dato")
indlaeg("forfatter") = Request("forfatter")
indlaeg("kommentar") = Request("kommentar")
indlaeg("klub") = Request("klub")
indlaeg("id2") = Request("id2")
indlaeg.Update
Response.Redirect("main.asp")
End If
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script type="text/JavaScript">
<!--
function valider ( form ) {
if ( form.kommentar.value.length > 0 ) {
} else {
alert ("Feltet kommentar skal udfyldes.");
form.att.focus();
return false;
};
if ( form.overskrift.value.length > 0 ) {
} else {
alert ("Feltet overskrift skal udfyldes.");
form.att.focus();
return false;
};
return true;
};
</script>
</head>
<body>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><form action="opret.asp" method="post" name="form1" onsubmit="return valider(this);" >
<table border="0">
<tr>
<td height="31" valign="top"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>OPRET
INDLÆG I DEBATTEN</strong></font></td>
</tr>
<tr>
<td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Overskrfit:</font></td>
</tr>
<tr>
<td> <div align="left"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<input name="overskrift" type="text" class="noborder" size="53">
</font></div></td>
</tr>
<tr>
<td valign="top"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Kommentar:</font></td>
</tr>
<tr>
<td valign="top"> <div align="left"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<textarea name="kommentar" cols="40" rows="8" class="noborder" id="kommentar"></textarea>
<input name="forfatter" type="hidden" id="forfatter" value="<% Response.Write(rs("fornavn") & " " & rs("efternavn")) %>">
<input name="klub" type="hidden" id="klub" value="<% Response.Write(rs("klub")) %>">
<input name="dato" type="hidden" id="dato" value="<% response.write(Now())%>">
<input name="id2" type="hidden" id="id2" value="0">
</font></div></td>
</tr>
<tr>
<td valign="top"> <div align="left"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<input name="Submit" type="submit" class="knap" value="Opret indlæg">
<input type="reset" name="Submit2" value="Nulstil indlæg">
</font></div></td>
</tr>
</table>
</form></td>
</tr>
</table>
</body>
</html>
