sistema de comentários com erro

[ConteudoAnimal.com.br]

Ola Pessoal,

Estou desenvolvendo um sistema de comentários no meu portal

A dificuldade é que mesmo setando os campos como not null no meu mysql ... está adicionando valores null nos campos nomex e coments

Minha dúvida é se tem algo errado que provoca isso no código que permite isso ?

<!-- Formulário Incluir Comentários -->

<h5>Comentários: </h5>

<form action="http://www.conteudoanimal.com.br<%=Request.ServerVariables("URL")%>?<%=Request.ServerVariables("QUERY_STRING")%>" method="post">

<table cellpadding="0" cellspacing="0" border="0" width="300" bgcolor="#BEBEBE">

<tr >

<td align="right" width="129" class="style2">Nome:</td>

<td align="center" width="171" class="style2"><input value="Seu Nome" type="text"

name="nomex" size="30" style="font-family: Verdana; font-size: 8 pt; border-style: solid; border-width: 1; height: 43px;" />

</td>

</tr>

<tr >

<td align="right" width="129" >Texto: </td>

<td> <textarea name="coments" cols="30" style="font-family: Verdana; font-size: 8 pt; border-style: solid; border-width: 1; height: 98px;">Comente aqui:</textarea>

</td>

</tr>

<tr >

<td align="center" colspan="2"><input type="submit" value="Enviar" name="B1" style="font-family: Verdana; font-size: 8 pt; font-weight: bold; background-color: #FFCC00; border-style: solid; border-width: 1" />

</td>

</tr>

</table>

</form>

<!-- Inclusão do Comentário -->

<%

nomex = (Request("nomex"))

coments = (Request("coments"))

coments = replace(coments, Chr(10)&Chr(13), "<br><br>")

coments2 = replace(coments, "http", "xxxxxxxxxxxxx")

coments3 = replace(coments, "www", "xxxxxxxxxxxxx")

if (nomex <> "Seu Nome" and coments2 = coments and coments3 = coments) then

sqlString = "INSERT INTO comentarios (nomex, coments, url, querystring) VALUES ( '" & nomex & "', '" & coments & "','" & Request.ServerVariables("URL") & "' , '" & Request.ServerVariables("QUERY_STRING") & "')"

Conn.Execute sqlString

end if

%>

<!-- Achar e publicar os comentários -->

<%

If Request.ServerVariables("QUERY_STRING") <> "" then

set rs=conn.execute(" select * from comentarios where url='"&Request.ServerVariables("URL")&"' and querystring='"&Request.ServerVariables("QUERY_STRING")&"' order by id DESC")

coments = "Seu Nome"

Else

set rs=conn.execute(" select * from comentarios where url='"&Request.ServerVariables("URL")&"'")

nomex = "Seu Nome"

end if

%>

<br />

Comentários anteriores:

<br />

<br />

<%

while not rs.eof

%>

<img src="/images/bullet.gif">

<%=rs("nomex") %><br />

<%=rs("coments") %>

<br /><br />

<%

rs.Movenext

wend

%>

[bareta]

if (nomex <> "Seu Nome" and coments2 = coments and coments3 = coments) then

não entendi a do coments2 = coments

use

nomex = Request("nomex")

coments = coments = replace(replace(replace(Request("coments")

, Chr(10)&Chr(13), "<br><br>"),"http", "xxxxxxxxxxxxx"), "www", "xxxxxxxxxxxxx")

e ai no if testa se ta vazio...

if len(nomex)<3 or coments<3 then

ou

if nomes<>"" and coments<>"" then

ou

if not isnull(nomex) and not isnull(coments) thens