Fange IP på Jmail
Jeg har et lille script kørende med jmail fra min hjemmeside, nu er der bare en lille mangel, jeg skal have tilføjet et skjult felt hvor den fortæller fra hvilken IP personen som sender med er fra ???Hvad skal tilføjes ???
Skriptet ser ud som følgende:
contact.htm:
<form method="POST" action="sendmail.asp">
<p> Name<br>
<input type="text" name="Name" size="20" style="border-style: solid; border-width: 1; background-color: #EEEEEE"></p>
<p> Nick<br>
<input type="text" name="Nick" size="20" style="border-style: solid; border-width: 1; background-color: #EEEEEE"></p>
<p> Email<br>
<input type="text" name="Email" size="20" style="border-style: solid; border-width: 1; background-color: #EEEEEE"></p>
<p> Web<br>
<input type="text" name="Web" size="20" style="border-style: solid; border-width: 1; background-color: #EEEEEE" value="http://"></p>
<p> Comment<br>
<textarea rows="5" name="Comment" cols="55" style="border-style: solid; border-width: 1; background-color: #EEEEEE"></textarea></p>
<p align="center">
<input type="submit" value="Submit" name="Submit" style="border-style: solid; border-width: 1; background-color: #EEEEEE">
<input type="reset" value="Reset" name="Reset" style="border-style: solid; border-width: 1; background-color: #EEEEEE"></p>
</form>
sendmail.asp:
<%
Navn = Request.Form("Name")
Nick = Request.Form("Nick")
email = Request.Form("email")
Web = Request.Form("Web")
Besked = Request.Form("Comment")
SenderEmail = "webmaster@superworld.org"
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "mail.superworld.org"
JMail.AddRecipient "webmaster@superworld.org"
JMail.Sender = SenderEmail
JMail.Subject = "E-mail fra superworld.org"
body = "Navn: " & vbcrlf & Navn & vbcrlf & vbcrlf & "Nick: " & vbcrlf & Nick & vbcrlf & vbcrlf & "E-mail: " & vbcrlf & email & vbcrlf & vbcrlf & "Web: " & vbcrlf & Web & vbcrlf & vbcrlf & "Besked: " & vbcrlf & Besked
JMail.Body = Body
JMail.Priority = 3
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
JMail.Execute
' Her angiver du den side der skal omstilles til når mailen er sendt.
Response.Redirect "done.asp"
%>
