Problemas no meu livro de visitas

[Germa 0]

segue onde escreve as mensagens NovoRecado.asp

ASP

<%@Language="vb script:document.formIncluir.txtDe.focus();">

                <table cellpadding="0" cellspacing="0" border="0" width="100%" height="100%" align="center">

                        <tr>

                                <td><table border="0" align="center">

                  <form name="formIncluir" method="post" action="NovoRecado.asp">

                    <tr bgcolor="#FFFFFF">

                      <td><font class="Texto2"> De: </font> </td>

                      <td><input type="text" name="txtDe" maxlength="35" size="35" class="Form1">                      </td>

                    </tr>

                    <tr bgcolor="#FFFFFF">

                      <td><font class="Texto2"> E-mail: </font> </td>

                      <td><input type="text" name="txtEmail" maxlength="35" size="35" class="Form1">                      </td>

                    </tr>

                    <tr bgcolor="#FFFFFF">

                      <td><font class="Texto2"> Para: </font> </td>

                      <td><input type="text" name="txtPara" maxlength="35" size="35" class="Form1">                      </td>

                    </tr>

                    <tr>

                      <td bgcolor="#FFFFFF"><font class="Texto2"> Mensagem: <br>

                            <br>

                            <br>

                            <br>

                            <br>

                            <br>

                      </font> </td>

                      <td bgcolor="#FFFFFF"><textarea name="areaMensagem" class="Form1" cols="34" rows="5"></textarea>                      </td>

                      <td width="5"></td>

                      <td><table cellpadding="0" cellspacing="0" border="0">

                          <%For i = 1 to 3%>

                          <tr>

                            <%For ii = 1 to 5%>

                            <%varCont = varCont + 1%>

                            <td><a href="#"><img src="Imagens/Carinhas/<%=varCont%>.gif" border="0" onClick="java script:Carinhas(formIncluir, <%=varCont%>);"></a></td>

                            <%If ii <> 5 Then%>

                            <td width="5"></td>

                            <%End If%>

                            <%Next%>

                          </tr>

                          <%If i <> 3 Then%>

                          <tr>

                            <td height="5"></td>

                          </tr>

                          <%End If%>

                          <%Next%>

                      </table></td>

                    </tr>

                    <tr bgcolor="#FFFFFF">

                      <td></td>

                      <td><input type="button" name="btnColar" value="Enviar" class="Form1" onClick="java script:Incluir(formIncluir);">                      </td>

                    </tr>

                  </form>

                            </table></td>

                  </tr>

                </table>

</body>

</html>

Onde são listadas as mensagem do mural

Default.asp

ASP

<%@Language="vb script:NovoRecado();"></td>

                                                                                  <td align="right" bgcolor="#FFFFFF">

                                                                                                <%If Request.QueryString("Pagina") = 1 or Request.QueryString("Pagina") = "" Then%>

                                                                                                        <input type="button" name="btnAnterior" value="Anterior" class="Form1" onClick="java script:Paginacao(<%=Request.QueryString("Pagina") - 1%>);" disabled>

                                                                                                <%Else%>

                                                                                                        <input type="button" name="btnAnterior" value="Anterior" class="Form1" onClick="java script:Paginacao(<%=Request.QueryString("Pagina") - 1%>);">

                                                                                                <%End If%>

                                                                                                <%If rsMuralRecados.EOF Then%>

                                                                                                        <input type="button" name="btnProximo" value="Próximo" class="Form1" onClick="java script:Paginacao(<%=Request.QueryString("Pagina") + 1%>);" disabled>

                                                                                                <%Else%>

                                                                                                        <%If Request.QueryString("Pagina") = "" Then%>

                                                                                                                <input type="button" name="btnProximo" value="Próximo" class="Form1" onClick="java script:Paginacao(<%=Request.QueryString("Pagina") + 2%>);">

                                                                                                        <%Else%>

                                                                                                                <input type="button" name="btnProximo" value="Próximo" class="Form1" onClick="java script:Paginacao(<%=Request.QueryString("Pagina") + 1%>);">

                                                                                                        <%End If%>

                                                                                                <%End If%>                                                                                      </td>

                                                                                </tr>

                                                                        </table>

                                                          </td>

                                                        </tr>

                                        </table>

                          </td>

                        </tr>

                </table>

</body>

</html>

 

<%

        rsMuralRecados.Close

        Set rsMuralRecados = Nothing

        objConn.Close

        Set objConn = Nothing

%>

O que fiz errado esta dando erro na pagina NovoRecado.asp . Quando e mando enviar;

na lina

 

rsIncluir.Fields("HoraInclusao") = Time()

[jrcardozo 4]

qual mensagem de erro?

onde está o codigo que grava?