Ir ao conteúdo
  • Cadastre-se
Entre para seguir isso  
marcellagarcia

livro de visitas - problema

Recommended Posts

olá!!

Estou tentando criar um livro de visitas em asp atraves de um tutorial.

porém sempre aparece o mesmo erro, que coloquei logo abaixo e não sei como resolver, será que alguem poderia me ajudar?

ADODB.Recordset erro '800a0e78'

Operação não permitida quando o objeto está fechado.

/prot/depo.asp, line 101

---> o código é o seguinte.

<%

Set Conn = Server.CreateObject("ADODB.Connection")

DB = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source="& Server.MapPath("visita.mdb")

Conn.Open DB

%>

<!--#include file="inc/funcoes.asp" -->

<%

'declara as variaveis

Dim nome

Dim email

Dim mensagem

Dim homepage

Dim conn

Dim DB

Dim rst

Dim SQL

'cria uma instancia do objeto connection

Set Conn = Server.CreateObject("ADODB.Connection")

DB = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source="& _

Server.MapPath("visita.mdb")

Conn.Open DB

'2-)Acesso usando um driver ODBC

'conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/visitas/visita.mdb")

'3-)Acesso usando um DSN chamado visitantes

'Conn.open "DSN=visitantes;uid=;pwd=;"

'cria uma instancia do objeto recordset

Set rst = Server.CreateObject("ADODB.Recordset")

if Request.ServerVariables("CONTENT_LENGTH")> 0 THEN

SQL = "SELECT * FROM visitantes"

rst.Open SQL,Conn,1,2

rst.AddNewrst("nome") = Request.form("nome")

rst("email") = Request.form("email")

rst("mensagem") = Request.form("mensagem")

rst("data") = day(now) & "/" & month(now) & "/" & year(now)

rst.Update

rst.close

end if

'ordenar o recordset pelo nome dos visitantesSQL = "SELECT * FROM visitantes ORDER BY nome"rst.Open SQL,Conn,1,2

%>

<div class="contato_resultado">

Line 101<% while not rst.EOF %>

<p><strong>Data:</strong><%=rst("data")%></strong>

<p><strong>De:</strong><a href="mailto:<%=rst("email")%>"><%=rst("nome")%></a></p>

<p><strong>Mensagem:</strong><%=rst("mensagem")%>

<%

rst.MoveNext

wend

rst.close

conn.close

set rst=nothing

set conn=nothing

%>

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora
Entre para seguir isso  





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×