<%
function isemail(stremail)
stremail = trim(stremail)
isemail = true
ipos = 0
if len(stremail) = 0 then
isemail = false
else
if instr(stremail," ") then
isemail = false
else
if instr(stremail, "@") <= 1 then
isemail = false
else
ipos = instr(stremail, "@")
if instr(ipos, stremail, ".") <= (ipos + 1) then
isemail = false
else
if (len(stremail) - instrrev(stremail, ".")) < 2 then
isemail = false
end if
end if
end if
end if
end if
end function
dim correcto
correcto = True
if request.form("enviar") = "Enviar" Then
dim nom, dir, tel, mail, desc, erro
erro = "no"
if request.form("nombre") = "" Then
nom = "erro"
erro = "si"
end if
if request.form("direccion") = "" Then
dir = "erro"
erro = "si"
end if
if request.form("telefono") = "" Then
tel = "erro"
erro = "si"
end if
if request.form("mail") = "" Then
mail = "erro"
erro = "si"
Else
If not isemail(request.form("mail")) Then
correcto = "erro"
erro="si"
end if
end if
if erro <> "si" Then
dim fecha
fecha = day(now)&"/"&month(now)&"/"&year(now)
sDestino=Trim(CStr("martin@cedecop.org")) 'aca iría el mail a donde llegue el presupuesto
sRemite=Trim(CStr(request.Form("mail")))
HTML = ""
HTML = HTML & ""
HTML = HTML & ""
HTML = HTML & ""
HTML = HTML & ""
HTML = HTML & ""
HTML = HTML & "
DAMAION"
HTML = HTML & "- Pedido de Presupuesto
"
HTML = HTML & "Fecha: "+ fecha +" "
HTML = HTML & " Nombre: "+request.Form("nombre")+" "
HTML = HTML & "Dirección: "+request.Form("direccion")+" "
HTML = HTML & "Telefono: "+request.Form("telefono")+" "
HTML = HTML & "Mail: "+request.Form("mail")+" "
HTML = HTML & "Descripción: "+request.Form("descripcion")+"
"
HTML = HTML & ""
HTML = HTML & ""
set oMail=Server.CreateObject("CDONTS.NewMail")
oMail.BodyFormat = 0
oMail.To=sDestino
oMail.From=sRemite
oMail.Subject = "Presupuesto DIMAION"
sBody=HTML
oMail.Body=sBody
oMail.Send
ok = "si"
set oMail=nothing
end if
end if
%>
DIMAION - Construcción y Armado de Juegos Infantiles