Ubicación y contacto

<% Dim CaptchaOK CaptchaOK = "S" %> <% function TestCaptcha(byval valSession, byval valCaptcha) dim tmpSession valSession = Trim(valSession) valCaptcha = Trim(valCaptcha) if (valSession = vbNullString) or (valCaptcha = vbNullString) then TestCaptcha = false else tmpSession = valSession valSession = Trim(Session(valSession)) Session(tmpSession) = vbNullString if valSession = vbNullString then TestCaptcha = false else valCaptcha = Replace(valCaptcha,"i","I") if StrComp(valSession,valCaptcha,1) = 0 then TestCaptcha = true else TestCaptcha = false end if end if end if end function %> <% if not IsEmpty(Request.Form("Submit")) then if TestCaptcha("ASPCAPTCHA", Request.Form("captchacode")) then nombre = CStr(Request.Form("nombre"))&"" email = CStr(Request.Form("email"))&"" telefono = CStr(Request.Form("telefono"))&"" comentario = CStr(Request.Form("comentario"))&"" conCDONTS = "SI" Email_de = "info@medicron.com.ar" Email_para = "vquinoa@medicron.com.ar" asunto_mail = "Contacto Web" mensaje_mail = "Nuevo mensaje:

" mensaje_mail = mensaje_mail & "
Nombre: " & nombre mensaje_mail = mensaje_mail & "
Telefono: " & telefono mensaje_mail = mensaje_mail & "
Email: " & email mensaje_mail = mensaje_mail & "
Comentario: " & comentario mensaje_mail = mensaje_mail & "
" mensaje_mail = mensaje_mail & "

" & request.ServerVariables("HTTP_HOST") & "
" & Now() dim mailObj if conCDONTS = "SI" then ' con CDONTS set mailObj = Server.CreateObject("CDONTS.NewMail") mailObj.BodyFormat = 0 mailObj.MailFormat = 0 mailObj.From = Email_de mailObj.To = Email_para mailObj.Bcc = "jublancolian@gmail.com" mailObj.Subject = asunto_mail mailObj.Body = mensaje_mail 'on error resume next if Email_para <> "" then mailObj.Send end if Set mailObj = Nothing else Set oMail = Server.CreateObject("CDO.Message") oMail.From = email_de oMail.To = email_para oMail.Bcc = "jublancolian@gmail.com" oMail.Subject= asunto_mail oMail.TextBody = mensaje_mail oMail.HTMLBody = mensaje_mail if Email_para <> "" then oMail.Send end if Set oMail = Nothing end if Response.Redirect("?s=3&error=0") else CaptchaOK="N" end if end if %>
<% If request("error")="0" Then %>
Mensaje enviado correctamente, a la brevedad nos comunicaremos con usted
Muchas gracias!
<% End If %> <% If CaptchaOK="N" Then %>
Codigo Incorrecto
<% End If %>

complete el siguiente formulario




Codigo de Verificacion:

Ingrese el Codigo:

cambiar imagen