Albúm de fotos

shumi · Abril 3, 2007

eae galera!

beleza?

Estava vendo umas coisas minhas aqui e resolvi postar aqui...

Esse aqui é um sistema de album de fotos.

Vamos fazer a parte da inclusão usando o script do amigo Dark().

* Formulário

fotos_enviar.asp

<html><head><title>FOTOS</title></head><body><form name="cad" action="upload_form2.asp" method="post" enctype="multipart/form-data"><table width="479" border="0">				<tr>				  <td width="120" class="texto11">Foto :</td>				  <td width="349"><input name="foto" type="file" class="texto10" size="14"></td>				</tr>				<tr>				  <td height="227" class="texto11">Comentário : </td>				  <td><textarea name="comentario" cols="82" rows="18" class="texto10" id="comentario"></textarea></td>				</tr>			</table><input type="submit" name="Submit" value="Enviar" /></body></html>

upload_form2.asp - autor Dark

<!-- #include file = "upload_funcoes.asp" --><%Dim Conexcao' Chamando Funções, que fazem o Upload funcionarMAX_UPLOAD_SIZE = cDbl("200000") '---aki você define seu limite.. neste caso está aproximadamente 200KBenviado = cDbl(Request.ServerVariables("CONTENT_LENGTH"))if not enviado < MAX_UPLOAD_SIZE then  Response.Redirect("fotos.asp?msg=38")  response.endend ifbyteCount = Request.TotalBytesRequestBin = Request.BinaryRead(byteCount)Set UploadRequest = CreateObject("Scripting.Dictionary")BuildUploadRequest RequestBin' Recuperando os Dados Digitados ----------------------codcampanha = UploadRequest.Item("codcampanha").Item("Value")foto = UploadRequest.Item("foto").Item("Value")comentario = UploadRequest.Item("comentario").Item("Value")' Tipo de arquivo que esta sendo enviadotipo_foto = UploadRequest.Item("foto").Item("ContentType")' Caminho completo dos arquivos enviadoscaminho_foto = UploadRequest.Item("foto").Item("FileName")' Nome dos arquivos enviadosnome_foto = Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,"\"))' Conteudo binario dos arquivos enviadosfoto = UploadRequest.Item("foto").Item("Value")' pasta onde as imagens serao guardadaspasta = Server.MapPath("imagens/lojas")nome_foto = "/"&nome_foto' pasta + nome dos arquivoscfoto = "imagens/lojas" + nome_foto' Fazendo o Upload do arquivo selecionadoif foto <> "" thenSet ScriptObject = Server.CreateObject("Scripting.FileSystemObject")Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto)For i = 1 to LenB(foto)MyFile.Write chr(AscB(MidB(foto,i,1)))NextMyFile.Closeend if' Conecta-se ao Banco de Dadosurl_Conexcao = Server.MapPath("banco.mdb")set Conexcao = Server.CreateObject("ADODB.Connection")Conexcao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_Conexcao ' cadastra os dados no banco de dados	sSQL = "INSERT INTO fotos(campanha,foto,comentario,ultima_alteracao) VALUES ('"& codcampanha &"','"& cfoto &"','"& comentario &"','"& Session("login") &"')"	Conexcao.Execute sSQL,intRetornoset RS=nothingSet Conexcao=nothingResponse.redirect("fotos.asp?msg=1")%>

upload_funcoes.asp - autor dark

<%' Upload Sem componentes ---------------------------------------Sub BuildUploadRequest(RequestBin)on error resume nextPosBeg = 1PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(13)))boundary = MidB(RequestBin, PosBeg, PosEnd - PosBeg)BoundaryPos = InStrB(1, RequestBin, boundary)Do Until (BoundaryPos = InStrB(RequestBin, boundary & getByteString("--")))Dim UploadControlSet UploadControl = CreateObject("Scripting.Dictionary")Pos = InStrB(BoundaryPos, RequestBin, getByteString("Content-Disposition"))Pos = InStrB(Pos, RequestBin, getByteString("name="))PosBeg = Pos + 6PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(34)))Name = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg))PosFile = InStrB(BoundaryPos, RequestBin, getByteString("filename="))PosBound = InStrB(PosEnd, RequestBin, boundary)If PosFile <> 0 And (PosFile < PosBound) ThenPosBeg = PosFile + 10PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(34)))FileName = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg))UploadControl.Add "FileName", FileNamePos = InStrB(PosEnd, RequestBin, getByteString("Content-Type:"))PosBeg = Pos + 14PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(13)))ContentType = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg))UploadControl.Add "ContentType", ContentTypePosBeg = PosEnd + 4PosEnd = InStrB(PosBeg, RequestBin, boundary) - 2Value = MidB(RequestBin, PosBeg, PosEnd - PosBeg)ElsePos = InStrB(Pos, RequestBin, getByteString(Chr(13)))PosBeg = Pos + 4PosEnd = InStrB(PosBeg, RequestBin, boundary) - 2Value = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg))End IfUploadControl.Add "Value", ValueUploadRequest.Add Name, UploadControlBoundaryPos = InStrB(BoundaryPos + LenB(boundary), RequestBin, boundary)LoopEnd SubFunction getByteString(StringStr)For i = 1 To Len(StringStr)Char = Mid(StringStr, i, 1)getByteString = getByteString & ChrB(AscB(Char))NextEnd FunctionFunction getString(StringBin)getString = ""For intCount = 1 To LenB(StringBin)getString = getString & Chr(AscB(MidB(StringBin, intCount, 1)))NextEnd Function' Fim upload sem Componentes -----------------------------------------%>

fotos_visualiza.asp

<!--#include file="includes/conecao.asp"--><%Sql = "Select campanha,foto,comentario From fotos where campanha="&codcampanha&" Group by campanha,foto,comentario order by foto ASC"Set rs = Conexcao.Execute(Sql)Sql3 = "Select campanha,foto,comentario From fotos where campanha="&codcampanha&" Group by campanha,foto,comentario order by foto ASC"Set rs3 = Conexcao.Execute(Sql3)Sql2 = "Select * From campanha where codcampanha="&codcampanhaSet rs2 = Conexcao.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)}elsealert("Seu Internet Explorer é inferior a versão exigida")return false}</script><script LANGUAGE="javascript"><!-- começobrowserName = 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><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("campanha")%></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.MoveFirstwhile not rs.eoffoto = rs("foto")Comentario = rs("comentario")%></td></tr><tr><td><a href="java script:doPic('<%=(foto)%>');doComments('<%=Server.HTMLEncode(Comentario)%>')"><img src="<%=(foto)%>" border=0 width="80"></a></td></tr><tr><td height="10"><% rs.movenextwend%></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="comentario" name="comentario"><%=rs3("comentario")%></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%>

Agora é so adaptar a necessidade de cada um, mas fica bem legal, fica a imagem central e a miniatura do lado direito e o comentário em baixo conforme o user clicar na miniatura muda o comentário e amplia a foto que clicou!

PS: COMO FAZ TEMPO QUE FIZ ALGUMA PARTE DO CÓDIGO PODE ESTAR UMA PORCARIA, MAS QUALQUER COISA A GENTE ATUALIZA!

Abraços

estica16 · Agosto 22, 2007

Belissimo codigo, obrigado, mesmo o que andava a procura.

Como fizeste a tua conecao.asp???

<!--#include file="includes/conecao.asp"-->

Desde ja o meu obrigado.

Cumps

Ted k' · Agosto 23, 2007

pelo que entendi era isso aki que ele fez:

ASP

url_Conexcao = Server.MapPath("banco.mdb")

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

Conexcao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_Conexcao 

cmachado · Dezembro 10, 2010

Galera copiei este código de voces, 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


<!--#include file="conexao.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%>

<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("comentario").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("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")
Comentario = rs("comenta")%></td></tr>
<tr><td><a href="java%20script:doPic(%27<%=(foto)%>%27);doComments(%27<%=Server.HTMLEncode(Comenta)%>%27)"><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="comentario" name="comentario"><%=rs3("comentario")%></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%>

xanburzum · Dezembro 10, 2010

Verifique a ortografia. pode ser um nome de coluna Invalido 'sua_coluna'. A coluna a qual você se refere na Base de Dados não foi encontrada.

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

response.write(SQL)

response.end()

hargon · Dezembro 12, 2010

Como é uma consulta, id_evento deve ser passado por parâmetro, mas você não recebeu esse parâmetro, correto? Verifique isso.

Caso não resolva, faça os procedimentos citados pelo xanburzum e poste para entendermos o problema.

cmachado · Dezembro 13, 2010

Ficou na mesma, eis o erro:

Microsoft JET Database Engine error '80040e14'

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

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


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

<%

id_evento = request.form("id_evento")

Sql = "Select nome_evento,foto,comentario 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,comentario 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%>

<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("comentario").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("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")
Comentario = rs("comenta")%></td></tr>
<tr><td><a href="java%20script:doPic(%27<%=(foto)%>%27);doComments(%27<%=Server.HTMLEncode(Comenta)%>%27)"><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="comentario" name="comentario"><%=rs3("comentario")%></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%>

Não teria como pegar por outro parâmetro ou outro meio?

Será que não daria para alguém arumar ou me passar o que devo fazer?

Obrigado

xanburzum · Dezembro 13, 2010

qual o tipo de dados de id_evento ??

quando você deu o response.write na string SQL, o que foi exibido...

Mário Monteiro · Dezembro 14, 2010

Tem certeza que o id evento foi passado pelo formulario?

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 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 (ns3u

Mário Monteiro · Dezembro 15, 2010

Microsoft JET Database Engine error '80040e07'

Data type mismatch in criteria expression.

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

Qual é exatamente a linah do erro?

Aponte mas mostre algumas linhas acima também

cmachado · Dezembro 15, 2010

A linha he a que eu jah havia citado:

Microsoft JET Database Engine error '80040e07'

Data type mismatch in criteria expression.

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


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

<%

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

<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("comentario").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("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")
Comentario = rs("comenta")%></td></tr>
<tr><td><a href="java%20script:doPic(%27<%=(foto)%>%27);doComments(%27<%=Server.HTMLEncode(Comenta)%>%27)"><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="comentario" name="comentario"><%=rs3("comentario")%></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%>

Patrique · Dezembro 15, 2010

velho pra desencargo de consciência faça o seguinte

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)

cmachado · Dezembro 15, 2010

Do jeito que você fez Patrique, deu erro na Sql2, fiz as correções e a Sql ficou assim:


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)

Tá perfeito, só que é o seguinte:

No código que o amigo Shumi postou têm uma linha que eu achei muito estranha, a linha é essa.


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

Resumindo o Shumi está pegando o quê?

Não entendi?

Esta linha está no código fotos_visualiza.asp

Mário Monteiro · Dezembro 15, 2010

Esta linha apenas redireciona para a pagina de fotos com os parametros ali mostrados

cmachado · Dezembro 15, 2010

Isso eu sei.

Então tô lascado !!!

O shumi não passou esta página!!!

Putz, fiquei na mesma, resolvi uma parte e agora ficou faltando a outra

Patrique · Dezembro 15, 2010

editado

na verdade a pagina fotos.asp é essa que tu ta editando, é ela que mostrara as fotos, esse if que redireciona para fotos.asp?msg=28 ao que me parece é para quando não houver fotos que dai redireciona e exibe um alerta.

xanburzum · Dezembro 15, 2010

Esse erro geralmente acontece quando você faz uma tentativa de inserir uma data no Access com 'delimitadores ou inserir uma data no SQL Server com # delimitadores, inserir uma data no Access ou SQL Server sem delimitadores, ou inserir uma data formata errada...

cmachado · Dezembro 15, 2010

E por acaso você sabe como devo proceder?

Obrigado

xanburzum · Dezembro 23, 2010

como esta o formato da sua data

Arquivado

Albúm de fotos

Recommended Posts

shumi 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

estica16 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ted k' 126

Compartilhar este post

Link para o post

Compartilhar em outros sites

cmachado 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

cmachado 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

cmachado 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

cmachado 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Patrique 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

cmachado 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

cmachado 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Patrique 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

cmachado 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169