Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

arldin

[Resolvido] imagem vinda do db, mais esta dando erro

Por , em ASP Clássico

Recommended Posts

arldin    1

arldin
Postado

Boa tarde amigos estou fazendo uma pagina em asp para visualizar imagem vinda do db,

mais esta dando erro. Alguem pode me da uma ajuda

este e o script

<!--#include file = "conexao.asp"-->
<HTML>

<HEAD>
<TITLE></TITLE>
<META NAME="GENERATOR" CONTENT="Sothink HTML Editor">
</HEAD>

<BODY>
<%
set rs = createobject("adodb.recordset")
set rs.activeconnection = abredb
SQL = "SELECT * FROM foto ORDER BY ID DESC"
rs.open sql
%>

<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td ALIGN="CENTER"><FONT FACE="Arial" SIZE="2" COLOR="#ff0000">Bem Vindo</FONT><img src="<%=rs(fotos)%>" width="45" height="50"></td>
  </tr>
</table>


</BODY>
</HTML>

o erro que esta dando e este

Microsoft VBScript runtime error '800a01a8'

 

Object required: 'abredb.activeconnection'

 

/foto2/teste1.asp, line 12

 

desde ja agradeço a todos

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

faz assim:

<%set rs = createobject("adodb.recordset")
set rs.activeconnection = abredb
SQL = "SELECT * FROM foto ORDER BY ID DESC"
rs.open sql,conexao,1,3 
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

arldin    1

arldin
Postado

coloquei o cidico que você me informou e esta dando este erro

 

Microsoft VBScript runtime error '800a01a8'

 

Object required: 'rs.activeconnection'

 

/foto2/teste3.asp, line 4

 

como entendo pouco de asp poderia me informa que erro e este

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado 

<%set rs = server.createobject("adodb.recordset")

SQL = "SELECT * FROM foto ORDER BY ID DESC"

rs.open sql,conexao,1,3

'onde conexao é seu objeto connection%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

dá um response.write na sua string SQL para ver o k esta sendo passado

SQL = "SELECT * FROM foto ORDER BY ID DESC"
response.write(SQL)
response.end()

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

como esta sua string de conexão?

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado 

SQL = "SELECT * FROM foto ORDER BY ID DESC"
response.write(SQL)
response.end()

é para ele dar os dados k esta sendo passados

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

mas esta sql não tem nenhum parametro externo sempre vai ser SELECT * FROM foto ORDER BY ID DESC

 

post a sua string de conexão

Compartilhar este post

Link para o post
Compartilhar em outros sites

arldin    1

arldin
Postado

e este o sting, so não se se esta cetrto 

[oledb]
; Everything after this line is an OLE DB initstring
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Arlindo\Meus documentos\email\foto2\teste.mdb;Persist Security Info=False

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

sua aplicação está rodando local e o servidor está apontando para os seus documentos mesmo?

Compartilhar este post

Link para o post
Compartilhar em outros sites

arldin    1

arldin
Postado

Obrigado pela ajuda de todos consequi resolver

aqui esta o script resolvido

<!--#include file = "conexao.asp"-->

<% Language=VBScript %>

<%

set dados=server.CreateObject("ADODB.Connection")

dados.Open "DBQ=" & server.MapPath("teste.mdb")& ";Driver={Microsoft Access Driver (*.mdb)}","username","password"

set rs=server.CreateObject("ADODB.recordset")'cria objeto rs

sql="select * from foto"

set rs=dados.Execute(sql)

while not rs.EOF

 

%>

<FONT FACE="Arial" SIZE="2" COLOR="#ff0000">Bem vindo</FONT><img src="<%=(rs.Fields.Item("fotos").Value)%>"

 

<%

 

rs.MoveNext

wend

 

 

rs.Close

dados.Close

 

%>

 

<HTML>

<HEAD>

 

</HEAD>

<BODY>

 

</BODY>

</HTML>

valeu pela força

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

beleza....

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

que bom que resolveu

 

parabéns

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito