<%@LANGUAGE="VBSCRIPT"%> <%dim messaggiook %> <%Private sub invia '*************************************Mail di informazione aziendale'***** 'posta = "info@microtecnica.info" DIM corpoMessaggio, numeroCampi, invioA, invioDa, nomeDominio, indirizzoIp, modulo, browserSistemaOperativo if request.Form("oggetto") <> "" then '* voce da modificare con il proprio indirizzo email invioA = "info@ateneapoli.it" '* voce da modificare con un indirizzo email che funga da mittente: '* in caso di errore riceverete notifica a questo indirizzo un MAILER-DAEMON '* dato che cdosys supporta questa notifica invioDa = "info@jureconsultus.it" '------------fine modifiche necessarie------------------ nomeDominio = Request.ServerVariables("HTTP_HOST") indirizzoIp = Request.ServerVariables("REMOTE_ADDR") modulo = Request.ServerVariables("HTTP_REFERER") browserSistemaOperativo = Request.ServerVariables("HTTP_USER_AGENT") '*rilevo i campi del form 'FOR numeroCampi = 1 TO (Request.Form.Count() - 1) 'IF NOT Request.Form(numeroCampi) = "" THEN corpoMessaggio = "Richiesta informazioni sul corso in " + request.Form("NOME_CORSO") + "

Nome:"& " " + request.Form("Nome") + "
Cognome:" & + request.Form("Cognome") + "
Nato a: " + request.Form("NATO_A") +"
Nato il: " + request.Form("NATO_IL") +"
Indirizzo: " + request.Form("INDIRIZZO") +"
Città: " + request.Form("CITTA") +"
Cap: " + request.Form("CAP") +"
Codice Fiscale: " + request.Form("CODICE_FISCALE") +"
Telefono Fisso: " + request.Form("TELEFONO_FISSO") + "
Telefono Mobile: " + request.Form("TELEFONO_MOBILE") +"
Email: " & + request.Form("e-mail") + "
Messaggio: " + request.Form("note") + "
Costo iscrizione: " + request.Form("COSTO_ISCRIZIONE") + "
Quota mensile: " + request.Form("QUOTA_MENSILE") + "
Costo totale: " + request.Form("COSTO_TOTALE") + "
" '"Nome:"& " " + request.Form("Nome") + "
Cognome:" & + request.Form("Cognome") + "

Oggetto:" & + request.Form("Oggetto") + "
Telefono: " + request.Form("telefono") + "
Email: " & + request.Form("email") + "
Messaggio: " + request.Form("textarea") + " "'corpoMessaggio & vbCrLf & Request.Form.Key(numeroCampi) & " = " & Trim(Request.Form(numeroCampi)) 'END IF 'NEXT '* creo gli oggetti cdosys sul server e li gestisco DIM iMsg, Flds, iConf Set iMsg = CreateObject("CDO.Message") Set iConf = CreateObject("CDO.Configuration") Set Flds = iConf.Fields Flds(cdoSendUsingMethod) = cdoSendUsingPort Flds(cdoSMTPServer) = "smtp.aruba.it" Flds(cdoSMTPServerPort) = 25 Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0 Flds.Update With iMsg Set .Configuration = iConf .To = invioA .From = Request.Form("e-mail") .Sender = invioDa & " " & "Riepilogo Richiesta Corso di"& " " + request.Form("Nome") + " " & + request.Form("Cognome") + "" .Subject = "Contatto dal dominio " & nomeDominio & " " & "HA SCRITTO"& " " + request.Form("Nome") + " " & + request.Form("Cognome") + "" .TextBody = "Questi i dati inseriti nel modulo presente alla pagina " & modulo & " da utente con indirizzo IP " & indirizzoIp & " browser e sistema operativo " & browserSistemaOperativo & vbCrLf & corpoMessaggio & "" .Send End With 'posta = "info@microtecnica.info" 'Set Mail = Server.CreateObject("Persits.MailSender") 'Mail.Host = "mail.ateneapoli.it" ' Specify a valid SMTP server 'Mail.From = "registrazione@ateneapoli.it" ' Specify sender's address 'Mail.FromName = "Ateneapoli - Contatti on-line" ' Specify sender's name 'Mail.IsHTML = true 'Mail.AddAddress "info@ateneapoli.it" 'Mail.AddAddress posta 'Mail.AddReplyTo "marketing@ateneapoli.it" 'Mail.Subject = "HA SCRITTO"& " " + request.Form("Nome") + " " & + request.Form("Cognome") + "" 'corpo = "" 'Mail.Body = "Nome:"& " " + request.Form("Nome") + "
Cognome:" & + request.Form("Cognome") + "

Oggetto:" & + request.Form("Oggetto") + "
Telefono: " + request.Form("telefono") + "
Email: " & + request.Form("email") + "
Messaggio: " + request.Form("textarea") + " " 'On Error Resume Next 'AUTH=LOGIN 'Mail.username= "registrazione@ateneapoli.it" 'Mail.password= "regatene.h125" 'Mail.Send If Err <> 0 Then Response.Write "Non è stato possibile inoltrare la richiesta." else response.Redirect("modulocorso.asp?messaggiook=true") End If end if end sub '************************************************** 'if request.Form("cognome") <> "" then 'posta = request.Form("e-mail") 'Set Mail = Server.CreateObject("Persits.MailSender") 'Mail.Host = "mail.ateneapoli.it" ' Specify a valid SMTP server 'Mail.From = "modulionline@ateneapoli.it" ' Specify sender's address 'Mail.FromName = "Ateneapoli - Contatti on-line" ' Specify sender's name 'Mail.IsHTML = true 'Mail.AddAddress posta 'Mail.AddAddress "info@ateneapoli.it" 'Mail.AddAddress posta 'Mail.AddReplyTo "marketing@ateneapoli.it" 'Mail.Subject = "Riepilogo Richiesta Corso di"& " " + request.Form("Nome") + " " & + request.Form("Cognome") + "" 'corpo = "" 'Mail.Body = "Richiesta informazioni sul corso in " + request.Form("NOME_CORSO") + "

Nome:"& " " + request.Form("Nome") + "
Cognome:" & + request.Form("Cognome") + "
Nato a: " + request.Form("NATO_A") +"
Nato il: " + request.Form("NATO_IL") +"
Indirizzo: " + request.Form("INDIRIZZO") +"
Città: " + request.Form("CITTA") +"
Cap: " + request.Form("CAP") +"
Codice Fiscale: " + request.Form("CODICE_FISCALE") +"
Telefono Fisso: " + request.Form("TELEFONO_FISSO") + "
Telefono Mobile: " + request.Form("TELEFONO_MOBILE") +"
Email: " & + request.Form("e-mail") + "
Messaggio: " + request.Form("note") + "
Costo iscrizione: " + request.Form("COSTO_ISCRIZIONE") + "
Quota mensile: " + request.Form("QUOTA_MENSILE") + "
Costo totale: " + request.Form("COSTO_TOTALE") + "
" 'On Error Resume Next 'AUTH=LOGIN 'Mail.username= "modulionline@ateneapoli.it" 'Mail.password= "modh600" 'On Error Resume Next 'Mail.Send 'If Err <> 0 Then ' Response.Write "Non è stato possibile inoltrare la richiesta." 'else ' response.Redirect("modulocorso.asp?messaggiook=true") 'End If 'end if 'end sub %> Contatta ATENEAPOLI
   <%if request.QueryString("messaggiook") <> "true" then%>

Le Università campane
incontrano gli studenti

Mercoledì 30 settembre 2009
Giovedì 1 ottobre 2009
Venerdì 2 ottobre 2009

Presso l'Università Parthenope
via Acton n. 38, Napoli (di fronte al Molo Beverello)
Per informazioni 081.291166

Programma degli incontri
con presentazione delle Facoltà e Corsi di Laurea
Per le SCUOLE
moduli di adesione e/o prenotazione posti per studenti
• Formato stampabile da scaricare
e inviare via FAX < clicca qui >
• Formato digitale da compilare
on-line < clicca qui >
Mercoledì 30 settembre 2009
ore 9,30
Aula A
• GIURISPRUDENZA
- Giurisprudenza
- Scienze dell'amministrazione
- Servizi giuridici

• SCIENZE POLITICHE
- Scienze politiche dell'amministrazione
- Scienze aeronautiche
- Studi politici
- Scienze politiche
- Scienze politiche e relazioni internazionali
Mercoledì 30 settembre 2009
ore 9,30
Aula B

• SCIENZE E TECNOLOGIE

• SCIENZE
- Biologia delle produzioni marine
- Biologia generale e applicata
- Chimica
- Chimica industriale
- Fisica
- Informatica
- Matematica
- Scienze biologiche
- Scienze della natura
- Scienze geologiche
- Ottica

• SCIENZE AMBIENTALI
Mercoledì 30 settembre 2009
ore 15,00
Aula A
• SOCIOLOGIA
- Culture digitali e della comunicazione
- Sociologia

• PSICOLOGIA
- Tecniche psicologiche
- Psicologia dei processi relazionali e di sviluppo

• SCIENZE DELLA COMUNICAZIONE

• SERVIZIO SOCIALE
Mercoledì 30 settembre 2009
ore 15,00
Aula B
• ECONOMIA
- Economia aziendale
- Economia e commercio
- Economia e legislazione d'impresa
- Economia delle imprese e mercati
- Statistica
- Economia delle istituzioni, delle amministrazioni pubbliche e delle organizzazioni no profit
- Economia e amministrazione delle imprese finanziarie
- Economia e diritto delle imprese e delle amministrazioni
- Statistica e informatica per l'economia e le imprese

• SCIENZE DEL TURISMO
Giovedì 1 ottombre 2009
ore 9,30
Aula A

• LETTERE E FILOSOFIA, Beni Culturali
- Archeologia e storia delle arti
- Cultura e amministrazione dei beni culturali
- Filosofia
- Lettere classiche
- Lettere moderne
- Scienze del servizio sociale
- Storia
- Conservazione dei beni culturali
- Diagnostica e restauro
- Turismo per i beni culturali
- Civiltà antiche e archeologia

• LINGUE
- Mediazioni linguistiche e culturali
- Plurilinguismo e multiculturalità
- Lingua letteratura e cultura Europa e Americhe
- Lingue e letterature comparate

• STUDI ARABO-ISLAMICI
- Lingue storia e culture orientali e africane

• SCIENZE DELLA FORMAZIONE
- Scienze della formazione primaria
- Scienze dell'educazione
Giovedì 1 ottobre 2009
ore 9,30
Aula B

• INGEGNERIA
- Ingegneria edile-architettura
- Ingegneria aerospaziale
- Ingegneria biomedica
- Ingegneria chimica
- Ingegneria civile
- Ingegneria dell'automazione
- Ingegneria delle telecomunicazioni
- Ingegneria edile
- Ingegneria elettrica
- Ingegneria elettronica
- Ingegneria gestionale dei progetti e delle infrastrutture
- Ingegneria gestionale della logistica e produzione
- Ingegneria informatica
- Ingegneria meccanica
- Ingegneria navale
- Ingegneria per l'ambiente e il territorio
- Scienza ed ingegneria dei materiali

• ARCHITETTURA
- Architettura magistrale
- Scienze dell'architettura
- Urbanistica, paesaggio, territorio e ambiente
- Disegno e comunicazione
- Disegno per la moda

• SPORT UNIVERSITARI

Giovedì 1 ottobre 2009
ore 15,00
Aula A
• FARMACIA
- Farmacia
- Chimica e tecnologia farmaceutiche
- Controllo di qualità
- Erboristeria
- Informazione scientifica sul farmaco e sui prodotti diagnostici

• MEDICINA VETERINARIA
- Veterinaria
- Tecnologie delle produzioni animali

• AGRARIA
- Tecnologie agrarie
- Scienze forestali ed ambientali
- Tecnologie alimentari
- Viticoltura ed enologia

• SCIENZE MOTORIE
Giovedì 1 ottobre 2009
ore 15,00
Aula B

• MEDICINA E CHIRURGIA
- Medicina
- Odontoiatria

• SCIENZE BIOTECNOLOGICHE
- Biotecnologie biomolecolari e industriali
- Biotecnologie per la salute

• PROFESSIONI SANITARIE
- Dietistica
- Fisioterapia
- Igiene dentale
- Infermieristica
- Infermieristica pediatrica
- Informatore medico-scientifico
- Logopedia
- Ortottica ed assistenza oftalmologica
- Ostetricia
- Podologia
- Tecniche audiometriche
- Tecniche audioprotesiche
- Tecniche della prevenzionenell'ambiente e nei luoghi di lavoro
- Tecniche di fisiopatologia cardiocircolatoria e perfusione cardiovascolare
- Tecniche di laboratorio biomedico
- Tecniche di neurofisiopatologia
- Tecniche di radiologia medica, per immagini e radioterapia
- Tecniche ortopediche
- Tecniche della riabilitazione

Venerdì 2 ottobre 2009
ore 9,30
Aula A
• Quali sbocchi occupazionali dopo la laurea
Incontro con Aziende ed Enti Locali.
Le professionalità del futuro, i laureati richiesti dal mondo del lavoro
Venerdì 2 ottobre 2009
ore 9,30
Aula B

• Test di ammissione alle Facoltà a numero chiuso
- Cosa sono, come prepararsi, materie da studiare
- Simulazione del test di ammissione

Per informazioni telefonare allo 081.291166

L'iniziativa è organizzata da
ATENEAPOLI
dal 1985 quindicinale di informazione universitaria

Torna al sito di ATENEAPOLI
www.ateneapoli.it