[Resolvido] Paginação Simples

[alphamek 2]

Olá Pessoal,

 

Segue mais um tipo de paginação simples. Bastante funcional. Porém meu código novamente não está editado. Então podem encontrar algumas TAGs e funções que não pertence a paginação. OK!

 

ASP

[*]

 

[*]Private Sub PGPortfolio ()

 

[*]Dim obj, rs, rsPag, strSQL, Imagem, i, NPag, ImagemRandon

 

[*]

 

[*]Set obj = new clsDataBase

 

[*]

 

[*]NPag = TRIM(CInt(Request.QueryString("Id")))

 

[*]

 

[*]If (NPag=0 OR IsNull(NPag)) Then

 

[*] strSQL = "SELECT * FROM tblPortfolio WHERE idPortfolio=1"

 

[*] NPag = 1

 

[*]Else

 

[*] strSQL = "SELECT * FROM tblPortfolio WHERE idPortfolio=" & CInt(NPag) 

 

[*]End If

 

[*]

 

[*]Set rs = obj.RecordSet (1, strSQL)

 

[*]

 

[*]If (rs.Eof) Then

 

[*] Call MSGErros (1)

 

[*]End If

 

[*]

 

[*]Imagem = SPLIT(rs("txtImagem"),",")

 

[*]

 

[*]Randomize Timer

 

[*]

 

[*]ImagemRandon = Int(RND * UBound(Imagem))

 

[*]

 

[*]With Response

 

[*] .Write ("

")

 

[*] .Write ("

PROJETO :  " & rs("txtProjeto") & "

")

 

[*] .Write ("

")

 

[*] .Write (" & Imagem(ImagemRandon) & ".gif' alt='" & rs("txtProjeto") & "'>")

 

[*] .Write ("")

 

[*] .Write ("

 

[*] .Write ("[tr]")

 

[*] .Write ("

Cliente imagem/ra_servicos_seta.gif'>)

 

[*] .Write ("

" & rs("txtCliente") & "")

 

[*] .Write ("[/tr]")

 

[*] .Write ("[tr]")

 

[*] .Write ("

Atuação imagem/ra_servicos_seta.gif'>)

 

[*] .Write ("

" & rs("txtAtuacao") & "")

 

[*] .Write ("[/tr]")

 

[*] .Write ("[tr]")

 

[*] .Write ("

Ano imagem/ra_servicos_seta.gif'>)

 

[*] .Write ("

" & rs("numAno") & "")

 

[*] .Write ("[/tr]")

 

[*] .Write ("[tr]")

 

[*] .Write ("

Tecnologia imagem/ra_servicos_seta.gif'>)

 

[*] .Write ("

" & rs("txtTecnologia") & "")

 

[*] .Write ("[/tr]")

 

[*] .Write ("[tr]")

 

[*] .Write ("

Parceria imagem/ra_servicos_seta.gif'>)

 

[*]

 

[*] If (LCase(rs("txtParceiro"))="nenhum") Then

 

[*] .Write ("

" & rs("txtParceiro") & "")

 

[*] Else

 

[*] .Write ("

 & rs("txtUrlParceiro") & "' target='_blank' title='" & rs("txtParceiro") & "'>" & rs("txtParceiro") & "")

 

[*] End If

 

[*]

 

[*] .Write ("[/tr]")

 

[*] .Write ("[tr]")

 

[*] .Write ("

Descrição imagem/ra_servicos_seta.gif'>)

 

[*] .Write ("

" & rs("txtDescricao") & "")

 

[*] .Write ("[/tr]")

 

[*] .Write ("

")

 

[*] .Write ("")

 

[*] .Write ("

")

 

[*] .Write ("

")

 

[*]

 

[*] i = 1

 

[*]

 

[*] strSQL = "SELECT * FROM tblPortfolio ORDER BY numAno DESC"

 

[*]

 

[*] Set rsPag = obj.RecordSet (1, strSQL)

 

[*]

 

[*] Do While Not rsPag.EoF

 

[*] If (CInt(NPag)=CInt(rsPag("idPortfolio"))) Then

 

[*] .Write (" & rsPag("idPortfolio") & "'>" & i & " ")

 

[*] Else

 

[*] .Write (" & rsPag("idPortfolio") & "'>" & i & " ")

 

[*] End If

 

[*] i = i + 1

 

[*] rsPag.MoveNext

 

[*] Loop

 

[*]

 

[*] rsPag.Close

 

[*] Set rsPag = Nothing

 

[*]

 

[*] .Write ("

")

 

[*] .Write ("

")

 

[*]End With

 

[*]

 

[*]rs.Close

 

[*]

 

[*]Set rs = Nothing

 

[*]Set obj = Nothing

 

[*]End Sub

 

[*]

 

http://forum.imasters.com.br/public/style_emoticons/default/joia.gif