Ir para conteúdo
Fórum Script Brasil
  • 0

Ajuda Com Conecção Access + Asp

Guest - Sergio -

Perguntado por Guest - Sergio -,

 Share

Pergunta

Guest - Sergio -

Guest - Sergio -

Postado
Postado

Galera,

Colei aqui um pequeno texto em asp que esta me quebrando a cabeça e gostaria de ajuda.

No banco de dados tem um campo "logo" onde fica as imagens. gostaria que essa parte funcionasse. ele tem que pegar a imagem dentro do banco de dados e jogar na pagina e caso não ache ele poe uma padrão, mas o codigo abaixo esta dando erro, será que alguém pode me ajudar

Se alguém quiser deixe o email ou me mande um que mando o codigo pois preciso de ajuda.

sf_fernandes@hotmail.com

grato

*****************************************************************

response.write "<table border=1 width=480 cellpadding=3 cellspacing=4 bordercolor='silver'>"

while not dba.eof

response.write "<tr>"

response.write "<td width=60 align=center valign=middle>"

if trim(dba("Link")) <> "" then

response.write "<a target='_blank' href='" & dba("Link") & "'>"

end if

'Carrega o Logo Padrão caso não ache o Original

'<img name='<=tira_ponto(dba("Radio"))>' src='<=cUrlGif & dba("Logo")>' border=0 'onError='javascript:self.<=tira_ponto(dba("Radio"))>.src="<=cUrlGif>_radio_pq.jpg";'>

response.write "<img src='logos/_radio_pq.jpg' border=0>"

if trim(dba("Link")) <> "" then

response.write "</a>"

end if

response.write "</td>"

response.write "<td width=435 valign=middle bgcolor='e8e8e8'><font size=1>"

response.write " <b><font color=a30000>" & dba("radio") &"</b></font><br>"

response.write dba("descr") & "<br><br><p>"

response.write " <b>Estilo:</b> <font color=red>" & dba("estilo")&"</b></font><br><b>"

response.write " <a target='_blank' href='" & dba("Ouca") & "'> <img src='logos/_radio_ouca.jpg' border=0>"

response.write "</td>"

Link para o comentário
Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

  • 0
ViniciusJau

ViniciusJau

Postado
Postado

if trim(dba("Link")) <> "" then

response.write "<a target='_blank' href='" & dba("Link") & "'>"

end if

faltou um else para sua condição ser completa cara....

else

'Carrega o Logo Padrão caso não ache o Original

'<img name='<=tira_ponto(dba("Radio"))>' src='<=cUrlGif & dba("Logo")>' border=0 'onError='javascript:self.<=tira_ponto(dba("Radio"))>.src="<=cUrlGif>_radio_pq.jpg";'>

Link para o comentário
Compartilhar em outros sites
  • 0
Guest - Sergio -

Guest - Sergio -

Postado
Postado

if trim(dba("Link")) <> "" then

response.write "<a target='_blank' href='" & dba("Link") & "'>"

end if

faltou um else para sua condição ser completa cara....

else

'Carrega o Logo Padrão caso não ache o Original

'<img name='<=tira_ponto(dba("Radio"))>' src='<=cUrlGif & dba("Logo")>' border=0 'onError='javascript:self.<=tira_ponto(dba("Radio"))>.src="<=cUrlGif>_radio_pq.jpg";'>

Vinicius,

Agradeço a rapidez da sua resposta e agradeço mesmo.

não consegui acho que é por causa de um monte de

(')
que estou errando vou colocar aqui o que fiz e gostaria muito que me ajudace pois estou perdido e queria aprender. se acaso depois disso eu não conseguir gostaria de te mandar o site para dar uma olhada.

Um forte abraço e muito obrigado

********************************************************************

<!--#include file=Config.inc-->

<html>

<body bgcolor='<%=cCorFundoRadio%>' topmargin=3 leftmargin=3>

<font face=verdana size=1>

<%

Dim lEntrou

lEntrou = false

' Busca por ESTILO

if request("estilo") <> "" then

lEntrou = true

set dba = conexao.execute("select * from links where estilo='" &trim(request("estilo"))& "' order by radio")

end if

' Busca por NOME

if request("nome") <> "" then

lEntrou = true

set dba = conexao.execute("select * from links where radio like '%" &trim(request("nome"))& "%' order by radio")

end if

' Busca por DESCRICAO

if request("descr") <> "" then

lEntrou = true

set dba = conexao.execute("select * from links where descr like '%" &trim(request("descr"))& "%' order by radio")

end if

' Busca por País

if request("pais") <> "" then

lEntrou = true

set dba = conexao.execute("select * from links where pais = '" &trim(request("pais"))& "' order by radio")

end if

' Se não entrou em nenhum dos estilos de Busca abre total

if lEntrou = false then

  Randomize

  i = cint(mid((rnd(now)*100),4,4))

set dba = conexao.execute("SELECT TOP 8 "&_

          " Int( (codigo*rnd(codigo)*rnd(" &int(i)& "))+1)As rand,"&_

          " Codigo,Radio,Link,Descr,Estilo,Pais,Estado,Cidade,Logo,Ouca "&_

          " FROM links  "&_

          " ORDER BY 1")

end if

response.write "<table border=1 width=480 cellpadding=3 cellspacing=4 bordercolor='silver'>"

while not dba.eof

response.write "<tr>"

response.write "<td width=60 align=center valign=middle>"

  if trim(dba("Link")) <> "" then

  response.write "<a target='_blank' href='" & dba("Link") & "'>"

  end if

  else

 

  'Carrega o Logo Padrão caso não ache o Original

  <img name=<=tira_ponto(dba("Radio"))>' src='<=cUrlGif & dba("Logo")>' border=0  onError='javascript:self.<=tira_ponto(dba("Radio"))>.src="<=cUrlGif>_radio_pq.jpg";'>

response.write "<img src='logos/_radio_pq.jpg' border=0>"

  if trim(dba("Link")) <> "" then

  response.write "</a>"

  end if

response.write "</td>"

response.write "<td width=435 valign=middle bgcolor='e8e8e8'><font size=1>"

response.write " <b><font color=a30000>" & dba("radio") &"</b></font><br>"

response.write  dba("descr") & "<br><br><p>"

response.write " <b>Estilo:</b> <font color=red>" & dba("estilo")&"</b></font><br><b>"

response.write "    <a target='_blank' href='" & dba("Ouca") & "'> <img src='logos/_radio_ouca.jpg' border=0>"

 

response.write "</td>"

 

response.write "<tr>"

response.write "<td colspan=2 valign=bottom bgcolor='f8f8f8'><font size=1>"

response.write " <b>Localidade:</b> " & dba("pais") &" / "& dba("estado") &" / "& dba("cidade")

response.write "</td>"

Response.flush

dba.movenext

wend

%>

Só isso que não consigo resolver.

Prometo que se isso funcionar te mandarei um site bem legal pronto para uso.

hehehe abraços

sergio

Link para o comentário
Compartilhar em outros sites
  • 0
Guest - Sergio -

Guest - Sergio -

Postado
Postado

é este que alterei

Vinicius,

Agradeço a rapidez da sua resposta e agradeço mesmo.

não consegui acho que é por causa de um monte de

(')
que estou errando vou colocar aqui o que fiz e gostaria muito que me ajudace pois estou perdido e queria aprender. se acaso depois disso eu não conseguir gostaria de te mandar o site para dar uma olhada.

Um forte abraço e muito obrigado

********************************************************************

<!--#include file=Config.inc-->

<html>

<body bgcolor='<%=cCorFundoRadio%>' topmargin=3 leftmargin=3>

<font face=verdana size=1>

<%

Dim lEntrou

lEntrou = false

' Busca por ESTILO

if request("estilo") <> "" then

lEntrou = true

set dba = conexao.execute("select * from links where estilo='" &trim(request("estilo"))& "' order by radio")

end if

' Busca por NOME

if request("nome") <> "" then

lEntrou = true

set dba = conexao.execute("select * from links where radio like '%" &trim(request("nome"))& "%' order by radio")

end if

' Busca por DESCRICAO

if request("descr") <> "" then

lEntrou = true

set dba = conexao.execute("select * from links where descr like '%" &trim(request("descr"))& "%' order by radio")

end if

' Busca por País

if request("pais") <> "" then

lEntrou = true

set dba = conexao.execute("select * from links where pais = '" &trim(request("pais"))& "' order by radio")

end if

' Se não entrou em nenhum dos estilos de Busca abre total

if lEntrou = false then

  Randomize

  i = cint(mid((rnd(now)*100),4,4))

set dba = conexao.execute("SELECT TOP 8 "&_

          " Int( (codigo*rnd(codigo)*rnd(" &int(i)& "))+1)As rand,"&_

          " Codigo,Radio,Link,Descr,Estilo,Pais,Estado,Cidade,Logo,Ouca "&_

          " FROM links  "&_

          " ORDER BY 1")

end if

response.write "<table border=1 width=480 cellpadding=3 cellspacing=4 bordercolor='silver'>"

while not dba.eof

response.write "<tr>"

response.write "<td width=60 align=center valign=middle>"

  if trim(dba("Link")) <> "" then

  response.write "<a target='_blank' href='" & dba("Link") & "'>"

  end if

 

  else

  'Carrega o Logo Padrão caso não ache o Original

 

<img name=<=tira_ponto(dba("Radio"))> src=<=cUrlGif & dba("Logo")> border="0"> onError=javascript:self.<=tira_ponto(dba("Radio"))>.src="<=cUrlGif>_radio_pq.jpg";'>

response.write "<img src='logos/_radio_pq.jpg' border=0>"

  if trim(dba("Link")) <> "" then

  response.write "</a>"

  end if

response.write "</td>"

response.write "<td width=435 valign=middle bgcolor='e8e8e8'><font size=1>"

response.write " <b><font color=a30000>" & dba("radio") &"</b></font><br>"

response.write  dba("descr") & "<br><br><p>"

response.write " <b>Estilo:</b> <font color=red>" & dba("estilo")&"</b></font><br><b>"

response.write "    <a target='_blank' href='" & dba("Ouca") & "'> <img src='logos/_radio_ouca.jpg' border=0>"

 

response.write "</td>"

 

response.write "<tr>"

response.write "<td colspan=2 valign=bottom bgcolor='f8f8f8'><font size=1>"

response.write " <b>Localidade:</b> " & dba("pais") &" / "& dba("estado") &" / "& dba("cidade")

response.write "</td>"

Response.flush

dba.movenext

wend

%>

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...