<%@ LANGUAGE="VBSCRIPT" %> <% //' on error resume next %> Publimaggioli - Concessionaria di pubblicità del Gruppo Maggioli

<% if request.form("Nome")<>"" then spedisci() response.write("") response.end end if %>

 

SPECIALE GESTIONE RIFIUTI e RICICLO
Un inserto esclusivo per promuovere la vostra azienda
a Tecnici e Consulenti ambientali del settore Pubblico e Privato


Modulo di richiesta informazioni
OFFERTA SPECIALE

Studio/Azienda

Nome e Cognome

Professione

Via N.

Città Prov. Cap.

Tel. Fax

E-mail

Commenti


INFORMATIVA EX ART. 13 D.Lgs. n. 196/2003

<% response.write("") response.end %> <% function spedisci() Dim objCDOMail Dim Testo '''''''''''''''''''''''''''''''''''''''' ' Rilevo le scelte utente '''''''''''''''''''''''''''''''''''''''' ' Se utente inserisce una posta valida ' if request.form("Email")<>"" then ' UserEmail=request.form("Email") ' else UserEmail="publimaggioli@maggioli.it" ' UserEmail="servizio.clienti@maggioli.it" ' end if '''''''''''''''''''''''''''''''''''''''' ' Creo la posta in HTML '''''''''''''''''''''''''''''''''''''''' Testo = "Publimaggioli Richiesta info" Testo= Testo & "Desidero essere contattato per offerta speciale su speciale Inserto Rifiuti e Riciclo
" Testo = Testo + "

I miei dati:" Testo = Testo + "
Nome e Cognome: " & request.form("nome") & "" Testo = Testo + "
Azienda/Società: " & request.form("azienda") & "
" Testo = Testo + "
Professione: " & request.form("professione") & "
" Testo = Testo + "Indirizzo: " & request.form("citta") & " Via: " & request.form("via") & " num. " & request.form("numero") & " - " & request.form("cap") & " (" & request.form("prov") & ")
" Testo = Testo + "Posta elettronica: " & request.form("email") & "
" Testo = Testo + "Telefono: " & request.form("tel") & "
" Testo = Testo + "Fax: " & request.form("fax") & "
" Testo = Testo + "Commenti: " & request.form("commenti") & "
" Testo = Testo + "

Browser:" & Request.ServerVariables("HTTP_USER_AGENT") Testo = Testo + "
Script generante: " & Request.ServerVariables("SCRIPT_NAME") & " versione 1.4 (1.2 del 29/08/2002) (1.3 del 24/10/2003) 12/10/2004
" '''''''''''''''''''''''''''''''''''''''' ' Spedisco la posta agli interessati... ' un ex: objCDOMail.To = "cnatale@maggioli.it" '''''''''''''''''''''''''''''''''''''''' Set objCDOMail = Server.CreateObject("CDONTS.NewMail") objCDOMail.From = UserEmail objCDOMail.To = "rtaino@maggioli.it" objCDOMail.Cc = "publimaggioli@maggioli.it" objCDOMail.Subject = "Richiesta Informazioni SPECIALE INSERTO RIFIUTI E RICICLO" objCDOMail.importance=2 objCDOMail.BodyFormat=0 objCDOMail.MailFormat=0 objCDOMail.Body = Testo objCDOMail.Send Set objCDOMail = Nothing if err.description<>"" then response.write("Attenzione! Si è verificato questo errore: " & err.description & ""
"Contatta il webmaster!") response.write("") response.end end if %>

 

 

Grazie <%=request.form("nome")%> per averci inviato la sua richiesta,
la contatteremo al più presto!

X chiudi

 

<% end function %>