<% dim conn dim rs dim sql Dim iPageSize Dim iPageCount Dim iPageCurrent dim iRecordsShown dim i dim title iPageSize = 10 if request("galeria")="" then iPageCurrent = 1 else iPageCurrent = cint(request.querystring("galeria")) end if %> <% cat = Request.QueryString ("cobertura") cat1 = Request.QueryString ("cobertura") Set Conn = Server.CreateObject("ADODB.Connection") Set Rs = Server.CreateObject("ADODB.Recordset") Conn.Open Conn_String SQL = "select * from cards Where catid =" & cat SQLa = "select * from music Where catid =" & cat set rsa = Conn.Execute (sqla) rs.open sql, conn, adOpenStatic, adLockReadOnly, adCmdText if rs.eof then response.write "Não existem Fotos aqui." response.end end if RS.PageSize = iPageSize RS.CacheSize = iPageSize RS.AbsolutePage = iPageCurrent iPageCount = RS.PageCount iRecordsShown = 0 %>

<%Sub card( create ) If RS.EOF Then Exit Sub End If Dim strimg, strid strimgsm = RS("smimage").Value strimg = RS("image").Value strid = RS("id") strname = RS("cardname") strnumero = RS("numero") Response.Write "

" Response.Write "

" 'Response.Write rs("image") Response.Write strname Response.Write "" & strnumero &"

" rs.movenext End Sub %> <% Dim im Dim nCount nCount = 0 If RS.EOF = False Then for im=1 to RS.PageSize / 2 If RS.EOF = False Then Response.Write "" %> <% Response.Write "" End If Next End If %>

<%card( create )%>	<%card( create )%>

	<%response.write "Existem " & rs.recordcount & " Fotos nesta Galeria"%> Galeria <%= iPageCurrent %> de <%= iPageCount %>	Como adquirir suas fotos
		Entre em contado conosco pelo telefone: (35) 9192-9120 ou pelo email: claudiacouto@coisasdointerior.com.br

<% for i=1 to ipagecount if i=ipageCurrent then response.write i & " " else response.write "" & i & " " end if next %>

<% rs.close Conn.Close set Conn = nothing %>