Hvorfor virke det her ikke???
Når jeg prøver at indtaste i formen for jeg min egen fejlmeling:"Du skal skrive sejlerens navn..."
HVORFOR??????
<%
response.Buffer = true
response.expires = 0
%>
<%
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
Response.Cookies("Bandholm")("Navn") = Request.Form("Navn")
Response.Cookies("Bandholm")("Email") = Request.Form("Email")
Response.Cookies("Bandholm")("Sejler") = Request.Form("Sejler")
Response.Cookies("Bandholm").Expires = Date+365
End If
strNavn = Request.Cookies("Bandholm")("Navn")
strEmail = Request.Cookies("Bandholm")("Email")
strSejler = Request.Cookies("Bandholm")("Sejler")
If Request.Form("Add") <> "" Then
strError = ""
strNavn = Trim(Request.Form("Navn"))
strEmail = Trim(Request.Form("Email"))
strSejler = Trim(Request.Form("Sejler"))
strPlads = Trim(Request.Form("Plads"))
strStaevne = Trim(Request.Form("Staevne"))
strSdato = Trim(Request.Form("Sdato"))
strSted = Trim(Request.Form("Sted"))
strDelt = Trim(Request.Form("Delt"))
strLink = Trim(Request.Form("Link"))
strBesk = Trim(Request.Form("Besk"))
arr = split(strBesk," ")
for i = lbound(arr) to ubound(arr)
If Len(arr(i)) > 25 then
strError = "Et ord må kun indeholle 25 tegn!"
End If
next
If Len(strNavn) = 0 Then
strError = "Du skal skrive dit fulde navn..."
ElseIf Len(strEmail) = 0 Then
strError = "Du skal skrive en gyldig e-mail adresse..."
ElseIf Len(strSejler) = 0 Then
strError = "Du skal skrive sejlerens navn..."
ElseIf Len(strPlads) = 0 Then
strError = "Du skal skrive en pladcering..."
ElseIf Len(strStaevne) = 0 Then
strError = "Du skal skrive hvilket stævne det var..."
ElseIf Len(strSdato) = 0 Then
strError = "Du skal skrive hvilken dato stævnet var..."
ElseIf Len(strSted) = 0 Then
strError = "Du skal skrive en hvor stævnet var..."
ElseIf Len(strDelt) = 0 Then
strError = "Du skal skrive hvormange der deltog..."
End If
If Len(strError) = 0 Then
Set rstemp = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM koelbaad WHERE (ID = 0)"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("resultat.mdb")
rstemp.Open strSQL, strDSN, 1, 3
If (rstemp.BOF Or rstemp.EOF) Then
rstemp.AddNew
rstemp("Navn") = (strNavn)
rstemp("Email") = (strEmail)
rstemp("Sejler") = (strSejler)
rstemp("Plads") = (strPlads)
rstemp("Staevne") = (strStaevne)
rstemp("Sdato") = (strSdato)
rstemp("Sted") = (strSted)
rstemp("Delt") = (strDelt)
rstemp("Link") = (strLink)
rstemp("Besk") = Replace((strBesk), vbCrLf, "<br>")
rstemp.Update
End If
rstemp.Close
Set rstemp = Nothing
Response.Redirect("koelbaad.asp")
Else
strError = "<p><font face=verdana size=1 color=#FFFFFF><b>"& strError &"</b></font></p>"
strMode = "add"
End If
End If
%>
<html>
<head>
<title>Bandholm Sejlklub - Indlæg</title>
<!--#include virtual = "/style.css"-->
</head>
<body>
<a href="java script:history.back(1);">Tilbage</a>
» <a href="ktilfoej.asp">Nyt indlæg</a> «
» <a href="../login/login.asp">login</a> «
<h2><u>Indlæg:</u></h2>
<center>
<div align="center">
<table border=1 bordercolor=black width="500" cellpadding=2 cellspacing=2 style="BORDER-LEFT: #000000 1px solid; BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid; BORDER-BOTTOM: #000000 1px solid">
<tr><td width="100%" colspan="3">
<br>
<form method="POST" action="ktilfoej.asp">
<div align="center">
<center>
<table border="0" width="40%" cellspacing="0" cellpadding="0" height="223">
<tr>
<td width="100%" height="25"><%=strError%></td>
</tr>
<tr>
<td width="100%" height="25"><font face="Verdana" size="2">Dit navn:</font><br>
<input type="text" name="Navn" size="22" class="box" tabindex="1" value="<%=strNavn%>"></td>
</tr>
<tr>
<td width="100%" height="25"><font face="Verdana" size="2">Din email:</font><br>
<input type="text" name="Email" size="22" class="box" tabindex="2" value="<%=strEmail%>"></td>
</tr>
<tr>
<td width="100%" height="25"><font face="Verdana" size="2">Sejlerens/sejlernes navn(e):</font><br>
<input type="text" name="Emne" size="22" class="box" tabindex="3" value="<%=strSejler%>"></td>
</tr>
<tr>
<td width="100%" height="25"><font face="Verdana" size="2">Placering:</font><br>
<input type="text" name="Emne" size="22" class="box" tabindex="4" value="<%=strPlads%>"></td>
</tr>
<tr>
<td width="100%" height="25"><font face="Verdana" size="2">Stævnets navn:</font><br>
<input type="text" name="Emne" size="22" class="box" tabindex="5" value="<%=strStaevne%>"></td>
</tr>
<tr>
<td width="100%" height="25"><font face="Verdana" size="2">Dato(er) for stævnet:</font><br>
<input type="text" name="Emne" size="22" class="box" tabindex="6" value="<%=strSdato%>"></td>
</tr>
<tr>
<td width="100%" height="25"><font face="Verdana" size="2">Hvor blev stævnet afholdt:</font><br>
<input type="text" name="Emne" size="22" class="box" tabindex="7" value="<%=strSted%>"></td>
</tr>
<tr>
<td width="100%" height="25"><font face="Verdana" size="2">Hvormange deltog:</font><br>
<input type="text" name="Emne" size="22" class="box" tabindex="8" value="<%=strDelt%>"></td>
</tr>
<tr>
<td width="100%" height="62"><font face="Verdana" size="2">Kort indlæg om stævnet:</font><br>
<textarea rows="5" name="Indlaeg" cols="35" class="scrollbarbox" tabindex="9"><%=strBesk%></textarea></td>
</tr>
<tr>
<td width="100%" height="25"><font face="Verdana" size="2">Evt. link til stævnet/klubben:</font><br>
<input type="text" name="Emne" size="22" class="box" tabindex="10" value="<%=strLink%>"></td>
</tr>
<tr>
<td width="100%" height="46"><br>
<input type="submit" value=" Send " name="Add" class="box" tabindex="11">
<input type="button" value=" Fortryd " name="Annuller" class="box" onClick="java script:location.href='koelbaad.asp'" tabindex="12"></td>
</tr>
</table>
</center>
</div>
</form>
<br></td></tr>
</table>
</center>
</body>
</html>
