Ir para conteúdo

POWERED BY:

Arquivado

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

Rodrigues

Pegar duas variaveis pela url !

Por , em ASP Clássico

Recommended Posts

Rodrigues    0

Rodrigues
Postado

Tipo tenho a seguinte situação quando aciono essa url http://localhost/site/mostra_artistas.asp?cod_Artista=5 me é exibito uma página com os detalhes do artitas com os seguintes campos do BD lojavirtual.mdb e da tabela artistas

Nome

Site

email

foto1p

foto2p

foto3p

 

Bom até ai bela tudo foi exibido mas agora a dificuldade é a seguinte as fotos com o "p" do lado pe de pequeno na tabela atistas tem os campo foto1g, foto2g e foto3g que é a foto grande como eu chamaria essa url pois teria que mandar exibir a foto de acodo com o cod_artista e com a devida foto que a pessoa quer ver emplicada! Para isso pelo pouco que entendo eu teria que enviar tanto a varcodeartista como uma var para foto tipo varfoto.

Abaixo segue a página mostra_astirtas.asp nela que é exibida os detalhes dos artistas juntamente com as fotos pequenas, e eu quero que ao clicar na foto a pessoa veja a foto ampliada. Aguardo e muito obrigado!

 

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

<%

'Recupera o codigo da categoria selecionada

Cod_artista = Request("Cod_artista")

 

'string para pesquisar qual o nome da categoria

'sqlCat = "SELECT * FROM artistas "

'sqlCat = sqlCat & "WHERE COD_artista = "

 

'string para pesquisar os produtos da categoria

sqlProd = "SELECT * FROM artistas WHERE COD_artista = " & cod_artista &""

 

 

'abre a conexao

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

Conexao.Open StrConn

 

'executa a instrução SQL

Set rsartistas = Conexao.Execute(sqlProd)

 

varNome = rsartistas("nome")

varEmail = rsartistas("email")

varSite = rsartistas("Site")

varEstilo = rsartistas("Estilo")

vardescricao = rsartistas("descricao")

varfoto= rsartistas("foto")

varfoto1p= rsartistas("foto1p")

vardesc1= rsartistas("desc1")

varfoto2p= rsartistas("foto2p")

vardesc2= rsartistas("desc2")

varfoto3p= rsartistas("foto3p")

vardesc3= rsartistas("desc3")

varfoto4p= rsartistas("foto4p")

vardesc4= rsartistas("desc4")

varfoto5p= rsartistas("foto5p")

vardesc5= rsartistas("desc5")

varfoto6p= rsartistas("foto6p")

vardesc6= rsartistas("desc6")

rsartistas.Close

 

'executa a instrução SQL

Set rsartistas = Conexao.Execute(sqlProd)

rsartistas.close

%>

 

 

<html>

<head>

<title>Opinião</title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

</head>

<body bgcolor="#FFFFFF" text="#000000" link="#000066" vlink="#000000" alink="#000000" topmargin="0">

 

<table width="83%" border="0" cellspacing="10" cellpadding="0" align="center" bgcolor="#FFFFFF">

<tr>

<td valign="middle" height="27" bgcolor="#FFFFFF" align="center"> <div align="left"><font size="2" face="Arial, Helvetica, sans-serif"><b><font color="#000000"><i>

<%if ucase(foto) <> "" then%>

<img src="./adm/img_art/<% = UCase(foto) %>">

<% end if%>

</i></font></b></font></div></td>

</tr>

<tr>

<td valign="middle" height="27" bgcolor="#FFFFFF" align="center"><div align="left">

<em><strong><font color="#000000" size="3" face="Arial, Helvetica, sans-serif">

<%if ucase(varnome) <> "" then%>

<% = (varnome) %>

<% end if%>

</font></strong></em></div></td>

</tr>

<tr>

<td valign="top" height="27" bgcolor="#FFFFFF" align="center"> <div align="left">

<p><font size="2" face="Arial, Helvetica, sans-serif">

<%if ucase(varemail) <> "" then%>

Email:

<% = (varemail) %>

<% end if%>

</font></p>

<p>

<%if ucase(varsite) <> "" then%>

Site:

<% = (varsite) %>

<% end if%>

 </p>

</div></td>

</tr>

<tr>

<td valign="middle" height="27" bgcolor="#FFFFFF" align="center"><div align="left"><font size="2"><font size="2"><font face="Arial, Helvetica, sans-serif">

<%if ucase(varestilo) <> "" then%>

Estilo:

<% = UCase(varestilo) %>

<% end if%>

</font></font></font></div></td>

</tr>

<tr>

<td valign="middle" height="27" bgcolor="#FFFFFF" align="center"><div align="justify"><font size="2"><font size="2"><font face="Arial, Helvetica, sans-serif">

<%if (vardescricao) <> "" then%>

<% = (vardescricao) %>

<% end if%>

</font></font></font></div></td>

</tr>

<tr>

<td valign="middle" height="27" bgcolor="#FFFFFF" align="center"> <div align="left"><font face="Arial, Helvetica, sans-serif" size="2" color="#000000"><b>

<%if ucase(varfoto1p) <> "" then%>

<%= ("")%> <img src="./adm/img_art/<% = UCase(varfoto1p) %>"> </b></font></div></td>

</tr>

<tr>

<td valign="middle" height="27" bgcolor="#FFFFFF" align="center"><div align="justify"><font face="Arial, Helvetica, sans-serif" size="2" color="#000000"><%=(vardesc1)%>

<% end if%>

</font></div></td>

</tr>

<tr>

<td valign="middle" height="27" bgcolor="#FFFFFF" align="center"><div align="left">

<%if ucase(varfoto2p) <> "" then%>

<img src="./adm/img_art/<% = UCase(varfoto2p) %>"> </div></td>

</tr>

<tr>

<td valign="middle" height="27" bgcolor="#FFFFFF" align="center"><%=(vardesc2)%>

<% end if%>

<div align="justify"></div>

<div align="justify"></div>

<div align="justify"></div>

<div align="justify"></div></td>

</tr>

<tr>

<td valign="middle" height="27" bgcolor="#FFFFFF" align="center"><div align="left">

<%if ucase(varfoto3p) <> "" then%>

<img src="./adm/img_art/<% = UCase(varfoto3p) %>"> </div></td>

</tr>

<tr>

<td valign="middle" height="27" bgcolor="#FFFFFF" align="center"><div align="justify">

<%=(vardesc3)%>

<% end if%>

</div></td>

</tr>

<tr>

<td valign="middle" height="27" bgcolor="#FFFFFF" align="center"><div align="left">

<%if ucase(varfoto4p) <> "" then%>

<img src="./adm/img_art/<% = UCase(varfoto4p) %>"> </div></td>

</tr>

<tr>

<td valign="middle" height="27" bgcolor="#FFFFFF" align="center"><div align="justify">

<%=(vardesc4)%>

<% end if%>

</div></td>

</tr>

<tr>

<td valign="middle" height="27" bgcolor="#FFFFFF" align="center"><div align="left">

<%if ucase(varfoto5p) <> "" then%>

<img src="./adm/img_art/<% = UCase(varfoto5p) %>"> </div></td>

</tr>

<tr>

<td valign="middle" height="36" bgcolor="#FFFFFF" align="center"><div align="justify">

<%=(vardesc5)%>

<% end if%>

</div></td>

</tr>

<tr>

<td valign="middle" height="36" bgcolor="#FFFFFF" align="center"> <div align="left">

<%if ucase(varfoto6p) <> "" then%>

<img src="./adm/img_art/<% = UCase(varfoto6p) %>"> </div></td>

</tr>

<tr>

<td valign="middle" height="36" bgcolor="#FFFFFF" align="center"><div align="justify">

<%=(vardesc6)%>

<% end if%>

</div></td>

</tr>

</table>

<p> </p>

</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