Help with asp website form

[Mike]

I'm used to unix/cgi scripts so im slightly out of my depth here.
Ive got an asp script for a website form which works fine.
What i want to do is also get the form to include the ip address of the
perosn sending the form ie
<input type=hidden name=env_report value=REMOTE_AD DR>
Anyone know how to apply this to this asp script below?:

<%
For Each x in request.form
sBody = sBody & x & " = " & request.form(x) & vbCrLf
Next
Set MailObject = Server.CreateOb ject("CDONTS.Ne wMail")
MailObject.From = "we*****@xxx.co m"
MailObject.To = "we*****@xxx.co m"
MailObject.Subj ect = "Form"
MailObject.Body = sBody & vbCrLf

MailObject.Send
Set MailObject = Nothing
' Now redirect
Response.Redire ct "http://www.xxx/thank_you.htm"
%>

[Mike]

"Ray at <%=sLocation% > [MVP]" <myFirstNameATl ane34dotKOMM> wrote in message
news:ux******** ******@TK2MSFTN GP09.phx.gbl...

Does this look familiar to you at all? It's from a few posts back:

'''sBody wasn't dimmed before. It must be dimmed
'''when using Option Explicit. (Using Option Explicit
'''is a GOOD habit. I suggest you continue using it.)

'''x was not dimmed either.

--

Ray at home
Microsoft ASP MVP

yep id already tried Dim didn't work

[Bob Barrows]

Mike wrote:

"Ray at <%=sLocation% > [MVP]" <myFirstNameATl ane34dotKOMM> wrote in
message news:ux******** ******@TK2MSFTN GP09.phx.gbl...

Does this look familiar to you at all? It's from a few posts back:

'''sBody wasn't dimmed before. It must be dimmed
'''when using Option Explicit. (Using Option Explicit
'''is a GOOD habit. I suggest you continue using it.)

'''x was not dimmed either.

--

Ray at home
Microsoft ASP MVP

yep id already tried Dim didn't work

Dammit.

Please stop saying that! We don't know what "didn't work" means! We're not
looking over your shoulder!

Sorry, but this is frustrating - you have been asked several times in this
thread to explicitly describe your problem without using the words "did not
work".
Show the revised code, and show the error you you get when you run it!

Are you saying that you still get the

Variable is undefined: 'x'

error when you put the line

Dim x

into your code? That's not right, show us the code that produces the error.

Bob Barrows

--
Microsoft MVP - ASP/ASP.NET
Please reply to the newsgroup. This email account is my spam trap so I
don't check it very often. If you must reply off-line, then remove the
"NO SPAM"

[Mike]

"Bob Barrows" <re******@NOyah oo.SPAMcom> wrote in message news:%23x%

Ouch.
I'm trying lots of variations therefore it would be impossible to
keep posting everything i try.

Example:

Microsoft VBScript compilation error '800a03f2'

Expected identifier

/asp/medical1.asp, line 5

Dim For Each x in request.form
----^

=============== =============== ======

<%@ Language=VBScri pt %>
<%
Option Explicit
Dim iMsg
Dim For Each x in request.form
sBody = sBody & x & " = " & request.form(x) & vbCrLf
Next

Set iMsg = CreateObject("C DO.Message")
iMsg.To = mi**@xxx.com
iMsg.Subject = "This is the Subject"
iMsg.From = "Me mi**@xxx.com"
iMsg.TextBody = "This is the body of the message"
Request.ServerV ariables("REMOT E_ADDR")

iMsg.Send
Response.Redire ct "/thank_you.htm"
%>

[Bob Barrows]

Mike wrote:

"Bob Barrows" <re******@NOyah oo.SPAMcom> wrote in message news:%23x%
Ouch.
I'm trying lots of variations therefore it would be impossible to
keep posting everything i try.
We can't help you unless you do. Again, we are not looking over your
shoulder.

Look,. we don't expect you to post everything you try. But, we do expect you
to post the information needed to help you with the particular problem you
are posting about. This means: describing your problem without using the
words "did not work", or "it fails", or any variation on this theme. :-)

Example:

Microsoft VBScript compilation error '800a03f2'

Expected identifier

/asp/medical1.asp, line 5

Dim For Each x in request.form
----^

See? Now that I see the error and the code, I see the serious mistake you
made :-)

"Dim" is used to declare variables, not to put at the beginning of
statements in which the variables are used. This modification will get rid
of that particular error:
<%@ Language=VBScri pt %>
<%
Option Explicit
Dim iMsg
Dim x
For Each x in request.form
This will also work:
<%@ Language=VBScri pt %>
<%
Option Explicit
Dim iMsg, x
For Each x in request.form

HTH,
Bob Barrows
--
Microsoft MVP -- ASP/ASP.NET
Please reply to the newsgroup. The email account listed in my From
header is my spam trap, so I don't check it very often. You will get a
quicker response by posting to the newsgroup.

[Mike]

Thanks for that, i'm with you.
What about the sBody variable?
Microsoft VBScript runtime error '800a01f4'

Variable is undefined: 'sBody'

/asp/test.asp, line 7

<%@ Language=VBScri pt %>
<%
Option Explicit
Dim iMsg
Dim x
For Each x in request.form
sBody = sBody & x & " = " & request.form(x) & vbCrLf
Next

Set iMsg = CreateObject("C DO.Message")
iMsg.To = mi**@xxx.com
iMsg.Subject = "This is the Subject"
iMsg.From = "Me <mi**@xxx.com >"
iMsg.TextBody = "This is the body of the message"
Request.ServerV ariables("REMOT E_ADDR")

iMsg.Send
Response.Redire ct "/thank_you.htm"
%>

[Bob Barrows]

Mike wrote:

Thanks for that, i'm with you.
What about the sBody variable?
Microsoft VBScript runtime error '800a01f4'

Variable is undefined: 'sBody'

/asp/test.asp, line 7

Same solution: add a line to declare (define) the variable:

dim sBody

HTH,
Bob Barrows

--
Microsoft MVP -- ASP/ASP.NET
Please reply to the newsgroup. The email account listed in my From
header is my spam trap, so I don't check it very often. You will get a
quicker response by posting to the newsgroup.

[Mike]

"Bob Barrows" <re******@NOyah oo.SPAMcom> wrote in message
news:ey******** ******@TK2MSFTN GP12.phx.gbl...
I'd already tried that but the form just submits the text "This is the body
of the message"
rather than the form field data.
Basically im back exactly where i started yesterday but with a little more
knowledge about Dim

Does anyone out there have a 'working script' which submits the contents of
a form???
<%@ Language=VBScri pt %>
<%
Option Explicit
Dim iMsg
Dim x
For Each x in request.form
Dim sBody
sBody = sBody & x & " = " & request.form(x) & vbCrLf
Next

Set iMsg = CreateObject("C DO.Message")
iMsg.To = mi**@xxx.com
iMsg.Subject = "This is the Subject"
iMsg.From = "Me <mi**@xxx.com >"
iMsg.TextBody = "This is the body of the message"
Request.ServerV ariables("REMOT E_ADDR")

iMsg.Send
Response.Redire ct "/thank_you.htm"
%>

[Alex Goodey]

you need this -
iMsg.TextBody = sBody

instead of this -
iMsg.TextBody = "This is the body of the message"
"Mike" <[e-mail] > wrote in message
news:10******** ********@iris.u k.clara.net...

"Bob Barrows" <re******@NOyah oo.SPAMcom> wrote in message
news:ey******** ******@TK2MSFTN GP12.phx.gbl...
I'd already tried that but the form just submits the text "This is the body of the message"
rather than the form field data.
Basically im back exactly where i started yesterday but with a little more
knowledge about Dim

Does anyone out there have a 'working script' which submits the contents of a form???
<%@ Language=VBScri pt %>
<%
Option Explicit
Dim iMsg
Dim x
For Each x in request.form
Dim sBody
sBody = sBody & x & " = " & request.form(x) & vbCrLf
Next

Set iMsg = CreateObject("C DO.Message")
iMsg.To = mi**@xxx.com
iMsg.Subject = "This is the Subject"
iMsg.From = "Me <mi**@xxx.com >"
iMsg.TextBody = "This is the body of the message"
Request.ServerV ariables("REMOT E_ADDR")

iMsg.Send
Response.Redire ct "/thank_you.htm"
%>

[Ray at]

I'm sorry.

Will you go back and READ THIS THREAD AGAIN?! Will you please TRY to
comprehend what other people wrote? I explained why you get "This is the
body of the message" in the e-mail before. Did you read it? Have you read
any of these replies, or are you just skipping right to the code hoping it
works. And when it doesn't work, you take ZERO seconds to try to learn why?
I'm sorry, but if you had been reading the posts with the desire to learn
and figure out what's going on, you have would had this working two days
ago. Every piece of information you could possibly need exists in this
thread. So go back and just keep reading until YOU figure it out. This
will help you learn ASP instead of learning how to copy and paste.

--

Ray at home
Microsoft ASP MVP

In news:10******** ********@iris.u k.clara.net,
Mike <[e-mail] > typed:

"Bob Barrows" <re******@NOyah oo.SPAMcom> wrote in message
news:ey******** ******@TK2MSFTN GP12.phx.gbl...
I'd already tried that but the form just submits the text "This is
the body of the message"
rather than the form field data.
Basically im back exactly where i started yesterday but with a little
more knowledge about Dim

Does anyone out there have a 'working script' which submits the
contents of a form???
<%@ Language=VBScri pt %>
<%
Option Explicit
Dim iMsg
Dim x
For Each x in request.form
Dim sBody
sBody = sBody & x & " = " & request.form(x) & vbCrLf
Next

Set iMsg = CreateObject("C DO.Message")
iMsg.To = mi**@xxx.com
iMsg.Subject = "This is the Subject"
iMsg.From = "Me <mi**@xxx.com >"
iMsg.TextBody = "This is the body of the message"
Request.ServerV ariables("REMOT E_ADDR")

iMsg.Send
Response.Redire ct "/thank_you.htm"
%>

[Peter Foti]

Try this:

<%@ Language=VBScri pt %>
<%
Option Explicit
Dim iMsg
Dim x
Dim sBody

For Each x in request.form
sBody = sBody & x & " = " & request.form(x) & vbCrLf
Next

Set iMsg = CreateObject("C DO.Message")
iMsg.To = mi**@xxx.com
iMsg.Subject = "This is the Subject"
iMsg.From = "Me <mi**@xxx.com >"
iMsg.TextBody = sBody & Request.ServerV ariables("REMOT E_ADDR")

iMsg.Send
Response.Redire ct "/thank_you.htm"
%>
Regards,
Peter Foti


"Mike" <[e-mail] > wrote in message
news:10******** ********@iris.u k.clara.net...

"Bob Barrows" <re******@NOyah oo.SPAMcom> wrote in message
news:ey******** ******@TK2MSFTN GP12.phx.gbl...
I'd already tried that but the form just submits the text "This is the body of the message"
rather than the form field data.
Basically im back exactly where i started yesterday but with a little more
knowledge about Dim

Does anyone out there have a 'working script' which submits the contents of a form???
<%@ Language=VBScri pt %>
<%
Option Explicit
Dim iMsg
Dim x
For Each x in request.form
Dim sBody
sBody = sBody & x & " = " & request.form(x) & vbCrLf
Next

Set iMsg = CreateObject("C DO.Message")
iMsg.To = mi**@xxx.com
iMsg.Subject = "This is the Subject"
iMsg.From = "Me <mi**@xxx.com >"
iMsg.TextBody = "This is the body of the message"
Request.ServerV ariables("REMOT E_ADDR")

iMsg.Send
Response.Redire ct "/thank_you.htm"
%>