<%
opt=Request.QueryString("opt")
destinatario = Request.QueryString("destinatario")
IF opt="invia" THEN
tipo_mail=1 ' 1=HTML - 0=TESTO
id_utente = Request.Form ("id_utente")
id_raduno = Request.Form ("id_raduno")
raduno = Request.Form ("raduno")
nome = Request.Form ("nome")
cognome = Request.Form ("cognome")
email = Request.Form ("email")
telefono = Request.Form ("telefono")
sesso = Request.Form ("sesso")
indirizzo = Request.Form ("indirizzo")
cap = Request.Form ("cap")
citta = Request.Form ("citta")
provincia = Request.Form ("provincia")
professione = Request.Form ("professione")
s_professione=""
sql="select * from professione WHERE id_professione="&professione&""
set rs1 = conn.execute(sql)
IF not rs1.eof THEN
s_professione=rs1("tipo_professione")
END IF
rs1.close
set rs1 = nothing
n_raduni = cInt("0"&Request.Form ("n_raduni"))
s_modello=""
modello = cInt("0"&Request.Form ("modello"))
sql="select * from modelli WHERE id_modello="&modello&""
set rs1=conn.execute(sql)
IF not rs1.eof THEN
s_modello=rs1("tipo_modello")
END IF
rs1.close
set rs1 = nothing
targa = Request.Form ("targa")
anno = Request.Form ("anno")
s_colore=""
colore = Request.Form ("colore")
sql="select * from colori WHERE id_colore="&colore&""
set rs1=conn.execute(sql)
IF not rs1.eof THEN
s_colore=rs1("colore")
END IF
rs1.close
set rs1 = nothing
accompagnato = Request.Form ("accompagnato")
nome_acc = Request.Form ("nome_acc")
cognome_acc = Request.Form ("cognome_acc")
sesso_acc = Request.Form ("sesso_acc")
email_acc = Request.Form ("email_acc")
telefono_acc = Request.Form ("telefono_acc")
indirizzo_acc = Request.Form ("indirizzo_acc")
cap_acc = Request.Form ("cap_acc")
citta_acc = Request.Form ("citta_acc")
provincia_acc = Request.Form ("provincia_acc")
professione_acc = Request.Form ("professione_acc")
s_professione_acc=""
sql="select * from professione WHERE id_professione="&professione_acc&""
set rs1=conn.execute(sql)
IF not rs1.eof THEN
s_professione_acc=rs1("tipo_professione")
END IF
rs1.close
set rs1 = nothing
eta_acc = Request.Form ("eta_acc")
messaggio2 = "Ciao! " & vbcrlf
messaggio2 = messaggio2 & "Ti confermiamo che la tua preadesione è stata registrata correttamente e sarai contattato tramite posta elettronica nei prossimi giorni. " & vbcrlf
'messaggio2 = messaggio2 & "Ti confermiamo che la tua iscrizione al Raduno è avvenuta correttamente e quindi sei tra gli accreditati all'evento " & vbcrlf
'messaggio2 = messaggio2 & "Qualora per sopraggiunti impegni non dovessi riuscire a partecipare, ti preghiamo sin da ora di comunicare tempestivamente al RIM (staff@mx5.it) la tua rinuncia, in modo da lasciare posto ai Soci miatisti che ancora non sono iscritti. " & vbcrlf
messaggio2 = messaggio2 & "Un lampeggio " & vbcrlf
messaggio2 = messaggio2 & "Lo Staff del RIM
"
Conn.Execute(sql)
sql="SELECT id_utente FROM raduni_iscrizioni WHERE id_utente="&id_utente&" AND id_raduno="&id_raduno&""
Set rsr=Conn.Execute(sql)
IF rsr.EOF THEN
sql="INSERT INTO raduni_iscrizioni (id_utente,id_raduno,cognome_acc,nome_acc,indirizzo_acc,citta_acc,provincia_acc,cap_acc,cellulare_acc,email_acc,professione_acc,eta_acc,sesso_acc,data_registrazione,privacy) VALUES ("&id_utente&","&id_raduno&",'"&apici(cognome_acc)&"','"&apici(nome_acc)&"','"&apici(indirizzo_acc)&"','"&apici(citta_acc)&"','"&apici(provincia_acc)&"','"&apici(cap_acc)&"','"&apici(telefono_acc)&"','"&apici(email_acc)&"',"&professione_acc&",'"&apici(eta_acc)&"','"&sesso_acc&"',Now(),1)"
'Response.Write sql &"
"
saggiornamento = "NO"
Conn.Execute(sql)
ELSE
sql="UPDATE raduni_iscrizioni Set cognome_acc='"&apici(cognome_acc)&"',nome_acc='"&apici(nome_acc)&"',indirizzo_acc='"&apici(indirizzo_acc)&"',citta_acc='"&apici(citta_acc)&"',provincia_acc='"&apici(provincia_acc)&"',cap_acc='"&apici(cap_acc)&"',cellulare_acc='"&apici(telefono_acc)&"',email_acc='"&apici(email_acc)&"',professione_acc="&professione_acc&",eta_acc='"&apici(eta_acc)&"',sesso_acc='"&sesso_acc&"',data_registrazione=Now() WHERE id_utente="&id_utente&" AND id_raduno="&id_raduno&""
'Response.Write sql &"
"
saggiornamento = "SI"
Conn.Execute(sql)
END IF
rsr.Close
oggetto = "RIM Conferma Iscrizione - "& raduno
If Err <> 0 Then
msg="Si è verificato un errore nella registrazione.
Ripetete la procedura."
messaggio2 = msg
colore="#990000"
Else
msg="Grazie per averci inviato la tua adesione al Raduno: " & raduno
colore="#000000"
if saggiornamento = "NO" then
sQl = "SELECT count(id_utente) as totale from raduni_iscrizioni WHERE id_raduno="&id_raduno&""
Set rsr=Conn.Execute(sql)
totaleiscritti = 0
if Not rsr.Eof then
totaleiscritti = Cint("0"&rsr("totale"))
else
totaleiscritti = 0
end if
Set rsr= Nothing
sQl = "SELECT n_posti from raduni WHERE id_raduno="&id_raduno&""
Set rsr=Conn.Execute(sql)
n_posti = 0
if Not rsr.Eof then
n_posti = Cint("0"&rsr("n_posti"))
else
n_posti = 0
end if
Set rsr= Nothing
if totaleiscritti > n_posti then
msg="Siamo spiacenti, le iscrizioni sono chiuse! Sei in lista d'attesa.
"
messaggio2 = msg
end if
ELSE
msg="I dati della tua registrazione sono stati aggiornati!
<%
id_raduno=cint("0"&Request.QueryString("r"))
codice_nl=Request.QueryString("c")
'codice_nl="95286944898134600000"
sql="SELECT * FROM utenti WHERE codice_nl='"&apici(codice_nl)&"'"
Set rs=Conn.Execute(sql)
IF Len(""&codice_nl)=20 AND NOT rs.EOF THEN
id_utente=rs("id_utente")
nome=rs("nome")
cognome=rs("cognome")
sesso=rs("sesso")
citta=rs("citta")
indirizzo=rs("indirizzo")
cap=rs("cap")
provincia=rs("provincia")
cellulare=rs("pref_cell")&rs("cellulare")
email=rs("email")
professione=rs("professione")
targa=rs("targa")
modello=rs("modello")
anno=rs("anno_imm_mazda")
colore=rs("colore")
n_raduni=cInt("0"&rs("n_raduni"))
IF Len(""&rs("aggiornamento"))>5 THEN
data_aggiornamento=FormatData(rs("aggiornamento"))
ELSE
data_aggiornamento=FormatData(rs("data_iscrizione"))
END IF
sql="SELECT nome_raduno,luogo,prezzo FROM raduni WHERE id_raduno="&id_raduno&""
Set rs1=Conn.Execute(sql)
IF NOT rs1.EOF THEN
nome_raduno=rs1("nome_raduno")
luogo=rs1("luogo")
prezzo=cDbl("0"&rs1("prezzo"))
END IF
rs1.Close
set rs1 = nothing
%>
<%
ELSE
'il codice passato non è presente in archivio o sto arrivando da un'altra pagina
%>
PER POTERTI ISCRIVERE AL RADUNO DEVI PRIMA REGISTRARTI (o inserire la tua USER e PASSWORD nel sito www.mx5.it)
