<% if request.QueryString("send")="si" then if request.form("txtemail")<>"" then on error resume next Set objMail = Server.CreateObject("CDONTS.NewMail") HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "Anamnesi tricologica" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "
" HTML = HTML & "E-mail richiedente: "& request.form("txtemail") HTML = HTML & "

" HTML = HTML & "CAPELLI" HTML = HTML & "

" if trim(request.form("fini e sottili"))="si" then HTML = HTML & "fini e sottili
" end if if trim(request.form("normali"))="si" then HTML = HTML & "normali
" end if if trim(request.form("doppi"))="si" then HTML = HTML & "doppi
" end if if trim(request.form("lisci"))="si" then HTML = HTML & "lisci
" end if if trim(request.form("ricci"))="si" then HTML = HTML & "ricci
" end if if trim(request.form("colore naturale"))="si" then HTML = HTML & "colore naturale
" end if if trim(request.form("tinti"))="si" then HTML = HTML & "tinti
" end if if trim(request.form("altri trattamenti"))="si" then HTML = HTML & "altri trattamenti ....." & trim(replace(request.form("txtquali"),"'","''")) &"
" end if if trim(request.form("con doppie punte"))="si" then HTML = HTML & "con doppie punte
" end if if trim(request.form("elastici"))="si" then HTML = HTML & "elastici
" end if if trim(request.form("poco elastici"))="si" then HTML = HTML & "poco elastici
" end if if trim(request.form("secchi"))="si" then HTML = HTML & "secchi
" end if if trim(request.form("aridi"))="si" then HTML = HTML & "aridi
" end if if trim(request.form("fragili"))="si" then HTML = HTML & "fragili
" end if if trim(request.form("grassi"))="si" then HTML = HTML & "grassi
" end if if trim(request.form("porosi"))="si" then HTML = HTML & "porosi
" end if if trim(request.form("opachi"))="si" then HTML = HTML & "opachi
" end if if trim(request.form("lucidi"))="si" then HTML = HTML & "lucidi
" end if if trim(request.form("cadenti"))="si" then HTML = HTML & "tendenti alla rapida caduta
" end if HTML = HTML & "

" HTML = HTML & "CUOIO CAPELLUTO" HTML = HTML & "

" if trim(request.form("normale"))="si" then HTML = HTML & "normale
" end if if trim(request.form("grasso"))="si" then HTML = HTML & "grasso
" end if if trim(request.form("forfora"))="si" then HTML = HTML & "con forfora
" end if if trim(request.form("irritata"))="si" then HTML = HTML & "cute irritata
" end if if trim(request.form("grigia"))="si" then HTML = HTML & "cute grigia
" end if if trim(request.form("dolore"))="si" then HTML = HTML & "dolore al tatto
" end if if trim(request.form("incrostazioni"))="si" then HTML = HTML & "incrostazioni
" end if if trim(request.form("puzza"))="si" then HTML = HTML & "maleodorante
" end if if trim(request.form("txtnote"))<>"" then HTML = HTML & "altro....." & trim(replace(request.form("txtnote"),"'","''")) end if HTML = HTML & "
" HTML = HTML & "" HTML = HTML & "" objMail.From=request.form("txtemail") objMail.To="info@dagaleno.com" 'objMail.To="alberto.biancardo@mclink.net" objMail.Subject="richiesta anamnesi tricologica" objMail.BodyFormat = 0 objMail.MailFormat = 0 objMail.Body = HTML objMail.Send If Err <> 0 Then messaggio=Err.Description else set objMail = nothing messaggio="e-mail inviata con successo" End If else messaggio="non è stato inserito l'indirizzo del mittente" end if else messaggio="" end if %> Da Galeno-officine cosmetiche
CAPELLI

fini e sottili
normali
doppi
lisci
ricci
colore naturale
tinti
altri trattamenti quali...
con doppie punte
elastici
poco elastici
secchi
aridi
fragili
grassi
porosi
opachi
lucidi
tendenti alla rapida caduta 		CUOIO CAPELLUTO

normale
grasso
con forfora
cute irritata
cute grigia
dolore al tatto
incrostazioni
maleodorante






<%=messaggio%>
Altro
La tua e- mail è
E se puoi inviaci anche una foto del tuo cuoio capelluto...