<% Dim Conferma Conferma = "Form" '' Dichiaro le variabili per la mail DIM invioDa, invioA, invioCcn, oggettoMsg, txtMsg DIM iMsg, Flds, iConf invioDa = """C.R.E. Microsistemi"" " invioCcn = "info@dpsenior.it" '' Dichiaro le variabili per la form dim pulsante, email '' Pesco i valori dalla form pulsante=Trim(Request("Submit")) email=Trim(Request("email")) '' Se è stato premuto il tasto submit controllo if pulsante="Vai" then if IsMail(email) then '' Invio il messaggio invioA = Trim(email) Set iMsg = CreateObject("CDO.Message") Set iConf = CreateObject("CDO.Configuration") Set Flds = iConf.Fields Flds(cdoSendUsingMethod) = cdoSendUsingPort Flds(cdoSMTPServer) = "localhost" Flds(cdoSMTPServerPort) = 25 Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0 Flds.Update txtMsg = "Salve," & vbCrLf txtMsg = txtMsg & vbCrLf txtMsg = txtMsg & "il link per scaricare DPSenior è:" & vbCrLf txtMsg = txtMsg & "http://www.creweb.it/download/dpsenior/SetupDPSenior3.60.04.exe" & vbCrLf txtMsg = txtMsg & vbCrLf txtMsg = txtMsg & "Se volete provare la gestione Automatica LOG ACCESSI, scaricate la documentazione" & vbCrLf txtMsg = txtMsg & "e l'applicazione DPSeniorLog da questi link:" & vbCrLf txtMsg = txtMsg & "http://www.creweb.it/download/dpsenior/DPSeniorLog1.0.1.pdf" & vbCrLf txtMsg = txtMsg & "http://www.creweb.it/download/dpsenior/SetupDPSeniorLog1.0.1.exe" & vbCrLf txtMsg = txtMsg & vbCrLf txtMsg = txtMsg & vbCrLf txtMsg = txtMsg & vbCrLf txtMsg = txtMsg & "Se volete consultare l'ultimo NOTIZIARIO DPSenior, il link è:" & vbCrLf txtMsg = txtMsg & "http://www.creweb.it/download/dpsenior/Not_dpsenior_rel_3.50.00.pdf" & vbCrLf txtMsg = txtMsg & vbCrLf txtMsg = txtMsg & vbCrLf txtMsg = txtMsg & "Grazie per averci contattato" & vbCrLf txtMsg = txtMsg & vbCrLf txtMsg = txtMsg & "C.R.E. Microsistemi srl" & vbCrLf txtMsg = txtMsg & "800 94 51 30" & vbCrLf txtMsg = txtMsg & "www.dpsenior.it" & vbCrLf txtMsg = txtMsg & "info@dpsenior.it" & vbCrLf oggettoMsg = "Richiesta prova gratuita DPSenior" With iMsg Set .Configuration = iConf .To = invioA .Bcc = invioCcn .From = invioDa .Sender = invioDa .Subject = oggettoMsg .TextBody = txtMsg .Send End With Conferma = "Spedito" end if end if %> DPSenior - il software per l'Amministrazione Sistema e la Privacy
 
 
Diventa Partner

 

I Partner sono i nostri propulsori commerciali
 più importanti

Da sempre dedichiamo loro un attenzione speciale
(vedi la nostra filosofia)

Lavora con noi.

 

info@dpsenior.it

C.R.E. Microsistemi S.r.l. - Via Nuova 3/b - 40057 Cadriano (BO) - Informativa Privacy

Part. IVA 00642091201  -  Reg. Impr. BO n. 45287  -  Capitale Sociale int. ver. € 50.000

 www.dpsenior.it - info@dpsenior.it

<% Function IsMail(sEmail) Dim objRegExp Set objRegExp = New RegExp objRegExp.Pattern = "^[a-z._-]+\@[a-z._-]+\.[a-z]{2,4}$" objRegExp.IgnoreCase = True IsMail = objRegExp.Test(sEmail) End Function %>