% response.write("home page
") %>
<% If Request.Form("uname") = "" Then %>

Agli iscritti offriamo un quadro dipinto dalla natura
Visualizza i vari quadri con le nostre analisi alla pagina
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") %>

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 |
