para inserir dados no BD

[xatria 0]

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:

[Andreh 0]

Só erro 500? não informa a linha que esta com o erro?Posta a pagina do erro completa ...

[WLJ 0]

Acho que é o seguinte...No browser vai em Ferramentas - Opções dde Internet - Avançadas...Desmarque a opção "Mostrar mensagens de URL amigáveis" (alguma coisa assim).Aí sim vai aparecer o erro.

[xatria 0]

aee deu esse erro depois ke eu tirei o negocio amigavel

Microsoft VBScript compilation error '800a0411' Name redefined /xatria/admsg.asp, line 11 Dim objConn----^

oke é issu oke pode ser??????

[WLJ 0]

Seguinte... se você declara...<%Dim xx=1%>... no início do código.E depois mais pra frente declara denovo...<%Dim xx=2%>Aí vai dar esse erro. "Re-declarar" a variável não é possível.