Guardar todos los campos en una base de datos

[JuanCarlos]

Hola mi caso es es el siguiente tengo un formulario que envia el nombre de una persona a una base de datos pero a su vez almacena la IP del usuario, la hora y el dia en que mando el formulario a la base de datos de esta forma:
<form method="POST" action="default.asp">
<%dim rs
const dbCon = "FILE NAME=d:\registro.udl"
Set Con = Server.CreateObject( "ADODB.Connection" )
Con.Open dbCon
set rs = server.createobject("adodb.recordset")

rs.open "usuario", con, 2, 2
rs.addnew

rs("nombre") = request("nombre")
rs("fecha") = date()
rs("hora") = time()
rs("ip") = Request.ServerVariables("Remote_Addr")
rs.update
rs.movelast%>


<p align="center"><input type="text" name="nombre" size="20"><p align="center">
<input type="submit" value="Enviar" name="B1"></form>

La conexión a la base de datos la hago con un data links...

Bueno el problema que se me presenta es el siguiente: cuando se envia el formulario se se cargan todos los datos excepto el nombre y es el unico campo que ingreso manualmente y en realidad noc por que se me presenta este problema bueno si alguien me puede ayudar por favor....

Ó que conosca otra forma de como hacerlo..

[u_goldman]

<form method="POST" action="default.asp">
<%dim rs
const dbCon = "FILE NAME=d:\registro.udl"
Set Con = Server.CreateObject( "ADODB.Connection" )
Con.Open dbCon
set rs = server.createobject("adodb.recordset")

rs.open "usuario", con, 2, 2
rs.addnew

rs("nombre") = request("nombre")
rs("fecha") = date()
rs("hora") = time()
rs("ip") = Request.ServerVariables("Remote_Addr")
rs.update
rs.movelast%>


<p align="center"><input type="text" name="nombre" size="20"><p align="center">
<input type="submit" value="Enviar" name="B1"></form>

Perdon, no entiendo bien lo que estás haciendo, primero actualizas el recordset y después envías el formulario?? o estás mostrando dos archivos separados?

Salu2,

[JuanCarlos]

priemero actualizo el recorset todo el codigo esta en una misma pagina

[u_goldman]

Entonces dices que envías el nombre manualmente desde alguna otra parte y no se actualiza en la DB? cómo envías ese nombre?
hazte un bucle para ver si te está llegando bien, si lo haces mediante un form

For each item in request.form
response.write(item & "= " & request.form(item) & "<br>")
Next
Response.End

Y ve lo que imprime, a lo mejor el campo no se llama nombre, ahora para el input de abajo le falta un value...


Salu2,

[JuanCarlos]

bueno u_golmand lo que te quiero decir es lo siguiente mi formulario posee unicamente un solo textbox y solamente almaceno el nombre escrito por mi o cualquier otro usuario los demas campos como son la hora dia e ip los envia autamaticamente lo que quiero decir que no tengo que ingresarlos manualmete desde el formulario, bueno todavia no e probado lo que me dices voy a ver que tal me resulta luego te aviso.....

[JuanCarlos]

u_golman qu tal si te paso un mail con los archivos dee lo que esto haciendo y te explico detalladamente que eslo que quiero hacer para ver si me puedes ayudar te parec...
Ha y otra cosa mi pana no soy experto en ASP pero si se un poquito bueno vamos a ver que me dices:::::

[u_goldman]

[email protected]

Salu2,

[JuanCarlos]

Hola u_goldman ya te pase el archivo y me puedas ayudar......

[Littlew]

Hola gente!!!

podria ser interesante q publicaseis la "solucion" final en un post, para q el resto de interesados nos enterasemos... jejej

Un saludo y suerte!

[JuanCarlos]

ok Littlew cuando tenga la solución ha este proble ma lo publicare para que lo vean con mucho gusto bueno eso si si u_goldman puede ayudarme

[JuanCarlos]

bueno Littlew ya hemos corregido (bueno u_goldman iso el trabajo) el error de la manera siguiente:
se tubo que cambiar la codificación quedando de este modo:

<%
If Request.Form("action") = "" Then
%>
<form onsubmit="return validacion(this);return enviado()" method="POST" action="registro.asp">
<input type=hidden name=action value="ingresa">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="278" height="101" id="AutoNumber1">
<tr>
<td width="278" height="30" bgcolor="#808080">
<p align="center">
<font face="Arial" style="font-size: 9pt; font-weight: 700" color="#FFFFFF">
Por favor introduzca su nombre:</font></td>
</tr>
<tr>
<td width="278" height="43">
<p align="center"><input type="text" name="nombre" size="20"></td>
</tr>
<tr>
<td width="278" height="28">
<p align="center"><input type="submit" value="Enviar" name="B1"></td>
</tr>
</table>
</center>
</div>
</form>
<%
Else
dim rs
path = Server.MapPath(".") & "\Chat_registro.mdb"
Set dbCon = Server.CreateObject("ADODB.Connection")
dbCon.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & path

nombre= trim(Request.Form("nombre"))
ip= Request.ServerVariables("Remote_Addr")
dbCon.Execute("INSERT INTO usuario(nombre, fecha, hora, ip) VALUES('"&nombre&"','"&date()&"', '"&time()&"', '"&ip&"')")
dbCon.Close
Set dbCon= Nothing
Response.Redirect "default.asp?username=" & nombre
End If
%>
</body>