11/04/2012, 09:55
|
| | | Fecha de Ingreso: abril-2012
Mensajes: 20
Antigüedad: 12 años Puntos: 1 | |
 URGENTE:capturar datos para actualizar consulta
Hola, necesito hacer una consulta en asp con los datos previamente leidos de la misma tabla, es decir, tengo una select que lee la primera fila de una tabla. De la select me guarda dos valores (universidad y facultad) para ir con ellos a una consulta donde me modifica los campos que cumplen que sea igual la universidad y la facultad. Mi problema es que no se como pasarle esas variables al update. Dejo el codigo a ver si alguien me puede ayudar:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/Conexion1.asp" -->
<%
Dim Ad
Dim Ad_numRows
Dim Repeat1__numRows
Dim Repeat1__index
Dim fac
Dim uni
Dim numPlaz
Repeat1__numRows = -1
Repeat1__index = 0
Ad_numRows = Ad_numRows + Repeat1__numRows
Set Ad = Server.CreateObject("ADODB.Recordset")
Ad.ActiveConnection = MM_Conexion1_STRING
Ad.Source = "SELECT * FROM Admitidos"
Ad.CursorType = 0
Ad.CursorLocation = 2
Ad.LockType = 1
Ad.Open()
Ad_numRows = 0
%>
<%
set Command1 = Server.CreateObject("ADODB.Command")
Command1.ActiveConnection = MM_Conexion1_STRING
Command1.CommandText = "UPDATE [Admitidos] SET NOTA= 30, CANDIDATO=true, SUPLENTE=true WHERE UNIVERSIDAD= '" + Replace(uni, "'", "''") + "' AND FACULTAD='" + Replace(fac, "'", "''") + "' ;"
Command1.CommandType = 1
Command1.CommandTimeout = 0
Command1.Prepared = true
%>
<html>
<head>
</head>
<body>
<% While ((Repeat1__numRows <> 0) AND (NOT Ad.EOF)) %>
<BR><%=(Ad.Fields.Item("FACULTAD").Value)%><BR />
<BR><%=(Ad.Fields.Item("UNIVERSIDAD").Value)%><B R />
<BR><%numPlaz=(Ad.Fields.Item("NUM PLAZAS").Value)%><BR />
<%
If (Request.QueryString("FACULTAD") <> "") Then
fac = Request.QueryString("FACULTAD")
End If
%>
<%Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Ad.MoveNext()%>
<%WEND%>
</body>
</html>
<%
Ad.Close()
Set Ad = Nothing
%>
Lo que esta en rojo es lo que no me funciona aunque no me da ningun error pero no me lo coge la consulta. ALguien sabe como solucionar esto? Estaria muy agradecida a todo el que me pudiera ayudar. |