Ir para conteúdo

POWERED BY:

Arquivado

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

Beto Guerra

Falha na correspondência do banco de dados MDB na abertura de fotos

Por , em ASP Clássico

Recommended Posts

Beto Guerra    0

Beto Guerra
Postado

Boa madruga aí pessoal!!!

 

Bem, o problema é o seguinte. Estou fazendo a manutenção de um site em "asp". A página é www.expressomarly.com.br, e na galeria de fotos que consta na seção http://www.expressomarly.com.br/transporte.asp as fotos ficaram todas invertidas. Antes mostrava a miniatura do lado direito do pop-up e a foto ampliada do lado esquerdo. Agora que atualizei e inseri novas fotos na galeria não aparece mais. Nas fotos que antes aparecia as ampliações não aparece. Nas novas não aparece é a miniatura. Está compreensível? Já tentei corrigir mas não consegui. Constam dois arquivos, o galeria_ver.asp e o galeria_fotoG.asp e não entendi o porque disso.

É meu primeiro site em asp e estou fazendo só a manutenção. Se alguém puder dar uma força, agradeço!!

abraço

 

Seguem em separado os códigos das páginas!

 

Esse é o código de galeria_FotoG.asp

<!--#include file="conn/connect.asp"-->
<!--#include file="inc/common.asp"-->
<%
idFoto_local = request("foto")

SQL1 = "SELECT * FROM tbl_foto"
SQL1 = SQL1 & " WHERE id_foto = "& idFoto_local &""
Set rs1 = conDB.Execute(SQL1)

lc_foto = rs1("imagem")
lc_legenda = rs1("legenda")

rs1.close
%>
<html>
<head>
<title><% = Dados_Portal("nome")%> | Foto</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="css/estilos.css" rel="stylesheet" type="text/css">
<style type="text/css">
.fotoMaior{
background-image:url(pictures/G<%= lc_foto %>);
background-image:url(pictures/<%= lc_foto %>);
background-position:center;
background-repeat:no-repeat;
background-color: bgcolor="#000000";
}
</style>
</head>

<body leftmargin="0" rightmargin="0" topmargin="0" bottommargin="0">
<table width="440" height="357" border="0" cellpadding="0" cellspacing="0">
             <tr>
               <td height="320" align="center" valign="middle" bgcolor="#000000" class="fotoMaior"> 
			</td>
             </tr>
             <tr>
               <td height="3"></td>
             </tr>
             <tr>
               <td height="34" align="center" valign="middle" background="img/rodape1.gif" bgcolor="#FFFFFF">
			<font face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFFF" style="font-size:11; font-weight: bold;">
			<%= lc_legenda %>				</font>				</td>
             </tr>
</table>
</body>
</html>

E esse da página galeria_ver.asp **** Por favor, quem puder dar essa força, agradeço mesmo, que leite das crianças tá esperando essa entrega (rs) ***** 

<!--#include file="conn/connect.asp"-->
<!--#include file="inc/common.asp"-->
<%
lc_idGaleria = request("galeria")

SQL = "SELECT * FROM tbl_galeria"
SQL = SQL & " WHERE id_galeria = "& lc_idGaleria &""
Set rs = conDB.Execute(SQL)

lc_id = rs("id_galeria")
lc_galeria = rs("nome")
rs.close

SQL = "SELECT * FROM tbl_foto"
SQL = SQL & " WHERE galeria = "& lc_id &""
Set rs = conDB.Execute(SQL)

lc_idFoto = rs("id_foto")
rs.close
%>
<html>
<head>
<title><% = Dados_Portal("nome")%> | Página Inicial</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script>
function MM_jumpMenu(targ,selObj,restore){ //v3.0
 eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
 if (restore) selObj.selectedIndex=0;
}
function MM_goToURL() { //v3.0
 var i, args=MM_goToURL.arguments; document.MM_returnValue = false;
 for (i=0; i<(args.length-1); i+=2) eval(args[i]+".location='"+args[i+1]+"'");
}
</script>
<style type="text/css">
<!--
BODY {
scrollbar-face-color:#85aad4;
scrollbar-highlight-color:#85aad4;
scrollbar-3dlight-color:#FFFFFF;
scrollbar-darkshadow-color:#FFFFFF;
scrollbar-shadow-color:#FFFFFF;
scrollbar-arrow-color:#FFFFFF;
scrollbar-track-color:#35566D;
}
-->
</style>
</head>

<body topmargin="0" bottommargin="0" rightmargin="0" leftmargin="0" bgcolor="#FFFFFF">
<table width="677" height="496"  border="0" cellpadding="0" cellspacing="0">
 <tr>
   <td align="center" valign="top"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
     <tr>
       <td height="105" background="img/topo1.gif" bgcolor="#FFFFFF"> </td>
     </tr>
     <tr>
       <td height="2" bgcolor="#c01f16"></td>
     </tr>
     <tr>
       <td height="34" align="right" valign="middle" background="img/rodape1.gif"><font face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFFF" style="font-size:11; font-weight: bold;"><%= lc_galeria %>      </font></td>
     </tr>
     <tr>
       <td height="3"></td>
     </tr>
     <tr>
       <td height="357" align="center" valign="top">
	<table width="677" height="357"  border="0" cellpadding="0" cellspacing="0">
         <tr>
           <td width="440" align="left" valign="top">
		<iframe name="fotoG" src="galeriaFotoG.asp?foto=<%= lc_idFoto %>" width="440" height="357" marginheight="0" marginwidth="0" scrolling="no" align="middle" frameborder="0"></iframe>			</td>
           <td width="3"></td>
           <td width="234" align="center" valign="top" bgcolor="#E8E8E8"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
             <tr>
               <td height="15"></td>
             </tr>
           </table>
             <table width="100%"  border="0" cellspacing="0" cellpadding="0">
               <tr>
                 <td height="22" align="center" valign="middle">
			  <table width="100%"  border="0" cellspacing="0" cellpadding="0">
			  <form name="form1">
                  <tr>
                  <td align="center" valign="middle">
			   <select name="Galeria" onChange="MM_jumpMenu('parent',this,1)" style="border: 1px solid #1A3482; font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 11px; font-weight: normal; color: #OOOOOO; text-decoration: none; background-color: #FFFFFF; ">
				  <option selected>Escolha uma galeria...             </option>
<%
SQL = "SELECT * FROM tbl_galeria"
SQL = SQL & " ORDER BY nome"
Set rs = conDB.Execute(SQL)

While Not rs.EOF

If rs("id_galeria") <> lc_id Then

SQL1 = "SELECT * FROM tbl_foto"
SQL1 = SQL1 & " WHERE galeria = "& rs("id_galeria") &""
Set rs1 = conDB.Execute(SQL1)

If Not rs1.EOF Then
%>
                     <option value="galeria_ver.asp?galeria=<%=rs("id_galeria")%>&foto=<%=rs1("id_foto")%>"><%= Left(rs("nome"), 25)%></option>
<%
End If
rs1.Close

End If

rs.Movenext
Wend
rs.Close
%>
				</select>
			   </td>
                    </tr>
                   </form>
                 </table>
			  </td>
               </tr>
             </table>
             <table width="100%"  border="0" cellspacing="0" cellpadding="0">
               <tr>
                 <td height="15"></td>
               </tr>
             </table>
		  <div style="overflow:auto; height:300">
             <table width="212" height="300"  border="0" cellpadding="0" cellspacing="0">
               <tr>
                 <td align="center" valign="top">
<%
SQL1 = "SELECT * FROM tbl_foto"
SQL1 = SQL1 & " WHERE galeria = "& lc_id &""
Set rs1 = conDB.Execute(SQL1)

While Not rs1.EOF
%> 
                     <table width="205" border="0" cellpadding="0" cellspacing="0"> 
                       <tr align="center" valign="middle">  
                       <tr> 
<%
for i = 1 to 2
%> 
                         <td align="center" valign="middle">
<%
if not rs1.eof then
%> 
<div onClick="MM_goToURL('fotoG','galeriaFotoG.asp?foto=<%=rs1("id_foto")%>');return document.MM_returnValue" style="CURSOR: hand ; CURSOR: pointer">
		<table width="90" height="68"  border="0" cellpadding="0" cellspacing="0" style="border: 1px solid #35566D;">
             <tr>
               <td align="center" valign="middle" bgcolor="#OOOOOO"><img src="pictures/P<%= rs1("imagem")%>" border="0"></td>
             </tr>
           </table>
           </div>
		<table width="90"  border="0" cellspacing="0" cellpadding="0">
 <tr>
   <td height="4"></td>
 </tr>
</table>
<table width="90"  border="0" cellspacing="0" cellpadding="0">
 <tr>
   <td height="4"></td>
 </tr>
</table>
<%
end if
%>
</td> 
<%
if not rs1.eof then rs1.movenext
next
%> 
                       </tr> 
<%
wend
%> 
                     </table> 
<%
rs1.Close
%> 
			  </td>
               </tr>
             </table>
		  </div>			  </td>
         </tr>
       </table></td>
     </tr>
   </table></td>
 </tr>
</table>
</body>
</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Vinicius Ianni    189

Vinicius Ianni
Postado

Fez um backup dos arquivos e bd antes da atualização ?

As novas imagens que inseriu foi direto no banco de dados ou atraves de uma página ?

Pergunto isso pois ao inserir direto no banco de dados, alguns relacionamentos podem não ter sido feitos e isso pode gerar falhas ou erros.

 

Nas paginas ASP, não está faltando algum include chamando por arquivo .js ou .css ?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Beto Guerra    0

Beto Guerra
Postado 
Ô meu amigo, o pior é que fiz sim um backup, e alterei mas alguma besteira fiz que os subsitui juntamente com os do ftp.

Esses códigos que postei são os que tenho, e já subi os arquivos, foi uma ignorância sem tamanho a minha.

Já olhei em relação aos arquivos pra ver se falta algum include e, sinceramente, não sei, ainda não tinha trabalhado com asp, é uma aventura minha q está me dando dor de cabeça.

Realmente tenho um prazo que ja está no limite e um contrato a cumprir.

Se puder me dar uma luz agradeço muito.

 

De acordo com o arquivo connect.asp, segue assim:

 

<%

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

'conDB.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Inetpub\wwwroot\expresso marly\site\db\dados.mdb"

conDB.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\home\expressomarly\dados\[color=#FF0000]dados.mdb[/color];"

conDB.Open

%>

 

O que creio eu estar correto, pois o arquivo dados.mdb (grifado) é a referência e inseri por ele, mas não encontrei no arquivo MDB nenhuma referência que possa estar provocando este erro.

 

Quanto à "bd", desculpe minha ignorancia, mas não sei o que é!

 

[color=#8B0000][b]Consegui recuperar os arquivos originais com a empresa que produziu o site, mas eles não tem mais programadores que trabalhem com "asp", só "php". Então vasculhei eles pra ver se constava algo sobre "include js ou css" e não. O css já está inbutido nele e o js tb, mas as fotos continuam com o mesmo erro. Estou tentando fazer de outra forma pois no host da agência, eles têm um editor próprio para a manutenção, que incluia os albuns e fotos que deixavam um prefixo, por isso o 2º arquivo "galeriafotoG.asp". Estou tentando colocar como se os arquivos contivéssem esse prefixo para tentar enganar o servidor. Mas ainda assim toda ajuda é bem vinda!!! Obrigado[/b][/color]

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