Ir para conteúdo

POWERED BY:

Arquivado

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

angus

Paginação com Imagem

Por , em ASP Clássico

Recommended Posts

WebASP    0

WebASP
Postado

Da um search no forum por paginaçãoq ue ira encontrar algumas

Compartilhar este post

Link para o post
Compartilhar em outros sites

angus    0

angus
Postado

Cliqe aqui para ver minha dúvida!

Link da página com a duvida

 

Se não conseguir abrir o link acima, abaixo segue o código:

 

Banco de dados Access

 

ID

Titulo

Texto

Imagem

 

 

<%@ LANGUAGE="VBSCRIPT" %>

<%

Dim conTurismo

Dim recTurismo

Dim Categoria

Dim Barra

 

categoria=(Request.QueryString("Categoria1"))

if categoria="Aricanga" then

barra="imagem/barra_turismo.gif"

End if

if categoria="Aldeias Indígenas" then

barra="imagem/Barra_Turismo.gif"

end if

If categoria="Dados Gerais" then

barra="imagem/barra_turismo.gif"

end if

If categoria="Comboios" then

barra="imagem/barra_turismo.gif"

end if

If categoria="Economia do Município" then

barra="imagem/barra_turismo.gif"

end if

If categoria="Imigração Italiana" then

barra="imagem/barra_turismo.gif"

end if

If categoria="Projeto Tamar" then

barra="imagem/barra_turismo.gif"

end if

If categoria="Gatronomia do Município" then

barra="imagem/barra_turismo.gif"

end if

If categoria="Mapa do Município" then

barra="imagem/barra_turismo.gif"

end if

 

const cntCaminho="c:\inetpub\web\db\dados.mdb"

set conTurismo=Server.CreateObject("ADODB.Connection")

set recTurismo=Server.CreateObject("ADODB.Recordset")

 

conTurismo.open "Driver={Microsoft Access Driver (*.mdb)};dbq=" & cntCaminho

 

recTurismo.Open "SELECT Categoria, titulo, texto, colunista, imagem FROM Turismo where categoria='" & categoria & "' ",conTurismo

%>

 

 

<html>

<head>

<Title>TURISMO</TITLE>

</HEAD>

<BODY>

<%

 

Do while not recTurismo.Eof

response.write "<font face='verdana' size='3' color='Red'>" & "<img src='" & barra & "'" & "</a><br>" & "<br><b>" & recTurismo.Fields("titulo") & "</font><br>" & "<font face='verdana' size='2' color='black'>" & "Colunista: " & recTurismo.Fields("colunista") & "</b></font>"

response.write "<p align='justify'><font face='Verdana' color='Black' size='2'>" & recTurismo.Fields("texto") & "</font></p>"

recTurismo.MoveNext

loop

 

recTurismo.close

conTurismo.close

%>

</BODY>

</html>

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