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.