<% if(Len(Trim(Request("somma")))> 0 ) then numero_1 = Trim(Request("numero_1")) numero_2 = Trim(Request("numero_2")) int somma_post = CInt(numero_1) + CInt(numero_2) int somma = CInt(Trim(Request("somma"))) end if Function RandomNumber() max=1 'this sets up the lowest number min=10 'this sets up the highest numer Randomize RandomNumber = Int((max-min+1)*Rnd+min) End Function dim msg,n1,n2 n1=RandomNumber() 'each time page loads, the questions will change n2=RandomNumber() msg="Please answer the following question." DatiOk = True Funzione = GetString("fun") Nome = Trim(Request("Nome")) Cognome = Trim(Request("Cognome")) Azienda = Trim(Request("Azienda")) Posizione = Trim(Request("Posizione")) EMail = Trim(Request("EMail")) Telefono = Trim(Request("Telefono")) Fax = Trim(Request("Fax")) TipoRichiesta = Trim(Request("TipoRichiesta")) Note = Trim(Request("Note")) if (Funzione = "1") then DatiOk = False 'check cambi obligatori if (Len(Nome) > 0 and Len(Cognome) > 0 and Len(Azienda) > 0 and Len(EMail) > 0 and (CInt(numero_1) + CInt(numero_2))=CInt(Trim(Request("somma"))) ) then DatiOk = true ' manda mail Set Msg = CreateObject("CDO.Message") Set iConf = CreateObject("CDO.Configuration") Set Flds = iConf.Fields Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtphostauth.interhost.it" ' qui mettere il nome del server Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "smtp@prismaspedizioni.com" Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "Kodess66" Flds.Update Set Msg.Configuration = iConf Msg.From = "noreply@prismalogistics.net" ' qui mettere l'indirizzo del from Msg.To = "info@prismalogistics.net" ' qui mettere l'indirizzo del to Msg.cc = "stefano.pasinato@prismalogistics.net" Msg.Subject = "Nuovo contatto dal sito Web Prisma" Body = "" Body = Body & "" Body = Body & "Nuovo contatto dal sito Web Prisma" Body = Body & "

" Body = Body & "" Body = Body & "" Body = Body & "" Body = Body & "" Body = Body & "" Body = Body & "" Body = Body & "" Body = Body & "" Body = Body & "" Body = Body & "
Nome e Cognome:" & Nome & " " & Cognome & "
Azienda:" & Azienda & "
Posizione:" & Posizione & "
e-mail:" & EMail & "
Telefono:" & Telefono & "
Fax:" & Fax & "
Tipo di Richiesta:" & TipoRichiesta & "
Note:" & Note & "
" Msg.HTMLBody = Body Msg.Send Set Msg = nothing end if end If function GetString(name) o = Request(name) if o = null then GetString = "" else GetString = o end if end function %>
IT
EN
Prisma spedizioni nazionali e internazionali
Prisma spedizioni nazionali e internazionali

CONTATTI

<% if (Funzione = "1" And DatiOk) then %>

Thanks for filling in our form.

<% Else %>

If you have any question or need further information on our services, please fill in the following form:

<% if (Not DatiOk) then Response.Write("Check Wrong Data") %>
*Name
" >
*Surname
">
* Company name
"">
Position
* e-mail
"">
Telephone
Fax
* Type of request
sales
>
complaint/non conformity
>
accounting dept.
>
suggestions
>
Comments
Sender Verification
<%=msg%>
"/>
 
   

Fields marked * are obligatory
<% End if %>