SKOL.it GuestBook

Inserisci un nuovo messaggio

 

<home>

 

<% Dim objConn Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open"Provider = Microsoft.Jet.OLEDB.4.0; Data Source =" & Server.MapPath("/mdb-database/book.mdb") Set objRs = Server.CreateObject("ADODB.Recordset") objRs.Open "SELECT * from MESSAGGI order by ID desc", objConn, 3, 3 Dim num num = 30 Dim i if (Request.QueryString("offset") <> "") then if (isNumeric(Request.QueryString("offset")) = True) then i = CInt(Request.QueryString("offset")) Else i = 0 End If Else i = 0 End If Dim k k = 0 if NOT objRs.RecordCount = 0 then Do While (k < i and Not objRs.EOF) objRs.MoveNext k=k+1 Loop Do While ((Not objRs.EOF) And (k < (i + num))) k=k+1 %>

<% Response.Write objRs("Nick") & " - " & objRs("Date") & " ore " & objRs("Time") & "
"%>
<% Response.Write objRs("Text") & "


"%>

<% objRs.MoveNext Loop if NOT objRs.RecordCount <= num then Dim j for j=0 to (objRs.RecordCount / num) STEP 1 %> <%=j+1%> <% NEXT End If End If objRs.Close Set objRs = Nothing objConn.Close Set objConn = Nothing %>