Como saber a quanti. de mensagens

[zanelati2002 0]

olá amigos tenho um codigo de mural de recados e estou querendo mostrar a quant. de mensagens estou usando isto

 

<%SET Con = Server.CreateObject("ADODB.Connection")Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("Dados/BDMuralRecados.mdb") &";Persist Security Info=False"Sel = "SELECT COUNT(IdRecado) AS contador FROM MuralRecados"SET Verifi = Con.Execute(Sel)Response.Write Verifi("contador")%>

esta dando este pau

 

Erro de tempo de execução do Microsoft VBScript error '800a01f4' Variável não definida: 'Con' /minhas webs/mural/Default.asp, line 187

tentei assim também

<%set DB = createobject("adodb.connection")constr = "Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("Dados/BDMuralRecados.mdb")DB.open constrSet objRS = Server.CreateObject("ADODB.Recordset")strSql = "SELECT COUNT(IdRecado) AS contador FROM MuralRecados"objRS.Open strSQL,DB,3,1%><%=objRS("total")%>

deu este pau

Erro de tempo de execução do Microsoft VBScript error '800a01f4' Variável não definida: 'DB' /minhas webs/mural/Default.asp, line 187

alguem pode me ajudar

[Davidmg 0]

olá amigos tenho um codigo de mural de recados e estou querendo mostrar a quant. de mensagens estou usando isto

<%SET Con = Server.CreateObject("ADODB.Connection")Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("Dados/BDMuralRecados.mdb") &";Persist Security Info=False"Sel = "SELECT COUNT(IdRecado) AS contador FROM MuralRecados"SET Verifi = Con.Execute(Sel)Response.Write Verifi("contador")%>

esta dando este pau

Erro de tempo de execução do Microsoft VBScript error '800a01f4' Variável não definida: 'Con' /minhas webs/mural/Default.asp, line 187

tentei assim também

<%set DB = createobject("adodb.connection")constr = "Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("Dados/BDMuralRecados.mdb")DB.open constrSet objRS = Server.CreateObject("ADODB.Recordset")strSql = "SELECT COUNT(IdRecado) AS contador FROM MuralRecados"objRS.Open strSQL,DB,3,1%><%=objRS("total")%>

deu este pau

Erro de tempo de execução do Microsoft VBScript error '800a01f4' Variável não definida: 'DB' /minhas webs/mural/Default.asp, line 187

alguem pode me ajudar

você tem que definiar a variavel, tenta assim:

<% Dim Con, Sel,VerifiSET Con = Server.CreateObject("ADODB.Connection")Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("Dados/BDMuralRecados.mdb") &";Persist Security Info=False"Sel = "SELECT COUNT(IdRecado) AS contador FROM MuralRecados"SET Verifi = Con.Execute(Sel)Response.Write Verifi("contador")%>

Qualquer coisa posta ae....Abraços...

[zanelati2002 0]

faleu cara muito obrigado se puder me ajudar nos demais post te agradeço