Esta es la pagina que contiene los datos del formulario:
<form action="ModAdm.asp" method="post" name="ModAdm">
<font color="#000000" size="2" face="Courier New, Courier, mono">Nombre
del administrador: </font>
<input type="text" size="30" name="NomAdm">
<font color="#000000" size="2" face="Courier New, Courier, mono">DNI
del administrador: </font>
<input type="text" size="30" name="DniAdm">
<input type="submit" value="Enviar datos">
<input type="reset" value="Borrar datos">
</form>
El formulario es mas largo, pero solo pongo un par de campos de ejemplo.
Despues de esta pagina en la siguiente trato los posibles errores que pueda tener y muestro por pantalla los datos que se quieren modificar:
<% Set Conn= Server.CreateObject("ADODB.Connection")
Conn.Open "colegio"
Set RS=Server.CreateObject("ADODB.Recordset")
Set RS1=Server.CreateObject("ADODB.Recordset")
Set RS=Conn.Execute("SELECT dni FROM profesor")
Set RS1=Conn.Execute("Select * from administrador")
Dim Nom_adm, Dni_adm
Nom_adm=Request.Form("NomAdm")
Dni_adm=Request.Form("DniAdm")%>
<%if Dni_adm<>"" And Dni_adm <> RS1("dni") then
while Dni_adm<>RS("dni")
RS.MoveNext()
Wend%>
<script language="JavaScript">erroDni();</script>
<%end if%>
<%if Dni_adm="" then%>
<script language="JavaScript">erroDni();</script>
<%end if%>
Luego muestro los datos mediante <%=RS1("nombre")%>
<font size="2" face="Courier New, Courier, mono">¿Está de acuerdo con estos datos?</font>
<a href="ModAdmBD.asp">Si</a>
<a href="ErrMod.asp">No</a>
En la pagina ModAdmBD deberia ser donde se modifiquen los datos pero los datos del formulario no los mantengo.
No se si os he aclarado o lo he empeorado.
Gracias de todas maneras