para inserir dados no BD

ae galera esse codigo é do meu mural de recados !! uma pagina envia para ele os dados e este codigo insere ele ! mais onde esta o erro deste codigo ?

<%@Language="VBScript"%><%Option Explicit%><%Response.Expires = 0%><!-- #include file="inc/conn.asp" --><% Dim i Dim ii Dim varCont If Request.Form("txtDe") <> "" Then  Dim objConn  Dim varConn  Dim varSql  Dim rsIncluir  Dim varMensagem  Dim arrayCarinhas(14)    arrayCarinhas(0) = "(1)"  arrayCarinhas(1) = "(2)"  arrayCarinhas(2) = "(3)"  arrayCarinhas(3) = "(4)"  arrayCarinhas(4) = "(5)"  arrayCarinhas(5) = "(6)"  arrayCarinhas(6) = "(7)"  arrayCarinhas(7) = "(8)"  arrayCarinhas(8) = "(9)"  arrayCarinhas(9) = "(10)"  arrayCarinhas(10) = "(11)"  arrayCarinhas(11) = "(12)"  arrayCarinhas(12) = "(13)"  arrayCarinhas(13) = "(14)"  arrayCarinhas(14) = "(15)"    varSql = "SELECT * "  varSql = varSql & "FROM MuralRecados "    Set rsIncluir = Server.CreateObject("ADODB.Recordset")  rsIncluir.CursorType = 0  rsIncluir.CursorLocation = 2  rsIncluir.LockType = 3  rsIncluir.Open varSql, objConn      rsIncluir.AddNew  rsIncluir.Fields("DataInclusao") = Date()  rsIncluir.Fields("HoraInclusao") = hour(now()) +2 &":"& minute(now())  rsIncluir.Fields("De") = Request.Form("txtDe")  rsIncluir.Fields("Email") = Request.Form("txtEmail")  rsIncluir.Fields("Para") = Request.Form("txtPara")    varMensagem = Request.Form("areaMensagem")  For i = 0 to 14  varMensagem = Replace(varMensagem, arrayCarinhas(i), "<img src=Imagens/Carinhas/" & i+1 & ".gif>")  Next    rsIncluir.Fields("Mensagem") = varMensagem  rsIncluir.Fields("IPConexao") = Request.ServerVariables("REMOTE_ADDR")  rsIncluir.Update response.Redirect("muralrecados.asp") End If%>ele esta dando erro 500 oke pode ser? :ph34r: