<%
Option Explicit
dim nome, cognome, citta, prov, stato, email, commento, data

dim conn
dim Rs, Cns, Rsema, smalp, conn2, xyz
dim SQL
dim IdUtente
dim autenticato

Set conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
Set Rsema = Server.CreateObject("ADODB.Recordset")

conn.Open "database"

Dim miaMail, HTML
Set miaMail=CreateObject("CDONTS.NewMail")

nome=Request.Form("nome")
cognome=Request.Form("cognome")
citta=Request.Form("citta")
prov=Request.Form("prov")
stato=Request.Form("stato")
email=Request.Form("email")
data=Request.Form("data")

commento=Request.Form("commento")
commento= Replace(commento, "'", "&rsquo;")

Rs.open "SELECT * FROM smalpbook ", conn, 3, 3

SQL = "INSERT INTO smalpbook (nome,cognome,citta,prov,stato,email,data,commento )"

SQL = SQL&"VALUES('"&nome&"','"&cognome&"','"&citta&"',' "&prov&"','"&stato&"','"&email&"','"&data&"','"&co mmento&"')"
Conn.Execute(SQL)

Rsema.open "SELECT email FROM smalp WHERE email IS NOT NULL", conn, 3, 3

Do While Not Rsema.Eof
Response.write (Rsema("email") + ",")
Rsema.MoveNext
Loop

xyz = Rsema


HTML = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">"
HTML = HTML & "<html>"
HTML = HTML & "<head>"
HTML = HTML & "<meta http-equiv=""Content-Type"""
HTML = HTML & "HTML = HTML content=text/html; charset=iso-8859-1>"
HTML = HTML & "<title>Messaggio dal sito</title>"
HTML = HTML & "</head>"
HTML = HTML & "<body bgcolor='#eeeeee'>"
HTML = HTML & "<table bordercolorlight='#464780' bordercolordark='#464780' border='1' cellpadding='6' cellspacing='0'><tr><td bgcolor='#ffffff'><font face=verdana size=1> "
HTML = HTML & "






"
HTML = HTML & "
"
HTML = HTML & "Data: "
HTML = HTML & data
HTML = HTML & "
"
HTML = HTML & "E' stato aggiunto un commento al guestbook di SMALP 84 AUC<hr color='White' size='1'>"
HTML = HTML & HTML = HTML & "</body>"
HTML = HTML & "</html>"

miaMail.From=Request("email")

miaMail.To="mail@server.it"
miaMail.bcc = xyz
miaMail.Subject="Guestbook"
miaMail.BodyFormat=0
miaMail.Importance=2
miaMail.Body=HTML
miaMail.Send
Set miaMail=Nothing

Response.Redirect "guestbook.asp"

Rs.Close
conn.Close
set Rs = nothing
set conn = nothing
%>