Centro Ottico Agrosì - L'ottico risponde

<%@ Language=VBScript %><% ' change to address of your own SMTP server strHost = "mail.varomaonline.com" ' Body in HTML format strHTML = "" & chr(13) &chr(10) strHTML = strHTML & "" & chr(13) &chr(10) strHTML = strHTML & "

SIG.:	" & Request.Form("nome") & "
E-MAIL:	" & Request.Form("email") & "

" & chr(13) &chr(10) strHTML = strHTML & "" & chr(13) &chr(10) strHTML = strHTML & "" & chr(13) &chr(10) strHTML = strHTML & "" & chr(13) &chr(10) strHTML = strHTML & "" & chr(13) &chr(10) strHTML = strHTML & "" & chr(13) &chr(10) strHTML = strHTML & "" & chr(13) &chr(10) strHTML = strHTML & "" & chr(13) &chr(10) strHTML = strHTML & "" & chr(13) &chr(10) strHTML = strHTML & "

OCCHIO DESTRO			OCCHIO SINISTRO
SF	CIL	ASSE	SF	CIL	ASSE
PER DISTANZA
" & Request.Form("dx_sf_distanza") & "	" & Request.Form("dx_cil_distanza") & "	" & Request.Form("dx_asse_distanza") & "	" & Request.Form("sx_sf_distanza") & "	" & Request.Form("sx_cil_distanza") & "	" & Request.Form("sx_asse_distanza") & "
A PERMANENZA
" & Request.Form("dx_sf_permanenza") & "	" & Request.Form("dx_cil_permanenza") & "	" & Request.Form("dx_asse_permanenza") & "	" & Request.Form("sx_sf_permanenza") & "	" & Request.Form("sx_cil_permanenza") & "	" & Request.Form("sx_asse_permanenza") & "
PER VICINO
" & Request.Form("dx_sf_vicino") & "	" & Request.Form("dx_cil_vicino") & "	" & Request.Form("dx_asse_vicino") & "	" & Request.Form("sx_sf_vicino") & "	" & Request.Form("sx_cil_vicino") & "	" & Request.Form("sx_asse_vicino") & "


PRISMA " & Request.Form("dx_prisma") & "	BASE " & Request.Form("dx_base") & "	PRISMA " & Request.Form("sx_prisma") & "	BASE " & Request.Form("sx_base") & "
DISTANZA INTERPUPILLARE MM. " & Request.Form("distanza_interp") & "
NOTE " & Request.Form("note") & "

" & chr(13) &chr(10) strHTML = strHTML & "

Form-Mail powered by Varoma online - www.varomaonline.com

" If Request.Form("nome") <> "" Then Set Mail = Server.CreateObject("Persits.MailSender") ' enter valid SMTP host Mail.Host = strHost Mail.From = "macesari@varomaonline.com" Mail.FromName = "Sito 'www.centrootticoagrosi.com' by Varoma online" Mail.AddAddress "claudio@agrosi.com" ' message subject Mail.Subject = "Ricetta inviata dal sig. " & Request.Form("nome") ' message body Mail.IsHTML = True Mail.Body = "" & strHTML & "" Mail.Send ' send message Response.Redirect("inviato.html") End If 'se il browser è IE >= 4 abilita l'evento "onblur" Dim controllo Dim compat Set objBCap = Server.CreateObject("MSWC.BrowserType") If objBCap.Browser = "IE" And CInt(objBCap.Version) >= 4 Then compat = true controllo = " onblur=controllaVal()" Else compat = false controllo = "" End If %> Centro Ottico Agrosì - L'ottico risponde

Compilando il form in tutte le sue parti riceverai gratuitamente, direttamente sulla tua casella di posta, un consiglio specialistico sul problema visivo da te segnalato, e la miglior soluzione per risolverlo.

NOME
E-MAIL
OCCHIO DESTRO			OCCHIO SINISTRO
SF	CIL	ASSE	SF	CIL	ASSE
PER DISTANZA
type="text">	type="text">	type="text">	type="text">	type="text">	type="text">
A PERMANENZA
type="text">	type="text">	type="text">	type="text">	type="text">	type="text">
PER VICINO
type="text">	type="text">	type="text">	type="text">	type="text">	type="text">


PRISMA type="text">	BASE type="text">	PRISMA type="text">	BASE type="text">

DISTANZA INTERPUPILLARE MM. type="text">
NOTE