seguinte esse e um codigo que ele exibe minhas imagens do diretorio! o que acontece e que ele bota elas em ordem aleatorias em vez de fica (1).jpg , (2).jpg e assim por diante ele deixa tudo doido bota o 1 e depois o 100 depois o 80 e assim por dia ele nao deixa elas na sequecia!
alguem pode me da uma ajuda pra ordenar essas capetinhas!
abraços
segue o codigo abaixo!
<!--#include file="config.asp"-->
<%
id_evento = Request.QueryString("id_evento")
SQL = "Select * From eventos Where id_evento=" & id_evento & " "
RS.open SQL, conex
Session("titulo") = RS("Titulo")
Session("data") = RS("data_evento")
Session("texto") = RS("texto")
Session("id_evento") = request.QueryString("id_evento")
Session("pasta") = RS("pasta")
Set FSO = Server.CreateObject ( "Scripting.FileSystemObject" )
Set Pasta = FSO.GetFolder ( Server.Mappath("coberturas/"&Session("pasta")&""))
Set Rs = Server.CreateObject ( "ADODB.RecordSet" )
Rs.Fields.Append "nome", 200, 255
rs.CursorType = 3
Rs.Open
For Each Arquivo In Pasta.Files
naoimagem = LCase(Right((Arquivo.Name), 4))
If naoimagem = ".jpg" Then
Rs.AddNew
Rs.Fields("nome").Value = Arquivo.Name
End If
Next
Rs.Movefirst
IF Request.QueryString("PN") = "" THEN
PaginaCorrente = 1
ELSE
PaginaCorrente = Request.QueryString("PN")
END IF
IF Request.QueryString("intervalo") = "" THEN
Intervalo = 20 'Valor Padrão
ELSE
Intervalo = Request.QueryString("intervalo")
END IF
Rs.PageSize = CInt(intervalo)
TotalPaginas= RS.PageCount
TotalRegistros = RS.recordcount
IF NOT Rs.Eof THEN
Rs.AbsolutePage = CInt(PaginaCorrente)
END IF
%>
<script language="JavaScript" type="text/javascript">
function RedirPagina() {
var int = <%=Intervalo%>
var page = prompt("Digite uma página entre 1 e <%=rs.pagecount%>","<%=PaginaCorrente+1%>");
if ((page > <%=rs.PageCount%>) || (page < "1")) {
alert("Página inexistente!");
page = <%=PaginaCorrente%>;
} else if (page==null || page=="") {
alert("Vou direcionar para a página 1!"); page = "1";
}
window.location.href="arquivos.asp?PN="+page+"&intervalo="+int;
}
</script>
<script LANGUAGE="JavaScript">
<!--
function NewWindow(mypage, myname, w, h, scroll) {
var winl = (screen.width - w) / 2;
var wint = (screen.height - h) / 2;
winprops = 'height='+h+',width='+w+',top='+wint+',left='+winl+',scrollbars='+scroll+',resizable'
win = window.open(mypage, myname, winprops)
if (parseInt(navigator.appVersion) >= 4) { win.window.focus(); }
}
//-->
</script>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>[[ Yes Banana´s Club ]] www.yesbananasclub.com.br</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
.titulo_eventos {
color: #FFFFFF;
font-size: 20px;
font-weight: bold;
}
.style1 {font-size: 16px}
.style4 {
color: #666666;
font-family: Arial, Helvetica, sans-serif;
}
.style6 {
color: #CCCCCC;
font-size: 12px;
font-weight: bold;
font-family: Arial, Helvetica, sans-serif;
}
-->
</style>
<head>
<link rel="stylesheet" type="text/css". href="css/style.css" />
</head>
<body>
<div id="tudo">
<div id="topo">
<object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://fpdownload.ma...ersion=8,0,0,0" width="770" height="210" id="topo" align="middle">
<param name="allowScriptAccess" value="sameDomain" />
<param name="movie" value="topo.swf" /><param name="quality" value="high" /><param name="wmode" value="transparent" /><param name="bgcolor" value="#000000" /><embed src="topo.swf" quality="high" wmode="transparent" bgcolor="#000000" width="770" height="210" name="topo" align="middle" allowScriptAccess="sameDomain" type="application/x-shockwave-flash" pluginspage="http://www.macromedi...getflashplayer" />
</object>
</div>
<div id="conteudo">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center"></td>
</tr>
<tr>
<td align="left"> </td>
</tr>
<tr>
<td align="left" background="fundo_preto.jpg"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td valign="top"><div align="center">
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="1">
<tr>
<td><div align="center" class="titulo_eventos"><span class="style1"><span class="style4">
<span class="titulo_eventos"><%=Session("titulo")%> - <%=Session("data")%></span></span></span><span class="titulo_eventos"><br>
<font size="2" face="Verdana, Arial, Helvetica, sans-serif"></font></span> </div></td>
</tr>
<tr>
<td align="center"><span class="style6"><%=Session("texto")%></span></td>
</tr>
</table>
<br>
<%
DO UNTIL RS.AbsolutePage <> CInt(PaginaCorrente) OR Rs.EOF
Response.Write "<table width=""500"" height=""71"" border=""0"" cellpadding=""15"" cellspacing=""15"" bordercolor=""#FFFFFF"" bgcolor=""#FFFFFF"" align=""center""><td width=""500""><img src=""coberturas/"&Session("pasta")&"/" & rs.fields("nome").value &"""></a></td>"
Rs.MoveNext
loop
%>
<table width="560" border="0" align="center" cellpadding="1" cellspacing="1" bordercolor="#FFFFFF" bgcolor="#FFFFFF">
<tr>
<td align="center"><font face="Verdana" style="font-size: 12pt">
<%
'Mostrar Páginas
Flag = INT(TotalPaginas / Intervalo)
Flag1 = INT(PaginaCorrente / Intervalo)
'Definir página inicial e final
PI = Flag1 * Intervalo
IF PI = 0 THEN
PI = 1
END IF
PF = PI + Intervalo - 1
'Páginas
FOR I = PI TO PF
IF CInt(I) <= CInt(TotalPaginas) THEN
IF CInt(PaginaCorrente) = CInt(I) THEN
%>
<img src="imgn/<%=I%>_apagado.jpg">
<%
ELSE
%>
<a href="abrir_evento.asp?PN=<%=I%>&intervalo=<%=intervalo%>&id_evento=<%=session("id_evento")%>&galeria=<%=Session("pasta")%>"><img src="imgn/ativo/<%=I%>.jpg" border="0"></a>
<%
END IF
END IF
NEXT
%></font></td>
</tr>
<tr>
<td align="center"> </td>
</tr>
</table>
</div></td>
</tr>
</table></td>
</tr>
<tr>
<td background="intranet/imagens/pix_pontos.jpg"><img src="pix/pix_pontos.jpg" width="4" height="20"></td>
</tr>
<tr>
<td align="center"><img src="pix/site_r4_c1.gif" width="766" height="23"></td>
</tr>
</table>
</div>
</div>
</body>
</html>
