Galeria de fotos

CMachado · Dezembro 10, 2010

Galera copiei este código do iMasters, achei maneiro, só que está dando o seguinte erro?

Microsoft JET Database Engine error '80040e14'

Syntax error (missing operator) in query expression 'evento='.

/popsom/fotos/novo/admin/fotos_visualiza.asp, line 6

A estrutura da minha tabela he a seguinte?

Tenho uma tabela EVENTOS:

id_evento = autonumeração

nome_evento = texto

data_evento = texto

local_evento = texto

option_ativo = texto

e tenho uma tabela FOTOS:

id_foto = autonumeração

foto = texto

comenta = texto

id_evento = texto

caminho_foto = texto

nome_evento = texto

Onde pode estar o erro?

fotos_visualiza.asp

<%

Sql = "Select nome_evento,foto,comentario From fotos where nome_evento="&id_evento&" Group by nome_evento,foto,comenta order by foto ASC"

Set rs = Conexao.Execute(Sql)

Sql3 = "Select nome_evento,foto,comenta From fotos where nome_evento="&id_evento&" Group by nome_evento,foto,comentario order by foto ASC"

Set rs3 = Conexao.Execute(Sql3)

Sql2 = "Select * From eventos where id_evento="&id_evento

Set rs2 = Conexao.Execute(Sql2)

%>

<%IF rs.EOF Then%>

<%Response.Redirect("fotos.asp?msg=28")%>

<%Else%>

function apagar() {

document.cad.reset();

}

</script>

function submitonce(form1){

if (document.all||document.getElementById){

for (i=0;i<form1.length;i++){

var tempobj=form1.elements[i]

if(tempobj.type.toLowerCase()=="submit")

tempobj.disabled=true

}

setTimeout(document.form1.submit, 2)

}

else

alert("Seu Internet Explorer é inferior a versão exigida")

return false

}

</script>

<!-- começo

browserName = navigator.appName;

browserVer = parseInt(navigator.appVersion);

ns3up = (browserName == "Netscape" && browserVer >= 3);

ie4up = (browserName.indexOf("Microsoft") >= 0 && browserVer >= 4);

function doPic(imgName) {

if (ns3up || ie4up) {

imgOn = ("" + imgName);

document.getElementById("mainpic").src = imgOn;

}

function doComments(coment) {

document.getElementById("comentario").innerHTML = coment;

}

// fim -->

</script>

</head>

<tr>

<tr>

<td width="664"><div align="center"><span class="textocima"><strong>Visualização das fotos<br><%=rs2("evento")%></strong></span><br>

<br>

</div></td>

</tr>

<tr>

<tr>

<td width="527"><center><img name="mainpic" id="mainpic" src="<%=rs("foto")%>" border=0 style="max-width:500px; _width:500px; max-height:300px; _height:300px;"></center></td>

<td width%

bareta · Dezembro 13, 2010

aparentemente não existe um id_evento para comparacão na sql. se o cóido for so esse ai mesmo... adicione as querystrings ou request.forms necessários.

CMachado · Dezembro 13, 2010

Fiz alguma alterações conforme a galera do iMaster disse, mas continua dando o mesmo erro, segue o código:

<%

id_evento = request.form("id_evento")

Sql = "Select nome_evento,foto,comenta From fotos where id_evento="&id_evento&" Group by nome_evento,foto,comenta order by foto ASC"

Set rs = Conexao.Execute(Sql)

Sql3 = "Select nome_evento,foto,comenta From fotos where id_evento="&id_evento&" Group by nome_evento,foto,comenta order by foto ASC"

Set rs3 = Conexao.Execute(Sql3)

Sql2 = "Select * From eventos where id_evento="&id_evento

Set rs2 = Conexao.Execute(Sql2)

response.write(SQL)

response.end()

%>

<%IF rs.EOF Then%>

<%Response.Redirect("fotos.asp?msg=28")%>

<%Else%>

function apagar() {

document.cad.reset();

}

</script>

function submitonce(form1){

if (document.all||document.getElementById){

for (i=0;i<form1.length;i++){

var tempobj=form1.elements[i]

if(tempobj.type.toLowerCase()=="submit")

tempobj.disabled=true

}

setTimeout(document.form1.submit, 2)

}

else

alert("Seu Internet Explorer é inferior a versão exigida")

return false

}

</script>

<!-- começo

browserName = navigator.appName;

browserVer = parseInt(navigator.appVersion);

ns3up = (browserName == "Netscape" && browserVer >= 3);

ie4up = (browserName.indexOf("Microsoft") >= 0 && browserVer >= 4);

function doPic(imgName) {

if (ns3up || ie4up) {

imgOn = ("" + imgName);

document.getElementById("mainpic").src = imgOn;

}

function doComments(coment) {

document.getElementById("comentario").innerHTML = coment;

}

// fim -->

</script>

</head>

<tr>

<tr>

<td width="664"><div align="center

bareta · Dezembro 13, 2010

então... mais se você fizer só pelo que os outros dizem e não tentar entender nada do que ta errado ou do que você ta fazendo ... não perca tempo, porque não vai funcionar igual...

1- ponto a ser verificado -> de onde vem o id_evento ? se vier por url é get e usa-se request.querystring("campo") : se vier por um formulário que é submetido via post usa o request.form("campo")

2- feito o passo 1, adicione o tipo de retorno necessário,.. e efetue novos testes...

qual o motivo de existir rs, rs2 e rs3 dando select na mesma coisa?

CMachado · Dezembro 14, 2010

Ok, você estava certo, o código não estava buscando de nada, ou seja nenhuma informação foi passada.

Fiz as alterações e agora tenho uma página chamada "fotos_visualiza_form.asp" com o campo TXT_EVENTO á qual chama a página "fotos_visualiza.asp"

E na página "fotos_visualiza.asp" coloquei o request assim: id_evento = request.form("txt_codigo").

Resumindo, agora o erro que dá é este:

Microsoft JET Database Engi

Ok, você estava certo, o código não estava buscando de nada, ou seja nenhuma informação foi passada.

Fiz as alterações e agora tenho uma página chamada "fotos_visualiza_form.asp" com o campo TXT_EVENTO á qual chama a página "fotos_visualiza.asp"

E na página "fotos_visualiza.asp" coloquei o request assim: id_evento = request.form("txt_codigo").

Resumindo, agora o erro que dá é este:

Microsoft JET Database Engine error '80040e07'

Data type mismatch in criteria expression.

/popsom/fotos/novo/admin/fotos_visualiza.asp, line 8

o código da página fotos_visualiza.asp ficou assim:

<%

id_evento = request.form("txt_codigo")

Sql = "Select nome_evento,foto,comenta From fotos where id_evento="&id_evento&" Group by nome_evento,foto,comenta order by foto ASC"

Set rs = Conexao.Execute(Sql)

Sql3 = "Select nome_evento,foto,comenta From fotos where id_evento="&id_evento&" Group by nome_evento,foto,comenta order by foto ASC"

Set rs3 = Conexao.Execute(Sql3)

Sql2 = "Select * From eventos where id_evento="&id_evento

Set rs2 = Conexao.Execute(Sql2)

response.write(SQL)

response.end()

%>

<%IF rs.EOF Then%>

<%Response.Redirect("fotos.asp?msg=28")%>

<%Else%>

function apagar() {

document.cad.reset();

}

</script>

function submitonce(form1){

if (document.all||document.getElementById){

for (i=0;i<form1.length;i++){

var tempobj=form1.elements[i]

if(tempobj.type.toLowerCase()=="submit")

tempobj.disabled=true

}

setTimeout(document.form1.submit, 2)

}

else

alert("Seu Internet Explorer é inferior a versão exigida")

return false

}

</script>

<!-- começo

browserName = navigator.appName;

browserVer = parseInt(navigator.appVersion);

ns3up = (browserName == "Netscape" && browserVer >= 3);

ie4up = (browserName.indexOf("Microsoft") >= 0 && browserVer >= 4);

function doPic(imgName) {

if (ns3up || ie4up) {

imgOn = ("" + imgName);

document.getElementById("mainpic").src = imgOn;

}

function doComments(coment) {

document.getElementById("comentario").innerHTML = coment;

}

// fim -->

</script>

</head>

<tr

bareta · Dezembro 15, 2010

se id_evento esta como numero no banco de dados:

id_evento="&id_evento&"

se esta como texto / memorando

id_evento='"&id_evento&"'

CMachado · Dezembro 15, 2010

Ok Bareta, fiz as modificações e está perfeito, mas não abre as fotos ele mostra uma página que tenho chamada fotos.asp com o endereço fotos.asp?msg=28

Esta mensagem "msg=28" está no código mas acho que está errada? ou não?

Repare bem no código:

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

<%

id_evento = request.form("txt_codigo")

Sql = "Select nome_evento,foto,comenta From fotos where nome_evento='"&id_evento&"' Group by nome_evento,foto,comenta order by foto ASC"
Set rs = Conexao.Execute(Sql)
Sql3 = "Select nome_evento,foto,comenta From fotos where nome_evento='"&id_evento&"' Group by nome_evento,foto,comenta order by foto ASC"
Set rs3 = Conexao.Execute(Sql3)
Sql2 = "Select * From eventos where id_evento="&id_evento
Set rs2 = Conexao.Execute(Sql2)

%>
<%IF rs.EOF Then%>
<%Response.Redirect("fotos.asp?msg=28")%>
<%Else%>

<script language="javascript">
function apagar() {
  document.cad.reset();
}
</script>
<script language="javascript" type="text/javascript">
function submitonce(form1){
if (document.all||document.getElementById){
for (i=0;i<form1.length;i++){
var tempobj=form1.elements[i]
if(tempobj.type.toLowerCase()=="submit")
tempobj.disabled=true
}
setTimeout(document.form1.submit, 2)
}
else
alert("Seu Internet Explorer é inferior a versão exigida")
return false
}
</script>
<script LANGUAGE="javascript">

<!-- começo
browserName = navigator.appName;
browserVer = parseInt(navigator.appVersion);

ns3up = (browserName == "Netscape" && browserVer >= 3);
ie4up = (browserName.indexOf("Microsoft") >= 0 && browserVer >= 4);

function doPic(imgName) {
        if (ns3up || ie4up) {
        imgOn = ("" + imgName);
        document.getElementById("mainpic").src = imgOn;
        }
}
function doComments(coment) {
        document.getElementById("comenta").innerHTML = coment;
}
//  fim -->

</script>
</head>
<body bgcolor="#D2CFCF">
<center>
<form action="#" method="post" name="cad">
<table id="Table_01" width="812" height="598" border="0" cellpadding="0" cellspacing="0">
        <tr>
                <td colspan="5" background="imagens/images/teste_01.jpg" width="812" height="481"><div align="center">
                  <table width="686" border="0">
                        <tr>
                          <td width="664"><div align="center"><span class="textocima"><strong>Visualização das fotos<br><%=rs2("nome_evento")%></strong></span><br>
                                <br>
                          </div></td>
                        </tr>
                        <tr>
                          <td height="208"><div align="center">
                                                        <table width="690" height="168">
<tr>
<td width="527"><center><img name="mainpic" id="mainpic" src="<%=rs("foto")%>" border=0 style="max-width:500px; _width:500px; max-height:300px; _height:300px;"></center></td>
<td width="133"><div class="foto"><table>
<tr>
<td width="166"><% rs.MoveFirst
while not rs.eof
foto = rs("foto")
comenta = rs("comenta")%></td></tr>
<tr><td><a href="java script:doPic('<%=(foto)%>');doComments('<%=Server.HTMLEncode(comenta)%>')"><img src="<%=(foto)%>" border=0 width="80"></a></td>
</tr>
<tr><td height="10"><% rs.movenext
wend
%></td>
</tr></table></div></td>
</tr>
</table></div></td>
                        </tr>
                        <tr>
                          <td height="27"><center><table width="669" border="0">
                                <tr>
                                  <td width="663" height="27" id="comenta" name="comenta"><%=rs3("comenta")%></td>
                                </tr>
                          </table></center></td>
                        </tr>
                  </table>
                  <br>
                 
                </div></td>
        </tr>
        <tr>
                <td rowspan="2">
                        <img src="imagens/images/teste_02.jpg" width="262" height="117" alt=""></td>
                <td>
                                                        <input type="image" name="envia" value="Confirmar" src="imagens/images/teste_03.jpg" width="80" height="80"></td>
                <td>
                        <input type="image" name="limpa" value="Limpar" src="imagens/images/teste_04.jpg" width="92" height="80" border="0" onClick="apagar(); return false;"></td>
                <td>
                        <a href="java script:history.back();">
                                <img src="imagens/images/teste_05.jpg" width="82" height="80" border="0" alt=""></a></td>
                <td rowspan="2">
                        <img src="imagens/images/teste_06.jpg" width="296" height="117" alt=""></td>
        </tr>
        <tr>
                <td colspan="3">
                        <img src="imagens/images/teste_07.jpg" width="254" height="37" alt=""></td>
        </tr>
</table>
</form></center>
</body>
</html>
<%End IF%>

Esta linha já veio no código que peguei, será que teria outra página que exibe o quê?

Segue o link de onde tirei o código:

http://forum.imasters.com.br/index.php?/to...p;#entry1645806

bareta · Dezembro 15, 2010

bom.,.. o javascript ta meio atrasado ai...

style="max-width:500px; _width:500px; max-height:300px; _height:300px;"

o que acontece é o seguinte repare ká em cima

<%IF rs.EOF Then%>
<%Response.Redirect("fotos.asp?msg=28")%>
<%Else%>

que faz o seguinte -> se não encontrar nada cadastrado no banco de acordo com a sql, redirecina para fotos.asp e exibe uma mensagem com código 28 que é personalizado.

te recomendo criar seu script do zero...

CMachado · Dezembro 15, 2010

Pô bareta, mas não teria como criar á partir do script deste link?

http://forum.imasters.com.br/index.php?/to...p;#entry1645962

Lá estão todos os códigos do script só não estou conseguindo visualizar as fotos do evento.

Você não teria nada ai pra poder ajudar a visulaizar as fotos?

Obrigado

Editado Dezembro 15, 2010 por CMachado

bareta · Dezembro 15, 2010

na verdade isso é tão simples...

listar algo do banco de dados... as pessoas esquecem de saber como as coisas funcionam antes de querer que funcionem...

se o trem ai caium em fotos.asp?msg=28 é porque não tem nada no banco... simples...

seguinte...

Sql2 = "Select * From fotos where id_evento="&id_evento
Set rs2 = Conexao.Execute(Sql2)

if rs2.eof then
response.write "Não tem nada no banco.... então você não ve nada"
else

while not rs2.eof then
response.write "<img src="""&rs2("foto")&"""/><br>"
rs2.movenext
wend

end if
rs2.close
set rs2=nothing

detalhe o cara que postou isso ai em 2007 falou que era esboço e etc... então ^^

agora uma coisa que não sera possivel é ver foto se continua dando select em tabela de evento sendo que as fotos estão em outra tabela...

em uma estrutura simples de 2 tabelas... você usaria um select em cada tabela ou inner join para trazer a combinação desses resultados.

A ideia de criar do nada tem essa função de te auxiliar no entendimento da coisa !!!!

CMachado · Dezembro 16, 2010

Beleza bareta, concordo com você, então se puder me ajudar poderei terminar este script na boa.

Tenho um banco de dados com duas tabelas: EVENTOS e FOTOS (não sei se é necessário, mas enfim), a estrutura da tabela está assim:

tabela EVENTOS:

id_evento = autonumeração

nome_evento = texto

data_evento = texto

local_evento = texto

evento_ativo = texto (aqui informo se o evento ainda está ativo ou não)

tabela FOTOS:

id_foto = autonumeração

foto = texto

comenta = texto

id_evento = texto

caminho_foto = texto

A página de cadastro de eventos está assim:

incluir_evento.asp

<%
If NOT Session("logado") = true Then
Response.redirect("erro.asp")
Response.End
End If
%>

<html>
<link href="css/style.css" rel="stylesheet" type="text/css"> 
<head>
<title>Documento sem t&iacute;tulo</title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="style.css" rel="stylesheet" type="text/css">
</head>

<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="46%" height="28%" border="0">
  <tr>
    <td height="146"><form name="form1" method="post" action="grava_evento.asp">
        <table width="43%" border="0" align="left">
          <tr>
            <td colspan="2"><div align="left"><font size="4" face="Verdana, Arial, Helvetica, sans-serif">Cadastro
                      de Eventos</font></div></td>
          </tr>
          <tr>
            <td>&nbsp;</td>
            <td>&nbsp;</td>
          </tr>
          <tr>
            <td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Nome
                do Evento:</font></td>
            <td><input name="nome_evento" type="text" id="txt_nome3" size="50" maxlength="50">
            </td>
          </tr>
          <tr>
            <td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Local:</font></td>
            <td><input name="local_evento" type="text" id="txt_local3" size="50" maxlength="50">
            </td>
          </tr>
          <tr>
            <td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Data:</font></td>
            <td><input name="data_evento" type="text" id="data_evento" value="dd/mm/aaaa" size="15" maxlength="10">
            </td>
          </tr>
          <tr>
            <td>
              <div align="center">
                <table width="200">
                  <tr>
                    <td><label>
                      <input type="radio" name="Option_Ativo" value="1">
                      Ativo</label>
                    </td>
                  </tr>
                  <tr>
                    <td><label>
                      <input type="radio" name="Option_Ativo" value="0">
                      Inativo</label>
                    </td>
                  </tr>
                </table>
</div></td>
            <td><div align="right">
              <input name="Submit" type="submit" class="btn" value="Cadastrar Evento">
            </div></td>
          </tr>
        </table>
    </form></td>
  </tr>
</table>
</body>
</html>

Na página de cadastro de fotos eu tenho um script que busca o evento em um dropdown exibe o mesmo e cadastra a foto e o evento no banco, o único problema é que só estou conseguindo cadastrar uma foto por vez, e gostaria de gravar no banco renomeando as fotos: incluir_fotos.asp

<html>
<head>
<title>.: Pop Som Sonoriza&ccedil;&atilde;o :. Incluir Fotos</title>
<link rel="stylesheet" href="css/style.css" type="text/css" media="screen" />
<link rel="stylesheet" href="css/estilos.css" type="text/css" media="screen" />
</head>
<body>
<div align="left">
  <p><font size="4">Inclus&atilde;o do Fotos</font></p>
</div>
<form method=post action="<%=Request.ServerVariables("script_name")%>">
<font size="4"></font>
<table border=0 width="38%" align=left>
<font size="4">
<%
If IsEmpty( Request.Form("submit") ) Then
%>
</font>  <tr>
    <td align=right valign=top><font face="Arial" size="2">    </td>
    <td align=left valign=top>&nbsp;</td>
  </tr>
  <tr>
    <td align=right valign=top>&nbsp;</td>
    <td align=left valign=top>&nbsp;</td>
  </tr>
  <tr>
    <td align=right valign=top>&nbsp;</td>
    <td align=left valign=top>

<!-- #include file = "upload_funcoes.asp" -->
<table>
<form name="form1" action="upload_form2.asp" method="post" enctype="multipart/form-data">
<tr>
<td>&nbsp;</td>
</tr>
<tr>
<td>Evento:
  <select name="id_evento" id="select">
  <option value="0" selected >Selecione o evento</option>
  <%

    Set db = Server.CreateObject("ADODB.Connection")
    cnpath=server.mappath("/")
    cnpath=left(cnpath, len(cnpath)-3) & "dados\galeria_fotos.mdb"
    db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & cnpath 
    
Set oRs = Server.CreateObject("ADODB.RecordSet")
oRs.CursorLocation = 2 'adUseServer
oRs.CursorType = 3 'adOpenStatic

sSQL="SELECT * FROM eventos "
sSQL = sSQL & " ORDER BY nome_evento;"

oRs.Open sSQL, db,,,&H0001 'adCmdText
If oRs.Eof = False Then
Do While oRs.Eof = False
If CInt(vEntturma_id) = oRs("id_evento") Then s="selected='selected'" Else s=""
%>
  <option value="<%=oRs("id_evento")%>" <%=s%>><%=oRs("nome_evento")%></option>
  <% oRs.MoveNext
Loop
End If
oRs.Close
Set oRs = Nothing
%>
</select>
  Foto:</td>
<td><input type="file" name="foto" size="14"></td>
</tr>
<tr>
<td colspan="2">&nbsp;</td>
</tr>
</form>

    <font size="4">    </font>
    </td>
  </tr>
  <tr>
    <td align=right valign=top>&nbsp;</td>
    <td align=left valign=top><input type=submit name=submit value=Incluir style="{<font-family:Arial; font-size:12}"></td>
</tr>


  
<center>
</center>
</form>

<div align="left">
  <p>
    <%
Else
  If Not IsEmpty(Request.Form("submit")) AND Trim(Request.Form("id_evento")) <> ""  AND Trim(Request.Form("foto")) <> ""  Then
    Set Conexao = Server.CreateObject("ADODB.Connection")

    Set Conexao = Server.CreateObject("ADODB.Connection")
    cnpath=server.mappath("/")
    cnpath=left(cnpath, len(cnpath)-3) & "dados\galeria_fotos.mdb"
    Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & cnpath 
    
    ComandoSQL = "INSERT INTO FOTOS (id_evento, foto)"
    ComandoSQL = ComandoSQL & " VALUES ("
    ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("id_evento")) & "',"
    ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("foto")) & "')"
    Set bd = Conexao.Execute(ComandoSQL)
    Conexao.Close
    Set bd = Nothing
    Set Conexao = Nothing
%>
  
    <font face="Arial" size="2">  <br>
    Os dados foram enviados com sucesso!
  
    <br>
     <a href="incluir_fotos.asp"><b>Clique aqui</b></a> para continuar enviando
     fotos
     <%
  Else
%>
  
    <font face="Arial" size="2">  </p>
</div>
<div align="left"><br>
  Atenção: Alguns dados necessário não foram preenchidos corretamente <br>
  <a href="java script:history.go(-1)"><b>Clique aqui</b></a> para voltar
  <%
  End If
End If
%>

</div>
</body>
</html>

Já tenho uma modelação da página de visualização de fotos, mas no momento ainda não tenho nada pronto para exibir as mesmas. galeria.asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title>Documento sem t&iacute;tulo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="css/estilos.css" type="text/css" media="screen" />
</head>

<frameset rows="*" cols="265,*" frameborder="NO" border="0" framespacing="0">
  <frame src="galeria_menu.asp" name="leftFrame" scrolling="NO" noresize>
  <frameset rows="91,*" cols="*" framespacing="0" frameborder="NO" border="0">
    <frame src="galeria_topo.asp" name="topFrame" scrolling="NO" noresize>
    <frame src="galeria_fundo.asp" name="mainFrame">
  </frameset>
</frameset>
<noframes><body>

</body></noframes>
</html>

galeria_fundo.asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title>Documento sem t&iacute;tulo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="alternate stylesheet" type="text/css" href="../css/popsom.css" title="1024 x 768" />
<body bgcolor="#EBEBEB"><table width="49%" border="0">
  <tr>
    <td colspan="4"><div align="center"><img width="400" height="276"></div></td>
  </tr>
  <tr>
    <td width="21%"><div align="center"></div></td>
    <td width="14%"><div align="right"><img src="../images/seta_esquerda.gif" width="31" height="31"></div></td>
    <td width="31%"><div align="center"><%=strToTImages%></div></td>
    <td width="34%"><img src="../images/seta_direita.gif" width="31" height="31"></td>
  </tr>
  <tr>
    <td colspan="4"><div align="center"></div></td>
  </tr>
</table>
</body>
</html>

galeria_menu.asp

<%@ LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%Option Explicit%>
<!--#include file="conexao.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#F0F0F0" text="#0066FF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<div align="center">

  <strong><font size="2" face="Arial, Helvetica, sans-serif"> Fotos</font></strong> 
</div>
   <!-- Programação e vizualização dos cadastros -->
<div align="center"><a href="exibefoto.asp?foto=<%=objrs("id_foto")%>" target="exibe"><img src="fotos2/<%=objrs("foto")%>" width="75" height="56" border="0"></a> 
</div>
</body>
</html>

galeria_topo.asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title>Documento sem t&iacute;tulo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="alternate stylesheet" type="text/css" href="../css/popsom.css" title="1024 x 768" />

</head>

<body bgcolor="#EBEBEB">
<table width="49%" border="0">
  <tr>
    <td colspan="2"><strong>Evento: </strong></td>
  </tr>
  <tr>
    <td colspan="2"><strong>Data: </strong></td>
  </tr>
</table>
</body>
</html>

Agora é só a gente se entender.

Se puder ajudar, obrigado.

Abraços.

Cláudio Machado

Editado Dezembro 16, 2010 por CMachado

Entrar

Galeria de fotos

Pergunta

Link para o comentário

Compartilhar em outros sites

10 respostass a esta questão

Posts Recomendados

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns