| no tengo includes y voy a colocar el codigo en dos mensajes para que lo veas
Parte 1
/*****************
if boton="Aceptar" then
if accion = "entrada" then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(".\database\database.mdb"))
set rs = Server.CreateObject("ADODB.Recordset")
estatus=1
sql = "SELECT * FROM tbl_personal WHERE (id_empl = " & id & ")"
set rs = Conn.Execute(sql)
id_dpto = (rs.Fields("id_dpto").Value)
id_empl = (rs.Fields("id_empl").Value)
' insercion de los registros en la tabla datos_fecha
sql="Insert Into entrada (id_empl, dia, dia_nu, mes, mes_nu, ano, hora, minuto, horas, variante, fecha_completa, estatus) values (" & id & ", '"& dia &"', '"& dia_solo &"', '"& mes_solo &"', "& mes_nu &", '"& ano &"', '"& hora &"', '"& minuto &"', '"& horas &"', '"& variante &"', '"& fecha_completa &"', '"& estatus &"');"
set rs = Conn.Execute(sql)
Response.Write sql
sql="Insert Into historial_entrada (id_empl, dia, dia_nu, mes, mes_nu, ano, hora, minuto, horas, variante, fecha_completa, estatus) values (" & id & ", '"& dia &"', '"& dia_solo &"', '"& mes_solo &"', '"& mes_nu &"', '"& ano &"', '"& hora &"', '"& minuto &"', '"& horas &"', '"& variante &"', '"& fecha_completa &"', '"& estatus &"');"
set rs = Conn.Execute(sql)
' aqui tenemos los valores de los id's del empleado la fecha y el departamento
sql = "SELECT id_entrada FROM entrada ORDER BY id_entrada DESC"
set rs = Conn.Execute(sql)
id_entrada = rs("id_entrada")
sql = "SELECT * FROM datos_personal WHERE (id_empl = " & id & ")"
set rs = Conn.Execute(sql)
nombre = (rs.Fields("nomb_comp").Value)
sql = "SELECT * FROM datos_departamento WHERE (id_dpto = " & id_dpto & ")"
set rs = Conn.Execute(sql)
departamento = (rs.Fields("nomb_dpto").Value)
Conn.Close
set rs = Nothing
set Conn = Nothing
'Inserto los IDS en la tabla de tbl_fecha
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(".\database\database.mdb"))
set rs = Server.CreateObject("ADODB.Recordset")
sql="Insert Into tbl_fecha (id_empl, id_dpto, id_entrada) values ('"& id_empl &"', '"& id_dpto &"', '"& id_entrada &"')"
set rs = Conn.Execute(sql)
Conn.Close
set rs = Nothing
set Conn = Nothing
Response.redirect (".\default.asp")
else
'SI es salida
estaus = 0
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(".\database\database.mdb"))
set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM tbl_personal WHERE (id_empl = " & id & ")"
set rs = Conn.Execute(sql)
id_dpto = (rs.Fields("id_dpto").Value)
id_empl = (rs.Fields("id_empl").Value)
' aqui tenemos los valores de los id's del empleado la fecha y el departamento
sql = "SELECT * FROM datos_personal WHERE (id_empl = " & id & ")"
set rs = Conn.Execute(sql)
nombre = (rs.Fields("nomb_comp").Value)
sql = "SELECT * FROM datos_departamento WHERE (id_dpto = " & id_dpto & ")"
set rs = Conn.Execute(sql)
departamento = (rs.Fields("nomb_dpto").Value)
'Inserto los IDS en la tabla de tbl_fecha
'------------------Proceso de horas-----Secumple si no se trabajan mas dee 24 horas---------------------
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(".\database\database.mdb"))
set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM entrada WHERE ((id_empl = " & id & ") and (dia_nu = " & dia_nu & ") and (mes = '"&mes_solo&"') and (ano = " & ano & "))"
set rs = Conn.Execute(sql)
If (rs.BOF AND rs.EOF) then
Response.Write "Esta persona no ha sido ingresada"
else
hora1 = (rs.Fields("hora").Value)
minutos1 = (rs.Fields("minuto").Value)
variante1 = (rs.Fields("variante").Value)
hora2 = hora
minutos2 = minuto
variante2 = variante |