Como podría hacer para activar por ejemplo e 10 en 10.
Paso códigos.
Activar.asp
Código:
Activado.asp<HTML>
<HEAD>
<TITLE>Activar un usuario</TITLE>
</HEAD>
<%
Dim Cookie
'Obtenemos el Identificador de Sesión actual.
Request.Cookies("W")
'Obtenemos el Identificador de Sesión de la Cookie.
Cookie= Request.Cookies("W2")
if Cookie<>"" then
else
Response.Redirect "../underconst.html"
end if
%>
<BODY>
<div align="center">
<h1>Activar un usuario</h1>
<br>
<%
'Instanciamos y abrimos nuestro objeto conexion
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("/m**e/registro.mdb")
%>
<FORM METHOD="POST" ACTION="Activado333333.asp">
Número de la base<br>
<%
'Creamos la sentencia SQL y la ejecutamos
sSQL="Select autonumerico From registro Order By autonumerico DESC"
set RS = conn.execute(sSQL)
%>
<select name="Autonumerico">
<%
'Generamos el menu desplegable
do while not RS.eof%>
<option><%=RS("autonumerico")%>
<%RS.movenext
loop
%>
</select>
<br>
<INPUT TYPE="SUBMIT" value="Activar">
</FORM>
</div>
<div align="center"><a href="Ver333333.asp" target="_blank">Visualizar el contenido de la base</a></div>
<br>
<div align="center"><a href="Activar333333.asp">Volver a activar usuario</a></div>
</BODY>
</HTML>
Código:
<HTML>
<HEAD>
<TITLE>Activar un usuario</TITLE>
</HEAD>
<BODY>
<%
'Recogemos los valores del formulario
autonumerico=Request.Form("autonumerico")
'Instanciamos y abrimos nuestro objeto conexion
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("/m**e/registro.mdb")
'Ahora creamos la sentencia SQL
sSQL="Update registro Set activado = true Where autonumerico= " & autonumerico & ""
'Ejecutamos la orden
set RS = Conn.Execute(sSQL)
%>
<h1></h1>
<div align="center"><font color="#FFFFFF" size="5">
<span style="background-color: #008080">Usuario activado</span></font></div>
<div align="center"> </div>
<div align="center"> </div>
<div align="center"><a href="Ver333333.asp">Visualizar el contenido de la base</a></div>
<br>
<div align="center"><a href="Activar333333.asp">Volver a activar un usuario</a></div>
<%
'Cerramos el sistema de conexion
Conn.Close
%>
</BODY>
</HTML>
Gracias, llevo tiempo dando vueltas pero estoy un poco verde y no paso de aquí, sólo una ayudita.
