<%@ language=VBScript%> <% '========================================================= 'Script per la visualizzazione del GuestBook 'per informazioni contattare: byluciani.com ' webmaster@byluciani.com '========================================================= Option Explicit Response.Buffer = True Dim Start Start = Timer() %> <% Dim objConn, objRS Dim SQL, PageSize, Count, Page, FirstRecNum, LastRecNum, PageCount, PageListLimit, ListCount Set objConn = GetDatabaseConn() Set objRS = Server.CreateObject("ADODB.RecordSet") SQL = "SELECT * FROM guestbook ORDER BY Data DESC" objRS.Open SQL, objConn, 1, 3 PageSize = numerofirme 'numero di record per pagina If Request.QueryString("ContatoreRecord") <> "" Then Count = Request.QueryString("ContatoreRecord") Page = Request.QueryString("PaginaCorrente") Else If Not objRS.EOF Then objRS.MoveLast Count = objRS.RecordCount Page = 1 End If End If FirstRecNum = (PageSize * Page) - PageSize + 1 LastRecNum = (PageSize * Page) If CDbl(LastRecNum) > CDbl(Count) Then LastRecNum = Count PageListLimit = 5 'max numeri di pagina da visualizzare If Count/PageSize = Int(Count/PageSize) Then PageCount = Count/PageSize Else PageCount = Int(Count/PageSize) + 1 End If If CDbl(PageCount) > CDbl(PageListLimit) Then ListCount = PageListLimit Else ListCount = PageCount End IF If Not objRS.EOF Then objRS.MoveFirst objRS.Move (Page - 1) * PageSize End If %> <% If objRS.EOF OR objRS.BOF Then %>

<%=nomeguestbook%>
Invia gli sms pronti di sbattimento.com e se vuoi inserisci i tuoi sms!
Non ci sono SMS PRESENTI IN QUESTA CATEGORIA.
Inserisci un sms	Forum	Totale Sms: <%=objRS.recordcount%>

<% Else %> Inserisci un sms Forum Totale Sms in categoria: <%=objRS.recordcount%>

Pagina <%=Page%> di <%=objRS.PageCount%>

<% Dim i, Data, Nominativo, Citta, Nazione, Email, URL, Link, Testo For i = 1 To PageSize If objRS.EOF Then Exit For Data = objRS("Data") Nominativo = objRS("Nominativo") Nominativo = Replace(Nominativo,"''","'") Citta = objRS("Citta") Nazione = objRS("Nazione") Email = objRS("Email") URL = objRS("URL") If IsEmpty(URL) or Trim(URL) = "" Then Link = "Nessuna HomePage" Else Link = "" & URL & "" End If Testo = objRS("Testo") Testo = Replace(Testo, "''", "'") Testo = Replace(Testo, "<", "<") Testo = Replace(Testo, ">", ">") Testo = Replace(Testo, VbCrLf, "
") %>

Inserito il: <%=Data%>

<%=Testo%>

<% If IsEmpty(Email) OR Trim(Email) = "" Then %> <% Else %> <% End If %>

<%=Nominativo%>

<%=Citta%> <%=Nazione%>

<%=Link%>

<% objRS.MoveNext Next %>

<% Dim AddNum, p AddNum = 0 If CDbl(Page) > 1 Then Response.Write "[ << Precedente ] " If PageCount > PageListLimit Then AddNum = Page - Int(PageListLimit / 2) If AddNum < 0 Then AddNum = 0 For p = 1 + AddNum To ListCount + AddNum If p > PageCount Then Exit For If CDbl(p) = CDbl(Page) Then Response.Write "" & p & " " Else Response.Write "" & p & " " End If Next If CDbl(Page) < CDbl(PageCount) Then Response.Write " [ Prossima >> ] " Function GetUrl(Page) GetUrl = "default.asp" 'nome della pagina corrente GetUrl = GetUrl & "?ContatoreRecord=" & Count GetUrl = GetUrl & "&PaginaCorrente=" & Page End Function %>

<% End If objRS.close Set objRS = Nothing objConn.Close Set objConn = Nothing Dim Finish, TotalTime Finish = Timer() TotalTime = Finish - Start %>

Questa pagina è stata eseguita in <%=TotalTime%> secondi