Ver Mensaje Individual
  #3 (permalink)  
Antiguo 14/05/2002, 09:58
haven
 
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

%>