Páginas " If iPageCurrent <> 1 Then Response.Write PageLink(iPageCurrent-1,"<<") End If Response.Write(" ") Dim Max,i Max=iPageCount If Max>15 then Max=15 For i=1 to Max If i<>iPageCurrent Then Response.Write PageLink(i,i) Else Response.Write(i) End If Response.Write(" ") Next If iPageCount>Max then Response.Write(" ..." & PageLink(i,i)) If iPageCurrent < iPageCount Then Response.Write PageLink(iPageCurrent+1,">>") End if End Sub If Request.QueryString("page") = "" Then iPageCurrent = 1 Else iPageCurrent = CInt(Request.QueryString("page")) End If Set DbConn = Server.CreateObject("ADODB.Connection") DbConn.Open MyDSN Set RS = Server.CreateObject("ADODB.Recordset") SSQL = "SELECT * FROM Guestbk ORDER By Ddate Desc" RS.PageSize = iPageSize RS.Open SSQL, DbConn, 3, 1, &H0001 iPageCount = RS.PageCount If iPageCurrent > iPageCount Then iPageCurrent = iPageCount If iPageCurrent < 1 Then iPageCurrent = 1 If iPageCount = 0 Then Response.Write "Não existem entradas no livro de visitas!
" Else RS.AbsolutePage = iPageCurrent End If Set UserName = RS("name") Set UserEmail = RS("email") Set UserOpinion = RS("opinion") Set UserDate = RS("dDate") %>

Tradutor    Câmbios    Conversor    Câmbios do Dia    CHAT    MAIL    Livro de visitas    Hino de Portugal    Top TerraNatal    Novidades!!! Pesquisa                     Por temas    da Terra Com.Lusófonas    Informações    Entrevistas    Reportagens    Festas e Romarias    Viagens    Destinos    Crónicas    Consultório Escrever ao longe    Frases ditas    Cidadão    Empresas    Emigrante    Comunidades    Meteorologia    Telefones Úteis    Códigos Postais XYZ   Jogos    Horóscopos      Adicionar site

Livro de Visitas [assinar] Obrigado por visitar o TerraNatal. Em baixo pode ver alguns dos comentários de outros visitantes e aproveite para registar a sua visita e deixar os seus comentários também. <% PutPage Nums = 0 Do While Nums < iPageSize And Not RS.EOF %> <%If Not UserName = "" Then Response.Write Server.HTMLEncode(UserName) Else Response.Write " " End If If Not UserEmail = "" Then Response.Write "  [" & Server.HTMLEncode(UserEmail) & "]" Else Response.Write " " End If %> <%If Not UserOpinion = "" Then Response.Write Server.HTMLEncode(UserOpinion) Else Response.Write " " End If If Not UserDate = "" Then Response.Write " " & Server.HTMLEncode(UserDate) & " " Else Response.Write " " End If %> <% RS.Movenext Num = Num + 1 Nums = Nums + 1 Loop %> <% RS.Close ' We must be good little boys and clean up our room after we play! Set RS = Nothing ' Ditto DbConn.Close ' Ditto Set DbConn = Nothing ' Ditto PutPage %>

Adicionar Site   Publicidade   Comentários   Colabore connosco   Missão   Press Release   Imprensa   Contactos   Mapa do Site   Link para o TerraNatal    Parceiros