<% response.write("home page
") %> <% If Request.Form("uname") = "" Then %> Iscriviti all'Associazione per la Cristallizzazione sensibile
header

Iscriviti all'Associazione per la Cristallizzazione Sensibile
Associazione per la ricerca sulla la qualità, salute e vitalità dell'ambiente, delle piante, degli animali e dell'uomo

Agli iscritti offriamo un quadro dipinto dalla natura
Visualizza i vari quadri con le nostre analisi alla pagina



E' necessario inventare una user-login di identificazione e una password
che ti serviranno per accedere al data-base


Inventa un User name - Must be between 4 and 12 characters long (using letters and numbers only).

Inventa una password - Must be between 4 and 12 characters long (using letters and numbers only).

Re-enter your password again.

Acconsento al trattamento dei dati personali Legge: 675/96
* Denotes mandatory field
Campi obbligatori


Per completare l'iscrizione

footer
<% else ' some simple error checking ' test password matches in both fields bError = false If Not Request.Form("pwd") = Request.Form("confpwd") Then %>

Error, your passwords did not match, please go back and re-enter them, making sure that the entry in both fields is the same.<% bError = true End if ' test email contains an @ sign If Not InStr(Request.Form("email"), "@") > 0 Then %>

Error, you have not entered a valid email address. Please go back and enter a valid address.<% bError = true End if ' add user data to the db If bError = false Then Set ConnObj = Server.CreateObject("ADODB.Connection") %> <% ConnObj.Open(MyConnStr) strTestID = "SELECT Username FROM reg WHERE Username = '" strTestID = strTestID & Request.Form("uname") & "';" Set rstID = ConnObj.Execute(strTestID) If rstID.BOF and rstID.EOF then strSQL = "INSERT INTO reg (username, password, email, name, familyname, town, province, street, zip, state, phone, quota, data, legge, pag) VALUES " strSQL = strSQL & "('" & Request.Form("uname") & "', " strSQL = strSQL & "'" & Request.Form("pwd") & "', " strSQL = strSQL & "'" & Request.Form("email") & "', " strSQL = strSQL & "'" & Request.Form("name") & "', " strSQL = strSQL & "'" & Request.Form("familyname") & "', " strSQL = strSQL & "'" & Request.Form("town") & "', " strSQL = strSQL & "'" & Request.Form("province") & "', " strSQL = strSQL & "'" & Request.Form("street") & "', " strSQL = strSQL & "'" & Request.Form("zip") & "', " strSQL = strSQL & "'" & Request.Form("state") & "', " strSQL = strSQL & "'" & Request.Form("phone") & "', " strSQL = strSQL & "'" & Request.Form("quota") & "', " strSQL = strSQL & "'" & Request.Form("data") & "', " strSQL = strSQL & "'" & Request.Form("legge") & "', " strSQL = strSQL & "'" & Request.Form("pag") & "');" Set rstAdd = ConnObj.Execute(strSQL) If bError = false Then strGreeting = Request.Form("uname") Session("username") = Request.Form("uname") %> Registration complete...

header

GRAZIE <% =(strGreeting) %>!
la tua registrazione è stata inviata


per completarla inviare per e-mail (info@cristallizzazionesensibile.it) o fax (0039)02700510417
la ricevuta di pagamento

Metodo di pagamento:
carta di credito : Socio Ordinario euro 15
carta di credito : Socio Sostenitore euro 30 - quota agricoltori -
Una volta effettuato il pagamento comunica i dati della tua azienda scaricando il file agri.doc e inviandolo compilato per e-mail
carta di credito : Socio Benemerito euro 50
Vaglia postale (da richiedere e compilare in posta): intestare: Maurizio Peruzzi
Località Molino Rizzo n° 1
29010 Trevozzo di Nibbiano - Val Tidone - Piacenza
Tel: 328 2043914
Bonifico Bancario: intestare : Laboratori Urania Italia snc
UNICREDIT Banca CIN=K conto corrente n°: 2280624
ABI: 2008
CAB: 01678
Visualizza la nostra ricerca
footer

<% End If Else %> User name taken
header

Sorry, your username has been taken!
Please enter a different user name!




Must be between 4 and 12 characters long (using letters and numbers only).

Must be between 4 and 12 characters long (using letters and numbers only).

Re-enter your password again.

Acconsento al trattamento dei dati personali Legge: 675/96
* Denotes a mandatory field
Campi obbligatori


To complete registration
footer
<% End If rstID.Close() ConnObj.Close() End if End if %>