%
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()
%>