PK

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

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

<%'Dim recaptcha_secret, sendstring, objXML
'recaptcha_secret = "6Le8QRgUAAAAAK2Yyx-vKTNwfwUxuk6OupQmiY1A"
'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
'	response.redirect("clientes_registro.asp?msj=ERR&" & request.form())
'end if

rs.Open "SELECT * FROM Clientes WHERE cli_email = '" & request("cli_email") & "'",conn,3,1
if not rs.EOF then
	conn.close
	response.Redirect("clientes_registro.asp?msj=EXISTE&" & request.form() )
end if
rs.close

rs.Open "SELECT * FROM CLientes WHERE idcliente = 0",conn,2,2
rs.AddNew

if request("cli_nombre") <> "" then 
	rs("cli_nombre")=request("cli_nombre")
else
	rs("cli_nombre")=""
end if	

if request("cli_telefono") <> "" then 
	rs("cli_telefono")=request("cli_telefono")
else
	rs("cli_telefono")=""
end if	

if request("cli_Whatsapp") <> "" then 
	rs("cli_Whatsapp")=request("cli_Whatsapp")
else
	rs("cli_Whatsapp")=""
end if	

if request("cli_direccion") <> "" then 
	rs("cli_direccion")=request("cli_direccion")
else
	rs("cli_direccion")=""
end if

if request("cli_localidad") <> "" then 
	rs("cli_localidad")=request("cli_localidad")
else
	rs("cli_localidad")=""
end if

if request("cli_provincia") <> "" then 
	rs("cli_provincia")=request("cli_provincia")
else
	rs("cli_provincia")=""
end if


if request("cli_cuit") <> "" then 
	rs("cli_cuit")=request("cli_cuit")
else
	rs("cli_cuit")=""
end if

if request("cli_actividad") <> "" then 
	rs("cli_actividad")=request("cli_actividad")
else
	rs("cli_actividad")=""
end if	

if request("cli_email") <> "" then 
	rs("cli_email")=request("cli_email")
else
	rs("cli_email")=""
end if

if request("cli_pass") <> "" then 
	rs("cli_pass")=request("cli_pass")
else
	rs("cli_pass")=""
end if

if request("cli_contacto") <> "" then 
	rs("cli_contacto")=request("cli_contacto")
else
	rs("cli_contacto")=""
end if

if request("cli_mandarinfo") = "SI" then 
	rs("cli_mandarinfo")=true
else
	rs("cli_mandarinfo")=false
end if

rs("cli_autorizado")=false
rs("cli_now") = now()
rs("cli_IP") =  Request.ServerVariables("Remote_Addr")

rs.Update
rs.Close
conn.Close


Dim xbody

xbody = "Formulario de cliente del dia " & date() & " a las " & time() & "<br><br>" & " desde IP:" & Request.ServerVariables("Remote_Addr")

xbody = xbody & "<br><br>Datos del CLIENTE<br>"
xbody = xbody & "Nombre : " & request("cli_nombre") & "<br>"
xbody = xbody & "Email : <a href='mailto:" & request("cli_Email") & "'>" & request("cli_Email") & "</a><br>"
xbody = xbody & "Telefono : " & request("cli_telefono") & "<br>"
xbody = xbody & "Direccion : " & request("cli_direccion") & " - " & request("cli_localidad") & " - " & request("cli_provincia") & "<br>"
xbody = xbody & "Contacto : " & request("cli_contacto") & "<br>"
xbody = xbody & "Actividad : " & request("cli_actividad") & "<br>"
xbody = xbody & "CUIT : " & request("cli_cuit") & "<br>"

Dim omail, Mailconf

Set omail = Server.CreateObject("CDO.Message")
'omail.From=  "info@fe-cort.com.ar"
omail.From=  "info@Fe-cort.com.ar"
omail.To= "info@Fe-cort.com.ar"
omail.Subject = "Nuevo cliente 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("clientes.asp?msj=REGISTRO")%>

PK 99