UNIVERCITY muchas gracias por el tip, de hecho como me lo indicas ya lo habia intentado hacer, pero me manda este error:
Microsoft VBScript runtime error '800a000d'
Type mismatch: 'rst'
/skytel/bases/actualizar1.asp, line 51
Mi codigo es este:
<HTML>
<HEAD>
<TITLE>Actualizar1.asp</TITLE>
</HEAD>
<BODY>
<div align="center">
<h1>Actualizar un registro</h1>
<br>
<%
'Instanciamos y abrimos nuestro objeto conexion
Dim Conn,strSQL, objRS
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Ctro Mensajes.mdb"))
%>
<!--webbot BOT="GeneratedScript" PREVIEW=" " startspan --><script Language="JavaScript"><!--
function FrontPage_Form1_Validator(theForm)
{
if (theForm.Nombre.selectedIndex == 0)
{
alert("La primera opción \"Seleccionar\" no es válida. Elija una de las otras opciones.");
theForm.Nombre.focus();
return (false);
}
return (true);
}
//--></script><!--webbot BOT="GeneratedScript" endspan --><FORM METHOD="POST" ACTION="actualizar2.asp" onsubmit="return FrontPage_Form1_Validator(this)" name="FrontPage_Form1">
Nombre
<%
'Creamos la sentencia SQL y la ejecutamos
sSQL="Select Nombre From Nextel Order By Nombre ASC"
set RS = Conn.Execute(sSQL)
%>
<!--webbot bot="Validation" S-Display-Name="Seleccionar"
B-Disallow-First-Item="TRUE" -->
<select name="Nombre" size="1" tabindex="1">
<option selected>Seleccione</option>
<%
'Generamos el menu desplegable
Do While not RS.eof%>
<option><%=RS("Nombre")%> <%RS.movenext
Loop
%>
</select>
<br>
Nombre Completo
<INPUT NAME="pal" size="20" tabindex="2" value="<%=rst("apellido")%>">
<p><br>
<INPUT TYPE="SUBMIT" value="Actualizar" tabindex="3">
<input type="reset" value="Cancelar" name="Borrar" tabindex="4"></p>
</FORM>
</div>
</BODY>
</HTML>
En que esta mal??
GRACIAS por su ayuda.