problemas ASP y SQL SERVER 2000

[Adler]

Hola

Prueba así

Código ASP:

SQL="select * from per_asistencia_rep where trabajador=" & vtrabajador & " AND fecha='"& fecha & "'"
 
rs.Open SQL, oConn, 2, 2
 
if (rs.EOF 0 True) then
SQL="insert into per_asistencia_rep (...) values (...)"
 
else
 
marca = rs.Fields("marca")
marca2 = marca + 1
select case marca2
case "1" 'ADICIONA INGRESO 1
SQL="update per_asistencia_rep set ......
msn=12
marca=1
 
.....
 

Suerte