<!-- #include file="Conexion.asp" -->
<%
'Declarando Variables
dim tipo
dim sql
dim rs
dim pagina
dim mensaje

set tipo = Request.Form("tipo")

' tipo = 1 : Realiza la validacion Si el usuario existe
if tipo=1 then 
	dim usuario
	dim clave
	
	set usuario = Request.Form("txtUsuario")
	set clave   = Request.Form("txtClave")
		sql 	= "sp_GranjaVilla_0001 '"+usuario+"','"+clave+"'"
	Set rs		= Conex.Execute(sql)	

	if rs.eof  then
		mensaje = "Usuario No Existe"
		pagina  = "MensajeSistema.asp?mensaje="+mensaje
	else
		if rs.Fields("cUserActi").value = 1 then
			Session("usuario") = usuario
			mensaje = "Bienvenido(a)"
			pagina  = "frmprincipal.asp?mensaje="+mensaje 
		else 
			mensaje = "Usuario No se encuentra Activo"
			pagina  = "MensajeSistema.asp?mensaje="+mensaje
		end if 
	end if	

	rs.Close
	set rs = Nothing
	Conex.Close
	set Conex = Nothing			
	response.buffer = true 
	Response.Clear()
	Response.Redirect(pagina)
	Response.End()
	
		
end if

if tipo=2 then
	dim ParamBusqueda
	dim rdBusqueda
	set rdBusqueda=Request.Form("rdBusqueda")
	if rdBusqueda=1 then
		ParamBusqueda = Request.Form("txtNombreComp")
	else
		ParamBusqueda = Request.Form("txtnroTarjeta")
	end if
	
	pagina="frmPrincipalResultadoBusqueda.asp?tipobusq="+rdBusqueda+"&parametrobusq="+ParamBusqueda	
	response.buffer = true 
	Response.Clear()
	Response.Redirect(pagina)
	Response.End()	
	rs.Close
	set rs = Nothing
	Conex.Close
	set Conex = Nothing	
end if

'Inserta datos del nuevo cliente
if tipo=3 then
dim txtNroTarjeta
dim txtCodLocal
dim txtApellidos
dim txtNombres
dim txtDpto
dim txtProv
dim txtDist
dim txaDireccion
dim txtTelefono
dim cbLocal
dim txtEmail
dim txtTipoC
dim dc
	
	set txtNroTarjeta = Request.Form("txtNroTarjeta")
	set txtCodLocal = Request.Form("txtCodLocal")
	set txtApellidos = Request.Form("txtApellidos")
	set txtNombres = Request.Form("txtNombres")
	set txtDpto = Request.Form("txtDpto")
	set txtProv = Request.Form("txtProv")
	set txtDist = Request.Form("txtDist")
	set txaDireccion = Request.Form("txaDireccion")
	set txtTelefono = Request.Form("txtTelefono")
	set cbLocal = Request.Form("cbLocal")
	set txtEmail = Request.Form("txtEmail")
	set txtTipoC = Request.Form("txtTipoC")
	set dc = Request.Form("dc")
	
	sql 	= "sp_GranjaVilla_0009 '"+txtNroTarjeta+"','"+txtCodLocal+"','"+txtApellidos+"','"+txtNombres+"','"+txaDireccion+"','"+txtDist+"','"+txtProv+"','"+txtDpto+"','"+txtTelefono+"','"+txtEmail+"','"+dc+"','"+txtTipoC+"'"
	Set rs		= Conex.Execute(sql)	
	
	sql		= "sp_GranjaVilla_0010 '"+txtNroTarjeta+"','"+Session("usuario")+"','"+txtCodLocal+"'"
	Set rs		= Conex.Execute(sql)
	
	mensaje = "Cliente Registrado Correctamente"
	pagina  = "MensajeSistema.asp?mensaje="+mensaje+"&cod=2"
	response.buffer = true 
	Response.Clear()
	Response.Redirect(pagina)
	Response.End()	

end if

if tipo=4  then
dim codLocal
dim codtbusq
dim parametrobusq
dim codclte

set codclte  = Request.Form("codclte")
set codLocal = Request.Form("codLocal")
set codtbusq = Request.Form("codtbusq")
set parambus = Request.Form("parambus")

Session("SesCodclte") 	= codclte
Session("sesCodLocal") 	= codLocal

pagina			= "frmPrincipalResultadoBusqueda.asp?tipobusq="+codtbusq+"&parametrobusq="+parambus
'pagina			= "frmPrincipalResultadoBusqueda.asp"
	response.buffer = true 
	Response.Clear()
	Response.Redirect(pagina)
	Response.End()	

end if

%>
