<% response.buffer=true %> Registrazione
<% Function togliapici(Str) togliapici=Replace (Str,"''","'") End Function registra = Request.QueryString("registra") if registra="ok" then nome = trim(Apici(Request.Form("nome"))) cognome = trim(Apici(Request.Form("cognome"))) nick = trim(Apici(Request.Form("nick"))) presso = trim(Apici(Request.Form("presso"))) indirizzo=trim(Apici(request.form("indirizzo"))) citta=trim(Apici(request.form("citta"))) prov=trim(Apici(request.form("prov"))) cap=trim(Apici(request.form("cap"))) nazione = trim(Apici(request.form("nazione"))) pref_int=trim(Request.Form("pref_int")) pref_loc =trim(Request.Form("pref_loc")) tel = trim(Request.Form("tel")) pref_cell = trim(Request.Form("pref_cell")) cell = trim(Request.Form("cell")) cf = trim(Request.Form("cf")) piva = trim(Request.Form("piva")) fax=trim(request.form("fax")) email= apici(lcase(trim(Request.Form("email")))) email2= apici(lcase(trim(Request.Form("email2")))) professione = trim(apici(Request.Form("professione"))) sesso = trim(Request.Form("sesso")) luogo_nascita = Apici(Request.Form("luogo_nascita")) selyear = Request.Form("selyear") selmonth = Request.Form("selmonth") selday = Request.Form("selday") data_nascita = selday&"-"&selmonth&"-"&selyear telaio = apici(request.form("telaio")) targa = apici(request.form("targa")) anno = cint("0"&Request.Form("anno")) cilindrata = Request.Form("cilindrata") modello_auto = trim(Request.Form("modello_auto")) serie_speciale = trim(Request.Form("serie_speciale")) colore_maxda = trim(Request.Form("colore_maxda")) hard_top = trim(Request.Form("hard_top")) if hard_top = "" then hard_top = 0 end if colore_hard = trim(Request.Form("colore_hard")) if colore_hard = "" then colore_hard = 0 end if mx5_nuova = trim(Request.Form("mx5_nuova")) if mx5_nuova = "" then mx5_nuova = 0 end if concessionaria = apici(trim(Request.Form("concessionaria"))) prov_conc = trim(Request.Form("prov_conc")) privato = apici(trim(Request.Form("privato"))) altre_auto = trim(Request.Form("altre_auto")) if altre_auto=2 then altre_auto=0 end if marca_auto2 = trim(Request.Form("marca_auto2")) if marca_auto2="" then marca_auto2=0 end if modello_auto2= apici(trim(Request.Form("modello_auto2"))) imm_auto2 = cint("0"&Request.Form("imm_auto2")) marca_auto3 = trim(Request.Form("marca_auto3")) if marca_auto3="" then marca_auto3=0 end if modello_auto3 = apici(trim(Request.Form("modello_auto3"))) imm_auto3 = cint("0"&Request.Form("imm_auto3")) privacy = trim(Request.Form("privacy")) if privacy = "" then privacy = 0 end if 'l'id utente č un autoincrementante ' response.write "serie_speciale"& serie_speciale&"

" ' response.write "colore_maxda" & colore_maxda&"

" ' response.write "hard_top" & hard_top&"

" ' response.write "colore_hard" &colore_hard&"

" ' response.write "mx5_nuova" &mx5_nuova&"

" ' response.write " imm auto due "&imm_auto2&"

" ' response.write " imm auto 3 "&imm_auto3&"

" sql="select max(card) as massimo from utenti where card <> 'S.O.' AND card <> 'STAFF'" set rs1=conn.execute(sql) ultima_card = CLng(rs1("massimo")) rs1.close nuova = "0" & ultima_card + 1 scad = dateAdd("yyyy",1,date()) sql="SELECT nick FROM utenti WHERE nick='"&nick&"'" Set rsN=conn.execute(sql) IF NOT rsN.EOF THEN 'Esiste giā un Nick uguale Response.Write "" & vbcrlf Response.End() END IF rsN.Close codice_nl=codice(99) sql="insert into utenti (card,id_titolo,cognome,nome,nick,presso,indirizzo,citta,provincia,cap,nazione,pref_loc,telefono,pref_cell,cellulare,fax,email,email2,cod_fiscale,piva,professione,ntelaio,targa,anno_imm_mazda,cilindrata,modello,serie_speciale,colore,hard_top,colore_hard,mx5_nuova,sesso,data_iscrizione,luogo_nascita,data_nascita,privacy,pref_int,concessionaria,prov_concessionaria,privato,altre_auto,marca_altra2,modello_altra2,anno_imm2,marca_altra3,modello_altra3,anno_imm3,n_raduni,note,stato_reg,scadenza,codice_nl)" sql = sql & " values('"&nuova&"',0,'"&cognome&"','"&nome&"','"&nick&"','"&presso&"','"&indirizzo&"','"&citta&"','"&prov&"','"&cap&"'," sql = sql & "'"&nazione&"','"&pref_loc&"','"&tel&"','"&pref_cell&"','"&cell&"','"&fax&"','"&email&"','"&email2&"','"&cf&"','"&piva&"','"&professione&"'," sql = sql & "'"&telaio&"','"&targa&"',"&anno&","&cilindrata&","&modello_auto&","&serie_speciale&","&colore_maxda&"," sql = sql & ""& hard_top &"," sql = sql & ""& colore_hard &"," sql = sql & ""&mx5_nuova&",'"&sesso&"'," sql = sql & "'"&sistemadata(date())&"','"&luogo_nascita&"','"&sistemadata(data_nascita)&"',"&privacy&",'"&pref_int&"'," sql = sql & "'"&concessionaria&"','"&prov_conc&"','"&privato&"',"&altre_auto&","&marca_auto2&",'"&apici(modello_auto2)&"',"&imm_auto2&","&marca_auto3&",'"&modello_auto3&"',"&imm_auto3&",0,'-',1,'"&sistemadata(scad)&"','"&codice_nl&"')" 'response.write sql conn.execute(sql) sql="select max(id_utente) as massimo from utenti" set rs1=conn.execute(sql) if not rs1.eof then max = rs1("massimo") end if rs1.close user="" password="" Randomize nRnd = Round(10000 * Rnd(5)) call genera("mx5"&nRnd,cognome) sql="INSERT INTO autorizzo (id_utente,user,pass,tipo,autorizzato) VALUES ("&Max&",'"&nuova&"','"&password&"','u',1)" Conn.Execute(sql) sql = "insert into newsletter (id_utente,email,nome,cognome,proprietario,iscritto)values("&Max&",'"&email&"','"&nome&"','"&cognome&"','1',1)" conn.execute(sql) link= "Nega autorizzazione
" testo="" & vbcrlf testo=testo&"" & vbcrlf testo=testo&"" & vbcrlf testo=testo&"" & vbcrlf testo=testo&"" & vbcrlf testo=testo&"" & vbcrlf testo=testo&"" & vbcrlf testo=testo&"" & vbcrlf testo=testo&"" & vbcrlf testo=testo&"" & vbcrlf testo=testo&"" & vbcrlf testo=testo&"" & vbcrlf testo=testo&"" & vbcrlf testo=testo&"" & vbcrlf testo=testo&"" & vbcrlf testo=testo&"" & vbcrlf testo=testo&"" & vbcrlf testo=testo&"" & vbcrlf testo=testo&"" & vbcrlf testo=testo&"" & vbcrlf testo=testo&"" & vbcrlf testo=testo&"
NUOVA REGISTRAZIONE
Cognome: "& cognome &"
Nome: "& nome &"
Nick: "& nick &"
Citta': "& citta &"
Idirizzo: "& indirizzo &"
Provincia: "& prov &"
Cap: "& cap &"
User: "& nuova &"
Pwd: "& password &"
Email: "& email &"
"&link&"
Bloccando l'utente esso verrā cancellato dal database
" & vbcrlf testo=testo&"" & vbcrlf oggetto="AMMINISTRAZIONE Mazda MX-5 - Nuovo socio inserito" 'InviaMail2(a, nome_a, da, nome_da, oggetto, testo) 'call InviaMail2("mx5.registrazione@pdir.it", "MX5", email, email, oggetto, testo) 'invia_mail_smart_new(email_destinatario, nome_destinatario, oggetto, email_mittente, nome_mittente, testo) call invia_mail_smart_new("mx5.registrazione@pdir.it", "MX5", oggetto, email, email, testo) ' Set oMail = Server.CreateObject("Persits.MailSender") ' oMail.Host = "www.mx5.it" ' oMail.From = email ' oMail.Subject = "AMMINISTRAZIONE Mazda MX-5 - Nuovo socio inserito" ' oMail.Body = testo ' oMail.IsHTML = true ' oMail.addAddress "mx5.registrazione@pdir.it" ' 'oMail.addAddress "r.asunis@ne-ws.it" ' oMail.Send ' set oMail= nothing '****************** mail al socio ***************************** 'testo2="" & vbcrlf testo2="" & vbcrlf testo2=testo2&"" & vbcrlf testo2=testo2&"" & vbcrlf testo2=testo2&"" & vbcrlf testo2=testo2&"" & vbcrlf testo2=testo2&"" & vbcrlf testo2=testo2&"" & vbcrlf testo2=testo2&"" & vbcrlf testo2=testo2&"" & vbcrlf testo2=testo2&"" & vbcrlf testo2=testo2&"" & vbcrlf testo2=testo2&"" & vbcrlf testo2=testo2&"" & vbcrlf testo2=testo2&"" & vbcrlf ' testo2=testo2&"" & vbcrlf ' testo2=testo2&"" & vbcrlf ' testo2=testo2&"" & vbcrlf ' ' testo2=testo2&"" & vbcrlf ' testo2=testo2&"" & vbcrlf ' testo2=testo2&"" & vbcrlf ' testo2=testo2&"" & vbcrlf ' testo2=testo2&"" & vbcrlf ' testo2=testo2&"" & vbcrlf ' testo2=testo2&"" & vbcrlf ' testo2=testo2&"" & vbcrlf testo2=testo2&"" & vbcrlf testo2=testo2&"" & vbcrlf testo2=testo2&"" & vbcrlf testo2=testo2&"" & vbcrlf testo2=testo2&"" & vbcrlf testo2=testo2&"" & vbcrlf testo2=testo2&"" & vbcrlf testo2=testo2&"
" & vbcrlf testo2=testo2&"" & vbcrlf testo2=testo2&"" & vbcrlf testo2=testo2&"" & vbcrlf testo2=testo2&"
" & vbcrlf testo2=testo2&"
" & vbcrlf ' testo2=testo2&"
" & vbcrlf ' testo2=testo2&"" & vbcrlf ' testo2=testo2&"" & vbcrlf ' testo2=testo2&"
" & vbcrlf ' testo2=testo2&"
" & vbcrlf testo2=testo2&"" & vbcrlf testo2=testo2&"

"& cognome &" "& nome &"

" & vbcrlf testo2=testo2&"

La tua registrazione è andata a buon fine!

" & vbcrlf testo2=testo2&"

Di" & vbcrlf testo2=testo2&"seguito ti ricordiamo i codici di accesso per gestire la tua scheda e" & vbcrlf testo2=testo2&"partecipare attivamente alla vita della Community del Registro Italiano" & vbcrlf testo2=testo2&"Mazda MX-5, conservali!

" & vbcrlf testo2=testo2&"
" & vbcrlf testo2=testo2&"User: "& nuova &" " & vbcrlf testo2=testo2&"
" & vbcrlf testo2=testo2&"Password: "& password &" " & vbcrlf testo2=testo2&"
" & vbcrlf testo2=testo2&" " & vbcrlf testo2=testo2&"
" & vbcrlf testo2=testo2&"Buona navigazione!
" & vbcrlf testo2=testo2&"Un lampeggio dal RIM ;-) " & vbcrlf testo2=testo2&"

" & vbcrlf testo2=testo2&"
" & vbcrlf testo2=testo2&"
" & vbcrlf testo2=testo2&"" & vbcrlf testo2=testo2&"" & vbcrlf oggetto="Mazda MX-5 - Registrazione confermata" 'InviaMail2(a, nome_a, da, nome_da, oggetto, testo) 'call InviaMail2(email, "", "mx5@mx5.it", "", oggetto, testo2) 'invia_mail_smart_new(email_destinatario, nome_destinatario, oggetto, email_mittente, nome_mittente, testo) call invia_mail_smart_new(email, nome&" "&cognome, oggetto, "mx5@mx5.it", "MX5", testo2) ' Set oMail = Server.CreateObject("Persits.MailSender") ' oMail.Host = "www.mx5.it" ' oMail.From = "mx5@mx5.it" ' oMail.Subject = "Mazda MX-5 - Registrazione confermata" ' oMail.Body = testo2 ' oMail.IsHTML = true ' oMail.addAddress email ' oMail.Send ' set oMail= nothing Response.Write "
" & vbcrlf Response.Write "
REGISTRAZIONE EFFETTUATA.

Riceverai via mail i codici di accesso all'area riservata" & vbcrlf Response.Write "

Vai all'autenticazione
" & vbcrlf 'response.redirect "registrazione_si.asp" Else %>
REGISTRAZIONE
<%=mex%>
Nome *
Cognome*:
Nickname*:
Presso:
Indirizzo*:
Città*:
Provincia*:
Cap*:
Nazione:
Pref Internazionale
Telefono*:
Cellulare:
Fax:
E-mail*:
E-mail 2 :
Professione*:
Codice fiscale:
P iva:
Sesso*:
Luogo nascita*:
Data di nascita*:
   
N° matricola telaio*:
Targa*:
anno
immatricolazione *:
Cilindrata*:
Modello auto*:
Serie speciale
Colore*:
Possiedi un hard top:
Colore hard top:
Mx 5 nuova?
Concessionaria:
Provincia concessionaria:
Da privato: (nome/cognome)
Possiedi altre auto?
Marca 2° auto:
Modello 2° auto
Anno immatricolazione
Marca 3° auto
Modello 3° auto
Anno immatricolazione
 
* CAMPI OBBLIGATORI
Indietro
<% END IF conn.close set conn=nothing %>