Ir para conteúdo

POWERED BY:

Arquivado

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

criacaoi7

Como dar um responde dizendo que não existe galeria.

Por , em ASP Clássico

Recommended Posts

criacaoi7    0

criacaoi7
Postado

Como eu posso dar uma response no código para dizer que não existe nenhuma galeria de fotos cadastrada, quando realmente não existir nenhuma galeria cadastrada.

 

Podem ajudar.

 

Veja meu código:

 

<html>
<head>
<title>Cido Silva - Sites, softwares e aplicações para web</title>
<meta name="generator" content="Namo WebEditor v5.0">
<script language="JavaScript">
<!--
function na_open_window(name, url, left, top, width, height, toolbar, menubar, statusbar, scrollbar, resizable)
{
  toolbar_str = toolbar ? 'yes' : 'no';
  menubar_str = menubar ? 'yes' : 'no';
  statusbar_str = statusbar ? 'yes' : 'no';
  scrollbar_str = scrollbar ? 'yes' : 'no';
  resizable_str = resizable ? 'yes' : 'no';
  window.open(url, name, 'left='+left+',top='+top+',width='+width+',height='+height+',toolbar='+toolbar_str+',menubar='+menubar_str+',status='+statusbar_str+',scrollbars='+scrollbar_str+',resizable='+resizable_str);
}

// -->
</script>
</head>

<body bgcolor="#ECE9D8" text="black" link="blue" vlink="purple" alink="red" leftmargin="0" marginwidth="0" topmargin="0" marginheight="0">
<table align="center" width="779" cellpadding="0" cellspacing="0">
	<tr>
		<td width="779" bgcolor="white">																								<p style="line-height:150%; margin-top:0; margin-bottom:0;" align="center">
<%
PagAtual = Request.QueryString("PagAtual")
Set Conn= server.createobject("adodb.connection")
DSNtest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\web\olimpiadaconsespcombr\database\galeriafotos.mdb"
'DSNtest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("database/galeriafotos.mdb")
Conn.Open DSNtest
Set RS= Server.CreateObject("ADODB.Recordset") 'acrescentei por causa da paginação
SQL = "SELECT * FROM Galeria ORDER BY ID desc"
RS.Open SQL, conn, 3

if not rs.eof then

	Const NumPorPage = 15
	Dim PagAtual
	
	IF Request.QueryString("PagAtual") = "" Then
		PagAtual = 1 'Primeira página
	Else
		PagAtual = Request.QueryString("PagAtual")
	End If
	
	RS.CacheSize = NumPorPage 'Define o tamanho do Cache = para o número de registros
	RS.MoveFirst
	RS.PageSize = NumPorPage
	Dim TotalPages
	TotalPages = RS.PageCount
	RS.AbsolutePage = PagAtual
	Count = 0
	i = 0
	DO WHILE NOT RS.EOF And Count < RS.PageSize  'paginacao And Count < RS.PageSize
		if i mod 2<>0 then
			cor = "#F4F4F4"
		else
			cor = "#e1e1e1"
		end if
rs.movenext()
loop 
%>
</p>
<table cellspacing="0" width="100%" bordercolordark="white" bordercolorlight="black" align="center" cellpadding="0">
	<tr>
		<td width="153" rowspan="4" height="131"><p align="center"> 
						<a href="java script:na_open_window('win', 'config/galeria.asp?data=<%=Rs("data")%>', 0, 0, 703, 473, 0, 0, 0, 0, 0)" target="_self"><img src='config/fotos/<%=Rs("Foto")%>' width="150" height="112" border="0"></a>			 </p>
		</td>
		<td width="107">			
<p align="left" style="line-height:100%; margin-top:0; margin-bottom:0;"> 
<font face="Arial" color="#333333"><b><span style="font-size:12pt;">Evento</span></b></font> </p>
</td>
		<td width="325">			
<p align="left" style="line-height:100%; margin-top:0; margin-bottom:0;"> 
<span style="font-size:10pt;"><font face="Arial" color="#0066FF"><%=Rs("Evento")%> 
						</font></span> </p>
</td>
		<td width="194">			
						<p align="center"><a href="config/listargalerias.asp"><span style="font-size:10pt;"><b><font face="Arial" color="red"> Adiministar 
						galerias</font></b></span></a></p>
</td>
	</tr>
	<tr>
		<td width="107">			
<p style="line-height:100%; margin-top:0; margin-bottom:0;" align="left"><font face="Arial" color="#333333"><b><span style="font-size:12pt;">Data</span></b></font></p>
</td>
		<td width="325">			
<p style="line-height:100%; margin-top:0; margin-bottom:0;" align="left"><span style="font-size:10pt;"><font face="Arial" color="#0066FF"><%=Rs("Dia")%>  </font></span></p>
</td>
		<td width="194">			
						<p> </p>
</td>
	</tr>
	<tr>
		<td width="107">			
						<p align="left"><font face="Arial"><span style="font-size:12pt;"><b>Cidade</b></span></font></p>
</td>
		<td width="325">			
<p style="line-height:100%; margin-top:0; margin-bottom:0;" align="left"><span style="font-size:10pt;"><font face="Arial" color="#0066FF"><%=Rs("Cidade")%> </font></span></p>
</td>
		<td width="194">			
						<p> </p>
</td>
	</tr>
	<tr>
		<td width="107">			
						<p align="left"><font face="Arial"><span style="font-size:12pt;"><b>Fotografo</b></span></font></p>
</td>
		<td width="325">			
<p style="line-height:100%; margin-top:0; margin-bottom:0;" align="left"><span style="font-size:10pt;"><font face="Arial" color="#0066FF"><%=Rs("Fotografo")%> </font></span></p>
</td>
		<td width="194">			
						<p align="center"> </p>
</td>
	</tr>
	<tr>
		<td width="779" colspan="4">
			<p style="line-height:50%; margin-top:0; margin-bottom:0;" align="center"> </p>
		</td>
	</tr>
</table>
<p style="line-height:150%; margin-top:0; margin-bottom:0;" align="center">
<%
i = i+1
Count = Count + 1
RS.MoveNext
%>
<%
Response.Write("<B><font color=""#006600"" size=""2"" face=""Arial""><strong> Página " & PagAtual & " de " & TotalPages & " </strong></font></B> - ")   
var01 = Len(PagAtual)
var02 = var01 - 1 
var03 = Left(PagAtual,var02)
var04 = Right(PagAtual,1)
var05 = var03 & 0
IF var04 <> 0 THEN 
inicial = var05 + 1
final = inicial + 9  
ELSE
inicial = var05 - 9  
final = var05
END IF
indice_i = var04 - 1
indice_f = 10 - var04 
If CInt(final) > CInt(TotalPages) Then final = TotalPages End If
IF PagAtual > 1 THEN 
Response.Write("<B><font color=""#660066"" size=""1"" face=""Arial"">") 
Response.Write("<a href='listargalerias.asp?PagAtual=" &  1 & "'>")
Response.Write("<img src='config/images/primeira.gif'border='0' alt='Primeira página'>") 
Response.Write("</a></font></B>  ")
Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">") 
Response.Write("<a href='listargalerias.asp?PagAtual=" & PagAtual - 1 & "'>")
Response.Write ("<img src='config/images/anterior.gif' border='0' alt='Página anterior'>") 
Response.Write("</a></font></B>  ")
End If
IF PagAtual > 10 THEN
Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">") 
Response.Write("<a href='listargalerias.asp?PagAtual=" & inicial - 1 & "'>")
Response.Write("...") 
Response.Write("</a></font></B>  ")
ELSE
Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">") 
Response.Write("....") 
Response.Write("</font></B>  ")
END IF
Else
Response.Write("<B><font color=""#EEEEEE"" size=""1"" face=""Arial"">") 
Response.Write("<img src='config/images/primeira.gif' border='0' alt='Primeira página'>") 
Response.Write("</font></B>  ")
Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">") 
Response.Write("<img src='config/images/anterior.gif' border='0' alt='Página anterior'>") 
Response.Write("</font></B>  ")
Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">") 
Response.Write("...") 
Response.Write("</font></B>  ")
End If
For i = inicial To final
If CInt(i)=CInt(PagAtual) Then
Response.Write "<font color=""#660066"" size=""1"" face=""Arial"">[ <B>" & i & "</B> <font color=""#660066"">]</font>  "
END IF
If CInt(i) < CInt(PagAtual) Then
Response.Write "<font color=""#660066"" size=""1"" face=""Arial""><a href='listargalerias.asp?PagAtual=" & i & "'>" & i & "</a></font> "
END IF
If CInt(i) > CInt(PagAtual) Then
Response.Write "<font color=""#660066"" size=""1"" face=""Arial""><a href='listargalerias.asp?PagAtual=" & i & "'>" & i & "</a></font> "
END IF
Next
IF CInt(PagAtual) <> CInt(TotalPages) THEN 
p1 = Left(PagAtual,var02) 
p2 = Left(TotalPages,var02)
p3 = Left(TotalPages,var02) & 0
IF (p1 > PagAtual) or ((PagAtual <= 10) and (TotalPages > 10)) THEN 
Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">")
Response.Write("<a href='listargalerias.asp?PagAtual=" & final + 1 & "'>")
Response.Write("...")
Response.Write("</a></font></B>  ") 
ELSE
Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">")
Response.Write("...") 
Response.Write("</font></B>  ")
END IF
Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">")
Response.Write("<a href='listargalerias.asp?PagAtual=" & PagAtual + 1 & "'>")
Response.Write("<img src='config/images/proxima.gif' border='0' alt='Próxima página'>")
Response.Write("</a></font></B>  ") 
Response.Write("<B><font color=""#660066"" size=""1"" face=""Arial"">")
Response.Write("<a href='listargalerias.asp?PagAtual=" & TotalPages & "'>")
Response.Write("<img src='config/images/ultima.gif' border='0' alt='Ultima página'>")
Response.Write("</a></font></B>  ")		
ELSE
Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">")
Response.Write("...") 
Response.Write("</font></B>  ")
Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">")
Response.Write("<img src='config/images/proxima.gif' border='0' alt='Próxima página'>") 
Response.Write("</font></B>  ")
Response.Write("<B><font color=""#EEEEEE"" size=""1"" face=""Arial"">")
Response.Write("<img src='config/images/ultima.gif' border='0' alt='Ultima página'>") 
Response.Write("</font></B>  ")
End If 
Rs.Close  
Set RS = Nothing
Conn.Close	  
Set Conn = Nothing   %></p>
		</td>
	</tr>
</table>
<p> </p>
</body>

</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

Basicamente antes de listar voce pergunta se retornou algo

 

IF RS.EOF THEN
   Response.write("Nao retornou nada")
END IF

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