Har fået FEJL !!

- Hej jeg har igen fået fejl med min tagwall...når man kna skrevet sit tag og trykker "send" siger den + Navn, tak !! som jeg har sagt at den skulle hvis man ikke havde skrevet noget, men den gør det ligemeget hvad. hvad er fejlen ??

Source.


<%
' --------------------------------------------------------------------------------
' web: http://www.kasp.dk
' mail: kasp@kasp.dk
' icq: 113813398
' msn: admin@kasp.dk
' --------------------------------------------------------------------------------
Const adOpenKeyset = 1
Const adLockOptimistic = 3

strMode = Request.QueryString("mode")
tempConn = "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("guestbook.mdb") & ";UID=admin;PWD=;"

If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
    strError = ""
    strNavn = Trim(Request.Form("Navn"))
    strEmail = Trim(Request.Form("Email"))
    strKommentar = Trim(Request.Form("Kommentar"))
    If Len(strNavn) = 0 Then
        strError = "<li>Navn, tak !!</li>"
    ElseIf validateEmail(strEmail) = False Then
        strError = "<li>Din rigtige mail !!</li>"
    ElseIf Len(strKommentar) = 0 Then
        strError = "<li>skriv dit tag !!!</li>"
    End If
    If Len(strError) = 0 Then
        Set rs = Server.CreateObject("ADODB.RecordSet")
        strSQL = "SELECT * FROM Guestbook WHERE (ID = 0)"
        rs.Open strSQL, tempConn, adOpenKeyset, adLockOptimistic
        If (rs.BOF Or rs.EOF) Then
            rs.AddNew
            rs("Navn") = Server.HTMLEncode(strNavn)
            rs("Email") = Server.HTMLEncode(strEmail)
            rs("Kommentar") = Server.HTMLEncode(strKommentar)
            rs("Dato") = Now()
            rs.Update
        End If
        rs.Close
        Set rs = Nothing
    Else
        strError = "<p><ul><font color=#000000>" & strError & "</font></ul></p>"
        strMode = "add"
    End If
End If
%>
<html>

<head>
<title>Gæstebogen</title> <LINK REL="stylesheet" HREF="./main[2].css" TYPE="text/css"/>
<STYLE TYPE="text/css">
<!--
a:active {  color: #FFFFFF}
a:hover {  color: #000000}
a:link {  color: #000000; text-decoration: underline}
a:visited {  color: #000000; text-decoration: underline}
-->
</STYLE>
</head>

<body BGCOLOR="F0F0F0">
<div align="center"><left><STYLE TYPE="text/css">

</STYLE> <table border="0" width="100%" cellspacing="0" cellpadding="0" style="border-left: 0px solid rgb(0,0,0); border-right: 0px solid rgb(0,0,0); border-top: 0px solid rgb(0,0,0); border-bottom: 0px solid rgb(0,0,0)" ALIGN="LEFT" HEIGHT="100%">
<tr> <td width="100%" HEIGHT="2"><p><FONT FACE="Arial, Tahoma, Verdana, Helvetica;" SIZE="4" COLOR="#000000"><FONT SIZE="1" FACE="Arial, Helvetica, Tahoma, Verdana" COLOR="#000000">Tagwall</FONT></FONT></td></tr>
<tr VALIGN="TOP"> <td width="100%"> <FONT COLOR="#000000"><%
Select Case strMode
Case "add"
%> </FONT><form method="POST" action="guestbook.asp"> <table border="0" width="100%" cellspacing="0" cellpadding="2">
<tr> <td valign="left" align="left" colspan="4"><font face="Arial, Tahoma, Verdana, Helvetica;" size="1"><br><normal>
<%=strError%></td></tr> <tr> <td valign="left" align="left" WIDTH="4%"><FONT COLOR="#000000" FACE="BeyondControl" SIZE="1"><FONT FACE="Arial, Helvetica, Tahoma, Verdana">Navn</FONT></FONT><BR><FONT FACE="Verdana" SIZE="1"><INPUT TYPE="text" NAME="Email2" VALUE="<%=strNavn%>" CLASS="but" STYLE="color: #000000; font-family: Verdana; font-size: 10px; border: 1px solid #CCCCCC; background-color: #FFFFFF" SIZE="35"></FONT></td><td valign="left" align="left" WIDTH="4%"><FONT COLOR="#000000" FACE="Verdana, Arial, Helvetica, Tahoma" SIZE="1"><NORMAL></NORMAL></FONT></td><td valign="middle" align="left" COLSPAN="2">&nbsp;</td></tr>
<tr> <td valign="left" align="left" WIDTH="8%" COLSPAN="2"><FONT COLOR="#000000" FACE="Verdana, Arial, Helvetica, Tahoma" SIZE="1"><NORMAL><FONT COLOR="#000000" FACE="Arial, Helvetica, Tahoma, Verdana">E-mail</FONT></NORMAL><FONT FACE="Arial, Helvetica, Tahoma, Verdana"><NORMAL></NORMAL><NORMAL></NORMAL></FONT><NORMAL></NORMAL></FONT><BR><FONT FACE="Verdana" SIZE="1"><INPUT TYPE="text" NAME="Email22" VALUE="<%=strEmail%>" CLASS="but" STYLE="color: #000000; font-family: Verdana; font-size: 10px; border: 1px solid #CCCCCC; background-color: #FFFFFF" SIZE="35"></FONT></td><td valign="left" align="left" COLSPAN="2"><FONT COLOR="#000000" FACE="Verdana, Arial, Helvetica, Tahoma" SIZE="1"><NORMAL></NORMAL></FONT></td></tr>
<tr> <td valign="top" align="left" WIDTH="8%" COLSPAN="2"><FONT COLOR="#990000" FACE="Verdana, Arial, Helvetica, Tahoma" SIZE="1"><NORMAL><FONT COLOR="#000000" FACE="Arial, Helvetica, Tahoma, Verdana">Kommentar</FONT></NORMAL><FONT FACE="Arial, Helvetica, Tahoma, Verdana"><NORMAL></NORMAL><NORMAL></NORMAL></FONT><NORMAL></NORMAL></FONT><BR><FONT FACE="Verdana" SIZE="1"><TEXTAREA NAME="Body" CLASS="but" STYLE="color: #000000; HEIGHT:130px; WIDTH:400px; font-family: Verdana; font-size: 10px; border: 1px solid #CCCCCC; background-color: #FFFFFF" COLS="35"></TEXTAREA></FONT></td><td valign="left" align="left" COLSPAN="2"><FONT COLOR="#990000" FACE="Verdana, Arial, Helvetica, Tahoma" SIZE="1"><NORMAL></NORMAL></FONT></td></tr>
<tr VALIGN="TOP"> <td align="left" WIDTH="8%" COLSPAN="2"><DIV ALIGN="RIGHT"><P ALIGN="RIGHT"><FONT FACE="Verdana" SIZE="1"><INPUT TYPE="submit" NAME="button" VALUE="Send" CLASS="button" STYLE="color: #000000; font-family: Verdana; font-size: 10px; border: 1px solid #F0F0F0; background-color: #FFFFFF"></FONT><FONT FACE="Verdana" SIZE="1">
<INPUT TYPE="button" NAME="button2" VALUE="Tilbage" CLASS="button" STYLE="color: #000000; font-family: Verdana; font-size: 10px; border: 1px solid #F0F0F0; background-color: #FFFFFF"></FONT></P></DIV></td><td align="left" WIDTH="91%">&nbsp;
</td><td align="left" WIDTH="5%">&nbsp;</td></tr> </table></form><FONT COLOR="#000000"><%
Case Else
    strAddLine = "<p><a href=guestbook.asp?mode=add><normal><font face=Arial, Tahoma, Verdana, Helvetica; size=1> Skriv:. </font></normal</a></p>"
    Response.Write strAddLine
    strSQL = "SELECT * FROM Guestbook ORDER BY Dato DESC;"
    Set myConn = Server.CreateObject("ADODB.Connection")
    myConn.Open tempConn
    Set rs = myConn.Execute(strSQL)
    If Not (rs.BOF Or rs.EOF) Then
        Response.Write "<table width=100% border=0 cellpadding=0 cellspacing=0>"
        Do While Not rs.EOF
            dtmDato = rs("Dato")
            dtmDato = FormatDateTime(dtmDato,vbLongDate) & " kl. " & FormatDateTime(dtmDato,vbLongTime)
            Response.Write "<tr bgcolor=#FFFFFF><td width=""100%""><font face=Arial, Tahoma, Verdana, Helvetica size=1>" & dtmDato & "</td></tr>"
            If Len(rs("Email")) > 0 Then
                Response.Write "<tr><td><font face=Arial, Tahoma, Verdana, Helvetica size=1><normal><a href=mailto:" & rs("Email") & ">" & rs("Navn") & "</a>:</normal></td></tr>"
            Else
                Response.Write "<tr><td><font face=Arial, Tahoma, Verdana, Helvetica size=1><normal>" & rs("Navn") & " skriver:</normal></td></tr>"
            End If
            Response.Write "<tr><td><font face=Arial, Tahoma, Verdana, Helvetica size=1>" & rs("Kommentar") & "<br>&nbsp;</td></tr>"
            rs.MoveNext
        Loop
        Response.Write "</table>"
    Else
        Response.Write "<p><font face=Arial, Tahoma, Verdana, Helvetica size=1>Ingen tag's</font></p>"
    End If
    myConn.Close
    Set myConn = Nothing
    Response.Write strAddLine
End Select
%> </FONT></tr> <tr align="left"> <td width="100%"><normal><font face="Arial, Tahoma, Verdana, Helvetica;" size="1"><p></font></normal></td></tr>
</table></left></div>
</body>
</html>
<script language="VBScript" runat="Server">
Function validateEmail(strEmail)
    validateEmail = True
    If Len(strEmail) < 6 Then
        validateEmail = False
    End If
    If InStr(1, strEmail, "@", 1) < 2 Then
        validateEmail = False
    End If
    If InStr(1, strEmail, ".", 1) = 0 Then
        validateEmail = False
    End If
    pos = InStr(1, strEmail, "@", 1)
    If pos < 2 Then
        validateEmail = False
            Else
        pos = InStr(pos+1, strEmail, "@")
        If pos > 0 Then
            validateEmail = False
        End If
    End If
End Function
</script>