<% section = "metrologia" pag = "edu" lang = Request.QueryString("lang") If Request.QueryString("lang")="" Then lang = "ita" If lang = "eng" Then title = "Educational" %> <% Else title = "Educational"%> <% End if function MakeContent() %>

<%= s001title %>

<% 'preferenze nomeFile = "giftforyou.pdf" indiFrom = "educational@tek-up.com" indiTo = "simona@tek-up.com, pamela@tek-up.com" strMailServer = "mail.sincretech.it" 'qui il mail server 'raccolgo i dati dalla form titolo = request.form("titolo") nome = request.form("nome") cognome = request.form("cognome") ruolo = request.form("ruolo") istituto = request.form("istituto") indirizzo = request.form("indirizzo") cap = request.form("cap") comune = request.form("comune") provincia = request.form("provincia") nazione = request.form("nazione") mail1 = request.form("mail1") mail2 = request.form("mail2") categoria = request.form("categoria") generalpurpose = request.form("generalpurpose") telecom = request.form("telecom") emc = request.form("emc") audiovisivi = request.form("audiovisivi") altriprodotti = request.form("altriprodotti") tarature = request.form("tarature") riparazioni = request.form("riparazioni") marcaturace = request.form("marcaturace") monitoraggiocem = request.form("monitoraggiocem") altriservizi = request.form("altriservizi") possiede = request.form("possiede") ' preparo mail all'utente messaggio = s002gent & titolo & " " & nome & " " & cognome & ", " & vbCRLF & vbCRLF & s003thx _ & vbCRLF & s004oggi _ & vbCRLF & s005promo _ & vbCRLF & vbCRLF & s006all _ & vbCRLF & vbCRLF & s007inf _ & vbCRLF & s008esso _ & vbCRLF & "http://www.tek-up.com/educational/riparazioni_" & lang & ".pdf" _ & vbCRLF & s009invit _ & vbCRLF & vbCRLF & s010saluti _ & vbCRLF & "Simona Venturi" _ & vbCRLF & "Staff Educational" _ & vbCRLF & s011comm _ & vbCRLF & vbCRLF & "TEK-UP S.p.A." _ & vbCRLF & "Via Del Lavoro, 30/12" _ & vbCRLF & "40033, Casalecchio di Reno" _ & vbCRLF & "Bologna" _ & vbCRLF & "Phone +39 051 576675" _ & vbCRLF & "Fax +39 051 578536" _ & vbCRLF & "Web site http://www.tek-up.com" & vbCRLF & vbCRLF & s021privacy _ Set Mailer = Server.CreateObject("CDONTS.NewMail") Mailer.From = indiFrom Mailer.To = mail1 Mailer.Subject = "TEK-UP Educational" Mailer.Body = messaggio Mailer.AttachFile server.mappath(nomeFile) Mailer.Send Set Mailer = Nothing %> <%= s012iscr %>

<%= s013benv %>

<%= s014txt %>

Claudio Zecchini – <%= s015cprod %> Simona Venturi – <%= s016cserv %> <%= s017ult %> Simona Venturi <%= s018num %> 051 576675 <%= s019mail %> e-mail. <% ' preparo mail a TekUp messaggio2 = "Nome e cognome: " & titolo & " " & nome & " " & cognome & vbCRLF & "Ruolo e Istituto: " _ & ruolo & " - " & istituto & vbCRLF & vbCRLF & "Indirizzo: " & indirizzo & vbCRLF & cap _ & comune & vbCRLF & vbCRLF & "E-mail istituto: " & mail1 & vbCRLF & "E-mail personale: " _ & mail2 & vbCRLF & vbCRLF & "Categoria: " & categoria & vbCRLF & "Interessato a Prodotti: " _ & generalpurpose & " " & telecom & " " & emc & " " & audiovisivi & " " & altriprodotti _ & vbCRLF & "Interessato a Servizi: " _ & tarature & " " & riparazioni & " " & marcaturace & " " & monitoraggiocem & " " & altriservizi _ & vbCRLF & "Possiede: " & possiede & vbCRLF & vbCRLF Set Mailer = Server.CreateObject("CDONTS.NewMail") Mailer.From = indiFrom Mailer.To = indiTo Mailer.Subject = "Conferma iscrizione - " & istituto Mailer.Body = messaggio2 Mailer.Send %> <% end function MakeTemplate() %>