<%@LANGUAGE="VBSCRIPT"%>
<%
Dim adoCon
Dim strCon
Dim strSQL
Dim rsconfiguration
' verifica notifica email
' verify if the notify via email to the administrator is activated
Dim blnEmail
' numero di messaggi per pagina
' number of messages per page
Dim intRecordsPerPage
' indirizzo email amministratore
' administrator email address
Dim emailamministratore
Dim Uguestname ' titolo delle pagine che ospitano Uguestbook
' numero massimo di caratteri ammesso per un nuovo messaggio
' max number of characters allowed for each message
Dim maxchar
' numero di pagine da visualizzare i blocco
' number of pages per block
Dim PagesPerBlock
' lingua in cui visualizzare il guestbook
' language chosen
Dim Uguestlanguage
' percorso virtuale del database
' virtual database path
Dim strPath
' Componente email
' Email Component
Dim strEmailComponent
' SMTP Mail Server
Dim strSmtpServer
'#######################################
' INIZIO MODIFICA
' CHANGE THESE LINES
'#######################################
strPath = Server.MapPath("mdb-database/guestbook.mdb")
PagesPerBlock = 10
'#######################################
' FINE MODIFICA
' END OF CHANGE
'#######################################
'apertura connessione al db
'open db connection
Set adoCon = Server.CreateObject("ADODB.Connection")
strCon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & strPath
adoCon.Open strCon
Set rsconfiguration = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT config.* FROM config;"
rsconfiguration.CursorType = 3
rsconfiguration.Open strSQL, adoCon
If NOT rsconfiguration.EOF Then
Uguestname = rsconfiguration("guestname")
emailamministratore = rsconfiguration("email_address")
strEmailComponent = rsconfiguration("email_component")
strSmtpServer = rsconfiguration("smtp_server")
blnEmail = CBool(rsconfiguration("email_notify"))
intRecordsPerPage = CInt(rsconfiguration("n_record"))
maxchar = rsconfiguration("maxchar")
Uguestlanguage = rsconfiguration("language")
End if
rsconfiguration.Close
Set rsconfiguration = Nothing
Select Case Uguestlanguage
Case "italian"
%>
[an error occurred while processing this directive]
<%
Case "english"
%>
[an error occurred while processing this directive]
<%
'Case Else
End Select
%>
<%
Dim msg_id
Dim msg_name
Dim msg_email
Dim msg_city
Dim msg_country
Dim msg_homepage
Dim msg_icq
Dim message
Dim msg_date
Dim strMode
strMode = "new"
%>
<% = Uguestname %>
Home
