AYUDA!!: Error en tiempo de ejecución : No coinciden los tipos

[santaalia]

Hola!!! En la línea:

If InReplyTo <> 0 And InReplyTo <> "" Then

Me da el siguiente error:

"Error d eMicrosoft VBScript en tiempo de ejecución,No coinciden los tipos : '[string: ""]' (Line:300, Char:1, Context:0)


¿Alguien sabe porqué?? ¿Qué puedo hacer???

Llevo horas dándole vueltas y seguro que al final es unta tonteria!!!

Muchas GRACIAS!!!!

[unholy]

Sewguramente sea porque tienes definido
InReplyTo como un Integer y al hacer la comparacion con la cadena vacia te lanza un error por incopatibildiad de tipos.

[cristian4042]

tiene razon unhly solo define inreplyto como string

[santaalia]

He probado con Cstr(InReplyTo) <> " "

pero me sigue dando el mismo error...

[santaalia]

La página entera es así...

<%
Dim DB, InReplyTo, rsInReplyTo, IsAReply

Set DB = Connect (ForumMDB)

If Request ("Action") = "Enviar" Then



Dim rsMessage
Set rsMessage = Server.CreateObject ("ADODB.Recordset")
rsMessage.Open "Messages", DB, adOpenStatic, adLockPessimistic

rsMessage.AddNew


rsMessage ("ForumID") = Request ("ForumID")
rsMessage ("PostedBy") = Request ("PostedBy")
rsMessage ("Email") = Request ("Email")
rsMessage ("Subject") = Request ("Subject")
rsMessage ("Body") = Request ("Body")
rsMessage ("InReplyTo") = Request ("InReplyTo")
rsMessage ("Date") = Now


rsMessage.Update

' actualizamos
Dim rsForum
Set rsForum = Server.CreateObject ("ADODB.Recordset")
rsForum.Open "SELECT Posts, LastPost FROM Forums WHERE ForumID = " & Request ("ForumID"), DB, adOpenStatic, adLockPessimistic

rsForum ("Posts") = rsForum ("Posts") + 1
rsForum ("LastPost") = Now
rsForum.Update


Response.Redirect "forum.asp?ForumID=" & Request ("ForumID")

Else



InReplyTo = Request ("InReplyTo")

'

If InReplyTo <> 0 and Cstr(InReplyTo) <> " " Then
IsAReply = True
Set rsInReplyTo = DB.Execute ("SELECT * FROM Messages WHERE MessageID = " & InReplyTo)
End If


If Not IsAReply And (Request ("ForumID") = "" Or Request ("ForumID") = 0) Then
Response.Redirect "forum.asp"
End If
%>
<TABLE WIDTH="90%" BORDER="1" CELLSPACING="0" CELLPADDING="8" ALIGN="CENTER">
<TR ALIGN="LEFT" VALIGN="TOP" BGCOLOR="#FFFFFF">
<TD COLSPAN="2">Publica un mensaje <% If IsAReply Then Response.Write " en respuesta a <B>" & rsInReplyTo("Subject") & "</B> por <B>" & rsInReplyTo ("PostedBy") & "</B>"%></TD>
</TR>
<TR ALIGN="LEFT" VALIGN="TOP" BGCOLOR="#FFFFFF">
<TD COLSPAN="2">
<FORM ACTION="<%= Request.ServerVariables ("foros/PATH_INFO") %>">
<INPUT TYPE="hidden" NAME="ForumID" VALUE="<% If IsAReply Then Response.Write rsInReplyTo ("ForumID") Else Response.Write Request ("ForumID") %>">
<INPUT TYPE="hidden" NAME="InReplyTo" VALUE="<% If InReplyTo = 0 Then Response.Write "0" Else Response.Write InReplyTo %>">
<TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="4" ALIGN="CENTER">
<TR ALIGN="LEFT" VALIGN="TOP">
<TD WIDTH="20%" ALIGN="RIGHT">De:</TD>
<TD WIDTH="80%">
<INPUT TYPE="text" NAME="PostedBy" SIZE="60" MAXLENGTH="50" >
</TD>
</TR>
<TR ALIGN="LEFT" VALIGN="TOP">
<TD WIDTH="20%" ALIGN="RIGHT">Email:</TD>
<TD WIDTH="80%">
<INPUT TYPE="text" NAME="Email" SIZE="60" MAXLENGTH="100" >
</TD>
</TR>
<TR ALIGN="LEFT" VALIGN="TOP">
<TD WIDTH="20%" ALIGN="RIGHT">Título:</TD>
<TD WIDTH="80%">
<INPUT TYPE="text" NAME="Subject" SIZE="60" MAXLENGTH="100" VALUE="<% If IsAReply Then Response.Write "Re: " & rsInReplyTo ("Subject")%>">
</TD>
</TR>
<TR ALIGN="LEFT" VALIGN="TOP">
<TD WIDTH="20%" ALIGN="RIGHT">Mensaje:</TD>
<TD WIDTH="80%">
<TEXTAREA NAME="Body" COLS="50" ROWS="12"><% If IsAReply Then Response.Write "> " & (Replace (rsInReplyTo("Body"), vbCrLf, vbCrLf + "> "))%></TEXTAREA>
</TD>
</TR>
<TR ALIGN="LEFT" VALIGN="TOP">
<TD WIDTH="20%" ALIGN="RIGHT">&nbsp;</TD>
<TD WIDTH="80%">
<INPUT TYPE="submit" NAME="Action" VALUE="Enviar">
</TD>
</TR>
</TABLE>
</FORM>
</TD>
</TR>
</TABLE>
<%
End If
%>
<BR>
<br style="clear: both;" />

</DIV>