Recibe Parametros de nombre de la persona.. y fecha inicio, fecha final..
por ahi van a ver un codigo extraño, supongo que el cambio de formato de fecha se puede hacer mas sencillo... pero como me urgia presentar avances... fue lo que se me ocurrio (dicho sea de paso.. funciona bien).
--------
el DSN handkey es creado en el ODBC de windows, en tipo de archivo de texto.
------
handkey.asp
<%
'Control para ubicar correctamente los colores del sistema de menus
pers=request.Querystring("pers")+" ("+request.Querystring("persne")+")"
ini=request.Querystring("inicio")
fin=request.Querystring("final")
inicio=cstr(month(ini))+"/"+cstr(day(ini))+"/"+cstr(year(ini))
final=cstr(month(fin))+"/"+cstr(day(fin))+"/"+cstr(year(fin))
persona=request.Querystring("quien")
Strsql3 = "Select * From Datalog.Dat where a >= #"&inicio&"# and a <= #"&final&"# and e = "&persona
'Response.Write strsql3
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "DSN=handkey"
Set RS3 = Server.CreateObject("ADODB.Recordset")
RS3.Open strsql3, oConn,3,1
%>
<html>
<head>
<title></title>
</head>
<body bgcolor="#FBFED3">
<p>
<font face="Verdana" size="2" color="#000080"><b>
Empleado : </b><%=pers%>
</font>
</p>
<p><font face="Verdana" size="2" color="#000080"><b>Fecha Inicial : </b><%=ini%></font>
<br>
<b>Fecha Final : </b><%=fin%>
<br>
<br>
<b>Listado General de Registros del HandKey</b>
<br>
<br>
Registros Encontrados:
<%
Response.Write Rs3.RecordCount%>
</p>
<table width="50%" border="0" style="border: 1 outset #000080">
<tr>
<td bgcolor="#FFFF00" bordercolor="#000000" width="5%" align="center">
<b>Fecha</b>
</td>
<td bgcolor="#FFFF00" width="12%" align="center">
<b>Hora Registrada</b>
</td>
<td bgcolor="#FFFF00" align="center">
<b>Codigo</b>
</td>
</tr>
<%
do while not RS3.EOF
%>
<tr onmouseover='this.style.background="#FFFF91"' onmouseout='this.style.background=""'>
<td width="30%">
<font face="Verdana" size="2">
<p align="center">
<%=RS3("a")%>
</font>
</td>
<td width="35%">
<font face="Verdana" size="2">
<p align="center"><b><font color="#000080">
<%=RS3("b")%>
</font></b>
</font>
</td>
<td width="35%">
<font face="Verdana" size="1" color="#000080">
<p align="center">
<%if rs3.Fields("f")="1000000000" then%>
Entrada Normal
<%elseif rs3.Fields("f")="2000000000" then%>
No identificado
<%elseif rs3.Fields("f")="2000000000" then%>
Salida Normal
<%elseif rs3.Fields("f")="4000000001" then%>
Salida Oficial
<%elseif rs3.Fields("f")="4000000002" then%>
Regreso Salida Oficial
<%elseif rs3.Fields("f")="6000000001" then%>
Salida Permiso
<%elseif rs3.Fields("f")="6000000002" then%>
Entrada Permiso
<%end if%>
</font>
</td>
</tr>
<%
RS3.MoveNext
Loop
%>
</table>
</body>
----------
El problema esta en la ultima condicion... solo funcionan los primeros 2 if
-------
Saludos