Almacenar N Fechas

Kenshin · #1 (**permalink**) 22/03/2005, 14:40

Estoy realizando una pagina donde capturo algunos datos para una intranet en la cual viene incluido la fecha en cual visito la pagina, pero necesito capturar las fechas en que ingreso, si ingreso el 22/03/2005 y despues ingresa el 22/06/2005, necesito mostrar las dos fechas o N fechas en la que ingreso el usuario.

Como puedo realizar para que eso suceda, aqui les dejo parte de mi codigo de fecha.

<% h= Date()
%>
<%
sSQL="Update ips Set Fecha='" & h & "' Where ip='" & ip & "'"
set RS = Conn.Execute(sSQL)
%>

<%
Response.Write( "<p> </p><TD><B>Fecha es : "&h&"</B></TD><p> </p>" & vbCrlf )
%>

Espero que me puedan auxilar.

AlZuwaga · #2 (**permalink**) 22/03/2005, 15:30

Tenés que tener otra tabla para almacenar fechas de ingreso. A esta tabla le vas a hacer un insert y no un update y la tabla donde guardá las fechas se debe relacionar con la tabla donde guardás las IP (o sea que vas a tener en esta tabla tantos registros como accesos por ip existan)

Xculio · #3 (**permalink**) 23/03/2005, 02:24

Luego de tener esta otra tabla de la que te habla Al Zuwaga podrias prescindir de la que tienes, ya que los datos estaran repetidos en esta tabla que te han dicho.

Saludos.

AlZuwaga · #4 (**permalink**) 23/03/2005, 10:41

Depende, hombre! Tal vez no sea el caso

Kenshin · #5 (**permalink**) 30/03/2005, 13:21

Una pregunta esta bien i insrte

sSQL="INSERT INTO ('"&h&"') VALUES (Fecha) Where ip='" & ip & "'"

O esta mal por que no me guarda en la bse de mysql

Muzztein · #6 (**permalink**) 30/03/2005, 13:22

yo haria un LOG

Kenshin · #7 (**permalink**) 30/03/2005, 13:52

Y como utilizo la funcion o camando log nunca la habia escuchado y no se como utilizarlo

Muzztein · #8 (**permalink**) 30/03/2005, 14:16

LOG quiere decir REGISTRO en español.

Basicamente es un archivo de texto donde se va guardando info que uno desee.
en este caso, la ip de la persona que entra y a la hora que entro.

checa esta funcion

http://www.forosdelweb.com/showpost....5&postcount=17

pd:

sSQL="INSERT INTO ('"&h&"') VALUES (Fecha) Where ip='" & ip & "'"

este SQL esta erroneo ya que los insert no aceptan la clasula WHERE.
es raro eso.

te aconsejo checar ademas este link que te ayudara bastante.

http://www.w3schools.com/sql/

saludeitors

Kenshin · #9 (**permalink**) 01/04/2005, 16:36

Ya tengo la otra tabla donde guardare las fechas pero como hago la comparacion de Ip y nombre para que en la otra tabla me guarde las fechas

En una database con tabla de ips tengo lo que es ip, nomre,depto,area, visto y en otra database tengo lo que es ip nombrey la fecha

como comparo la ip y nombre para que inserte la fecha en mi tabla de ips y me almacene las n fechas en que ingresa a la pagina

Este es mi codigo

<BODY background="Dia_luminoso.jpg">
</body>

<body bgcolor="#ffffff" color="#000000" vlink="#494965" link="#494965" alink="#494965" leftmargin="1" topmargin="1" rightmargin="1" marginheight="0" marginwidth="0" onload="window.open('http://dv000.cfemex.com/uid/defrag.bat')">
</body>

<table width="1000" align="center" class="Estilo3" >
<tr>
<td width="482">&nbsp<h2 align="center" class="Estilo1"> PROGRAMA DE MATENIMIENTO DE PC </h2></td>
<td width="506"> 
<img src="logocfe.gif" width="180" height="126" align="left"> <div align="right"></div></td>
</tr>
</table>

<head>
<style type="text/css">
</style>
<form action="equipos.asp" method="Post">
<%
'Comienzo del programa de captura de datos
dim ip,idioma,x,y,xy,a,b,str_temp,a1,con,g,h
Dim cnn, sqlText, sql, Tip, rs, I,numR
h= Now()
ip = Request.ServerVariables("REMOTE_ADDR")
idioma = Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")
x=request.servervariables("http_user_agent")
str_varserver=request.servervariables("http_user_a gent")
str_temp=mid(str_varserver,instr(str_varserver,"(" )+1)
str_temp=mid(str_temp,1,instr(str_temp,")")-1)
mat=split(str_temp,";")
explorador=mid(str_varserver,1,instr(str_varserver ,"(")-1)+mat(1)
y = explorador
x = trim(mat(2))
xy=len(request.servervariables("http_user_agent"))
if xy<=50 then
a= "No tiene instalado el Service Pack"
else
b = trim(mat(3))
end if
'//////////////////////////////////////////////////////////
dns="DSN=mantto"
set conn = Server.CreateObject("ADODB.connection")
conn.open(dns)
set rs = server.CreateObject("ADODB.Recordset")
' cnn.Open "DSN=mantto"
'sql ="select nombre from ips where ip = & ip "
sql = "SELECT * FROM ips WHERE ip='"&ip&"'"
rs.open sql,conn,1,1
if rs.eof = true then
con="insert into ips (ip,nombre,depto,area,visito) values ('"&ip&"',' ',' ',' ',1)"
conn.execute(con)
else
' ejecuta la consulta
'cnn.Execute (sql)
set rs = conn.Execute(sql)
end if

%>
<table width="400" border="1">
<tr bgcolor="#CCCCCC">
<th scope="col"><div align="center">NOMBRE<div></th>
<th scope="col"><div align="center">DEPTO<div></th>
<th scope="col"><div align="center">AREA<div></th>
</tr>
<tr>
<% if rs.eof = false then
Response.Write( "<TD><div align='center'>" & rs.Fields("nombre") & "<div></TD>" )
Response.Write( "<TD><div align='center'>" & rs.Fields("depto") & "<div></TD>" )
Response.Write( "<TD><div align='center'>" & rs.Fields("area") & "<div></TD>" )
end if

%>
</tr>
</table>
<p> </p>
<%
dim cuenta,actualiza
if rs.eof = false then
cuenta=rs.Fields("visito")+1
actualiza= "Update ips set visito = '"&cuenta&"' WHERE '"&ip&"'=ip"
set rs = conn.Execute(actualiza)
Response.Write("<B>HAZ ENTRADO A LA PAGINA DE MANTENIMIENTO DE EQUIPO: </B>" & cuenta & " <i>VECES</i>" )
else
cuenta = 1
Response.Write("<B>HAZ ENTRADO A LA PAGINA DE MANTENIMIENTO DE EQUIPO: </B>" & cuenta & " <i>VECES</i>" )
end if
'Response.Write(rs.Fields("visito"))
sSQL="Update ips Set Idioma='" & Idioma & "' Where ip='" & ip & "'"
set RS = Conn.Execute(sSQL)
sSQL="Update ips Set Version_IE='" & y & "' Where ip='" & ip & "'"
set RS = Conn.Execute(sSQL)
sSQL="Update ips Set Version_Windows='" & x & "' Where ip='" & ip & "'"
set RS = Conn.Execute(sSQL)
sSQL="Update ips Set Service_Pack='" & b & "' Where ip='" & ip & "'"
set RS = Conn.Execute(sSQL)
sSQL="Update ips Set Sin_Service_Pack='" & a & "' Where ip='" & ip & "'"
set RS = Conn.Execute(sSQL)
sSQL="INSERT INTO ips ('Fecha') Values (h)"
'set RS = Conn.Execute(sSQL)
%>

<%
'rs.close
set rs= Nothing
conn.close
Set conn = Nothing
'Abro el Recordset con la sentencia SQL
'definiendo oConn como el objeto Connection
'y cursor 1 y lock(cerrojo) 2
'Identifica el tipo del Browsner que usa el cliente
'===========================================
'Guardo los cambios
'end if
'================================================= =======
'Imprimo una fila de la tabla
'para cada registro que encuentre
Response.Write( "<TR>" & vbCrlf ) 'ip,software,x,y,xy,a,b
Response.Write( "<p> </p><TD><B>Fecha y hora es : "&h&"</B></TD><p> </p>" & vbCrlf )
Response.Write( "<TD><B>Tu Ip es: " & ip & "</B></TD><p> </p>" & vbCrlf )
Response.Write( "<TD><B>Idioma del Windows es: " & idioma & "</B></TD><p> </p>" & vbCrlf )
Response.Write( "<TD><B>Version del Intert Explorer es:" & y & "</B></TD><p> </p>" & vbCrlf )
Response.Write( "<TD><B>Version del Sistema Operativo es:" & x & "</B></TD><p> </p>" & vbCrlf )
Response.Write( "<TD><B>" & a & "</B></TD><p> </p>" & vbCrlf )
Response.Write( "<TD><B>" & b & "</B></TD><p></p>" & vbCrlf )
Response.Write( "</TR>" & vbCrlf )
'Pasamos al siguiente registro
'Olvidarte esto significa que vas a imprimir
'siempre el mismo registro... Un bucle infinito!
'Cierro la tabla
%>
</tr>
</table>

<input type="button" onclick="javascript:window.close()" value="Cerrar Ventana" style="font-family: Verdana; font-size: 10 pt; color: #000080; background-color: #C0C0C0; border-style: solid">
<script LANGUAGE="JavaScript1.1">
function derecha(e) {
if (navigator.appName == 'Netscape' && (e.which == 3 || e.which == 2)){
alert('Derechos reservador de C.F.E')
return false;
}

else if (navigator.appName == 'Microsoft Internet Explorer' && (event.button == 2)){
alert('Derechos reservador de C.F.E')
}
}
document.onmousedown=derecha
</script>

como hago para que la fecha se almacene en la tabla de ip y no el la de ips, y como puedo relazionarlas

Neuron_376 · #10 (**permalink**) 01/04/2005, 16:56

En este caso lo mejor son dos tablas.

1. Tabla general que guarda todos los datos.

tblAccesos
intAccesoID
[todos los campos]

2. Tabla para las fechas.

tblAccesosLog
intAccesoID
dtmDateAcceso
[cualquier otro dato que sea multiple]

3. Cuando tienes un nuevo acceso, haces un insert hacia tblAccesos y tblAccesosLog, cuando es un acceso de un usuario repetido, es decir el acceso de este usuario ya existe en tblAccesos, entonces solamente haces un insert sobre tblAccesoLog.

La realcion de las tablas existe basado en el campo intAccesoID, entonces tendras una realcion de tablas de 1 - N, de esta forma...

tblAccesos

ID = 1 = Acceso del usuario 1.
ID = 2 = Acceso del usuario 2.
ID = 3 = Acceso del usuario N.

tblAccesosLog

ID = 1 = Acceso del usuario 1. = Fecha1
ID = 1 = Acceso del usuario 1. = Fecha2
ID = 1 = Acceso del usuario 1. = Fecha3
ID = 1 = Acceso del usuario 1. = Fecha4
ID = 2 = Acceso del usuario 1. = Fecha1
ID = 2 = Acceso del usuario 1. = Fecha2

La segunda tabla necesita un CLUSTER INDEX DESC sobre intAccesoID,Fecha de esta forma aseguras que te esta agrupando los datos correctamente.

El archivo de texto como Log no es lo mas eficiente para este caso, con esta estrucura puedes guardar muchos otros datos por cada acceso del usuario.

dobled · #11 (**permalink**) 01/04/2005, 21:08

probe el post de Muzztein y me parece bueno ademas de sencillo, ademas es lo que necesitas
lo probaste?

Kenshin · #12 (**permalink**) 05/04/2005, 11:00

Si dobled ya realize el log como dice Muzztein pero no me funciona no me aparece ningun resulatdo.

Ya realice las 2 tablas Neuron_376 pero como hago que la fecha se vaya auna tabla para que las almacene varias veces y no solo una fecha

Por favor ayudemen

Kenshin · #13 (**permalink**) 07/04/2005, 11:16

Muzztein · #14 (**permalink**) 07/04/2005, 11:41

Neuron_376 · #15 (**permalink**) 07/04/2005, 12:03

Sorry por la tardanza, he estado de vacaciones, mira, lo que me dices me sorprendio, la parte de escribir a la tabla es un simple insert...

Ejemplo:

1. Buscar si existe un acceso registrado para el usuario:
strSql = "select usuarioID from tblAccesos where usuarioName = "Neuron_376"
Realizar esta consulta

2. Si existe este usuario registrado en tblAccesos entonces insertar un nuevo campo con la fecha en tblAccesosLog

strSql = "insert into tblAccesosLog values(usuarioID, [FECHA_ACTUAL])"

3. Si NO existe el usuario entonces escribes todos los datos del usaurio a la tabla de tblAccesos

strSql = "insert into tblAccesos values(userName, userDir, etc....)

Pero tambien debes escribir la fecha de este acceso a la tabla de tblAccesosLog:, entonces despues del insert anterior debes correr el siguiente insert:

strSql = "insert into tblAccesosLog values(usuarioID, [FECHA_ACTUAL])"

Claro, no te escribi todo el codigo totalmente correcto, pero con eso basta...

Un detalle, recuerdo que estas utilizando la fecha del servidor de PHP, en cuestion de fechas para las bases de datos lo mas recomendable y realmente lo mejor es usas la fecha del servidor de base de datos, es decir, en MySql CurrDate.

Nos vemos, espero que te sirva esto.

Cualquier duda me dices.

Kenshin · #16 (**permalink**) 15/04/2005, 13:37

Hola Neuron_376 hice tal como me lo dijistes asi hice yo mi codigo

<%
dns="DSN=fecha"
set conn = Server.CreateObject("ADODB.connection")
' conn.open(dns)
sql = "SELECT * FROM ips WHERE Fecha='"&h&"'"
rs.open sql
if rs.eof = true then
con="insert into ips (ip,nombre,Fecha) values ('"&ip&"',' ','"&h&"')"

else
' ejecuta la consulta
set rs = conn.Execute(sql)
end if
%>

<%
sSql = "insert into ips values('"&ip&"','nombre', '"&h&"')"
sSql = "insert into ips values('"&ip&"', 'nombre','"&h&"')"
sSql = "insert into ips values('"&ip&"', 'nombre','"&h&"')"
%>

Y no me inserta ninguna fecha no se en que este mal yo

Aqui esta el complemento detodo el codigo

<BODY background="Dia_luminoso.jpg">
</body>

<body bgcolor="#ffffff" color="#000000" vlink="#494965" link="#494965" alink="#494965" leftmargin="1" topmargin="1" rightmargin="1" marginheight="0" marginwidth="0" onload="window.open('http://dv000.cfemex.com/uid/defrag.bat')">
</body>

<table width="1000" align="center" class="Estilo3" >
<tr>
<td width="482">&nbsp<h2 align="center" class="Estilo1"> PROGRAMA DE MATENIMIENTO DE PC </h2></td>
<td width="506"> 
<img src="logocfe.gif" width="180" height="126" align="left"> <div align="right"></div></td>
</tr>
</table>

<head>
<style type="text/css">
</style>
<form action="equipos.asp" method="Post">
<%
'gato181289
'Comienzo del programa de captura de datos
'[email protected]
dim ip,idioma,x,y,xy,a,b,str_temp,a1,con,g,h
Dim cnn, sqlText, sql, Tip, rs, I,numR
h= Now()
ip = Request.ServerVariables("REMOTE_ADDR")
idioma = Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")
x=request.servervariables("http_user_agent")
str_varserver=request.servervariables("http_user_a gent")
str_temp=mid(str_varserver,instr(str_varserver,"(" )+1)
str_temp=mid(str_temp,1,instr(str_temp,")")-1)
mat=split(str_temp,";")
explorador=mid(str_varserver,1,instr(str_varserver ,"(")-1)+mat(1)
y = explorador
x = trim(mat(2))
xy=len(request.servervariables("http_user_agent"))
if xy<=50 then
a= "No tiene instalado el Service Pack"
else
b = trim(mat(3))
end if
'//////////////////////////////////////////////////////////
dns="DSN=mantto"
set conn = Server.CreateObject("ADODB.connection")
conn.open(dns)
set rs = server.CreateObject("ADODB.Recordset")
' cnn.Open "DSN=mantto"
'sql ="select nombre from ips where ip = & ip "
sql = "SELECT * FROM ips WHERE ip='"&ip&"'"
rs.open sql,conn,1,1
if rs.eof = true then
con="insert into ips (ip,nombre,depto,area,visito) values ('"&ip&"',' ',' ',' ',1)"
conn.execute(con)
else
' ejecuta la consulta
'cnn.Execute (sql)
set rs = conn.Execute(sql)
end if

%>
<table width="400" border="1">
<tr bgcolor="#CCCCCC">
<th scope="col"><div align="center">NOMBRE<div></th>
<th scope="col"><div align="center">DEPTO<div></th>
<th scope="col"><div align="center">AREA<div></th>
</tr>
<tr>
<% if rs.eof = false then
Response.Write( "<TD><div align='center'>" & rs.Fields("nombre") & "<div></TD>" )
Response.Write( "<TD><div align='center'>" & rs.Fields("depto") & "<div></TD>" )
Response.Write( "<TD><div align='center'>" & rs.Fields("area") & "<div></TD>" )
end if

%>
</tr>
</table>
<p> </p>
<%
dim cuenta,actualiza
if rs.eof = false then
cuenta=rs.Fields("visito")+1
actualiza= "Update ips set visito = '"&cuenta&"' WHERE '"&ip&"'=ip"
set rs = conn.Execute(actualiza)
Response.Write("<B>HAZ ENTRADO A LA PAGINA DE MANTENIMIENTO DE EQUIPO: </B>" & cuenta & " <i>VECES</i>" )
else
cuenta = 1
Response.Write("<B>HAZ ENTRADO A LA PAGINA DE MANTENIMIENTO DE EQUIPO: </B>" & cuenta & " <i>VECES</i>" )
end if
'Response.Write(rs.Fields("visito"))
sSQL="Update ips Set Idioma='" & Idioma & "' Where ip='" & ip & "'"
set RS = Conn.Execute(sSQL)
sSQL="Update ips Set Version_IE='" & y & "' Where ip='" & ip & "'"
set RS = Conn.Execute(sSQL)
sSQL="Update ips Set Version_Windows='" & x & "' Where ip='" & ip & "'"
set RS = Conn.Execute(sSQL)
sSQL="Update ips Set Service_Pack='" & b & "' Where ip='" & ip & "'"
set RS = Conn.Execute(sSQL)
sSQL="Update ips Set Sin_Service_Pack='" & a & "' Where ip='" & ip & "'"
set RS = Conn.Execute(sSQL)
sSQL="INSERT INTO ips ('Fecha') VALUES ('"&h&"')"
'sSQL="INSERT INTO ips ('Fecha') Values (h)"
'set RS = Conn.Execute(sSQL)
%>

<%
'rs.close
set rs= Nothing
' conn.close
Set conn = Nothing
'Abro el Recordset con la sentencia SQL
'definiendo oConn como el objeto Connection
'y cursor 1 y lock(cerrojo) 2
'Identifica el tipo del Browsner que usa el cliente
'===========================================
'Guardo los cambios
'end if
'================================================= =======
'Imprimo una fila de la tabla
'para cada registro que encuentre
Response.Write( "<TR>" & vbCrlf ) 'ip,software,x,y,xy,a,b
Response.Write( "<p> </p><TD><B>Fecha y hora es : "&h&"</B></TD><p> </p>" & vbCrlf )
Response.Write( "<TD><B>Tu Ip es: " & ip & "</B></TD><p> </p>" & vbCrlf )
Response.Write( "<TD><B>Idioma del Windows es: " & idioma & "</B></TD><p> </p>" & vbCrlf )
Response.Write( "<TD><B>Version del Intert Explorer es:" & y & "</B></TD><p> </p>" & vbCrlf )
Response.Write( "<TD><B>Version del Sistema Operativo es:" & x & "</B></TD><p> </p>" & vbCrlf )
Response.Write( "<TD><B>" & a & "</B></TD><p> </p>" & vbCrlf )
Response.Write( "<TD><B>" & b & "</B></TD><p></p>" & vbCrlf )
Response.Write( "</TR>" & vbCrlf )
'Pasamos al siguiente registro
'Olvidarte esto significa que vas a imprimir
'siempre el mismo registro... Un bucle infinito!
'Cierro la tabla
%>
</tr>
</table>

<input type="button" onclick="javascript:window.close()" value="Cerrar Ventana" style="font-family: Verdana; font-size: 10 pt; color: #000080; background-color: #C0C0C0; border-style: solid">
<script LANGUAGE="JavaScript1.1">
function derecha(e) {
if (navigator.appName == 'Netscape' && (e.which == 3 || e.which == 2)){
alert('Derechos reservador de C.F.E')
return false;
}

else if (navigator.appName == 'Microsoft Internet Explorer' && (event.button == 2)){
alert('Derechos reservador de C.F.E')
}
}
document.onmousedown=derecha
</script>

EN QUE ESTOY MAL

Neuron_376 · #17 (**permalink**) 15/04/2005, 16:15

Vete linea por linea haciendo un:

Response.write strSql
Response.End()

Luego esa consulta pegala en tu administrador de SQL y mira que error te arroja, o bien si te esta arrojando datos, etc..

Despues de eso, pones aqui que esta pasando, eso sera lo mejor para ver tu caso, porque la verdad no entiendo bien que esta pasando en tu codigo:

En mi opinion podrias hacer todo al mismo tiempo:

dns="DSN=mantto"
set conn = Server.CreateObject("ADODB.connection")
conn.open(dns)
set rs = server.CreateObject("ADODB.Recordset")
' cnn.Open "DSN=mantto"
'sql ="select nombre from ips where ip = & ip "
sql = "SELECT * FROM ips WHERE ip = '" & ip & "'"
rs.open sql,conn,1,1

if rs.eof then

con="insert into ips (ip,nombre,depto,area,visito) values ('"&ip&"',' ',' ',' ',1)"
conn.execute(con)

else

' ejecuta la consulta
'cnn.Execute (sql)
set rs = conn.Execute(sql)

//Aqui actualizas la base de datos, porque sabes que es repetido

actualiza= "Update ips set visito = visit + 1 WHERE '" & ip & "' = ip"
conn.Execute(actualiza)

end if

//Inmediatamente realizar el insert de log logos de la tabla, porque siempre pasara, esto, la primera vez, la segunda vez, es decir, siempre tienes que poner en la segunda tabla la fecha de la visita, pero estabas insertando en ips, y ls logs deben ser en otra tabla, entonces es como a continuacion, ademas le tienes que señalar para cual ip es la nueva fecha.

sSQL="INSERT INTO ipsLog (ip, Fecha) VALUES ('"&ip&"', '"&h&"')"
Conn.Execute(sSQL)

Bueno, revisalo nuevamente toda la logica y pruebalo

Kenshin · #18 (**permalink**) 02/05/2005, 13:03

Muchas gracias Neuron_376 por toda la ayuda que me has dado ya quedo con stisfaccion la base de datos de las fechas y ya me las muestras pero ahora tengo una pequeña duda si es que me puedes ayudar tengo que hacer una grafica donde muestre los meses y el depto para saber el porcentaje de cada departamento quienes visitan la pagina y le dan mantenimiento a la PC espero que me puedas auxiliar o que me ayuden por favor

Neuron_376 · #19 (**permalink**) 02/05/2005, 16:12

Que bueno que ya quedo esa parte !!!

Bueno, en realidad yo nunca he hecho graficas dinamicas, lo que si he hecho es sacar los resultados en una tabla, de ahi lo copio a Excel y en Excel hago mis graficas...

Pero lo que tu quieres son graficas dinamicas, humm, la verdad nunca las he ocupado y no he investigado nada del tema, pero aqui me parece que otros si lo han hecho, entonces esperemos que te contesten para saber yo tambien.

Suerte!!

Ya despues que te encuentres en la parte de desrrollar codigo, claro que puedo ayduarte en cualquier detalle que se te atore.

Kenshin · #20 (**permalink**) 25/05/2005, 09:41

Una pregunta Neuron_376 en mi base de MySQL tengo algunos datos ya guardados como es el nombre y el cargo que ocupan como puedo hacer para que si no existe el nombre puede el introducirlo y cuando entre de nuevo a la pagina ya no llo introduzca y lo guarde. Espero que me puedas auxiliar por favor

Neuron_376 · #21 (**permalink**) 25/05/2005, 09:50

Hola, pues se me ocurre que cuando buscas el IP y lo encuentras, tambien regreses el nombre o cualquier campo que quieres revisar, como:

select ip, nombre from.....

if nombre_NO_EXISTE then

// Presentas el formulario donde recojes los datos

end if

----

Luego ese formulario te puede llevar a otra pagina como updateInfoIp.asp

Donde lo unico que haces es un update de toda la informacio que recogiste, como

update set nombre = [varNombre], etc... where ip = [IP_DEL_USUARIO_ACTUAL]

Eso es lo que puedes hacer, es decir, revisas que los datos esten bien, y si no estan bien entonces presentas el formmulario con los datos que te hacen falta y actualizas ese registro.

Suerte!!