Tipo de erro: (0x80020009) Exceção. /nolimits/fotos/small_images.asp, line 85
o codigo que estou utilizando é o seguinte..:
<%
pag = request.QueryString("p")
if pag = "" then
pag = 1
end if
'img_num = rs.fields("img_num")
n_fotos = img_num 'aki vai o campo com o numero de fotos (10)
'for i = 1 to n_fotos ' aki o for ira repetir até xegar em 10
sql= "Select * from fotos where id="&ID
set rs = server.CreateObject("ADODB.RecordSet")
rs.pagesize = 4
rs.open sql, Conexao, 3, 3
rs.absolutepage = pag
contador = 0
while not rs.fields("img_num") and contador < rs.pagesize
contador = contador +1
%>
<a href="1.asp?foto=<%=i%>&ID=<%=Response.Write(rs.fields("id"))%>" target="direito"><img src="<%Response.Write(rs.fields("pasta"))%>/<%=i%>.jpg" width="75" height="56"></a>
<%i = i + 1%>
<a href="1.asp?foto=<%=i%>&ID=<%=Response.Write(rs.fields("id"))%>" target="direito"><img src="<%Response.Write(rs.fields("pasta"))%>/<%=i%>.jpg" width="75" height="56"></a><br>
<%
rs.movenext
wend
Response.Write "</td></tr></table><br><br>"
For i = 1 To PageCount
If i = cint(pag) Then
Response.Write i & " "
Else
Response.Write "<b><a href='" & request.servervariables("script_name") &"?p=" & i & "'>" & i & "</a> </b>"
End If
Next
rs.close
Set rs = nothing
%>
alguem pode me dar uma luz... pois nao tenho ideia como fazer funcionar.. ja tentei com if.. mas acho que nao fiz corretamente..
desde ja meu obrigado
Edição feita por: DayWalker, 13/12/2005, 17:54.
