<%@LANGUAGE="VBSCRIPT"%>
<%
REM *******************************************
REM invia mail e scrive log
REM *******************************************
%>
<!--#include file="inc.funzioni.asp" -->
<%
function WriteToFile(FileName, Contents, Append)
on error resume next

if Append = true then
   iMode = 8
else 
   iMode = 2
end if
set oFs = server.createobject("Scripting.FileSystemObject")
set oTextFile = oFs.OpenTextFile(FileName, iMode, True)
oTextFile.Write Contents
oTextFile.Close
set oTextFile = nothing
set oFS = nothing

end function

%>
<%
Rem leggi dati fondamentali del form
relatore = Request.Form("relatore")
titolo = Request.Form("titolo")
id_seminario = Request.Form("id_seminario")
posto = Request.Form("posto")
nome = Request.Form("nome")
cognome = Request.Form("cognome")
ind_email = Request.Form("ind_email")
recipient = Request.Form("recipient")
subject = Request.Form("subject")
required = Request.Form("required")
pagina_grazie = Request.Form("pagina_grazie")
pagina_errore = Request.Form("pagina_errore")

Rem recupera nomi dei campi, valori dei campi e verifica i campi obbligatori
completo = TRUE
for i=1 to Request.Form.count
	nome_campo = Request.Form.Key(i)
	valore_campo = trim(Request.Form.Item(nome_campo))
	if (InStr(required,nome_campo)>0) AND (valore_campo="") then
	    completo = FALSE	
	end if
next

if completo then
rem se tutti i campi obbligatori sono completi, inoltre il messaggio e redirige

	Set Mail = Server.CreateObject("Persits.MailSender") 
	Mail.Host = "127.0.0.1;ns2.naonis.net" 
	Mail.Port = 25
	Mail.From = Request.Form.Item("ind_email") 
	Mail.FromName = Request.Form.Item("nome") & " " & Request.Form.Item("cognome")
	Mail.AddAddress Request.Form.Item("recipient")
	Mail.Subject = Request.Form.Item("subject")
	testo = "Dati inseriti nel form" & chr(13) & chr(10) & chr(13) & chr(10)

	for i=1 to Request.Form.count-1
		nome_campo = Request.Form.Key(i)
		valore_campo = trim(Request.Form.Item(nome_campo))
		if (InStr("submit recipient subject required pagina_grazie pagina_errore",nome_campo)=0) then
			testo = testo & nome_campo & " = " & valore_campo & chr(13) & chr(10)
		end if
	next
		
	Mail.Body = testo
	On Error Resume Next 
	Mail.Send 
	If Err <> 0 Then 
		Response.write("ATTENZIONE! C'e' stato un errore nell'invio del messaggio")
	end if

rem invio messaggio di conferma a chi compone il modulo

	Set Mail = Server.CreateObject("Persits.MailSender") 
	Mail.Host = "127.0.0.1;ns2.naonis.net" 
	Mail.Port = 25
	Mail.From = Request.Form.Item("recipient") 
	Mail.FromName = "SCUOLAIMPRESA.COM - Prenotazioni"
	Mail.AddAddress Request.Form.Item("ind_email")
	Mail.Subject = "Conferma prenotazione"
	
	testo = "La ringraziamo per la Sua prenotazione," & chr(13) & chr(10) & chr(13) & chr(10)
	testo = testo & "ecco copia dei dati da Lei inseriti nel modulo in line." & chr(13) & chr(10) & chr(13) & chr(10)

	for i=1 to Request.Form.count-1
		nome_campo = Request.Form.Key(i)
		valore_campo = trim(Request.Form.Item(nome_campo))
		if (InStr("submit recipient subject required pagina_grazie pagina_errore",nome_campo)=0) then
			testo = testo & nome_campo & " = " & valore_campo & chr(13) & chr(10)
		end if
	next
		
	Mail.Body = testo
	On Error Resume Next 
	Mail.Send 
	If Err <> 0 Then 
		Response.write("ATTENZIONE! C'e' stato un errore nell'invio del messaggio")
	end if

	REM *************************
	Rem Aggiunge una riga alla tabella prenotazioni
    
	strSQL = "INSERT INTO prenotazioni (id_seminari,posto,nome,cognome,ind_email) values ('"&	id_seminario&"','"&posto&"','"&nome&"','"&cognome&"','"&ind_email&"')"

	Set oConn = Server.CreateObject("ADODB.Connection")
    oConn.open "DSN=scuolaimpresa.com;;;"
    oConn.Execute strSQL
    Set oConn = Nothing


	REM *************************
	REM scrittura file di log prenotazioni

	testo_log = "------------------------------------------------------------------" & chr(13) & chr(10)
	testo_log = testo_log & Now & chr(13) & chr(10) & chr(13) & chr(10)
	testo_log = testo_log & testo & chr(13) & chr(10)
	
	WriteToFile Percorso_log&"log_prenotazioni.txt", testo_log, True
	
    Response.redirect pagina_grazie

else
rem se ci sono campi obbligatori incompleti, redirige all'errore
    Response.redirect pagina_errore
end if

%>