PK

<!--#include file="administrador/includes/openconn.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



if request("Email") <> "" then

	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 & "Email : <a href='mailto:" & request("Email") & "'>" & request("Email") & "</a><br><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("Email") <> "" then 
		rs("con_email")=request("Email")
	else
		rs("con_email")=null
	end if
	
	rs.Update
	rs.Close
	
	'---------------------- Envio mail
	
	Dim omail, Mailconf
	
	Set omail = Server.CreateObject("CDO.Message")
	omail.To= "info@Fe-cort.com.ar"
	'omail.To= "marianodesouza-info@hotmail.com"
	'omail.To= "tom@webtom.com.ar"
	omail.From=  "info@Fe-cort.com.ar"
	omail.ReplyTo = request("Email")
	omail.Subject = "Registro newsletter 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
	
	conn.close

end if

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

PK 99