Esta es un form donde despliego todas las materias para que se puedan asignar las faltas de un alumno..
Atemp9=" SELECT tblMateria.NomMateria,tblAlumMateria.IdMateria,tbl AlumMateria.Ausen FROM tblMateria,tblAlumMateria WHERE tblMateria.IdMateria=tblAlumMateria.IdMateria AND tblAlumMateria.IdAlumno='"&id&"'AND tblAlumMateria.Semestre ="&cint(I)
Atabla9.open Atemp9,Aconexion,2,3,1
while not Atabla9.eof
%>
<table width="550" border="1" cellspacing="0" cellpadding="5" align="center" bgcolor="#E8ECFF" bordercolor="#3366CC">
<tr>
<td width="10%" class="letrachicanegro"><%=Atabla9("IdMateria")%></td>
<td width="40%" class="letrachicanegro"><%=Atabla9("NomMateria")%> </td>
<td width="8%" class="letrachicaazul"><input class="letrachicaazul" type="text" name="paruno" size="3" value='<%=Atabla9("Ausen")%>'></td>
<tr>
</table>
""Matriz donde se guarda el numero de materias.."
<br>
<%
redim preserve matriz(contx)
matriz(contx)= atabla9("IdMateria")
contx=contx+1
Atabla9.movenext
wend
Atabla9.close
next
%>
esta es la funcion en donde se guardan los valores..
""Recojo los valores del form de todas las faltas, de cada materia..en otra matriz..""
<%
if func="1" then
conty=0
n=0
for each valor5 In request.form("paruno")
redim preserve vector5(v5)
vector5(v5)= valor5
v5=v5+1
next
"realizo el recorido de la matriz donde se encuentra el numero de cada materia.."
FOR EACH contx IN matriz
Atemp9="SELECT * FROM tblAlumMateria WHERE tblAlumMateria.IdAlumno='"&id&"'AND tblAlumMateria.IdMateria='"&contx&"'"
Atabla9.open Atemp9,Aconexion,2,3,1
while not Atabla9.eof
"LINEA 107" Atabla9("Ausen")=vector5(n) "me marca el error aqui"
Atabla9.Update
Atabla9.movenext
n=n+1
wend
Atabla9.close
next
response.write "Transaccion Completada!
end if
%>
el error es el siguiente..
Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A0009)
El subíndice está fuera del intervalo: '49'
/tesis/Ausencias.asp, line 107
HELP ME!!
