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"
%>

[Ray at]

Changing from CDONTS to CDO isn't really hard. You could probably actually
do it with a find/replace in a text editor, for the most part. But
something else to consider is to create a sub or a function to handle
e-mailing and use that in your code, so that if you have to change mail
components, you just change the code in your sub.
Sub SendAnEmail(sFr om, sTo, sSubject, sBody)
Set oMail = CreateObject("Y ourMailComponen t")
'''code to send e-mail

End Sub
Then anywhere in your ASP code where you need to send e-mail, just call the
sub and pass the arguments. You'd want to put this sub in an include file
so you can use it in any page.

Ray at home
"Mike" <[e-mail] > wrote in message
news:10******** ********@eunomi a.uk.clara.net. ..

Also, instead of CDONTS, you should be using CDO, unless you're on an NT 4 server. CDONTS is being phased out.
http://www.aspfaq.com/show.asp?id=2026

Ray at home

Is this likely to be phased out soon?
FYI: The host is www.hostmysite.com

As i said i know nothing about asp / CDONTS / CDO.

currently i am using the above script with a form action of:

<form name="form" method="post" action="http://www.xxx.com/form.asp">

Is there a simple way to alter the current script to CDO or am i going to
have to look for somehting new?

Your advice is appreciated

[Mike]

"Ray at <%=sLocation% >" <myfirstname at lane34 dot com> wrote in message
news:%2******** ********@TK2MSF TNGP12.phx.gbl. ..

Changing from CDONTS to CDO isn't really hard. You could probably actually do it with a find/replace in a text editor, for the most part. But
something else to consider is to create a sub or a function to handle
e-mailing and use that in your code, so that if you have to change mail
components, you just change the code in your sub.
Sub SendAnEmail(sFr om, sTo, sSubject, sBody)
Set oMail = CreateObject("Y ourMailComponen t")
'''code to send e-mail

End Sub
Then anywhere in your ASP code where you need to send e-mail, just call the sub and pass the arguments. You'd want to put this sub in an include file
so you can use it in any page.

Ray at home

not sure im with you on the changes.

Does anyone have a basic default cdo asp file script knocking about that
simply sends the form contents
and provides a redirect page.

Im simply looking for an asp which can be called via:

<form name="form" method="post" action="http://www.xxx.com/form.asp">

whch then submits to email. i think it would be wise if i find a CDO one
now rather than later.

cgi/unix scripts are 10 a penny but asp ones seem more difficult to find

[Curt_C [MVP]]

Mail with CDO:
http://www.darkfalz.com/1090

Otherwise look at www.aspfaq.com

--
Curt Christianson
Owner/Lead Developer, DF-Software
www.Darkfalz.com
"Mike" <[e-mail] > wrote in message
news:10******** ********@nnrp-t71-03.news.uk.clar a.net...

"Ray at <%=sLocation% >" <myfirstname at lane34 dot com> wrote in message
news:%2******** ********@TK2MSF TNGP12.phx.gbl. ..

Changing from CDONTS to CDO isn't really hard. You could probably

actually

do it with a find/replace in a text editor, for the most part. But
something else to consider is to create a sub or a function to handle
e-mailing and use that in your code, so that if you have to change mail
components, you just change the code in your sub.
Sub SendAnEmail(sFr om, sTo, sSubject, sBody)
Set oMail = CreateObject("Y ourMailComponen t")
'''code to send e-mail

End Sub
Then anywhere in your ASP code where you need to send e-mail, just call

the

sub and pass the arguments. You'd want to put this sub in an include file so you can use it in any page.

Ray at home

not sure im with you on the changes.

Does anyone have a basic default cdo asp file script knocking about that
simply sends the form contents
and provides a redirect page.

Im simply looking for an asp which can be called via:

<form name="form" method="post" action="http://www.xxx.com/form.asp">

whch then submits to email. i think it would be wise if i find a CDO one
now rather than later.

cgi/unix scripts are 10 a penny but asp ones seem more difficult to find

[Ray at]

"Mike" <[e-mail] > wrote in message
news:10******** ********@nnrp-t71-03.news.uk.clar a.net...

not sure im with you on the changes.
That's okay. One step at a time.
Does anyone have a basic default cdo asp file script knocking about that
simply sends the form contents
and provides a redirect page.
I posted a decent link in my first reply yesterday. Did you check out the
page? Here's the link again.
http://www.aspfaq.com/show.asp?id=2026
i think it would be wise if i find a CDO one
now rather than later.
I commend you for that attitude. Most people would say the Hell with it and
make things harder for themselves later on. Good job. :]

cgi/unix scripts are 10 a penny but asp ones seem more difficult to find

If you have not already done so, bookmark http://www.darkfalz.com/ and the
the sites found at http://www.darkfalz.com/Links.aspx.

Ray at work

[Mike]

Ok this basic cdo script seems to dot he trick.

<%@ Language=VBScri pt %>
<%
Option Explicit
Dim iMsg
Set iMsg = CreateObject("C DO.Message")
iMsg.To = "So*****@SomeSi te.com"
iMsg.Subject = "This is the Subject"
iMsg.From = "Me <[e-mail] m>"
iMsg.TextBody = "This is the body of the message"
iMsg.Send
%>
The problem is how i go about adding the following elements:

1) Getting the form to submit the contents of all form fields.
Obviously currently all it submits is the text body message: "This is the
body of the message"

2) Specifying a redirect url
Response.Redire ct "http://www.xxx.com/thank_you.htm"

3) Adding the ip address of the form sender ie:
sBody = sBody & "IP Address: " & Request.ServerV ariables("REMOT E_ADDR")
Any help in correctly adding the above to the script would be appreciated

[Ray at]

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

Ok this basic cdo script seems to dot he trick.

<%@ Language=VBScri pt %>
<%
Option Explicit
Dim iMsg
Set iMsg = CreateObject("C DO.Message")
iMsg.To = "So*****@SomeSi te.com"
iMsg.Subject = "This is the Subject"
iMsg.From = "Me <[e-mail] m>"
iMsg.TextBody = "This is the body of the message"
iMsg.Send
%>
The problem is how i go about adding the following elements:

1) Getting the form to submit the contents of all form fields.
Obviously currently all it submits is the text body message: "This is the
body of the message"
Remember in your original post you had that For Each x in request.form
line...? You can still use that variable in place of the text string that's
currently set as the .textbody.

2) Specifying a redirect url
Response.Redire ct "http://www.xxx.com/thank_you.htm"
Use that exact line that you have there. (Or just response.redire ct
"/thankyou.htm" if this is all taking place on your site.)

3) Adding the ip address of the form sender ie:
sBody = sBody & "IP Address: " & Request.ServerV ariables("REMOT E_ADDR")

As covered in the original reply. I think now it's just a matter of piecing
it all together.

Ray at work

[Mike]

"Ray at <%=sLocation% >" <myfirstname at lane34 dot com> wrote in message
news:us******** ******@TK2MSFTN GP09.phx.gbl...

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

Ok this basic cdo script seems to dot he trick.

<%@ Language=VBScri pt %>
<%
Option Explicit
Dim iMsg
Set iMsg = CreateObject("C DO.Message")
iMsg.To = "So*****@SomeSi te.com"
iMsg.Subject = "This is the Subject"
iMsg.From = "Me <[e-mail] m>"
iMsg.TextBody = "This is the body of the message"
iMsg.Send
%>
The problem is how i go about adding the following elements:

1) Getting the form to submit the contents of all form fields.
Obviously currently all it submits is the text body message: "This is the body of the message"
Remember in your original post you had that For Each x in request.form
line...? You can still use that variable in place of the text string

that's currently set as the .textbody.

2) Specifying a redirect url
Response.Redire ct "http://www.xxx.com/thank_you.htm"
Use that exact line that you have there. (Or just response.redire ct
"/thankyou.htm" if this is all taking place on your site.)

3) Adding the ip address of the form sender ie:
sBody = sBody & "IP Address: " & Request.ServerV ariables("REMOT E_ADDR")

As covered in the original reply. I think now it's just a matter of

piecing it all together.

Ray at work

Hi
sry not sure i was clear, i tried to create the right script but because
i'm not familar with asp i can't find the errors.
perhaps easier if i post what i have (see below). can you tell me whats
wrong?
<%@ Language=VBScri pt %>
<%
Option Explicit
Dim iMsg
Set iMsg = CreateObject("C DO.Message")
For Each x in request.form
sBody = sBody & x & " = " & request.form(x) & vbCrLf

iMsg.To = mi**@xxx.com
iMsg.Subject = "This is the Subject"
iMsg.From = "Me mi**@xxx.com"
iMsg.Body = sBody & vbCrLf
iMsg.sBody = sBody & "IP Address: " &
Request.ServerV ariables("REMOT E_ADDR")

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

[Ray at]

You didn't close your For loop.

<%@ Language=VBScri pt %>
<%
Option Explicit
Dim iMsg
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.Body = sBody & vbCrLf
iMsg.sBody = sBody & "IP Address: " &
Request.ServerV ariables("REMOT E_ADDR")

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

Ray at work

Hi
sry not sure i was clear, i tried to create the right script but because
i'm not familar with asp i can't find the errors.
perhaps easier if i post what i have (see below). can you tell me whats
wrong?
<%@ Language=VBScri pt %>
<%
Option Explicit
Dim iMsg
Set iMsg = CreateObject("C DO.Message")
For Each x in request.form
sBody = sBody & x & " = " & request.form(x) & vbCrLf

iMsg.To = mi**@xxx.com
iMsg.Subject = "This is the Subject"
iMsg.From = "Me mi**@xxx.com"
iMsg.Body = sBody & vbCrLf
iMsg.sBody = sBody & "IP Address: " &
Request.ServerV ariables("REMOT E_ADDR")

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

[Ray at]

I did not look closely enough. There's no .body or .sbody thing. You had
the right property in there before. .TextBody.

Ray at work

"Ray at <%=sLocation% >" <myfirstname at lane34 dot com> wrote in message
news:ut******** ******@TK2MSFTN GP11.phx.gbl...

You didn't close your For loop.

<%@ Language=VBScri pt %>
<%
Option Explicit
Dim iMsg
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.Body = sBody & vbCrLf
iMsg.sBody = sBody & "IP Address: " &
Request.ServerV ariables("REMOT E_ADDR")

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

Ray at work

Hi
sry not sure i was clear, i tried to create the right script but because i'm not familar with asp i can't find the errors.
perhaps easier if i post what i have (see below). can you tell me whats
wrong?
<%@ Language=VBScri pt %>
<%
Option Explicit
Dim iMsg
Set iMsg = CreateObject("C DO.Message")
For Each x in request.form
sBody = sBody & x & " = " & request.form(x) & vbCrLf

iMsg.To = mi**@xxx.com
iMsg.Subject = "This is the Subject"
iMsg.From = "Me mi**@xxx.com"
iMsg.Body = sBody & vbCrLf
iMsg.sBody = sBody & "IP Address: " &
Request.ServerV ariables("REMOT E_ADDR")

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

[Mike]

I must be close! grrr.
Any pointers what is wrong?
<%@ Language=VBScri pt %>
<%
Option Explicit
Dim iMsg
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"
%>