Es muy dificil que se descubra este error

[Alexjose]

Este es mi error

Error de compilación de Microsoft VBScript (0x800A03EA)
Error de sintaxis
/otra.asp, line 322

Pero ya conte varias veces los if de mi codigo y estan completos.

El codigo es sumamente largo y no creo que sea prudente colocarlo aqui asi que solo coloco la linea donde me da el error.

Código:

Conn.Close
set rs = Nothing
set Conn = Nothing
Response.redirect (".\default.asp")

%>
<p><center><a href=".\default.asp"><font color=#99FF99>VOLVER</a></center></p>
	<%
end if
	
end if
else
response.redirect (".\default.asp")

end if  /*******************Esta es la linea del error



%>

Que me pueden decir

Alex...

[maestro]

Mo puede haber un error de sintasix en esa linea, esta correctamente escrito, otra cosa seria un error de compilacion, que no es el caso.

¿No tendras #INCLUDES en esa pagina verdad?, si los tienes eso hace que se te indiquen errores en lineas que no se corresponden con el documento original porque cuenta como propias las lineas del documento incluido.

[Alexjose]

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

[Alexjose]

/********************************
Parte 2 del Mensaje
/********************************
'------Calculo de la hora---------
variante1=trim(variante1)
variante2=trim(variante2)

if variante1 <> variante2 then

if ((variante1 = " am") or (variante1 = "a.m.") or (variante1 = " a.m.") or (variante1 = "am")) then

valor1 = 12 - hora1

if valor1 < 0 then
valor1 = valor1 * (-1)
end if

end if

if ((variante1 = " pm") or (variante1 = "p.m.") or (variante1 = " p.m.") or (variante1 = "pm")) then

valor1 = hora1

end if

if ((variante2 = " am") or (variante2 = "a.m.") or (variante2 = " a.m.") or (variante2 = "am")) then

valor2 = 12 - hora2
if valor2 < 0 then
valor2 = valor2 * (-1)
end if
end if

if ((variante2 = " pm") or (variante2 = "p.m.") or (variante2 = " p.m.") or (variante2 = "pm")) then
valor2 = hora2

end if

if hora1 = hora2 then
hora_total = valor1 - valor2

end if

if hora1 <> hora2 then
hora_total = valor1 + valor2
end if

else

hora_total=hora1-hora2
if hora_total < 0 then
hora_total=hora_total * (-1)
end if
end if





'----------Minutos------------

minuto_p1 = 60 - minutos1


'minuto_p2 = 60 - minutos2
minuto_p2 = minutos2
minutos = minuto_p1 + minuto_p2
minutos=replace(minutos,"-","")
minutos=trim(minutos)

response.write "Hora:" & hora1
response.write "<P>"
response.write "Minutos Sin trabajar: " & minutos1
response.write "<P>"
response.write "Minutos Trabajados: " & minuto_p1
response.write "<P>"
response.write "<P>"
response.write "VA:" & variante1
response.write "<P>"
response.write "Hora" & hora2
response.write "<P>"
response.write "Minutos" & minuto_p2
response.write "<P>"
response.write "VA:" & variante2
response.write "<P>"
response.write "Valor1: " & valor1
response.write "<P>"
response.write "Valor2: " & valor2
response.write "Finalmente: " & minutos
if minutos > 59 then

hora_total = hora_total + 1
minutos = minutos - 60
response.write "<P>"
response.write "Es mayor a 59"
end if

if minutos="0" then
minutos="00"
end if
response.write "<P>"

hora_total = hora_total - 1
tiempo_trabajado = hora_total&":"&minutos

Response.Write "<p><b>Esta persona Trabajo hasta ahora: " & tiempo_trabajado


sql="Insert Into historial (id_empl, fecha, tiempo, dia_nu, mes, mes_nu, ano, hora_total , minutos) values ("& id &", '"& fecha_completa &"', '"&tiempo_trabajado&"', '"& dia_nu &"', '"& mes &"', '"& mes_nu &"', '"& ano &"', '"& hora_total &"' , '"& minutos &"')"

set rs = Conn.Execute(sql)

sql="Insert Into salida (id_empl, dia, dia_nu, mes, mes_nu, ano, hora, minuto, horas, variante, fecha_completa) values (" & id & ", '"& dia &"', '"& dia_solo &"', '"& mes_solo &"', '"& mes_nu &"', '"& ano &"', '"& hora2 &"', '"& minutos2 &"', '"& horas &"', '"& variante2 &"', '"& fecha_completa &"');"

set rs = Conn.Execute(sql)

sql="Insert Into historial_salida (id_empl, dia, dia_nu, mes, mes_nu, ano, hora, minuto, horas, variante, fecha_completa) values (" & id & ", '"& dia &"', '"& dia_solo &"', '"& mes_solo &"', '"& mes_nu &"', '"& ano &"', '"& hora2 &"', '"& minutos2 &"', '"& horas &"', '"& variante2 &"', '"& fecha_completa &"');"

set rs = Conn.Execute(sql)

sql="DELETE * FROM entrada where id_empl = "& id &""
set rs = Conn.Execute(sql)

sql="DELETE * FROM salida where id_empl = "& id &""
set rs = Conn.Execute(sql)


Conn.Close
set rs = Nothing
set Conn = Nothing
Response.redirect (".\default.asp")

'end if
end if
if boton = "Cancelar" then
response.redirect (".\default.asp")
end if
end if
end if
%>

[Alexjose]

El codigo esta redundante pero estoy comenzando a mejorarlo solo necesito que me funcione cosa que hacia antes y ahora me esta dando ese errror

Alex...

[Alexjose]

LISTO EL ERROR ESTABA EN UN SELECT CASE QUE HABIA DEJADO CERCA DE DONDE SE ESTAN RECIBIENDO LAS VARIABLES

[Fr@Nc3$c0]

jejeje, aveces los errores los encontramos cuando menos lo esperamos y cuando estamos más nerviosos o ansiosos eh

Saludos