Touche

Alguem pode me dizer pq essa página da erro interno 500 quando acessa essa página somente pelo IE... no Firefox ela roda normal.

O mais estranho eh que nao diz qual o erro...

[ASP]<%
Set Conn_fotos = CreateObject("ADODB.CONNECTION")
conStr ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("../databases/fotos")
Conn_fotos.Open ConStr
%>
</p>
<table width="193" border="0" align="center" cellpadding="0" cellspacing="0">
<tr> <%
Set fotos = Conn_fotos.Execute("SELECT cod_foto,cod_evento,foto_pq FROM fotos WHERE cod_evento =" & Request.QueryString("cod_evento") & " ORDER BY cod_foto")
cont = 0
pg = 0
While not fotos.EOF
cont = cont + 1
pg = pg + 1

%>

<td><div align="center"><a href="iframe_hits.asp?cod_foto=<%=fotos("cod_foto")%>" target="foto"><img src="http://www2.seliga.n...fotos("foto_pq")%>" width=80 height=60 border=0 style="filter:gray;" onmouseover="this.style.filter=''" onmouseout="this.style.filter='gray'" class="drag"></a></div></td>
<%
fotos.MoveNext

if cont <= 1 then
response.Write("<td width=12></td>")
else
response.Write("</tr><tr><td colspan=6 height=12></td></tr><tr>")
cont = 0
End If

Wend
%>
</tr></table>[/ASP]



Oh o erro que dá:

A página não pode ser exibida
Há um problema com a página que você está tentando acessar e ela não pode ser exibida.

Agora ela rodava antes normalmente de uma hora pra outra ficou assim... Será que é problema com o servidor?

Alguem pode me passar um link de tutorial/apostila/script de paginacao que preste ja fui em todos os sites conhecidos e nenhum presta... eles quando chega no ultimo registro aparece um erro na tela =/

quem puder me ajudar eu ficarei grato... pois sou iniciante na linguagem:

quero paginar isso oh -> são fotos divididas em 2 colunas...

ASP

<table width="720" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="210" background="nucleo/imgs/SELIGA_VERFOTO_r2_c1.gif"><img src="nucleo/imgs/SELIGA_VERFOTO_r1_c1.gif" width="201" height="86"><br>
<% Set Conn_flash = CreateObject("ADODB.CONNECTION")
conStr ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("../databases/fotos.mdb")
Conn_flash.Open ConStr
%>
<table width=170 border=0 align="center" cellpadding=0 cellspacing=0>
<tr>
<%
Set fotos = Conn_flash.Execute("SELECT * FROM fotos WHERE cod_evento =" & Request.QueryString("cod_evento") & " ORDER BY cod_foto")
cont = 0
pg = 0
While not fotos.EOF
cont = cont + 1
pg = pg + 1
%>
<td><div align="center"><a href="hits.asp?cod_foto=<%=fotos("cod_foto")%>" target="fotos"><img src="http://www2.seliga.n...fotos("foto_pq")%>" hspace="0" vspace="0" border="0" class="drag" style="filter:gray;" onMouseOver="this.style.filter=''" onMouseOut="this.style.filter='gray'"></a></div></td>
<%
fotos.MoveNext

if cont <= 1 then
response.Write("<td width=12></td>")
else
response.Write("</tr><tr><td colspan=6 height=12></td></tr><tr>")
cont = 0
End If

Wend
%>
</table>
<br>

Quero que na hora de exibir os 10 registros aparece a numeracao ao lado tipo:

1º

registro 1

2º

registro 2

3º

registro 3



Eis o codigo que to usando pra exibir os 10 registros...

           <%
ConnString ="DRIVER={Microsoft Access Driver (*.mdb)};" & _
"DBQ=" & Server.MapPath("bd/fotos.mdb") & ";"

Dim XY, q

XY = 10

Set Conn = Server.CreateObject("adodb.connection")
Conn.Open ConnString
Sql = "SELECT * FROM fotos ORDER BY cliques desc"
Set Rs=Conn.Execute(Sql)

For q=1 to XY

%>
            <img src="fotos/<%=rs("foto_pq")%>" border="0">
                                                <%

Rs.MoveNext
If Rs.Eof Then Exit For
Next


Rs.Close
Set Rs=Nothing
Conn.Close
Set Conn=Nothing
%>

por favor me ajudem sou ini e nao sei como fazer isso

Alguem tem um exemplo de paginação de registros nesse estilo:

<< primeiro < anterior | Pág 1 de 10 | proximo > ultimo >>


desde já agradeço

Tenho um sistema de fotos feito por mim que quando a pessoa clica na foto ela eh mandada pra um arquivo hits.asp que conta 1 clique e redireciona a pessoa pra pagina de visualização da foto...

O sistema funcionava normal até que...

Microsoft VBScript runtime error '800a005e' 

Invalid use of Null: 'cInt' 

/hits.asp, line 10

esse xxxxxx erro aconteceu... por favor me ajudem nao sei o q pode estar acontecendo...

eis o arquivo hits.asp



<%
url = Request.QueryString("cod_foto")
Conn_String = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("bd/fotos.mdb")

set conn = Server.CreateObject("ADODB.Connection")
conn.open Conn_String
Set RS = conn.Execute("select * from fotos where cod_foto =" & url)
redireciona = "ver_foto.asp?cod_foto=" & RS("cod_foto").value
'Insere mais um clique no banco de dados
cliques=cInt(rs("cliques"))+1
Set RS2 = conn.Execute("UPDATE fotos SET cliques = " & cliques & " where cod_foto =" & url)

RS.Close
conn.Close
set conn = nothing
'Redireciona para a url
Response.Redirect redireciona

%>