<% 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 & "Thricologic Anamnesis" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "
" HTML = HTML & "Your E-mail : "& request.form("txtemail") HTML = HTML & "

" HTML = HTML & "HAIR" HTML = HTML & "

" if trim(request.form("fine and thinning hair"))="si" then HTML = HTML & "fine and thinning hair
" end if if trim(request.form("normal hair"))="si" then HTML = HTML & "normal hair
" end if if trim(request.form("strong"))="si" then HTML = HTML & "doppi
" end if if trim(request.form("straights"))="si" then HTML = HTML & "straights
" end if if trim(request.form("curls"))="si" then HTML = HTML & "curls
" end if if trim(request.form("natural color"))="si" then HTML = HTML & "natural color
" end if if trim(request.form("color hair"))="si" then HTML = HTML & "color hair
" end if if trim(request.form("other treatments"))="si" then HTML = HTML & "other treatments ....." & trim(replace(request.form("txtquali"),"'","''")) &"
" end if if trim(request.form("with double splits"))="si" then HTML = HTML & "ith double splits
" end if if trim(request.form("elastic"))="si" then HTML = HTML & "elastic
" end if if trim(request.form("poco elastici"))="si" then HTML = HTML & "not elastic
" end if if trim(request.form("hair dry"))="si" then HTML = HTML & "hair dry
" end if if trim(request.form("moisture loss"))="si" then HTML = HTML & "moisture loss
" end if if trim(request.form("fragil"))="si" then HTML = HTML & "fragil
" end if if trim(request.form("grease"))="si" then HTML = HTML & "grease
" end if if trim(request.form("poreous"))="si" then HTML = HTML & "poreous
" end if if trim(request.form("no-shine"))="si" then HTML = HTML & "no-shine
" end if if trim(request.form("shines"))="si" then HTML = HTML & "shines
" end if if trim(request.form("with hair loss"))="si" then HTML = HTML & "with hair loss
" end if HTML = HTML & "

" HTML = HTML & "hair scalp" HTML = HTML & "

" if trim(request.form("normal"))="si" then HTML = HTML & "normal
" end if if trim(request.form("grasso"))="si" then HTML = HTML & "grease
" end if if trim(request.form("dandruff"))="si" then HTML = HTML & "with dandruff
" end if if trim(request.form("irritation"))="si" then HTML = HTML & "cute irritation
" end if if trim(request.form("gray scalp"))="si" then HTML = HTML & "gray scalp
" 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...