<% nome=Request.Form("nome") ragionesociale=Request.Form("ragionesociale") mansione=Request.Form("mansione") partitaiva=Request.Form("partitaiva") Indirizzo=Request.Form("Indirizzo") Cap=Request.Form("Cap") Citta=Request.Form("Citta") Telefono=Request.Form("Telefono") Fax=Request.Form("Fax") EMail=Request.Form("EMail") info=Request.Form("info") registra=request.form("registra") %>
CONTATTI
 
<% If Registra = "" then %>
INSERISCI I TUOI DATI
 
*Nome e Cognome:

*Ragione Sociale:

*Mansione:

*Partita Iva:

*Indirizzo:

*C.a.p.:

*Cittā:

*Telefono:

Fax:

*E-Mail:

 
*Informazioni richieste

 
I campi con *(asterisco) sono obbligatori
<% Else If False Then Response.Write "nome=" & nome & "
" Response.Write "ragionesociale=" & ragionesociale & "
" Response.Write "mansione=" & mansione & "
" Response.Write "partitaiva=" & partitaiva & "
" Response.Write "Indirizzo=" & Indirizzo & "
" Response.Write "Cap=" & Cap & "
" Response.Write "Citta=" & Citta & "
" Response.Write "Telefono=" & Telefono & "
" Response.Write "Fax=" & Fax & "
" Response.Write "EMail=" & EMail & "
" Response.Write "info=" & Info & "
" Response.Write "registra=" & Registra & "
" ElseIF Len(CAP) <> 5 Then %> <% ElseIf (Len(partitaiva) <> 11 AND Len(partitaiva) <> 16) then %> <% ElseIf Len(partitaiva) = 11 AND (NOT CheckPIVA (partitaiva)) then %> <% ElseIf Len(partitaiva) = 16 AND (NOT CheckCF (partitaiva)) then %> <% ElseIF Not CheckEMail(EMail) Then %> <% Else Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.RemoteHost = "mail.ipsnet.it" Mailer.FromName = Nome Mailer.FromAddress = EMail Mailer.AddRecipient "Cittem","logistica@cittem.it" Mailer.AddBCC Nome,EMail Mailer.Subject = "Cittem - Richiesta informazioni" Mailer.BodyText = "Dati Relativi alla richiesta:" Mailer.BodyText = "---------------------------------------------------" Mailer.BodyText = "Richiedente: " & Nome Mailer.BodyText = "Ragione sociale: " & ragionesociale Mailer.BodyText = "Mansione: " & mansione Mailer.BodyText = "Partita Iva: " & partitaiva Mailer.BodyText = "Indirizzo: " & Indirizzo Mailer.BodyText = "Cittā: " & Citta Mailer.BodyText = "Cap: " & Cap Mailer.BodyText = "Telefono: " & Telefono Mailer.BodyText = "Fax: " & Fax Mailer.BodyText = "email: " & email Mailer.BodyText = "Informazioni richieste: " & info 'If False then If Mailer.SendMail then %>
 
L' INVIO è STATO CORRETTAMENTE EFFETUATO
 
Una conferma via e-mail del corretto invio del modulo Le perverrā all'indirizzo
 
<%=email%>
 
Nome <%=nome%>
Indirizzo <%=indirizzo%>
Ragione Sociale <%=ragionesociale%>
Mansione <%=mansione%>
Partita Iva <%=partitaiva%>
C.a.p. <%=cap%>
Cittā <%=citta%>
Telefono <%=telefono%>
Fax <%=fax%>
E-Mail <%=EMail%>
Informazioni richieste <%=info%>
<%Else%>
NON E' STATO POSSIBILE INVIARE L'E-MAIL DI RICHIESTA INFORMAZIONI.
NELLA PAGINA PRINCIPALE TROVERETE L'INDIRIZZO E-MAIL AL QUALE RICHIEDERE LE INFORMAZIONI.
<% End If End If End If %>