<% '============================================================================ ' YEK FORMsender ' ' Copyright (c) 2001-2005 YEK S.A. Technologies. All rights reserved. '============================================================================ '---------------------------------------------------------------------------- ' '_nexturl, _maildest, _mailsubject sono dei HiddenForm standard 'che devono sempre essere inseriti nel Form ' '---------------------------------------------------------------------------- Dim strNextURL, strMailTO, strSubject, strName, strValue strNextURL = Request("_nexturl") strMailTO = Request("_maildest") strSubject = Request("_mailsubject") '--------------------------------------- 'Body eMail '--------------------------------------- strStartMsg = ""&_ "" &_ "" &_ "" & strSubject & "" &_ "

" strSplitter = "

" strEndBold = "
" strEndFild = "

" strBodyMsg = "" '***************************************************** 'Per ogni campo del tuo form copia questo blocco di codice (delimitato dai ***), modifica solo il titolo e il nome del campo ' 'Esempio blocco 1, campo Cognome '----------------------------------------------------- strBodyMsg = strBodyMsg & strSplitter strBodyMsg = strBodyMsg & "COGNOME :" '<--- qui metti il titolo che vui che appaia nel mail per ogni campo, es. "indirizzo:" , "Nome:" , Cognome:", .... strBodyMsg = strBodyMsg & strEndBold strBodyMsg = strBodyMsg & Request.Form("cognome") '<--- qui metti il nome che hai assegnato al campo del form strBodyMsg = strBodyMsg & strEndFild '---------------------------------------------------- 'Fine blocco 1 '***************************************************** '----------------------------------------------------- 'Esempio blocco 2, campo Nome '----------------------------------------------------- strBodyMsg = strBodyMsg & strSplitter strBodyMsg = strBodyMsg & "NOME :" '<--- qui metti il titolo che vui che appaia nel mail per ogni campo, es. "indirizzo:" , "Nome:" , Cognome:", .... strBodyMsg = strBodyMsg & strEndBold strBodyMsg = strBodyMsg & Request.Form("nome") '<--- qui metti il nome che hai assegnato al campo del form strBodyMsg = strBodyMsg & strEndFild '---------------------------------------------------- 'Fine blocco 2 '----------------------------------------------------- '----------------------------------------------------- 'Esempio blocco 3, campo Indirizzo '----------------------------------------------------- strBodyMsg = strBodyMsg & strSplitter strBodyMsg = strBodyMsg & "INDIRIZZO :" '<--- qui metti il titolo che vui che appaia nel mail per ogni campo, es. "indirizzo:" , "Nome:" , Cognome:", .... strBodyMsg = strBodyMsg & strEndBold strBodyMsg = strBodyMsg & Request.Form("indirizzo") '<--- qui metti il nome che hai assegnato al campo del form strBodyMsg = strBodyMsg & strEndFild '---------------------------------------------------- 'Fine blocco 3 '----------------------------------------------------- '----------------------------------------------------- 'Esempio blocco 4, campo cap '----------------------------------------------------- strBodyMsg = strBodyMsg & strSplitter strBodyMsg = strBodyMsg & "CAP :" '<--- qui metti il titolo che vui che appaia nel mail per ogni campo, es. "indirizzo:" , "Nome:" , Cognome:", .... strBodyMsg = strBodyMsg & strEndBold strBodyMsg = strBodyMsg & Request.Form("cap") '<--- qui metti il nome che hai assegnato al campo del form strBodyMsg = strBodyMsg & strEndFild '---------------------------------------------------- 'Fine blocco 4 '----------------------------------------------------- '----------------------------------------------------- 'Esempio blocco 5, campo Localita '----------------------------------------------------- strBodyMsg = strBodyMsg & strSplitter strBodyMsg = strBodyMsg & "LOCALITA' :" '<--- qui metti il titolo che vui che appaia nel mail per ogni campo, es. "indirizzo:" , "Nome:" , Cognome:", .... strBodyMsg = strBodyMsg & strEndBold strBodyMsg = strBodyMsg & Request.Form("località") '<--- qui metti il nome che hai assegnato al campo del form strBodyMsg = strBodyMsg & strEndFild '---------------------------------------------------- 'Fine blocco 5 '----------------------------------------------------- '----------------------------------------------------- 'Esempio blocco 6, campo e-mail '----------------------------------------------------- strBodyMsg = strBodyMsg & strSplitter strBodyMsg = strBodyMsg & "E-MAIL :" '<--- qui metti il titolo che vui che appaia nel mail per ogni campo, es. "indirizzo:" , "Nome:" , Cognome:", .... strBodyMsg = strBodyMsg & strEndBold strBodyMsg = strBodyMsg & Request.Form("e-mail") '<--- qui metti il nome che hai assegnato al campo del form strBodyMsg = strBodyMsg & strEndFild '---------------------------------------------------- 'Fine blocco 6 '----------------------------------------------------- '----------------------------------------------------- 'Esempio blocco 7, campo tel '----------------------------------------------------- strBodyMsg = strBodyMsg & strSplitter strBodyMsg = strBodyMsg & "TELEFONO :" '<--- qui metti il titolo che vui che appaia nel mail per ogni campo, es. "indirizzo:" , "Nome:" , Cognome:", .... strBodyMsg = strBodyMsg & strEndBold strBodyMsg = strBodyMsg & Request.Form("telefono") '<--- qui metti il nome che hai assegnato al campo del form strBodyMsg = strBodyMsg & strEndFild '---------------------------------------------------- 'Fine blocco 7 '----------------------------------------------------- '----------------------------------------------------- 'Esempio blocco 8, campo fax '----------------------------------------------------- strBodyMsg = strBodyMsg & strSplitter strBodyMsg = strBodyMsg & "FAX :" '<--- qui metti il titolo che vui che appaia nel mail per ogni campo, es. "indirizzo:" , "Nome:" , Cognome:", .... strBodyMsg = strBodyMsg & strEndBold strBodyMsg = strBodyMsg & Request.Form("fax") '<--- qui metti il nome che hai assegnato al campo del form strBodyMsg = strBodyMsg & strEndFild '---------------------------------------------------- 'Fine blocco 8 '----------------------------------------------------- strEndMsg = "

" &_ "powered by --> © 2001-2003 YEK S.A. Technologies
" &_ "" & request.servervariables("HTTP_REFERER") & "
" &_ "" & Request.ServerVariables("REMOTE_ADDR") & "
" &_ "" & date() & " " & time () & "

" &_ "" &_ "" strMail = (strStartMsg & strBodyMsg & strEndMsg) '------------------------------------------------------------------ 'Invio eMail con CDOSYS '------------------------------------------------------------------ Set objMail = Server.CreateObject("CDO.Message") objMail.From = strMailTO objMail.To = strMailTO 'objMail.Bcc = "test@test.ch" '...se vuoi ricevere una copia "nascosta" del mail metti un eMail e togli " ' " di commento davanti 'objMail.Bcc per attivarlo objMail.Subject = strSubject objMail.HTMLBody= strMail objMail.Send set objMail = nothing 'Message sent sucessfully response.Redirect (strNextURL) %>


Nome
Cognome
Indirizzo
CAP
Località
E-mail
Tel.
Fax
Messaggio

Farmacia Martinoli SA
CH-6715 Dongio
Tel. +41 91 871 18 18
Fax +41 91 871 18 63
E-mail Dongio

Farmacia Martinoli SA
Contrada Cavalier Pellanda 1
CH-6710 Biasca
Tel. +41 91 862 28 28
Fax +41 91 862 43 56
E-mail Biasca

Farmacia Martinoli SA
CH-6718 Olivone
Tel. +41 91 872 28 28
Fax +41 91 872 28 29
E-mail Olivone