no inserta datos

[Sandino]

wenas amigos tengo un problema en mi form no me inserta los datos, es una DB sql server 2000, no me manda ningun error, solo no me inserta los datos en la DB

<% Dim Fecha
prueba=Request.Form("hdd_cuenta")
fecha=Date()
Set Con = Server.CreateObject("ADODB.Connection")
Con.Open "PROVIDER=SQLOLEDB;DATA
SOURCE=XXXX"
sql2 = "SELECT comentario, fecha, CUENTA FROM dbo.pizarra WHERE CUENTA ='"&prueba&"' "
Set rs = Con.Execute(sql2)
if trim(fecha) <> "" And Trim( comentario) <> "" and trim(prueba)<> "" Then
sql= "Insert Into pizarra (fecha,comentario,CUENTA) Values ('"& fecha&"','"&comentario&"','"&prueba&"')"
Con.Execute (sql)
End if
%>

[AlZuwaga]

Porque no entra al IF. Decis que...

Código:

if trim(fecha) <> "" And Trim(comentario) <> "" and trim(prueba)<> "" Then

Pero ¿dónde estás dándole valores a la variable comentario?

[Sandino]

seria algo como
prueba=Request.Form("hdd_cuenta")
fecha=Date()
comentario=Request.Form("comentario")