[Resolvido] Pagina Detalhes

[lezão 0]

Ola Loko da Web fiz do seu jeito e deu este erro :unsure:

 

Microsoft VBScript runtime error '800a01f4' 

Variable is undefined: 'Conn' 

/shop/admin/home/detalhes.asp, line 6

[Loko da Web 1]

Ola Loko da Web fiz do seu jeito e deu este erro :unsure:

 

Microsoft VBScript runtime error '800a01f4' 

Variable is undefined: 'Conn' 

/shop/admin/home/detalhes.asp, line 6

Troque isso:

 

<%
Option Explicit
Response.Expires = 0
Dim objConn, objRs, rs, strQuery, strConnection, id, sql

'Efetuando a conexão com a base de dados criada -----------------------
Set conexao = Server.CreateObject("AdoDb.Connection")
conexao.provider="Microsoft.Jet.OLEDB.4.0"
conexao.connectionstring=Server.Mappath("../../dados/dados.mdb")
conexao.open

id = Request.QueryString("id")

sql = "SELECT * FROM home WHERE id =" & id
rs.Open sql

If rs.EOF Then

else
response.write("Produto não existente")
end if

%>

 

por esse:

 

<%
id = Request.QueryString("id")

Set Conn= server.createobject("adodb.connection")
DSNtest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("../../dados/dados.mdb")
Conn.Open DSNtest


Set RS= Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM home WHERE id =" & id
RS.Open SQL, conn, 3

If RS.EOF Then
Response.write ("Nenhum Registro")
end if

%>

[lezão 0]

É isso ai cara deu certo agora .... muito obrigado....

 

 

FELIZ **2009**

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[Loko da Web 1]

É isso ai cara deu certo agora .... muito obrigado....

 

 

FELIZ **2009**

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

Parabens http://forum.imasters.com.br/public/style_emoticons/default/joia.gif !!!! E feliz 2009 pra ti tbem !!!!!!