<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% function WA_Universal_Email_1_SendMail(RecipientEmail) dim MailObject, MailAttachments, MailBCC, MailCC, MailTo, MailBodyFormat, MailBody, MailImportance, MailFrom, MailSubject MailAttachments = "" MailBCC = "" MailCC = "" MailTo = "" MailBodyFormat = "" MailBody = "" MailImportance = "" MailFrom = "" & cStr(cStr(Request.Form("mail"))) & "" MailSubject = "Iscrizione al Seminario Sicurezza Informatica by Sonicwall - 24 Aprile Torino" 'Global Variables gAddBCC = "" gAddCC = "" gAddRecipient = "" gBodyFormat = "" gSetImportance = "" set WA_MailObject = WAUE_Definition("192.168.10.252","25","","","","") if (RecipientEmail <> "") then set WA_MailObject = WAUE_AddRecipient(WA_MailObject,RecipientEmail) MailTo = gAddRecipient gAddRecipient = "" else 'To Entries end if 'Attachment Entries 'BCC Entries set WA_MailObject = WAUE_AddBCC(WA_MailObject,"" & cStr(cStr(Request.Form("mail"))) & "") MailBCC = gAddBCC 'CC Entries MailCC = gAddCC 'Body Format set WA_MailObject = WAUE_BodyFormat(WA_MailObject,0) MailBodyFormat = gBodyFormat 'Set Importance set WA_MailObject = WAUE_SetImportance(WA_MailObject,"1") MailImportance = gSetImportance 'Start Mail Body MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Documento senza titolo" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "

Iscrizione Seminario: Sicurezza Informatica by SonicWALL - Torino 24/04/2007

" & vbCrlf & "" MailBody = MailBody & "

Vi ringraziamo per esservi iscritti al seminario che abbiamo organizzato.

" & vbCrlf & "" MailBody = MailBody & "

Quì sotto trovate il riepilogo dei dati che avete inserito

" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & "
Ragione sociale: " & vbCrlf & "" MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & "
" MailBody = MailBody & cStr(Request.Form("Rag_soc")) MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & "
Indirizzo:
" & vbCrlf & "" MailBody = MailBody & "
" MailBody = MailBody & cStr(Request.Form("ind")) MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & "
CAP :
" & vbCrlf & "" MailBody = MailBody & "
" MailBody = MailBody & cStr(Request.Form("cap")) MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & "
Città:
" & vbCrlf & "" MailBody = MailBody & "
" MailBody = MailBody & cStr(Request.Form("Citta")) MailBody = MailBody & " 
" & vbCrlf & "" MailBody = MailBody & "
Telefono:
" & vbCrlf & "" MailBody = MailBody & "
" MailBody = MailBody & cStr(Request.Form("tel")) MailBody = MailBody & " 
" & vbCrlf & "" MailBody = MailBody & "
Fax :
" & vbCrlf & "" MailBody = MailBody & "
" MailBody = MailBody & cStr(Request.Form("fax")) MailBody = MailBody & " 

Dati partecipante al Seminario

Nome:" MailBody = MailBody & cStr(Request.Form("nome")) MailBody = MailBody & "
Cognome:" MailBody = MailBody & cStr(Request.Form("cogn")) MailBody = MailBody & "
E-mail:" MailBody = MailBody & cStr(Request.Form("mail")) MailBody = MailBody & "
Qualifica:" MailBody = MailBody & cStr(Request.Form("qual")) MailBody = MailBody & "

Dati eventuale secondo Partecipante al Seminario

Nome:" MailBody = MailBody & cStr(Request.Form("nom2")) MailBody = MailBody & "
Cognome:" MailBody = MailBody & cStr(Request.Form("cogn2")) MailBody = MailBody & "
E-mail:" MailBody = MailBody & cStr(Request.Form("mail2")) MailBody = MailBody & "
Qualifica:" MailBody = MailBody & cStr(Request.Form("qual2")) MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "" 'End Mail Body set WA_MailObject = WAUE_SendMail(WA_MailObject,MailAttachments,MailBCC,MailCC,MailTo,MailImportance,MailFrom,MailSubject,MailBody) set WA_MailObject = nothing end function %> <% if ((Request.ServerVariables("Request_Method") = "POST") AND (InStr(cStr(Request.ServerVariables("HTTP_REFERER")), Request.ServerVariables("SERVER_NAME")&Request.ServerVariables("URL"))<>0)) then 'WA Universal Email object="CDOSYS" 'Send Loop Once Per Entry WA_Universal_Email_1_SendMail("davidevacca@kaosinformatica.it") 'Send Mail All Entries if ("Index.html"<>"") then Response.Redirect("Index.html") end if end if %> Kaos Informatica - Benvenuti
CONTATTI - PARTNER - MAPPA SITO
Consulenza ed Assistenza
Sicurezza
Informatica
Software
Gestionali
Reti cablate e Wireless
Recupero DATI
Forniture HW
DPS
CORSI
SEMINARI
 
WEBMAIL

Richiesta Informazioni su PRS: PERSONAL RISK SEMINAR

Ragione sociale :
Indirizzo:
CAP:
Città:
Telefono:
Fax
 

Dati partecipante al Seminario

Nome:
Cognome:
E-Mail:
Qualifica:
 

Dati eventuale secondo Partecipante al Seminario
Nome:
Cognome:
E-Mail:
Qualifica:

Tutti i logo e i marchi contenuti in questo sito sono dei rispettivi proprietari.