Sacar la Ip de un formulario....

[yanire]

Hola amigos ando liado con un libro de firmas en asp y soy incapaz de conseguir que con el mensaje me envie tambien la IP del que escribe, os dejo el codigo para que le echeis un vistazo y me digais de que forma lo podria conseguir....
Ah se me olvidaba tampoco logro cambiar la anchura de los campos..


<%@ Language="VBScript" %>
<% Option Explicit %>
<%

%>
<%Dim name,email,homepage,city,country,message,datetime

name = Request.Form("name")
email = Request.Form("email")
homepage = Request.Form("homepage")
IF InStr(homepage, "http://") = 0 Then
homepage = "http://" & homepage
END IF
city = Request.Form("city")
country = Request.Form("country")
message = Request.Form("message")
datetime = now()

%>
<!--#include file="dbconn.asp"-->
<%
IF name = "" Then
error("name")

ElSEIF email = "" Then
error("email")

ELSEIF InStr(email,"@") = 0 Then
error("wrongmail")

ElSEIF country = "" Then
error("country")

ElSEIF message = "" Then
error("message")
%>
<%ELSE%>
<%Dim rsMessAdded
Set rsMessAdded= Server.CreateObject("ADODB.Recordset")
rsMessAdded.open "mess", dbconn, 3, 3

rsMessAdded.AddNew
rsMessAdded("postedby") = name
rsMessAdded("email") = email
rsMessAdded("website") = homepage
rsMessAdded("city") = city
rsMessAdded("country") = country
rsMessAdded("message") = message
rsMessAdded("datetime") = datetime
rsMessAdded.Update

rsMessAdded.close
set rsMessAdded = nothing
Response.Redirect("new.asp?msg=added")
%>
<%END IF%>


<%
dbconn.close
set dbconn = nothing
%>


<%
Function error(calltype)
%>
<!--#include file="inc_head.asp"-->
<br><br><br>
<table Align="center" vAlign="center" width="500">
<tr>
<td Align="center">
<h3>Lo siento, ha ocurrido un ERROR.</h3>
</td>
</tr>
<tr>
<td Align="center">
<font color="#800000" size="3" face="Trebuchet MS">
<%IF calltype = "name" Then%>
No has escrito tu Nombre.

<%ELSEIF calltype = "email" Then%>
No has escrito tu email.

<%ELSEIF calltype = "country" Then%>
Se te olvido poner tu ciudad.

<%ELSEIF calltype = "message" Then%>
No pusiste nada en el mensaje.

<%ELSEIF calltype = "wrongmail" Then%>
Sorry you have enter wrong e-mail address.
<%END IF%>
</font>
</td>
</tr>
</table>

<br><center><a href="javascript:history.back()"> <font size="3" face="Trebuchet MS" color="#666666"> Pincha
aquí para realizar los cambios.</font></a> </center>

<br><br>
<!--#include file="inc_footer.asp"-->

<%End Function%>


Gracias anticipadas a todos sois muy amables.

[Muzztein]

chequear las faq debes.

[yanire]

En las faq hay muchos temas que efectivamente me podrian servir, pero hay que saber colocarlo en el lugar indicado, por eso pertenezco a este foro por que siempre hay alguien que te ayuda con un codigo que desconozco casi...
Ahora veo que estas muy ocupado y que te molesto pues ya lo siento majo.
Si vas a contestarme como lo has hecho, por favor no mires mis post y asi no te incordio.
Si fuese tan listo como tu no preguntaba no te parece????
Lo siento, seguro que alguien me ayuda, gracias
saludos para ti tambien

[Neuron_376]

1. La IP del cliente no la obtienes de ningun formulario, sino de una variable del servidor:

REMOTE_ADDR, investiga acerca de esa, encontraras rapidamente info

Request.ServerVariables("REMOTE_ADDR")

Y la parte del tamaño en cosa de HTML, utiliza DW o Front-PAge para que te des una idea de la sintaxis correcta, luego ya la aplicas a tu HTML.

Suerte!!

[sjam7]

http://www.sloppycode.net/Reference/Asp/Ref-37.html

[yanire]

De acuerdo en casi todo Neuron lo de la variable es como tu dices, ahora bien... si te fijas en lo del tamaño, ese archivo que yo he puesto en este foro no se puede abrir con el front ni con el Dreamweaber ya que es como visual o algo asi y por lo tanto la sintexis no vale para nada, por eso pregunto aqui seguro que alguien habra creado algo parecido alguna vez.
No se como editar ese codigo agradeceria cualquier ayuda.
saludos

[3pies]

Te creas un campo en la BD, llamado ip (por ejemplo) de tipo texto, y añades esta línea a la página asp, debajo de la línea que pone "rsMessAdded("datetime") = datetime":

rsMessAdded("ip") = request.servervariables("REMOTE_ADDR")

Para abrir ese fichero asp, puedes usar el bloc de notas de Windows (de hecho, yo es el único "editor" que utilizo).

[Neuron_376]

De la anchura de los campos, te refieres al tamaño de los campos en la base de datos, o a la anchura como los presentas en la tabla que despliegas cuando los muestras, si es lo segundo es html, si es lo primero pues tienes que modificar la estructura de tu tabla...

Y si no es nada de eso, es que no entiendo bien a que te refieres

Suerte!!

[yanire]

Gracias tres pies y Neuron, ya lo arregle....
Sois muy amables, efectivamente funciono lo que me deciais
saludos