PK

<!--#include file="administrador/includes/openconn.asp" -->


<!--#include file="includes/json2.asp"-->

<%   
        Dim recaptcha_secret, sendstring, objXML
        ' Secret key
        recaptcha_secret = "6LdspBYqAAAAADScPG7Kkzx8W37uNZByvsZKb8Ys"

        sendstring = "https://www.google.com/recaptcha/api/siteverify?secret=" & recaptcha_secret & "&response=" & Request.form("g-recaptcha-response")

        Set objXML = Server.CreateObject("MSXML2.ServerXMLHTTP")
        objXML.Open "GET", sendstring, False

        objXML.Send

		Dim RRR: Set RRR = JSON.parse(objXML.responseText)
		
		if RRR.success = "False" then
			conn.close
			response.redirect("contacto.asp?msg=Verifiquese como usuario indicando que no es un robot&" & request.form())

		end if

        Set objXML = Nothing


Dim objCDOMail,xbody

xbody = xbody & "Fecha y Hora : " & date() & " " & time() & "<br>"
xbody = xbody & "IP : " & request.ServerVariables("REMOTE_ADDR") & "<br><br>"

xbody = xbody & "Datos -------------------------------------<br>"
xbody = xbody & "Nombre : " & request("Nombre") & "<br>"
xbody = xbody & "Telefono : " & request("Telefono") & "<br>"
xbody = xbody & "Email : <a href='mailto:" & request("Email") & "'>" & request("Email") & "</a><br><br>"
xbody = xbody & "Comentario --------------------------------<br>"
xbody = xbody & replace(request("Comentarios"),chr(10),"<br>") & "<br>"
xbody = xbody & "Articulo -----------------------------------<br>"
xbody = xbody & "<a href='http://www.Fe-cort.com.ar/articulo.asp?idarticulo=" & request("idarticulo") & "'>" & request("idarticulo") & " - " &  request("art_nombre") & "</a><br>"

'------------------- ALTA BASE

rs.Open "SELECT * FROM Contactos WHERE idcontacto = 0",conn,2,2
rs.AddNew

rs("con_now") = now()
rs("con_IP") = request.ServerVariables("REMOTE_ADDR")

if request("Nombre") <> "" then 
	rs("con_nombre")=request("Nombre")
else
	rs("con_nombre")=null
end if

if request("Telefono") <> "" then 
	rs("con_telefono")=request("Telefono")
else
	rs("con_telefono")=null
end if

if request("Email") <> "" then 
	rs("con_email")=request("Email")
else
	rs("con_email")=null
end if

if request("Motivo") <> "" then 
	rs("con_motivo")=request("Motivo")
else
	rs("con_motivo")=null
end if

if request("Comentarios") <> "" then 
	rs("con_texto")=request("Comentarios")
else
	rs("con_texto")=null
end if

rs.Update
rs.Close

conn.close

'---------------------- Envio mail

Dim omail, Mailconf

Set omail = Server.CreateObject("CDO.Message")
omail.To= "info@Fe-cort.com.ar"
'omail.To= "tom@webtom.com.ar"
omail.From=  "info@Fe-cort.com.ar"
omail.ReplyTo = request("Email")
omail.Subject = "Contacto WEB"
omail.htmlBody = xbody

Set Mailconf = Server.CreateObject ("CDO.Configuration")
' Outgoing SMTP server 
Mailconf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
Mailconf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
Mailconf.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
Mailconf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
set omail.Configuration = Mailconf

omail.send
Set omail=Nothing

Response.Redirect("contacto.asp?msg=OK")%>

PK 99