Foros del Web » Programando para Internet » ASP Clásico »

Sacar la Ip de un formulario....

Estas en el tema de Sacar la Ip de un formulario.... en el foro de ASP Clásico en Foros del Web. 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 ...
  #1 (permalink)  
Antiguo 26/05/2005, 05:43
 
Fecha de Ingreso: marzo-2003
Mensajes: 63
Antigüedad: 21 años, 3 meses
Puntos: 0
Sacar la Ip de un formulario....

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.
  #2 (permalink)  
Antiguo 26/05/2005, 05:58
Avatar de Muzztein  
Fecha de Ingreso: agosto-2002
Ubicación: Hangar 18
Mensajes: 1.703
Antigüedad: 21 años, 9 meses
Puntos: 16
chequear las faq debes.
  #3 (permalink)  
Antiguo 26/05/2005, 15:52
 
Fecha de Ingreso: marzo-2003
Mensajes: 63
Antigüedad: 21 años, 3 meses
Puntos: 0
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
  #4 (permalink)  
Antiguo 26/05/2005, 16:05
Avatar de Neuron_376  
Fecha de Ingreso: abril-2005
Mensajes: 1.051
Antigüedad: 19 años, 2 meses
Puntos: 2
Hola!

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!!
__________________
NeuronaNet.com... la idea correcta.
http://www.NeuronaNet.com
  #5 (permalink)  
Antiguo 26/05/2005, 16:19
Avatar de sjam7  
Fecha de Ingreso: diciembre-2001
Ubicación: Guadalajara, Mexico
Mensajes: 3.672
Antigüedad: 22 años, 5 meses
Puntos: 16
http://www.sloppycode.net/Reference/Asp/Ref-37.html
  #6 (permalink)  
Antiguo 27/05/2005, 07:42
 
Fecha de Ingreso: marzo-2003
Mensajes: 63
Antigüedad: 21 años, 3 meses
Puntos: 0
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
  #7 (permalink)  
Antiguo 27/05/2005, 08:00
Avatar de 3pies
Colaborador
 
Fecha de Ingreso: diciembre-2003
Ubicación: Desde una destilería
Mensajes: 2.584
Antigüedad: 20 años, 6 meses
Puntos: 144
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).
  #8 (permalink)  
Antiguo 27/05/2005, 09:22
Avatar de Neuron_376  
Fecha de Ingreso: abril-2005
Mensajes: 1.051
Antigüedad: 19 años, 2 meses
Puntos: 2
Hola

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!!
__________________
NeuronaNet.com... la idea correcta.
http://www.NeuronaNet.com
  #9 (permalink)  
Antiguo 27/05/2005, 13:35
 
Fecha de Ingreso: marzo-2003
Mensajes: 63
Antigüedad: 21 años, 3 meses
Puntos: 0
Gracias tres pies y Neuron, ya lo arregle....
Sois muy amables, efectivamente funciono lo que me deciais
saludos
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 12:20.