Salve,
ho trovato un guestbook molto carino in ASP, unico neo è che è tutto spostato a sinistra e non riesco a centrarlo. Non sono un "mostro" in ASP e Html , ma di solito queste cosette le risolvo in 2 secondi.
Va a capire !!!

Vi posto il codice della pagina index.asp che ritengo la responsabile.

codice:
<%@LANGUAGE="VBSCRIPT"%>

<%
Dim msg_id
Dim msg_name
Dim msg_oggetto
Dim msg_email
Dim msg_city
Dim msg_country
Dim msg_homepage
Dim msg_icq
Dim message
Dim msg_date
Dim strMode
Dim rsguest
Dim vpage 
Dim page 
Dim Block 
Dim Blocks 
Dim i 
Dim totale
Dim maxpages 
Dim PagStart
Dim PagStop
Dim RemainingRecords
Dim msg
Block = Request.querystring("Block")
page = Request.querystring("page")

If Block="" Then Block=1 
If page="" Then page=1

strMode = "new"
%>
<html>
<head>
<title><% = Uguestname %></title>

<LINK href="include/styles.css" rel=stylesheet>
</head>

<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="600" align="center" valign="top">
	
	</td>

  </tr>
</table>

<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="600" align="center" valign="top">
<%
Set rsguest = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT message.* FROM message ORDER BY msg_id DESC;"
msg = "<div align center>

" & strLangErrorMessageNomessage1 & "</div>"

rsguest.Open strSQL, adoCon, 1, 3 
rsguest.PageSize = intRecordsPerPage
	
If NOT rsguest.EOF Then rsguest.AbsolutePage = page

If rsguest.EOF Then
	Response.Write msg
Else	
	
	totale = rsguest.RecordCount	
	
	For u=1 to intRecordsPerPage
	
	  If rsguest.EOF Then Exit For
            msg_name = rsguest("Name")
            msg_email= rsguest("Email")
			msg_city = rsguest("City")
			msg_country = rsguest("Country")
            msg_homepage= rsguest("Homepage")
			msg_icq =rsguest("Icq")
            message= rsguest("Message")
            msg_date =rsguest("Date")
			msg_oggetto =rsguest("Oggetto")
			
%>
<table width="82%" border="0" align="center" cellpadding="2" cellspacing="2" class="tablemenu">
      <tr bgcolor="#FFFF66"> 
        <td colspan="2" align="right"> <div align="left">[img]images/author.gif[/img] 
             
            <% = msg_name %>
            </div>
          </td>
      </tr>
      <tr> 
        <td height="23" colspan="2"></td>
      </tr>
      <tr> 
        <td colspan="2" align="justify"><% = message %></td>
      </tr>
      <tr> 
        <td colspan="2"></td>
      </tr>
      <tr> 
        <td colspan="2"><div class="hrblue">[img]images/spacer.gif[/img]</div></td>
      </tr>
      <tr> 
        <td width="49%" align="right" valign="top"> <% = msg_oggetto %>  
          <% If msg_city <>"" Or msg_country <> "" Then response.write "|[img]images/author_from.gif[/img]"%>
           <% If msg_city <>"" then response.write msg_city & ""
	     If msg_country <>"" then response.write "" & msg_country & ""%> <% If msg_homepage <>"" Then response.write "|[img]images/author_homepage.gif[/img]"%> <% If msg_icq <>"" Then response.write "|[img][/img]"%>  </td>
        <td width="51%" align="right" valign="top"><%=formatDateTIME( msg_date, vbLongDate )%> 
          <% = strLangGlobAt %>
          <%=formatDateTIME( msg_date, vbShortTime )%> </td>
      </tr>
    </table>
				

                <%
   rsguest.movenext
	Next
%>




<%
'paginazione
Response.Write "<table width=""90%""  align=""center"" border=""0"" cellspacing=""0"" cellpadding=""0"" height=""20""><tr><td align=""center"" width=""30%"">"
maxpages = int(totale / intRecordsPerPage)
If (totale mod intRecordsPerPage) <> 0 Then 
   maxpages = maxpages + 1 
End If 

Blocks=0
Blocks = int(maxpages / PagesPerBlock)
If (maxpages mod PagesPerBlock) <> 0 Then 
	Blocks = Blocks + 1 
End If 

Response.Write "" & strLangGlobPage & " " &  page &  " " & strLangGlobOf & " " & maxpages & "</td>"
Response.Write "<td align=""center"" width=""70%"">"

PagStop=Block*PagesPerBlock
PagStart=(PagStop-PagesPerBlock)+1

i=0
If maxpages>1 Then 
	For vpage=PagStart to PagStop
        i=i+1 
        If Block=1 Then i=0    
        
        If i=1 And Block>1 Then 
           Response.Write "<A href='" & request.servervariables("SCRIPT_NAME") & "?Block=" & _
           (Block-1)& "&page=" & vpage-1 & "' title='" & strLangNavAltPagePrev & "'>" & _
           "[img]images/frecciasx.gif[/img][img]images/frecciasx.gif[/img]</A>"
        End If
        
        RemainingRecords = totale-(vpage*intRecordsPerPage)  
        If RemainingRecords > 0 Then 
		   If vpage=CInt(page) Then
           Response.Write"" & vpage & " "
		   Else
           Response.Write "<A href='" & request.servervariables("SCRIPT_NAME") & "?Block=" & Block & _
           "&page=" & vpage & "'>" & vpage & "</A> "
		   End If
        Else 
		   If vpage=CInt(page) Then
           Response.Write"" & vpage & " "
		   Else
           Response.Write "<A href='" & request.servervariables("SCRIPT_NAME") & "?Block=" & Block & _
           "&page=" & vpage & "'>" & vpage & "</A> "
		   End If
           Exit For
        End If
        
        If vpage=PagStop And Blocks>1 and int(Block-1)<int(Blocks) Then 
           Response.Write "<A href='" & request.servervariables("SCRIPT_NAME") & "?Block=" & (Block+1) & _
		   "&page=" & vpage+1 &  "' title='" & strLangNavAltPageNext & "'>" & _ 
		   "[img]images/freccia.gif[/img][img]images/freccia.gif[/img]</A>"
        End If
	Next
End If

Response.Write "</td></tr></table>"
%>
<% End If %>



<% 
rsguest.Close
Set rsguest = Nothing
Set strCon = Nothing
Set adoCon = Nothing
%>