Ver Mensaje Individual
  #5 (permalink)  
Antiguo 07/09/2004, 04:35
Avatar de TomaHawkk
TomaHawkk
 
Fecha de Ingreso: diciembre-2001
Ubicación: España
Mensajes: 422
Antigüedad: 23 años, 4 meses
Puntos: 1
Hola,

Nunca he utilizado esa opción lo hago directamente con SQL

Código:
<%
Dim SQL

Set Ob_Conn = Server.CreateObject ("ADODB.Connection")
Set Ob_RS   = Server.CreateObject ("ADODB.RecordSet")

Ob_Conn.Open "BDservidor"

SQL = "SELECT * FROM matriculas"

IF (Request.Form("Clave") <> "") THEN
	SQL = SQL & " WHERE Idmatricula=" & Request.Form("Clave")
END IF
Ob_RS.Open SQL, Ob_Conn

FOR EACH Parametro IN Ob_RS.Fields

	IF Parametro.Name="Idmatricula" THEN
		Ob_RS("Idmatricula")  = Request.Form("Idmatricula")
	ELSE
		Ob_RS(Parametro.Name) = Request.Form(Parametro.Name)
	END IF
NEXT
Ob_RS.Update

Response.Write "<H3> Registro modificado </H3>"

...........

%>

Última edición por TomaHawkk; 07/09/2004 a las 06:40