codice:
<%


op=Request("op")

nome = Request( "nome" )
cognome= Request.Form( "cognome" )
via =  Request.Form( "via")
telefono= Request.Form("telefono")
email=Request.Form("email")
citta= Request.Form("citta")
provincia= Request.Form("provincia")
many_money= Request.Form("many_money")
dati_personali=Request.Form("dati_personali")


'---------------------------------------------------
'	Dichiara le Variabili Globali
'---------------------------------------------------

Dim strAsgSQL			' Stringa SQL di esecuzione
Dim objAsgConn			' Oggetto Connessione
Dim strAsgConn			' Stringa di connessione al db
Dim objAsgRs
Set objAsgConn = Server.CreateObject("ADODB.Connection")

' Definisci il recordset
set objAsgRs = Server.CreateObject("ADODB.Recordset")

strAsgMapPath = Server.MapPath("mdb-database/registrazione.mdb")

strAsgConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & strAsgMapPath
'---------------------------------------------------
'	Apri connessione al Database
'---------------------------------------------------

objAsgConn.Open strAsgConn

'### Copyright 2005 - Oreglia Luisa (luisa227@katamail.com) / Il codice segunte non può essere rimosso o modificato senza il consenso dell'autore ###
pwd= "pw" &left(nome, 2) & right(cognome, 2) & left(citta,2)


if op="registrazione" then
strAsgSQL = "INSERT INTO utenti(nome, cognome, via, telefono, email, citta, provincia, many_money, dati_personali,pwd) VALUES('"&nome & "', '"& cognome & "','" & via & "', '" &telefono&"', '"&email&"', '"&citta&"','"&provincia&"','"&many_money&"','"&dati_personali&"','"&pwd&"')"

objAsgConn.Execute strAsgSQL
response.write "registrazione avvenuta: riceverai la mail con i dati per accedere al sito..."
Dim iMsg, iConf, Flds

'Crea l'oggetto email 
Set iMsg = CreateObject("CDO.Message")
'Crea l'oggetto configurazione 
Set iConf = CreateObject("CDO.Configuration")
'Impostazione delle configurazioni per l'invio remoto
Set Flds = iConf.Fields
'Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True ** qui devo mettere il mio url ? 

'Spedizione: mittente, destinatario, oggetto, messaggio
if many_money="ok" then
messaggio = "Salve " & cognome & "" & nome & ".Grazie per esserti iscritto al sito. 

<font size=2>I dati per accedere al sito sono i seguenti:</font>

Nome: " & nome &"
Cognome:" &cognome &"
Password:" & pwd &"
Lei ha aderito a Many Money"
else
messaggio =  "Salve " & cognome & "" & nome & ".Grazie per esserti iscritto al sito. 

<font size=2>I dati per accedere al sito sono i seguenti:
Nome: " & nome &"
Cognome:" &cognome &"
Password:" & pwd &"
Vi ricordiamo che non potrete accedere ad alcune sezioni del sito perchè non siete iscritti a Many Money"
end if
With iMsg

'Assegnazione delle configurazioni
Set .Configuration = iConf

.From = "luisa227@katamail.com"
.To = email
.Subject = "Registrazione al sito Bar dello Sport"

'Formato HTML
.HTMLBody = messaggio
'Formato testo (scegliere)
'.TextBody = messaggio

'Invio di una pagina web
'.CreateMHTMLBody "http://www.novacomitalia.com/home/"

'Invio con allegato
'.AddAttachment server.mappath("/public/test.txt")

'Invia l'email 
.Send() 

end with

set Flds = Nothing
set iConf = Nothing
set iMsg = Nothing
'seconda mail
Dim iMsg, iConf, Flds

'Crea l'oggetto email 
Set iMsg = CreateObject("CDO.Message")
'Crea l'oggetto configurazione 
Set iConf = CreateObject("CDO.Configuration")
'Impostazione delle configurazioni per l'invio remoto
Set Flds = iConf.Fields
'Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True ** qui devo mettere il mio url ? 

'Spedizione: mittente, destinatario, oggetto, messaggio

messaggio =  "L'utente" & cognome & "[/b] " & nome & ".si è iscritto al sito. 

<font size=2>I suoi dati sono i seguenti:</font>

Nome: " & nome &"
Cognome:" &cognome &"
Password:" & pwd &"
"

With iMsg

'Assegnazione delle configurazioni
Set .Configuration = iConf

.From = "luisa227@katamail.com"
.To = "luisa227@katamail.com"
.Subject = "Nuovo registrato!"

'Formato HTML
.HTMLBody = messaggio
'Formato testo (scegliere)
'.TextBody = messaggio

'Invio di una pagina web
'.CreateMHTMLBody "http://www.novacomitalia.com/home/"

'Invio con allegato
'.AddAttachment server.mappath("/public/test.txt")

'Invia l'email 
.Send() 

end with

set Flds = Nothing
set iConf = Nothing
set iMsg = Nothing

'Set email = Server.CreateObject("CDONTS.NewMail")

'email.From = "contatti@artgallery75.com" 
'email.To= email '"luisa227@katamail.com"       
'email.Subject =  "Registrazione al sito Bar dello Sport"
'email.BodyFormat= 0
'email.MailFormat = 0
'if many_money="ok" then
'email.Body = "Salve " & cognome & "" & nome & ".Grazie per esserti iscritto al sito. 

<font size=2>I dati per accedere al sito sono i seguenti:</font>

Nome: " & nome &"
Cognome:" &cognome &"
Password:" & pwd &"
Lei ha aderito a Many Money"

'else 
'email.Body = "Salve " & cognome & "" & nome & ".Grazie per esserti iscritto al sito. 

<font size=2>I dati per accedere al sito sono i seguenti:
Nome: " & nome &"
Cognome:" &cognome &"
Password:" & pwd &"
Vi ricordiamo che non potrete accedere ad alcune sezioni del sito perchè non siete iscritti a Many Money"


'END IF

'email.Send 

'Set email = nothing 

'Set email = Server.CreateObject("CDONTS.NewMail")

'email.From = "luisa227@katamail.com" ' qui metti la tua mail 
'email.To="luisa227@katamail.com"       ' qui metti la tua mail 
'email.Subject =  "Nuovo utente registrato"
'email.BodyFormat= 0
'email.MailFormat = 0

'email.Body = "L'utente" & cognome & "[/b] " & nome & ".si è iscritto al sito. 

<font size=2>I suoi dati sono i seguenti:</font>

Nome: " & nome &"
Cognome:" &cognome &"
Password:" & pwd &"
"


'email.Send 

'Set email = nothing 
'end if
%>
uffa, mi dice errore del server e non capisco come mai!