
14/05/2002, 09:58
|
| | Fecha de Ingreso: febrero-2002 Ubicación: Navarra
Mensajes: 701
Antigüedad: 23 años, 3 meses Puntos: 2 | |
Re: Método AddNew Perdona, he olvidado la parte superior del código, el código completo es:
Código:
<%
Option Explicit
Dim username, page, password, rs, strRS, linie, level, rsForums, firstname, sql, rsUpdate, lastdate
username = Request.Cookies("pb_username")
level = Request.Cookies("level")
password = Request.Cookies("pb_password")
firstname = Request.Cookies("pb_firstname")
lastdate = Now()
if page = "" then
page = "inicio.asp"
end if
%>
<!--#include file="conn2.asp"-->
<%
sql = "SELECT * FROM forums INNER JOIN moderators ON forums.forumid = moderators.moderatorforum ORDER BY forums.level, forumname"
Set rsForums = Server.CreateObject("ADODB.Recordset")
rsForums.Open sql, conn, 3, 3
Set rsUpdate = Server.CreateObject("ADODB.Recordset")
rsUpdate.open "usersvisit", conn, 3, 3
rsUpdate.AddNew
rsUpdate("username") = username
rsUpdate("password") = password
rsUpdate("lastdate") = lastdate
rsUpdate.Update
rsUpdate.close
set rsUpdate = nothing
%>
|