der en en fejl i dette script! den tagget i databasen! men kun tiden den lader alt det andet stå tomt!!!

<% IF request.querystring(\"action\") = \"gem\" THEN 
navn=request.querystring(\"navn\")
email=request.querystring(\"email\")
dating=request.querystring(\"dating\")
text=request.querystring(\"text\")
tiden=now()
badflag=CInt(0)

IF navn = null THEN
response.write \"Du skal skrive dit navn<br>\"
badflag=CInt(1)
end if
IF text = null THEN
response.write \"Du skal skrive noget i text feltet<br>\"
badflag=CInt(1)
end if

IF badflag=CInt(0) THEN

Const adOpenKeyset = 1
Const adLockOptimistic = 3

    Set rs = Server.CreateObject(\"ADODB.RecordSet\")
    strSQL = \"Select * From tagwall\"
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

      rs.AddNew
      rs(\"navn\") = request.querystring(\"navn\")
      rs(\"email\") = email
      rs(\"dating\") = dating
      rs(\"text\") = text
      rs(\"dato\") = tiden
      rs.Update

    rs.Close
    Set rs = Nothing

Conn.Close
set Conn = Nothing

Response.Redirect(\"tagwall.asp\")

ELSE
response.write \"<a href=tagwall.asp?action=add>Disse fejl var grunden til at min hjemeside ikke kunne sette din besked ind hkik her for at rette beskeden</a><br><br>\"
END IF


END IF
%>


 
<% IF request.querystring(\"action\") = \"add\" THEN  %>
Udfyld feltet neden nunder. alle de steder hvor der er en <font color=\"FF0000\">*</font> skal udfyldes<br>
<form method=post action=\"tagwall.asp?action=gem\">
    <Table width=520 border=1 bordercolor=\"#000000\" cellpadding=3 cellspacing=0>
    <TR>
    <TD class=\"one\" valign=\"top\">
    C<br>A<br>M<br>I<br>L<br>L<br>A
    </TD>
    <TD valign=\"top\" class=\"two\" width=\"100%\">
    <B>Beskeden er af: <input type=text value=\"Dit navn\" name=navn><font color=\"FF0000\">*</font></B><BR>
    e-mail: <input type=text value=\"Din email adresse\" name=email><br>
    Dating navn: <input type=text value=\"Dit navn på dating\" name=dating><BR>
    <br>
<textarea wrap=\"virtual\" rows=\"10\" name=\"text\" cols=\"75\">Tips:
For ny line skriv &lt;br&gt;
For at skrive med fed &lt;b&gt; teksten &lt;/b&gt;
For at skrive med kursiv &lt;i&gt; kursiv &lt;/i&gt;
For understreget tekst &lt;u&gt; understreget &lt;/u&gt;
</textarea><font color=\"FF0000\">*</font>
    <br>
    <br>
    Fra d. Dato er automatisk
    </TD>
    </TR>
    </Table>
<input type=\"submit\" name=\"Submit\" value=\"GEM\">
</form>
<% end if %>



    <br>
    Dette er mig Gæstebog!<br>
    her akn du tilføje de beskeder du vil!!<br><br>
     
 
<%

set newsRS = Conn.Execute(\"SELECT * FROM tagwall ORDER BY ID DESC\")
newsRS.MoveFirst()

while not newsRS.EOF
%>     
       
    <Table width=520 border=1 bordercolor=\"#000000\" cellpadding=3 cellspacing=0>
    <TR>
    <TD class=\"one\" valign=\"top\">
    C<br>A<br>M<br>I<br>L<br>L<br>A
    </TD>
    <TD valign=\"top\" class=\"two\" width=\"100%\">
    <B>Beskeden er af: <A HREF=\"mailto:<%=newsRS(\"email\")%>\"><% = newsRS.Fields(\"navn\") %></a></B><BR>
    Dating navn: <% = newsRS.Fields(\"dating\") %><BR>
    <br>
<% = newsRS.Fields(\"text\") %>
    <br>
    <br>
    Fra d. <% = newsRS.Fields(\"Dato\") %>
    </TD>
    </TR>
    </Table>
       
    <br>
                      <%
    newsRS.MoveNext()
WEND
%>