<%@ LANGUAGE=VBScript %>
<% 
'---------------------------------------------------------------------------------------------------------------------------------------------------------------------'
' Do Not Cache this Page and turn on the Response Buffer

Response.AddHeader "cache-control", "private"
Response.AddHeader " pragma", "no-cache"
Response.buffer=true

'---------------------------------------------------------------------------------------------------------------------------------------------------------------------'
'------- Include The Configuration Variables -- The Following Include is Required on each Page that needs Protection -------'
%>
<!--#include File="MyLoginConfig.inc"-->
<%
'---------------------------------------------------------------------------------------------------------------------------------------------------------------------'
'------ (Start Required variables for Pages) The Following Variables are Required on each Page that needs Protection --------'

MyLoginGroup = "None"                'If the page uses Group Access Change "None" to Group Name
MyLoginIndividualAccess = 1          'if the Page uses individual Access Change 1 to the Access Level 


'----------------------------------------------- (End Required variables for Pages) --------------------------------------------------------------------'
'---------------------------------------------------------------------------------------------------------------------------------------------------------------------'

'---------------------------------------------------------------------------------------------------------------------------------------------------------------------'
' Check for individual Page Access Security

If   Session("MyLoginGroup") = "None" Then
	If  Session("MyLoginIndividualAccess") > MyLoginIndividualAccess Then
		Session("MyLoginUserValidated") = ""
		Session("MyLoginGroup") = ""
		Session("MyLoginIndividualAccess") = ""
	End If
Else
	If Not Session("MyLoginGroup") = MyLoginGroup Then
		Session("MyLoginUserValidated") = ""
		Session("MyLoginGroup") = ""
		Session("MyLoginIndividualAccess") = ""
	End If
End If

'---------------------------------------------------------------------------------------------------------------------------------------------------------------------'
' Used for This page only!

Redisplay = "No"

'---------------------------------------------------------------------------------------------------------------------------------------------------------------------'
' Logoff Current User

If Request.Form("rectype") = "Clear" Then
	Session("MyLoginUserValidated") = ""
	Session("MyLoginGroup") = ""
	Session("MyLoginIndividualAccess") = ""
	Session("MyLoginUserName") = ""
	Session("MyLoginNickName") = ""
	Session("MyLoginUserCode") = ""
	Session("MyLoginID") = ""	

End If

'---------------------------------------------------------------------------------------------------------------------------------------------------------------------'
' Validate the User/Password Login Form

If Request.Form("rectype") = "Validate" Then
	If Len(Request.Form("UserCode")) <1 or Len(Request.Form("Password")) < 1 Then
		Session("MyLoginUserValidated") = "No"
	Else
		Set MyConn=Server.CreateObject("ADODB.Connection")
		MyConn.Open "PROVIDER=MSDASQL;" & "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & MyLoginDB
		MySQL="Select  * from UserData Where UserCode = '"  & Request.Form("UserCode") & "' and Password = '" & Request.Form("Password") & "'"  
		Set MyRs=MyConn.Execute(MySQL)
		
		If MyRs.BOF or MyRs.EOF Then
			Session("MyLoginUserValidated") = "No"
		Else
			If MyLoginGroup = "None" Then
				If MyRs("IndividualAccess") = MyLoginIndividualAccess or MyRs("IndividualAccess") < MyLoginIndividualAccess Then
					theDate = MyRs("ExpirationDate")
					DateCheck = DateDiff("d", Now, theDate)
					If DateCheck < 1 Then
						Session("MyLoginUserValidated") = "Expired"
						Session("MyLoginGroup") = "None"
						Session("MyLoginIndividualAccess") = ""
						Session("MyLoginUserName") = ""
						Session("MyLoginNickName") = ""
                     	Session("MyLoginUserCode") = ""
                    	Session("MyLoginID") = ""	
					Else
						Session("MyLoginUserValidated") = "Yes"
						Session("MyLoginGroup") = "None"
						Session("MyLoginIndividualAccess") = MyRs("IndividualAccess")
						Session("MyLoginName") = MyRs("Name")
						Session("MyLoginNickName") = MyRs("NickName")
                     	Session("MyLoginUserCode") = MyRs("UserCode")
                      	Session("MyLoginID") = MyRs("ID")            
						

					End If
				Else
					Session("MyLoginUserValidated") = "Almost"
					Session("MyLoginGroup") = "None"
					Session("MyLoginIndividualAccess") = ""
					Session("MyLoginUserName") = ""
					Session("MyLoginNickName") = ""
                  	Session("MyLoginUserCode") = ""
                  	Session("MyLoginID") = ""	   
				End If
			Else
				If MyRs("aGroup") = MyLoginGroup Then
					theDate = MyRs("ExpirationDate")
					DateCheck = DateDiff("d", Now, theDate)
					If DateCheck > 0 Then
						Session("MyLoginUserValidated") = "Yes"
						Session("MyLoginGroup") = MyRs("aGroup")
						Session("MyLoginIndividualAccess") = ""
						Session("MyLoginUserName") = ""
						Session("MyLoginNickName") = ""
                     	Session("MyLoginUserCode") = ""
                    	Session("MyLoginID") = ""	
					Else
						Session("MyLoginUserValidated") = "Almost"
						Session("MyLoginGroup") = "None"
						Session("MyLoginIndividualAccess") = ""
						Session("MyLoginUserName") = ""
						Session("MyLoginNickName") = ""
	                  	Session("MyLoginUserCode") = ""
                    	Session("MyLoginID") = ""	
					End If	
				End If
			End If
		End If
		MyRs.close
		Set MyRs= Nothing
		MyConn.Close
		set MyConn=nothing
	End If
End If


'---------------------------------------------------------------------------------------------------------------------------------------------------------------------'
' Start the HTML Page

Response.Write ("<html>")
Response.Write ("<head>")
Response.Write ("<title>Administración de Clientes</title>")

Response.Write ("</head>")
Response.Write ("<body Text=""#000000"" bgcolor=""#CAD9EC"" Link=""#000099"" ALink=""#000099"" VLink=""#000099"" scroll=""no""    ")
Response.Write ("<P>")

Response.Write ("<STYLE>")
Response.Write ("BODY {scrollbar-face-color: #f9f9f9; scrollbar-shadow-color: #003366; ")
Response.Write ("scrollbar-highlight-color: #003366; scrollbar-3dlight-color: #f9f9f9; ")
Response.Write ("scrollbar-darkshadow-color: #f9f9f9; scrollbar-track-color: #f9f9f9; ")
Response.Write ("scrollbar-arrow-color: #003366}")
Response.Write ("</STYLE>")


'---------------------------------------------------------------------------------------------------------------------------------------------------------------------'
' Process The Delete Verification

If Request.Form("rectype") = "DeleteVerified" and Session("MyLoginUserValidated") = "Yes" Then
	If Request.form("ID") > 1 Then
		Set MyConn=Server.CreateObject("ADODB.Connection")
		MyConn.Open "PROVIDER=MSDASQL;" & "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & MyLoginDB
		MySQL="Delete from UserData Where UserData.ID = "  & Request.Form("ID")
		Set MyRs=MyConn.Execute(MySQL)
		MyConn.Close
		set MyConn=nothing
		Redisplay = "Yes"
	End If
	Redisplay = "Yes"
End If


'---------------------------------------------------------------------------------------------------------------------------------------------------------------------'
' Proceso  para añadir nuevo registro o cliente

If Request.Form("rectype") = "InsertRec" and Session("MyLoginUserValidated") = "Yes" Then

	theErrors = 0
	Set MyConn=Server.CreateObject("ADODB.Connection")
	MyConn.Open "PROVIDER=MSDASQL;" & "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & MyLoginDB
	MySQL="Select UserCode from UserData Where UserCode = '"  & Request.form("UserCode") & "'"
	Set MyRs=MyConn.Execute(MySQL)

	If MyRs.BOF or MyRs.EOF Then
		theOtherErrors = 0	
	Else
		theOtherErrors = 1
	End If

	MyRs.close
	Set MyRs= Nothing
	MyConn.Close
	set MyConn=nothing

	theGroups = 0
	
'	If Len(Request.Form("Group") ) < 1 Then
'		If Len(Request.Form("IndividualAccess")) < 1Then
'			theGroups = 1
'		ElseIf Request.Form("IndividualAccess") < 1 Then
'			theGroups = 1
'		End If
'	End If
'	If Len(Request.Form("Group") ) > 0 Then
'		If Len(Request.Form("IndividualAccess"))  > 0 Then
'			If Request.Form("IndividualAccess") > 0 Then
'				theGroups = 2
'			End If
'		End If
'	End If
	

    '	Error de datos al actualizar el registro
	
	If (Len(Request.Form("Password")) < 1) or (Len(Request.Form("Name")) < 1)  or (theGroups > 0) or (theOtherErrors = 1) Then

	'	Response.Write ("<P><Font Size=""4"">")
'		Response.Write ("<div align=""center"">")
'		Response.Write ("<B>MyLogin Error Report</B>")
'		Response.Write ("</div>")
'		Response.Write ("</Font>")
'		Response.Write ("<P>")
'		Response.Write ("<div align=""center"">")
	
		Texto= "ERROR DE DATOS"
		HeaderBar
	
		Response.Write ("<div align=""center"">")
		Response.Write("<Table CELLPADDING=0 CELLSPACING=0 BGCOLOR=#55a7ce Width=""50%"" Border=""0""><TR><TD height=80 align=center><b><font face=tahoma> ERROR DE REGISTRO<P>")
		Response.Write("<Font Color=""yellow"" Size=""2"">")
	End If

	If theOtherErrors = 1 Then
		theErrors = 1
		Response.Write("Este Usuario ya existe, elija otro por favor")
	End If
	
	If theOtherErrors = 0 Then
		If Len(Request.Form("UserCode")) < 1 Then
			theErrors = 1
			Response.Write("Falta el LOGIN<br>")
		End If
		If Len(Request.Form("Password")) < 1 Then
			theErrors = 1
			Response.Write("Falta el PASSWORD<br>")
		End If
		If Len(Request.Form("Name")) < 1 Then
			theErrors = 1
			Response.Write("Falta la EMPRESA <br>")
		End If

'		If theGroups = 1 Then
'			theErrors = 1
'			Response.Write("Group Access or Individual Access Level Required<br>")
'		End If
'		If theGroups = 2 Then
'			theErrors = 1
'			Response.Write("Select only 1 option Group Access or Individual Access")
'		End If

	End If
	If theErrors = 1 Then
		Response.Write("</Font>")
    	Response.Write ("<tr></tr><td height=50 colspan=""2"" align=""center""><INPUT NAME=""Submit"" TYPE=""button"" Value=""Volver""  onclick=""javascript:window.history.back()  ""      ></td>")    
		Response.Write("</td></tr></table><P>")
		Response.Write("</div>")
		Response.Write("</body>")
		Response.Write("</html>")
		Response.End
	Else
		Set MyConn=Server.CreateObject("ADODB.Connection")
		MyConn.Open "PROVIDER=MSDASQL;" & "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & MyLoginDB

		'-------- Build Fields to be inserted into SQL Statement) -------'
		MySQL="Insert into UserData (UserCode, Password"
		If Len(Request.Form("Group")) > 0 Then
			MySQL = MySQL & ", aGroup"
		End If
		If Len(Request.Form("URL")) > 0 Then
			MySQL = MySQL & ", RedirectUrl"
		End If
		If Len(Request.Form("IndividualAccess")) > 0 Then
			MySQL = MySQL & ", IndividualAccess"
		End If
		MySQL = MySQL & ", Name"
		If Len(Request.Form("NickName")) > 0 Then
			MySQL = MySQL & ", NickName"
		End If
		If Len(Request.Form("Email")) > 0 Then
			MySQL = MySQL & ", Email"
		End If
		If Len(Request.Form("ExpirationDate")) > 0 Then
			MySQL = MySQL & ", ExpirationDate)"
		Else
			MySQL = MySQL & ")"
		End If
		
		
		'-------- Build Data to be inserted into SQL Statement) -------'
		MySQL = MySQL & " VALUES ("
		MySQL = MySQL & "'" & Request.Form("UserCode") & "'" 
		MySQL = MySQL & ", '" & Request.Form("Password") & "'" 
		If Len(Request.Form("Group")) > 0 Then
			MySQL = MySQL & ", '" & Request.Form("Group") & "'" 
		End If
		If Len(Request.Form("URL")) > 0 Then
			MySQL = MySQL & ", '" & Request.Form("URL") & "'"
		End If
		If Len(Request.Form("IndividualAccess")) > 0 Then
			MySQL = MySQL & ", " & Request.Form("IndividualAccess")
		End If
		MySQL = MySQL & ", '" & Request.Form("Name") & "'" 
		If Len(Request.Form("NickName")) > 0 Then
			MySQL = MySQL & ", '" & Request.Form("NickName") & "'" 
		End If
		If Len(Request.Form("Email")) > 0 Then
			MySQL = MySQL & ", '" & Request.Form("Email") & "'"
		End If
		If Len(Request.Form("ExpirationDate")) < 1 Then
			MySQL = MySQL & ")"
		Else
			tmpDate = Request.Form("ExpirationDate")
			theYear = Year(tmpDate)
			theMonth = Month(tmpDate)
			theDay = Day(tmpDate)
			theDate = theMonth & "/" & theDay & "/" & theYear
			MySQL = MySQL & ", '"
			MySQL = MySQL &  theDate
			MySQL = MySQL & "')"
		End If
		Set MyRs=MyConn.Execute(MySQL)
		MyConn.Close
		set MyConn=nothing 
		Redisplay = "Yes"
	End If
End If


'----------------------------------------------------------------------------------------------------------------------------------------------------------------------'
' Proceso para actualizar registros

If Request.Form("rectype") = "Actualizar" and Session("MyLoginUserValidated") = "Yes" Then
	theErrors = 0
	Set MyConn=Server.CreateObject("ADODB.Connection")
	MyConn.Open "PROVIDER=MSDASQL;" & "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & MyLoginDB
	MySQL="Select UserCode from UserData Where UserCode = '"  & Request.form("UserCode") & "'"
	Set MyRs=MyConn.Execute(MySQL)
	If MyRs.BOF or MyRs.EOF Then
		theOtherErrors = 0	
	Else
		theOtherErrors = 1
	End If
	MyRs.close
	Set MyRs= Nothing
	MyConn.Close
	set MyConn=nothing

	theGroups = 0

'	If Len(Request.Form("Group") ) < 1 Then
'		If Len(Request.Form("IndividualAccess")) < 1Then
'			theGroups = 1
'		ElseIf Request.Form("IndividualAccess") < 1 Then
'			theGroups = 1
'		End If
'	End If
'	If Len(Request.Form("Group") ) > 0 Then
'		If Len(Request.Form("IndividualAccess"))  > 0 Then
'			If Request.Form("IndividualAccess") > 0 Then
'				theGroups = 2
'			End If
'		End If
'	End If

	If (Len(Request.Form("Password")) < 1) or (Len(Request.Form("Name")) < 1)  or (theGroups > 0) or (theOtherErrors = 1) Then

'		Response.Write ("<P><Font Size=""4"">")
'		Response.Write ("<div align=""center"">")
'		Response.Write ("<B>MyLogin Error Report</B>")
'		Response.Write ("</div>")
'		Response.Write ("</Font>")
'		Response.Write ("<P>")
'		Response.Write ("<div align=""center"">")
    
		Texto= "ERROR"
		HeaderBar
		Response.Write ("<div align=""center"">")
		Response.Write("<Table Width=""50%"" Border=""0""><TR><TD>Listado de Errores <P>")
		Response.Write("<Font Color=""#CC3300"" Size=""-1"">")
	End If
	If theOtherErrors = 1 Then
		theErrors = 1
		Response.Write("El Login ya esta en usuo, Seleccione otro por favor<br>")
	End If
	If theOtherErrors = 0 Then
		If Len(Request.Form("Password")) < 1 Then
			theErrors = 1
			Response.Write("Falta el Password <br>")
		End If
		If Len(Request.Form("Name")) < 1 Then
			theErrors = 1
			Response.Write("User Name Missing<br>")
		End If
		If theGroups = 1 Then
			theErrors = 1
			Response.Write("Group Access or Individual Access Level Required<br>")
		End If
		If theGroups = 2 Then
			theErrors = 1
			Response.Write("Select only 1 option Group Access or Individual Access")
		End If
	End If
	If theErrors = 1 Then
		Response.Write("</Font>")
		Response.Write("<P>Use your Back Button to return tddddddddddddo the Form")
		Response.Write("</td></tr></table><P>")
		Response.Write("</div>")
		Response.Write("</body>")
		Response.Write("</html>")
		Response.End
	Else
		Set MyConn=Server.CreateObject("ADODB.Connection")
		MyConn.Open "PROVIDER=MSDASQL;" & "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & MyLoginDB
		MySQL="UPDATE UserData SET "

		MySQL = MySQL & "UserData.Name = '" & Request.Form("Name") & "', "
		MySQL = MySQL & "UserData.NickName = '" & Request.Form("NickName") & "', "
		MySQL = MySQL & "UserData.Password = '" & Request.Form("Password") & "', "
		MySQL = MySQL & "UserData.Email = '" & Request.Form("Email") & "', "
		MySQL = MySQL & "UserData.aGroup = '" & Request.Form("Group") & "', "

		If Len(Request.Form("URL")) > 0 Then
			MySQL = MySQL & "UserData.RedirectUrl = '" & Request.Form("URL") & "', "
		End If

		If Len(Request.Form("IndividualAccess")) > 0 Then
			MySQL = MySQL & "UserData.IndividualAccess = " & Request.Form("IndividualAccess") & ", "
		Else
			MySQL = MySQL & "UserData.IndividualAccess = " & 0 & ", "
		End If

		tmpDate = Request.Form("ExpirationDate")
		theYear = Year(tmpDate)
		theMonth = Month(tmpDate)
		theDay = Day(tmpDate)
		theDate = theMonth & "/" & theDay & "/" & theYear

		If Len(Request.Form("ExpirationDate")) > 0 Then
			MySQL = MySQL & "UserData.ExpirationDate = '" & theDate & "' "
		End If
		MySQL = MySQL & "Where UserData.ID = " & Request.Form("ID")
		Set MyRs=MyConn.Execute(MySQL)
		MyConn.Close
		set MyConn=nothing 
		Redisplay = "Yes"
	End If
End If


'---------------------------------------------------------------------------------------------------------------------------------------------------------------------'
' Pide login y clave para entrar

If Not Session("MyLoginUserValidated") = "Yes" Then

%>
<!--- Aqui va la pagina principal --->


<script language="JavaScript">
function makevisible(cur,which){
if (which==0)
   cur.filters.alpha.opacity=100
else
   cur.filters.alpha.opacity=40
}
</script>

<STYLE type=text/css>
   A:link {color: #cc3333; font-size: 12px ;font-weight:bold; text-decoration:none; font-family: Arial ; }
   A:visited {color: #cc3333; font-size: 12px ;font-weight:bold; text-decoration:none; font-family: Arial ; }
   A:hover { color: #003366; font-size: 12px; font-weight:bold;  text-decoration:none; font-family: Arial; }
</STYLE>


<div style=" POSITION: absolute; TOP: 12px;  LEFT: 10px; VISIBILITY: show;  WIDTH: 588px; Z-INDEX=1">
	<a href="..\marcas.htm" target="principal"><img src="../p_foto_copy_1.gif" width="44" height="44" border="0" alt="5 Estrellas es una marca registrada" hspace=5><img src="../p_foto_copy_2.gif" width="44" height="44" border="0" alt="Etiqueta negra es una marca registrada"></a>
</DIV>

 
<div style=" POSITION: absolute; TOP: 7%;  LEFT: 20%; VISIBILITY: show; WIDTH: 585px;Z-INDEX=2">
	<img src="../titulo2.gif" width="361" height="68" border="0" alt="">
</div>


<div style=" POSITION: absolute; TOP: 28%;  LEFT: 22px; VISIBILITY: show;  Z-INDEX=1">
<img src="../a3.jpg" width="118" height="74" border="0" onmouseout=makevisible(this,1) onmouseover=makevisible(this,0) style="FILTER: alpha(opacity=40)">
<img src="../a2.jpg" width="118" height="74" border="0" onmouseout=makevisible(this,1) onmouseover=makevisible(this,0) style="FILTER: alpha(opacity=40)">
<img src="../a1.jpg" width="118" height="74" border="0" onmouseout=makevisible(this,1) onmouseover=makevisible(this,0) style="FILTER: alpha(opacity=40)">
<img src="../a4.jpg" width="118" height="74" border="0" onmouseout=makevisible(this,1) onmouseover=makevisible(this,0) style="FILTER: alpha(opacity=40)">
<br>
<img src="../a5.jpg" width="118" height="74" border="0" onmouseout=makevisible(this,1) onmouseover=makevisible(this,0) style="FILTER: alpha(opacity=40)">
<img src="../a12.jpg" width="118" height="74" border="0" onmouseout=makevisible(this,1) onmouseover=makevisible(this,0) style="FILTER: alpha(opacity=40)">
<img src="../a7.jpg" width="118" height="74" border="0" onmouseout=makevisible(this,1) onmouseover=makevisible(this,0) style="FILTER: alpha(opacity=40)">
<img src="../a8.jpg" width="118" height="74" border="0" onmouseout=makevisible(this,1) onmouseover=makevisible(this,0) style="FILTER: alpha(opacity=40)">
<br>
<img src="../a9.jpg" width="118" height="74" border="0" onmouseout=makevisible(this,1) onmouseover=makevisible(this,0) style="FILTER: alpha(opacity=40)">
<img src="../a10.jpg" width="118" height="74" border="0" onmouseout=makevisible(this,1) onmouseover=makevisible(this,0) style="FILTER: alpha(opacity=40)">
<img src="../a11.jpg" width="118" height="74" border="0" onmouseout=makevisible(this,1) onmouseover=makevisible(this,0) style="FILTER: alpha(opacity=40)">
<img src="../a6.jpg" width="118" height="74" border="0" onmouseout=makevisible(this,1) onmouseover=makevisible(this,0) style="FILTER: alpha(opacity=40)">

</div>


<div style=" POSITION: absolute; TOP: 1%;  LEFT: 67%; VISIBILITY: show;  Z-INDEX=1">
   <img src="../mapa_fondo.gif" width="286" height="384" border="0" alt="" style="FILTER: alpha(opacity=18)">
   <div style=" POSITION: absolute; TOP: 60%;  LEFT: 25%; VISIBILITY: show;  Z-INDEX=2">
        <OBJECT classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"
     	codebase="http://active.macromedia.com/flash2/cabs/swflash.cab#version=4,0,0,0"
    	ID=punto1 WIDTH=54 HEIGHT=16>
		<PARAM NAME=movie VALUE="punto1.swf">
		<PARAM NAME=quality VALUE=high>
		<PARAM NAME=wmode VALUE=transparent>
		<PARAM NAME=bgcolor VALUE=#FFFFFF>
		<EMBED src="punto1.swf" quality=high bgcolor=#FFFFFF wmode=transparent
			WIDTH=54 HEIGHT=16 TYPE="application/x-shockwave-flash"
			PLUGINSPAGE="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash">
		</EMBED>
		</OBJECT>
	</div>
</div>


<!--- 
<div style=" POSITION: absolute; TOP: 45%;  LEFT: 40%; VISIBILITY: show;  Z-INDEX=1">
<img src="b13.jpg" width="194" height="130" border="0" style="FILTER: alpha(opacity=100)" alt="">
</div>

<div style=" POSITION: absolute; TOP: 60%;  LEFT: 25%; VISIBILITY: show;  Z-INDEX=1">
<img src="../fotos/mejillonp.jpg" width="146" height="99" border="0" style="FILTER: alpha(opacity=100)" alt="">
</div>

 --->


<div style=" POSITION: absolute; TOP: 94%;  LEFT: 0px; VISIBILITY: show;  Z-INDEX=1">
&nbsp;<A href="..\copyright.htm">Copyright (c)&nbsp;&nbsp;</a><font face="verdana" size ="1" color="#003366">Mariscos Arnoso S.L.
</div>


<%


	Response.Write (" <div style="" POSITION: absolute; TOP: 10px;  LEFT: 75%; VISIBILITY: show;Z-INDEX=2"">         ")
	Response.Write ("<FORM ACTION=""" & MyLoginReturnPage & """ METHOD=""POST"" Name=""MyLogin"" target=""principal""   >")
	Response.Write ("<Table  CellPadding=""0"" CellSpacing=""3"" Border=""0"">")
	Response.Write ("<TR>")
	Response.Write ("<TD  align=""Right""><font face=""Tahoma""  size=""2"">Cliente:&nbsp; </B></Font></TD>")
	Response.Write ("<TD align=""Left""><INPUT NAME=""UserCode"" TYPE=""Text"" Size=""15"" MaxLength=""20""></TD>")
	Response.Write ("</TR>")
	Response.Write ("<TR>")
	Response.Write ("<TD align=""Right""><font face=""Tahoma""  size=""2"">Password:&nbsp; </B></Font></TD>")
	Response.Write ("<TD align=""Left""><INPUT NAME=""Password"" TYPE=""Password"" Size=""15"" MaxLength=""20""></TD>")
	Response.Write ("</TR>")
	Response.Write ("<TR>")
	Response.Write ("<TD align=""right"" Colspan=""2""><INPUT NAME=""Submit"" TYPE=""Submit"" Value=""Entrar""></TD>")
	Response.Write ("</TR>")
	Response.Write ("</Table>")
	Response.Write ("<INPUT NAME=""rectype"" TYPE=""Hidden"" Value=""Validate"" Size=""8"">")
	Response.Write ("</Form>")
	Response.Write ("</div>")


	If Session("MyLoginUserValidated") = "Almost" Then
		Response.Write ("<Font Size=""+1"" Color=""#FF0000"">Nivel de Seguridad Insuficiente</Font><P>")
	End If

	If Session("MyLoginUserValidated") = "No" Then
		Response.Write ("<Font Size=""+1"" Color=""#FF0000"">Login/Password Incorrectos</Font><P>")
	End If

	If Session("MyLoginUserValidated") = "Expired" Then
		Response.Write ("<Font Size=""+1"" Color=""#FF0000"">Su Acceso a Caducado</Font><P>")
	End If


End If


'---------------------------------------------------------------------------------------------------------------------------------------------------------------------'
' Muestra la Base de Datos de clientes


If (Request.Form("rectype") = "" and  Session("MyLoginUserValidated") = "Yes") or (Request.Form("rectype") = "Validate" and  Session("MyLoginUserValidated") = "Yes")  or Redisplay = "Yes"    Then


    If session("MyLoginUserCode") = "elias" then

    Texto= "CLIENTES"
    HeaderBar

'    Response.Write ("<P><Font Size=""4"">")
'	Response.Write ("<div align=""center"">")
'	Response.Write ("<B>Listado de Clientes</B>")
'	Response.Write ("</div>")
'	Response.Write ("</Font>")
'	Response.Write ("<P>")
'	Response.Write ("<div align=""center"">")

'	HeaderBar

	Set MyConn=Server.CreateObject("ADODB.Connection")
	MyConn.Open "PROVIDER=MSDASQL;" & "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & MyLoginDB
	MySQL="Select ID, UserData.Name, UserData.NickName, UserData.UserCode, UserData.Email,UserData.Compras from UserData Where UserData.ID > "  & 0 & " Order by UserData.Name"
	Set MyRs=MyConn.Execute(MySQL)

	Response.Write ("<Table  CellPadding=""0"" CellSpacing=""0"" Border=""1"">")
	
   ' howmanyfilds= numero de campos a mostrar menos uno para la de la fecha de caducidad
	howmanyfields=MyRs.fields.count -1
	
'	Response.Write ("<td align=""center"" bgcolor=""Silver"" valign=""middle"">&nbsp;</TD>")
'	Response.Write ("<td align=""center"" bgcolor=""Silver"" valign=""middle"">&nbsp;</TD>")


    'ENCABEZADO DEL LISTADO DE REGISTROS O CLIENTES
	
'	for i=0 to howmanyfields
'		If I > 0 Then
'			Response.Write ("<td bgcolor=""Silver""  align=""center"" valign=""middle""><Font Size=""-1"">" & MyRs(i).name & "</Strong></Font></TD>")
'		End If
'	next

	Response.Write ("<td bgcolor=""Silver""  align=""center"" valign=""middle""> <Font Size=""-1""></Strong></Font></TD>")
	Response.Write ("<td bgcolor=""Silver""  align=""center"" valign=""middle""> <Font Size=""-1""></Strong></Font></TD>")
	Response.Write ("<td bgcolor=""Silver""  align=""center"" valign=""middle""> <Font Size=""-1"">Empresa</Strong></Font></TD>")
	Response.Write ("<td bgcolor=""Silver""  align=""center"" valign=""middle""> <Font Size=""-1"">Nombre</Strong></Font></TD>")		
	Response.Write ("<td bgcolor=""Silver""  align=""center"" valign=""middle""> <Font Size=""-1"">Login</Strong></Font></TD>")
	Response.Write ("<td bgcolor=""Silver""  align=""center"" valign=""middle""> <Font Size=""-1"">Email</Strong></Font></TD>")		
    Response.Write ("<td bgcolor=""Silver""  align=""center"" valign=""middle""> <Font Size=""-1"">Compras</Strong></Font></TD>")			
	
	Response.Write ("</tr>")


	do  while not MyRs.eof
	
		Response.Write ("<tr>")
		Response.Write ("<FORM ACTION=""" & MyLoginReturnPage & """ METHOD=""POST"" Name=""MyLoginSelect"">")
		Response.Write ("<td valign=""middle""><Font Size=""-1"">")
		Response.Write ("<INPUT NAME=""rectype"" TYPE=""Hidden"" Value=""Borrar"" Size=""5"">    ") 
		Response.Write ("<INPUT NAME=""ID"" TYPE=""Hidden"" Value=""" & MyRs(0) & """>")
'		Response.Write ("<INPUT NAME=""Submit"" TYPE=""Submit"" Value=""Borrar"">")
		Response.Write ("<input type=""image"" src=""b_borrar.gif"" submit="" borrar="">")

		
		Response.Write ("</Font></td>")

		Response.Write ("</FORM>")
		Response.Write ("<FORM ACTION=""" & MyLoginReturnPage & """ METHOD=""POST"" Name=""MyLoginSelect"">")
		Response.Write ("<td  valign=""middle""><Font Size=""-1"">")
		Response.Write ("<INPUT NAME=""rectype"" TYPE=""Hidden"" Value=""Editar"" Size=""5"">")
		Response.Write ("<INPUT NAME=""ID"" TYPE=""Hidden"" Value=""" & MyRs(0) & """>")
'		Response.Write ("<INPUT NAME=""Submit"" TYPE=""Submit"" Value=""Editar"">")
		Response.Write ("<input type=""image"" src=""b_editar.gif"" submit="" editar="">")

	
		Response.Write ("</Font></td>")
		Response.Write ("</FORM>")


		for i = 0 to howmanyfields
			If I > 0 Then
				ThisRecord = MyRs(I)

				If Len(ThisRecord) < 1 Then
					ThisRecord = "&nbsp; "
				end if

				If I < howmanyfields Then
     					Response.Write ("<td valign=""middle""><Font face=""tahoma"" Size=""-1"">" & Thisrecord & "</Font></td>")
				Else
     					Response.Write ("<td width=80 align=""right""  ><Font Size=""-1"">" & Thisrecord &  "</Font></td>")	
				End If

			End If
		next
		MyRs.movenext
	loop


	Response.Write ("</tr>")
	Response.Write ("</table>")
	MyRs.close
	Set MyRs= Nothing
	MyConn.Close
	set MyConn=nothing
	Response.Write("<P>&nbsp;</BR>")

	Response.Write ("<table border=""1""><tr>")
	Response.Write ("<FORM ACTION=""" & MyLoginReturnPage & """ METHOD=""POST"" Name=""MyLoginAdd"">")
	Response.Write ("<INPUT NAME=""rectype"" TYPE=""Hidden"" Value=""Add"" Size=""3"">")
	Response.Write ("<td valign=""middle""><Font Size=""-1"">")
	Response.Write ("<INPUT NAME=""Submit"" TYPE=""Submit"" Value=""Añadir nuevo Cliente"">")
	Response.Write ("</Font></td>")
	Response.Write ("</tr>")
	Response.Write ("</FORM>")
	Response.Write ("</table><P>")
	Response.Write ("</div>")

else

    ' Aqui va la pagina del cliente que tiene que mostrar....
    
    Texto= "FICHA DE CLIENTE"
'    CabezaDeCliente


	numero=Session("MyLoginID")     ' Para saber el numero del regitro del cliente

	Set MyConn=Server.CreateObject("ADODB.Connection")
	MyConn.Open "PROVIDER=MSDASQL;" & "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & MyLoginDB
'	MySQL="Select ID, UserData.Name, UserData.NickName, UserData.direccion, UserData.telefono,UserData.Compras from UserData Where UserData.ID = "  & NUMERO & " "
    MySQL="Select * from UserData Where UserData.ID = "  & NUMERO & " "
	Set MyRs=MyConn.Execute(MySQL)
	Session("NombreCliente")=MyRs(5)  ' Para saber cual es la empresa y mandar el formulario
	

	Response.Write ("<br>")
	Response.Write ("<Table bgcolor=Teal height=30 cellSpacing=""0"" Border=""0"">")
  	Response.Write ("<td valign=""middle""><Font color=""white"" face=""arial"" Size=""4"">&nbsp;&nbsp; Cliente: <B>" & MyRs(5) & "&nbsp;&nbsp;&nbsp;</Font></td>")
	Response.Write ("</table><P> <br><br>")
	 %>
	 
	   
	<!---  <iframe src="pedido.htm" name="mostrar" id="mostrar" width="600" height="100" marginwidth="0" marginheight="0" align="middle" scrolling="auto" frameborder="0"></iframe>
	 --->
   <TD>
	
<STYLE type=text/css>
 }
A {
	TEXT-DECORATION: none }
	

A:visited  {color:LightGrey; font-size:12px ;font-weight:bold; text-decoration:none; font-family: Verdana; }
A:link  {color:LightGreyr; font-size:12px ;font-weight:bold; text-decoration:none; font-family: Verdana; }
A:hover { color: Black; font-size: 12px; font-weight:bold;  text-decoration:none; font-family: Verdana; }

	
</STYLE>

<script language="JavaScript" src="..\MuestraOculta.js"></script>

<div style=" POSITION: absolute; TOP: 5%;  LEFT: 80%;  VISIBILITY: show; Z-INDEX=2">
	<FORM ACTION="" & MyLoginReturnPage & " METHOD="POST" Name="Clear"  target="principal"> 
	<INPUT NAME="Submit" TYPE=Submit Value="Salir de Clientes">
	<INPUT NAME="rectype" TYPE="Hidden" Value="Clear" Size="1">
	</form>
</div


<br>
<table bgcolor="#006699" width="400" border="0" align="center"><tr><td>
<table bgcolor="#6699cc" width="400" border="0" align="center">

<td  align="center">

    <a  href="#" onclick="Muestra('COMPRAR-ON');Oculta('ACUMULADO-ON');Oculta('DATOS-ON')" onmouseover="Muestra('COMPRAR-texto')"   onmouseout="Oculta('COMPRAR-texto')"   >
    Realizar COMPRAS</a>
<br><br>
    <a  href="#" onclick="Muestra('DATOS-ON');Oculta('ACUMULADO-ON');Oculta('COMPRAR-ON')"onmouseover="Muestra('ACUMULADO-texto')"   onmouseout="Oculta('ACUMULADO-texto')" >
    Consultar DATOS </a>
<br><br>
    <a href="#" onclick="Muestra('ACUMULADO-ON');Oculta('COMPRAR-ON');Oculta('DATOS-ON')"onmouseover="Muestra('DATOS-texto')"   onmouseout="Oculta('DATOS-texto')"  >
    Ver ACUMULADO</a>
	

</td></table>	
	</td></table>	

	
<div id="COMPRAR-texto" style="POSITION: ABSOLUTE; TOP: 60px;  LEFT: 50px; VISIBILITY: HIDDEN; Z-INDEX=3">
	<table width="423" border=0  height=30 align="center" background="cuadro.gif" ><td>
	
	<font face="Arial" size="2" color="#336666"><b>Entrar en La Opción de Compras...</font></td></table></div>

<div id="ACUMULADO-texto" style="POSITION: ABSOLUTE; TOP: 60px;  LEFT: 50px; VISIBILITY: HIDDEN; Z-INDEX=3">
    <table width="423" border=0  height=30 align="center" background="cuadro.gif" ><td>
	<font face="Arial" size="2" color="#336666"><b>Ver Registro de Compras Efectuadas hasta el momento...</font></td></table></div>

<div id="DATOS-texto" style="POSITION: ABSOLUTE; TOP: 60px;  LEFT: 50px; VISIBILITY: HIDDEN; Z-INDEX=3">
	<table width="423" border=0  height=30 align="center" background="cuadro.gif" ><td>
	<font face="Arial" size="2" color="#336666"><b>Consultar los Datos Personales...</font></td></table></div>


<div id="COMPRAR-ON" style="POSITION: ABSOLUTE; TOP: 80px;  LEFT: 145px;  VISIBILITY: HIDDEN; Z-INDEX=1">
	<FORM ACTION="aspmail.asp" METHOD=POST> 

    <table border="0" cellspacing="0" cellpadding="0" bgcolor="#0099cc" ALIG="CENTER"> 
	
    <td WIDTH="40" align="CENTER" HEIGHT="30">&nbsp;</TD>
    <td WIDTH="50"  align="CENTER" HEIGHT="30"><FONT FACE="VERDANA" SIZE="2" COLOR="WHITE" ><B>Cantidad&nbsp;</td>
    <td WIDTH="200" align="CENTER"><FONT FACE="VERDANA" SIZE="2" COLOR="WHITE" ><B>Envase</td>
    <td WIDTH="200" align="CENTER"><FONT FACE="VERDANA" SIZE="2" COLOR="WHITE" ><B>Producto</td>	
 

    </TABLE>

    <table border="0" width=510 cellspacing="0" cellpadding="0" align="CENTER" bgcolor="White"> 

	<td HEIGHT=10></td>

	<TR></tr>

	
   	<td width=40></td>
	<td HEIGHT=20 WIDTH=80 align=center><input type="text" name="Cantidad_1" value="1" size="3" maxlength="3"></td>
	<td width=200><select name="Envase_1" >
       <option value="" selected>Seleccione Envase </option>
       <option value="Saco 5 Kilos" >Saco 5 Kilos </option>
       <option value="Saco 10 Kilos">Saco 10 Kilos </option>
       <option value="Saco 15 Kilos">Saco 15 Kilos </option>
       <option value="Caja Madera 5 Kilos">Caja Madera 5 Kilos </option>
       <option value="Caja Madera 10 Kilos">Caja Madera 10 Kilos </option>
       <option value="Caja Madera 15 Kilos">Caja Madera 15 Kilos </option>
       <option value="Caja Plastico 5 Kilos">Caja Plastico 5 Kilos </option>
       <option value="Caja Plastico 10 Kilos">Caja Plastico 10 Kilos &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</option>
       <option value="Caja Plastico 15 Kilos">Caja Plastico 15 Kilos </option>
	   <option value="Embolsado 5 Kilos">Embolsado 5 Kilos </option>
	   <option value="Embolsado 10 Kilos">Embolsado 10 Kilos </option>	   
	   <option value="Embolsado 15 Kilos">Embolsado 15 Kilos </option>
	   </select></td>

       <td width=180 ><select name="Producto_1">
       <option value="" selected>Seleccione Producto </option>
       <option value="Mejillon Tamaño A">Mejillon Tamaño A &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</option>
       <option value="Mejillon Tamaño B">Mejillon Tamaño B</option>
       <option value="Mejillon Tamaño C">Mejillon Tamaño C</option>	   	   
	   </select></td>

       <td width=40></td><tr></tr>
       
	   <td width=40></td>
       <td HEIGHT=20 WIDTH=80 align=center><input type="text" name="Cantidad_2" value="1" size="3" maxlength="3"></td>
	   <td><select name="Envase_2">
       <option value="" selected>Seleccione Envase </option>
       <option value="Saco 5 Kilos">Saco 5 Kilos </option>
       <option value="Saco 10 Kilos">Saco 10 Kilos </option>
       <option value="Saco 15 Kilos">Saco 15 Kilos </option>
       <option value="Caja Madera 5 Kilos">Caja Madera 5 Kilos </option>
       <option value="Caja Madera 10 Kilos">Caja Madera 10 Kilos </option>
       <option value="Caja Madera 15 Kilos">Caja Madera 15 Kilos </option>
       <option value="Caja Plastico 5 Kilos">Caja Plastico 5 Kilos </option>
       <option value="Caja Plastico 10 Kilos">Caja Plastico 10 Kilos &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</option>
       <option value="Caja Plastico 15 Kilos">Caja Plastico 15 Kilos </option>
	   <option value="Embolsado 5 Kilos">Embolsado 5 Kilos </option>
	   <option value="Embolsado 10 Kilos">Embolsado 10 Kilos </option>	   
	   <option value="Embolsado 15 Kilos">Embolsado 15 Kilos </option>
       </select></td>
	   <td><select name="Producto_2">
       <option value="" selected>Seleccione Producto </option>
       <option value="Mejillon Tamaño A">Mejillon Tamaño A &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</option>
       <option value="Mejillon Tamaño B">Mejillon Tamaño B</option>
       <option value="Mejillon Tamaño C">Mejillon Tamaño C</option>	   	   
	   </select></td>

       <td width=40></td><tr></tr>

       <td width=40></td>
	   <td HEIGHT=20 WIDTH=80 align=center><input type="text" name="Cantidad_3" value="1" size="3" maxlength="3"></td>
	   <td><select name="Envase_3">
       <option value="" selected>Seleccione Envase </option>
       <option value="Saco 5 Kilos">Saco 5 Kilos </option>
       <option value="Saco 10 Kilos">Saco 10 Kilos </option>
       <option value="Saco 15 Kilos">Saco 15 Kilos </option>
       <option value="Caja Madera 5 Kilos">Caja Madera 5 Kilos </option>
       <option value="Caja Madera 10 Kilos">Caja Madera 10 Kilos </option>
       <option value="Caja Madera 15 Kilos">Caja Madera 15 Kilos </option>
       <option value="Caja Plastico 5 Kilos">Caja Plastico 5 Kilos </option>
       <option value="Caja Plastico 10 Kilos">Caja Plastico 10 Kilos &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</option>
       <option value="Caja Plastico 15 Kilos">Caja Plastico 15 Kilos </option>
	   <option value="Embolsado 5 Kilos">Embolsado 5 Kilos </option>
	   <option value="Embolsado 10 Kilos">Embolsado 10 Kilos </option>	   
	   <option value="Embolsado 15 Kilos">Embolsado 15 Kilos </option>
	   </select></td>
	   
	   <td><select name="Producto_3">
       <option value="" selected>Seleccione Producto </option>
       <option value="Mejillon Tamaño A">Mejillon Tamaño A &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</option>
       <option value="Mejillon Tamaño B">Mejillon Tamaño B</option>
       <option value="Mejillon Tamaño C">Mejillon Tamaño C</option>	   	   
	   </select></td>
       <td width=40></td><tr></tr>
	   
	   <td height="30" colspan="5" align="center" valign="bottom"><font SIZE="2" FACE="VERDANA"><B>Deseo Recibir el Albaran por FAX<input type="checkbox" name="Albaran" >&nbsp;&nbsp;</td>
       <tr></tr><td height="40" colspan="5" align="CENTER" valign="bottom"><INPUT TYPE=submit value="Realizar Pedido"> &nbsp;&nbsp;&nbsp;&nbsp;<input type="reset" value="Cancelar"  onclick="Oculta('COMPRAR-ON')"></td>

       <TR></tr><TD COLSPAN="5" HEIGHT=10></td>
	   
	   </table>

       <table width="510" border="0" cellspacing="0" cellpadding="0" bgcolor="#0099CC" alig="CENTER"> 
	   <td height="30"  align="center"><font face="Verdana" size="+2" color="White">ALBARAN DE PEDIDO</font></td></td></TABLE>
</div>


<div id="DATOS-ON" style="POSITION: ABSOLUTE; TOP: 31px;  LEFT: 50px; VISIBILITY: HIDDEN; Z-INDEX=1">
</div>

<div id="ACUMULADO-ON" style="POSITION: ABSOLUTE; TOP: 31px;  LEFT: 50px; VISIBILITY: HIDDEN; Z-INDEX=1">
</DIV>

<!-- fin -->

	
</TD> </table>


<div id="imagen" style="POSITION: ABSOLUTE; TOP: 150px;  LEFT: 35px; Z-INDEX=1">
<img src="a.gif" width="173" height="174" style="FILTER: alpha(opacity=15)"></div>

<div id="imagen" style="POSITION: ABSOLUTE; TOP: 40px;  LEFT: 610px; Z-INDEX=1">
<img src="b.gif" width="109" height="231" style="FILTER: alpha(opacity=10)">
</div	


	 <% 
	
	'    <!--#include File="pedido.htm"-->   
	
	
	MyRs.close
	Set MyRs= Nothing
	MyConn.Close
	set MyConn=nothing
	Response.Write("<P>&nbsp;</BR>")
  
		
end if	


End If


'---------------------------------------------------------------------------------------------------------------------------------------------------------------------'
' Datos de Acualizacion de REgistros

If Request.Form("rectype") = "Editar" and Session("MyLoginUserValidated") = "Yes" Then

'	Response.Write ("<P><Font Size=""3"">")
'	Response.Write ("<div align=""center"">")
'	Response.Write ("<B>MyLogin User Update</B>")
'	Response.Write ("</div>")
'	Response.Write ("</Font>")
'	Response.Write ("<div align=""center"">")
'	Response.Write ("<P>")
	
	Texto= "ACTUALIZACIÓN"
	
	HeaderBar
	
	Set MyConn=Server.CreateObject("ADODB.Connection")
	MyConn.Open "PROVIDER=MSDASQL;" & "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & MyLoginDB
	MySQL="Select RedirectUrl,UserData.ID, UserData.Name, NickName, UserData.UserCode, UserData.Password, UserData.Email, UserData.aGroup, UserData.IndividualAccess, UserData.ExpirationDate from UserData Where UserData.ID = "  & Request.Form("ID")
	Set MyRs=MyConn.Execute(MySQL)
	Response.Write ("<div align=""center"">")
	Response.Write ("<FORM ACTION=""" & MyLoginReturnPage & """ METHOD=""POST"" Name=""Editar"">")
	Response.Write ("<table border=""0"">")
	Response.Write ("<tr>")
	Response.Write ("<td align=""right""><Strong>Empresa: </Strong></td>")
	Response.Write ("<td><INPUT NAME=""Name"" TYPE=""Text"" Size=""30"" Value=""" & MyRs("Name") & """ MaxLength=""50""> Requerido</td>")
	Response.Write ("</tr>")
	Response.Write ("<tr>")
	Response.Write ("<td align=""right""><Strong>Nombre: </Strong></td>")
	Response.Write ("<td><INPUT NAME=""NickName"" TYPE=""Text"" Size=""20"" Value=""" & MyRs("NickName") & """ MaxLength=""20""></td>")
	Response.Write ("</tr>")
	Response.Write ("<tr>")
	Response.Write ("<td align=""right""><Strong>Login: </Strong></td>")
	Response.Write ("<td>" & MyRs("UserCode") & "</td>")
	Response.Write ("</tr>")
	Response.Write ("<tr>")
	Response.Write ("<td align=""right""><Strong>Password: </Strong></td>")
	Response.Write ("<td><INPUT NAME=""Password"" TYPE=""Text"" Size=""20"" Value=""" & MyRs("Password") & """ MaxLength=""20""> Requerido</td>")
	Response.Write ("</tr>")
	Response.Write ("<tr>")
	Response.Write ("<td align=""right""><Strong>Email: </Strong></td>")
	Response.Write ("<td><INPUT NAME=""Email"" TYPE=""Text"" Size=""40"" Value=""" & MyRs("Email") & """ MaxLength=""100""></td>")
	Response.Write ("</tr>")
	Response.Write ("<tr>")
	Response.Write ("<td align=""right""><Strong>Grupo: </Strong></td>")
	Response.Write ("<td><INPUT NAME=""Group"" TYPE=""Text"" Size=""20"" Value=""" & MyRs("aGroup") & """ MaxLength=""20""></td>")
	Response.Write ("</td>")
	Response.Write ("</tr>")
	Response.Write ("<tr>")
	Response.Write ("<td align=""right""><Strong>Acceso Individual: </Strong></td>")
	Response.Write ("<td><INPUT NAME=""IndividualAccess"" TYPE=""Text"" Size=""5"" Value=""" & MyRs("IndividualAccess") & """ MaxLength=""10""> (Numerico - 1 Administrador  2,3,4... Varios Accesos)</td>")
	Response.Write ("</tr>")
	Response.Write ("<tr>")
	Response.Write ("<td align=""right""><Strong>Url Redirecionada: </Strong></td>")
	Response.Write ("<td><INPUT NAME=""URL"" TYPE=""Text"" Size=""40"" Value=""" & MyRs("RedirectUrl") & """ MaxLength=""80""></td>")
	Response.Write ("</td>")
	Response.Write ("</tr>")
	Response.Write ("<tr>")
	Response.Write ("<td align=""right""><Strong>Fecha Caducidad: </Strong></td>")
	theDate = MyRs("ExpirationDate")
	theMonth = Month(theDate)
	theDay = Day(theDate)
	theYear = Year(theDate)
	theDate =  theMonth & "/" & theDay & "/" & theYear 
	Response.Write ("<td><INPUT NAME=""ExpirationDate"" TYPE=""Text"" Size=""20"" Value=""" & theDate &  """ MaxLength=""20""> (mm/dd/aaaa) en Blanco o 12/31/4000 para no Caducar</TD>")
	Response.Write ("</tr>")
	Response.Write ("<tr>")
	Response.Write ("<td colspan=""2"" align=""center""><INPUT NAME=""Submit"" TYPE=Submit Value=""Actualizar""></td>")
	Response.Write ("</tr>")
	Response.Write ("</table>")
	Response.Write ("<INPUT NAME=""rectype"" TYPE=""Hidden"" Value=""Actualizar"" Size=""6"">")
	Response.Write ("<INPUT NAME=""ID"" TYPE=""Hidden"" Value=""" & MyRs("ID") & """>")
	Response.Write ("</form>")
	Response.Write ("</div>")
	MyRs.close
	Set MyRs= Nothing
	MyConn.Close
	set MyConn=nothing
	
	Response.Write ("<P>&nbsp; </P>")
	Response.Write ("<div align=""center"">")
	Response.Write ("<table border=""1"" width=""50%"">")
	Response.Write ("<tr>")
	Response.Write ("<td align=""center"" align=""Left""><Strong>Current Groups Used</Strong></td>")
	Response.Write ("<td align=""center"" align=""Left""><Strong>Current Individual Access Used</Strong></td>")
	Response.Write ("</tr>")
	Response.Write ("<tr>")
	Response.Write ("<td align=""center"" valign=""top"">")
	
	Set MyConn=Server.CreateObject("ADODB.Connection")
	MyConn.Open "PROVIDER=MSDASQL;" & "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & MyLoginDB
	MySQL="Select Distinct aGroup from UserData Where ID > 0 And Len(aGroup) > 0 Order by aGroup"
	Set MyRs=MyConn.Execute(MySQL)
	If MyRs.BOF or MyRS.EOF Then
		Response.Write ("No Groups Assigned")
	End If
	do  while not MyRs.eof
		Response.Write (MyRs("aGroup") & "<br>")
		MyRs.movenext
	Loop
	MyRs.close
	Set MyRs= Nothing
	MyConn.Close
	set MyConn=nothing
	Response.Write ("</td>")
	Response.Write ("<td align=""center"" valign=""top"">")
	Set MyConn=Server.CreateObject("ADODB.Connection")
	MyConn.Open "PROVIDER=MSDASQL;" & "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & MyLoginDB
	MySQL="Select Distinct IndividualAccess from UserData Where IndividualAccess > 0 And Len(IndividualAccess) > 0 Order by IndividualAccess"
	Set MyRs=MyConn.Execute(MySQL)
	If MyRs.BOF or MyRS.EOF Then
		Response.Write ("No Individual Access Levels Assigned")
	End If
	do  while not MyRs.eof
		Response.Write (MyRs("IndividualAccess") & "<br>")
		MyRs.movenext
	Loop
	MyRs.close
	Set MyRs= Nothing
	MyConn.Close
	set MyConn=nothing
	Response.Write ("</td></tr></Table>")
	Response.Write ("</div>")
End If

'---------------------------------------------------------------------------------------------------------------------------------------------------------------------'
' Mostrar ventana de añadir clientes


If Request.Form("rectype") = "Add" and Session("MyLoginUserValidated") = "Yes" Then

    Response.Write("<Table  CellPadding=""0"" CellSpacing=""0"" Border=1 Width=""95%"">")

	Texto= "CLIENTE NUEVO"
	HeaderBar

	Response.Write ("<FORM ACTION=""" & MyLoginReturnPage & """ METHOD=""POST"" Name=""Add"">")
	Response.Write ("<table  bgColor=#55a7ce border=""0"">")
	Response.Write ("<tr>")
	Response.Write ("<td align=""right""><Strong>Empresa: </Strong></td>")
	Response.Write ("<td><INPUT NAME=""Name"" TYPE=""Text"" Size=""50"" MaxLength=""50""> Required</td>")
	Response.Write ("</tr>")
	Response.Write ("<tr>")
	Response.Write ("<td align=""right""><Strong>Nombre: </Strong></td>")
	Response.Write ("<td><INPUT NAME=""NickName"" TYPE=""Text"" Size=""50"" MaxLength=""20""></td>")
	Response.Write ("</tr>")
	Response.Write ("<tr>")
	Response.Write ("<td align=""right""><Strong>Login: </Strong></td>")
	Response.Write ("<td><INPUT NAME=""UserCode"" TYPE=""Text"" Size=""20"" MaxLength=""20""> Required</td>")
	Response.Write ("</tr>")
	Response.Write ("<tr>")
	Response.Write ("<td align=""right""><Strong>Password: </Strong></td>")
	Response.Write ("<td><INPUT NAME=""Password"" TYPE=""Text"" Size=""20"" MaxLength=""20""> Required</td>")
	Response.Write ("</tr>")
	Response.Write ("<tr>")
	Response.Write ("<td align=""right""><Strong>Email: </Strong></td>")
	Response.Write ("<td><INPUT NAME=""Email"" TYPE=""Text"" Size=""40"" MaxLength=""100""></td>")
	Response.Write ("</tr>")
	Response.Write ("<tr>")
	Response.Write ("<td align=""right""><Strong>Grupo: </Strong></td>")
	Response.Write ("<td><INPUT NAME=""Group"" TYPE=""Text"" Size=""20"" MaxLength=""20""></td>")
	Response.Write ("</td>")
	Response.Write ("</tr>")
	Response.Write ("<tr>")
	Response.Write ("<td align=""right""><Strong>Individual Access: </Strong></td>")
	Response.Write ("<td><INPUT NAME=""IndividualAccess"" TYPE=""Text"" Size=""5"" MaxLength=""10""> (Numeric - 1 for admin 2,3,4... Lesser rights!)</td>")
	Response.Write ("</tr>")
	Response.Write ("<tr>")
	Response.Write ("<td align=""right""><Strong>Redirect Url: </Strong></td>")
	Response.Write ("<td><INPUT NAME=""URL"" TYPE=""Text"" Size=""20"" MaxLength=""80""></td>")
	Response.Write ("</td>")
	Response.Write ("</tr>")
	Response.Write ("<tr>")
	Response.Write ("<td align=""right""><Strong>Fecha Caducidad: </Strong></td>")
	Response.Write ("<td><INPUT NAME=""ExpirationDate"" TYPE=""Text"" Size=""10"" MaxLength=""10""> (mm/dd/yyyy) Blank or 12/31/4000 for Never Expires</td>")
	Response.Write ("</tr>")
	Response.Write ("<tr>")

	Response.Write ("<td colspan=""2"" align=""center""><INPUT NAME=""Submit"" TYPE=Submit Value=""Añadir Cliente""></td>")
	Response.Write ("<td colspan=""2"" align=""center""><INPUT NAME=""Submit"" TYPE=""button"" Value=""Volver""  onclick=""javascript:window.history.back()  ""      ></td>")    


	Response.Write ("</tr>")
	Response.Write ("</table>")
	
	Response.Write ("<INPUT NAME=""rectype"" TYPE=""Hidden"" Value=""InsertRec"" Size=""9"">")
    Response.Write ("</form>")
   
'	Response.Write ("</div>")
'	Response.Write ("<P>&nbsp; </P>")
'	Response.Write ("<div align=""center"">")
'	Response.Write ("<table border=""1"" width=""50%"">")
'	Response.Write ("<tr>")
'	Response.Write ("<td align=""center"" align=""Left""><Strong>Current Groups Used</Strong></td>")
'	Response.Write ("<td align=""center"" align=""Left""><Strong>Current Individual Access Used</Strong></td>")
'	Response.Write ("</tr>")
'	Response.Write ("<tr>")
'	Response.Write ("<td align=""center"" valign=""top"">")
	
	Set MyConn=Server.CreateObject("ADODB.Connection")
	MyConn.Open "PROVIDER=MSDASQL;" & "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & MyLoginDB
	MySQL="Select Distinct aGroup from UserData Where ID > 0 And Len(aGroup) > 0 Order by aGroup"
	Set MyRs=MyConn.Execute(MySQL)
	If MyRs.BOF or MyRS.EOF Then
		Response.Write ("No Groups Assigned")
	End If
	do  while not MyRs.eof
		Response.Write (MyRs("aGroup") & "<br>")
		MyRs.movenext
	Loop
	MyRs.close
	Set MyRs= Nothing
	MyConn.Close
	set MyConn=nothing

	Response.Write ("</td>")
	Response.Write ("<td align=""center"" valign=""top"">")
	
	Set MyConn=Server.CreateObject("ADODB.Connection")
	MyConn.Open "PROVIDER=MSDASQL;" & "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & MyLoginDB
	MySQL="Select Distinct IndividualAccess from UserData Where IndividualAccess > 0 And Len(IndividualAccess) > 0 Order by IndividualAccess"
	Set MyRs=MyConn.Execute(MySQL)

	If MyRs.BOF or MyRS.EOF Then
		Response.Write ("No Individual Access Levels Assigned")
	End If
	do  while not MyRs.eof
		Response.Write (MyRs("IndividualAccess") & "<br>")
		MyRs.movenext
	Loop
	MyRs.close
	Set MyRs= Nothing
	MyConn.Close
	set MyConn=nothing
	Response.Write ("</td></tr></Table>")
	Response.Write ("</div>")
End If


'---------------------------------------------------------------------------------------------------------------------------------------------------------------------'
' Display the Single User Data Form For Verifying the Delete Process

If Request.Form("rectype") = "Borrar" and Session("MyLoginUserValidated") = "Yes" Then

'	Response.Write ("<P><Font Size=""3"">")
'	Response.Write ("<div align=""center"">")
'	Response.Write ("<B>MyLogin Delete User</B>")
'	Response.Write ("</div>")
'	Response.Write ("</Font>")
'	Response.Write ("<div align=""center"">")
'	Response.Write ("<P>")

	Texto= "ELIMINAR CLIENTES"
	HeaderBar
	
	Set MyConn=Server.CreateObject("ADODB.Connection")
	MyConn.Open "PROVIDER=MSDASQL;" & "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & MyLoginDB
	MySQL="Select ID, UserData.Name, NickName, UserData.UserCode, UserData.Password, UserData.Email, UserData.aGroup, UserData.IndividualAccess, UserData.ExpirationDate from UserData Where UserData.ID = "  & Request.Form("ID")


	Set MyRs=MyConn.Execute(MySQL)
	Response.Write ("<div align=""center"">")
	Response.Write ("<table border=""0"">")
	Response.Write ("<tr>")
	Response.Write ("<td align=""right""><Strong>User Name: </Strong></td>")
	Response.Write ("<td>" & MyRs("Name") & "</td>")
	Response.Write ("</tr>")
	Response.Write ("<tr>")
	Response.Write ("<td align=""right""><Strong>Nick Name: </Strong></td>")
	Response.Write ("<td>" & MyRs("NickName") & "</td>")
	Response.Write ("</tr>")
	Response.Write ("<tr>")
	Response.Write ("<td align=""right""><Strong>User Code: </Strong></td>")
	Response.Write ("<td>" & MyRs("UserCode") & "</td>")
	Response.Write ("</tr>")
	Response.Write ("<tr>")
	Response.Write ("<td align=""right""><Strong>Password: </Strong></td>")
	Response.Write ("<td>" & MyRs("Password") & "</td>")
	Response.Write ("</tr>")
	Response.Write ("<tr>")
	Response.Write ("<td align=""right""><Strong>Email: </Strong></td>")
	Response.Write ("<td>" & MyRs("Email") & "</td>")
	Response.Write ("</tr>")
	Response.Write ("<tr>")
	Response.Write ("<td align=""right""><Strong>Group: </Strong></td>")
	Response.Write ("<td>" & MyRs("aGroup") & "</td>")
	Response.Write ("</td>")
	Response.Write ("</tr>")
	Response.Write ("<tr>")
	Response.Write ("<td align=""right""><Strong>Individual Access: </Strong></td>")
	Response.Write ("<td>" & MyRs("IndividualAccess") & "</td>")
	Response.Write ("</tr>")
	Response.Write ("<tr>")
	Response.Write ("<td align=""right""><Strong>Expiration Date: </Strong></td>")
	theDate = MyRs("ExpirationDate")
	theMonth = Month(theDate)
	theDay = Day(theDate)
	theYear = Year(theDate)
	theDate =  theMonth & "/" & theDay & "/" & theYear 
	Response.Write ("<td>" & theDate & "</TD>")
	Response.Write ("</tr>")
	Response.Write ("<tr>")
	Response.Write ("<FORM ACTION=""" & MyLoginReturnPage & """ METHOD=""POST"" Name=""DeleteVerified"">")
	Response.Write ("<td colspan=""2"" align=""center""><P>&nbsp;<BR><INPUT NAME=""Submit"" TYPE=Submit Value=""Borrar""></td>")
	Response.Write ("<INPUT NAME=""ID"" TYPE=""Hidden"" Value=""" & MyRS("ID") & """ Size=""6"">")
	Response.Write ("<INPUT NAME=""rectype"" TYPE=""Hidden"" Value=""DeleteVerified"" Size=""6"">")
	Response.Write ("</form>")
	Response.Write ("<FORM ACTION=""" & MyLoginReturnPage & """ METHOD=""POST"" Name=""DeleteNotVerified"">")
	Response.Write ("<td colspan=""2"" align=""center""><P>&nbsp;<BR><INPUT NAME=""Submit"" TYPE=Submit Value=""Cancelar""></td>")
	Response.Write ("<INPUT NAME=""rectype"" TYPE=""Hidden"" Value="""" Size=""1"">")
	Response.Write ("</form>")
	Response.Write ("</tr>")
	Response.Write ("</table>")
	Response.Write ("</div>")
	MyRs.close
	Set MyRs= Nothing
	MyConn.Close
	set MyConn=nothing
End If

'---------------------------------------------------------------------------------------------------------------------------------------------------------------------'
' Complete the HTML Page

'Response.Write ("<div align=""center"">")
'Response.Write("<P>&nbsp; </P><Font Size=""-1"">")
'Response.Write ("Written By <A Href=""mailto:Merlyn@thecrystalcave.net"">Alan L. Warchuck</A>")
'Response.Write("</Font>")
'Response.Write ("</div>")
'Response.Write ("</body>")
'Response.Write ("</html>")


'---------------------------------------------------------------------------------------------------------------------------------------------------------------------'
'Header Bar Subroutine

Sub HeaderBar()

    thegreetingname = Session("MyLoginName")
'     thegreetingname = Session("MyLoginUserCode")
	

'   If Len(Session("MyLoginNickName")) < 1 Then
'		thegreetingname = Session("MyLoginName")
'	Else
'		thegreetingname = Session("MyLoginNickName")
'	End If

	theHour = Hour(Now) 

	If theHour < 12 Then 
		greeting = "Buenos Dias: " 
	ElseIf theHour < 20 Then 
		greeting = "Buenas Tardes: " 
	Else 
		greeting = "Buenas Noches: " 
	End If 

	Response.Write("<Table  cellpadding = 0 CellSpacing=""0"" Border=0 Width=""100%"">")
	Response.Write("<TR>")
	Response.Write("<TD  valign=""Middle""><Font face=""Tahoma"" Size=""-1"">"  & greeting & "<b> " &thegreetingname & "</B></Font></TD>")

	Response.Write("<TD align=""Left"" valign=""Middle""><Font  face=""Tahoma"" Size=""-1"">Fecha: <b>" & Date() & "</B></Font></TD>")
    Response.Write("<TD WIDTH=150 BGCOLOR= #339999  align= ""RIGHT"" valign=""Middle""><Font face=""Tahoma"" Size=""2""><B>"   & TEXTO & " &nbsp;    </B></Font></TD>")
    Response.Write("<TD>&nbsp;&nbsp;</td>")

	Response.Write("<FORM ACTION=""" & MyLoginReturnPage & """ METHOD=""POST"" Name=""Clear""  target=""principal""> ")
	Response.Write("<TD WIDTH=100 align=""right"" valign=""Middle"">")
	Response.Write("<INPUT NAME=""Submit"" TYPE=Submit Value=""Salir de Clientes"">")
	Response.Write("</TD>")
	Response.Write ("<INPUT NAME=""rectype"" TYPE=""Hidden"" Value=""Clear"" Size=""1"">")
	Response.Write("</form>")
	Response.Write("</TR>")
	Response.Write("</Table>")
	Response.Write("<HR><P>")

End Sub


'---------------------------------------------------------------------------------------------------------------------------------------------------------------------'
'Encabezado de Ficha de Cliente

Sub CabezaDeCliente()

    thegreetingname = Session("MyLoginName")

	theHour = Hour(Now) 

	If theHour < 12 Then 
		greeting = "Buenos Dias: " 
	ElseIf theHour < 20 Then 
		greeting = "Buenas Tardes: " 
	Else 
		greeting = "Buenas Noches: " 
	End If 

	Response.Write("<Table  cellpadding = 0 CellSpacing=""0"" Border=0 Width=""100%"">")
	Response.Write("<TR>")
	Response.Write("<TD  valign=""Middle""><Font face=""Tahoma"" Size=""-1"">"  & greeting & "<b> " &thegreetingname & "</B></Font></TD>")

	Response.Write("<TD align=""Left"" valign=""Middle""><Font  face=""Tahoma"" Size=""-1"">Fecha: <b>" & Date() & "</B></Font></TD>")
    Response.Write("<TD WIDTH=150 BGCOLOR= #339999  align= ""RIGHT"" valign=""Middle""><Font face=""Tahoma"" Size=""2""><B>"   & TEXTO & " &nbsp;    </B></Font></TD>")
    Response.Write("<TD>&nbsp;&nbsp;</td>")

	Response.Write("<FORM ACTION=""" & MyLoginReturnPage & """ METHOD=""POST"" Name=""Clear""  target=""principal""> ")
	Response.Write("<TD WIDTH=100 align=""right"" valign=""Middle"">")
	Response.Write("<INPUT NAME=""Submit"" TYPE=Submit Value=""Salir de Clientes"">")
	Response.Write("</TD>")
	Response.Write ("<INPUT NAME=""rectype"" TYPE=""Hidden"" Value=""Clear"" Size=""1"">")
	Response.Write("</form>")
	Response.Write("</TR>")
	Response.Write("</Table>")
	Response.Write("<HR><P>")

End Sub


'---------------------------------------------------------------------------------------------------------------------------------------------------------------------'
' Clear out everything (Just in Case!)
Response.End
%>