tavo
02 de Octubre del 2004

Buanas a todos escribo para ver si alguien me puede ayudar necesito modificar de una base de datos sql varios registros a la ves.
yo despliego varios registros en cajas de texto pero no se como modificarlos.
este es el codigo que despliega los datos en las cajas de texto.

<%

Dim oConn, rs, SQL, Lab, mitabla
Dim nombre
\'Creo el objeto Connection
set oConn = Server.CreateObject("ADODB.Connection")
str="Filedsn=reservar.dsn"
\'ssql = "select cedula, nombre, apellido, e_mail, status from estudiante where cedula=\'" & request.form("TxtCedula") & "\' and codigo=\'" & request.form("TxtPin") & "\' union select cedula, nombre, apellido, e_mail, status from profesor where cedula=\'" & request.form("TxtCedula") & "\' and codigo=\'" & request.form("TxtPin") & "\'"
oConn.Open str
Lab=request.form("num_lab")
SQL="SELECT * FROM horarios2 where numero_lab=\'" &Lab&"\' order by id"
\'Creo un Recordset (set rs) a partir de la ejecución de la consulta (oConn.Execute)
set rs = oConn.Execute(SQL)


\'¿Esta vacío?
if rs.EOF then
Response.Write("No Existe Este Laboratorio")
else
\'Llamo al procedimiento que pinta la tabla
PintarTabla
end if

\'Cierro el Recordset
rs.Close
\'Destruyo el objeto
set rs = nothing
\'Cierro la conexión
oConn.Close
\'Destruyo la conexión
set oConn = nothing

\'===========================================
Sub PintarTabla ()
\'Utiliza el objeto rs abierto
\'para pintar la tabla

\'La primera fila la escribo directamente, con
\'los nombres de los campos

response.write ("<p><h2><font color=#238435><b><center>Actualización de Horarios de Laboratorios</center></b></font></h2></p>" & vbCrlf)
Response.Write( "<TABLE align=center borderColor=#238435 borderColorDark=#51A422 cellSpacing=1 cellPadding=2 border=3 borderColorLight=#51A422 border=1>" & vbCrlf)
Response.Write( "<TR>" & vbCrlf)
Response.Write( "<TD><B>Hora</B></TD>" & vbCrlf )
Response.Write( "<TD><B>Lunes</B></TD>" & vbCrlf )
Response.Write( "<TD><B>Martes</B></TD>" & vbCrlf )
Response.Write( "<TD><B>Miércoles</B></TD>" & vbCrlf )
Response.Write( "<TD><B>Jueves</B></TD>" & vbCrlf )
Response.Write( "<TD><B>Viernes</B></TD>" & vbCrlf )
Response.Write( "<TD><B>Sábado</B></TD>" & vbCrlf )

\'Hasta que llegue al final del recordset...
\'ALIGN=Center BORDER=""1""
while not rs.EOF
\'Imprimo una fila de la tabla
\'para cada registro que encuentre
Response.Write( "<TR>" & vbCrlf )
Response.Write( "<TD>" & rs.Fields("hora") & "</TD>" )

Response.Write( "<TD><input size=10 name=\'lunes\' type=\'text\' value=\'" & rs.Fields(2) & "\'</TD>" )
Response.Write( "<TD><input size=10 name=\'martes\' type=\'text\' value=\'" & rs.Fields("martes") & "\'</TD>" )
Response.Write( "<TD><input size=10 name=\'miercoles\' type=\'text\' value=\'" & rs.Fields("miércoles") & "\'</TD>" )
Response.Write( "<TD><input size=10 name=\'jueves\' type=\'text\' value=\'" & rs.Fields("jueves") & "\'</TD>" )
Response.Write( "<TD><input size=10 name=\'viernes\' type=\'text\' value=\'" & rs.Fields("viernes") & "\'</TD>" )
Response.Write( "<TD><input size=10 name=\'sabados\' type=\'text\' value=\'" & rs.Fields("sábado") & "\'</TD>" )

Response.Write( "</TR>" & vbCrlf )
rs.MoveNext
wend
response.write(b)
\'Cierro la tabla
Response.Write("</TABLE>")

End Sub \'PintarTabla
\'===========================================

%>

espero que me puedan ayudar