<!-- #INCLUDE FILE="inc.asp" --> <!-- #INCLUDE FILE="AdminINC.asp" --> <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open dsn mySQL1 = "SELECT * from Festa where FestaID = " & request.querystring("FestaID") & "" set rs = conn.execute(mysql1) %> <% FestaID = request.querystring("FestaID") Set Myconn = Server.CreateObject("ADODB.Connection") Myconn.Open dsn SET MYTABLE= SERVER.CREATEOBJECT("ADODB.RECORDSET") mySQL = "select * from Fotos WHERE FestaID = " & request.querystring("FestaID") & "" iPageSize = AdminRS.fields("NoResults") If Request.QueryString("pagina") = "" Then iPageCurrent = 1 Else iPageCurrent = CInt(Request.QueryString("pagina")) End If mytable.PageSize = iPageSize mytable.CacheSize = iPageSize mytable.open mysql,myconn,3 iPageCount = mytable.PageCount If iPageCurrent > iPageCount Then iPageCurrent = iPageCount If iPageCurrent < 1 Then iPageCurrent = 1 mytable.AbsolutePage = iPageCurrent %><head> <title></title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head> <body bgcolor="#ddeeff" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" bgproperties="fixed"> <% For I = 0 To mytable.Fields.Count - 1 Next iRecordsShown = 0 Do While iRecordsShown < iPageSize And Not mytable.EOF primeira = mytable.fields("primeira") ultima = mytable.fields("ultima") foto = primeira while not foto = ultima %> <table border="0" cellspacing="0" cellpadding="0" align="center"> <tr> <td bgcolor="#66CCFF" align="center"><a href="foto.asp?FestaID=<%= FestaID %>&id=<%= mytable.fields("id").value %>" target="Principal"><img src="<%= rs.fields("Secao") %>/<%= rs.fields("Ano") %>/<%= rs.fields("Mes") %>/<%= rs.fields("Dia") %>/<%=foto%>.jpg" border="0"></a></td> </tr> <tr> <td height=10 align="center"><font class="linker">----------------</font></td> </tr> </table> <% foto=foto+1 Wend loop %> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr bgcolor="#0066CC"> <td width="50%" align="center" bgcolor="#000099"> <%If iPageCurrent > 1 Then %> <a href="mini.asp?FestaID=<%= FestaID %>&pagina=<%= iPageCurrent - 1 %>"><img src="imagens/anterior.gif" border="0"></a> <% End If %> </td> <td width="50%" align="center" bgcolor="#000099"><font color="#211852" face="Arial"> <% If iPageCurrent < iPageCount Then %> <a href="mini.asp?FestaID=<%= FestaID %>&pagina=<%= iPageCurrent + 1 %>"><img src="imagens/proxima.gif" border="0"></a> <% End If %> </font></td> </tr> <tr> <td height="6" colspan="2" align="center"><img src="../Imagens/PIXEL.GIF" width="1" height="1"></td> </tr> <tr bgcolor="#66CCFF"> <td colspan="2" align="center"> <% For I = 1 To iPageCount If I = iPageCurrent Then %> <font class="festa">[<%= I %>]</font> <% Else %> <a class="linker" href="mini.asp?FestaID=<%= FestaID %>&pagina=<%= I %>"><%= I %></a> <% End If Next %> </td> </tr> </table> <% AdminRS.close %>E o erro:
O que eu devo fazer?Tipo de erro:
Active Server Pages, ASP 0113 (0x80004005)
O tempo máximo de execução de um script foi excedido. Você pode alterar esse limite especificando um novo valor para a propriedade Server.ScriptTimeout ou alterando o valor nas ferramentas de administração do IIS.
/albuns/fotos/mini.asp
Abraços!