Hiding personal data in source code viewable on the internet

G

Greg Maxey

PC,

Thanks for hanging in there. I think it is getting close. I unchecked the
friend error and now recieve a report:


Microsoft VBScript compilation error '800a0400'

Expected statement

/Response.asp, line 5

option explicit
^I tried using both email methods and I get the same result.

Here is the code from the User_Feedback_Testing.asp feedback page:

<html>

<head>
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>User FeedBack Testing</title>
<style>
<!--
A:active {COLOR: #993300}
A:visited {COLOR: #993300}
..internal {border-style:eek:utset; border-width:4px; color: #000000;
background: #CAB733; width: 120px; height: 24px}
a:visited.internal {color: #eee; }
a:hover.internal {border-style:eek:utset; border-width:4px;
ackground:#AA9A2B; }
..internalBlock {width: 120px;height: 24px;text-align: center;}
table.MsoNormalTable
{mso-style-parent:"";
font-size:10.0pt;
font-family:"Times New Roman";
}
-->
</style>
<meta name="Microsoft Theme" content="expeditn 1011, default">
<meta name="Microsoft Border" content="t, default">
</head>

<body>
<p></p>
<p></p>
<p align="center">&nbsp;<p align="center"><font size="6">I Appreciate Your
Feedback</font><p>
Please take a moment ot tell me what you think about this web site and if
you find the Word tips useful.&nbsp;&nbsp; All comments, suggestions, and
don't forget &quot;donations&quot; are welcome.&nbsp;

<hr size="2" noshade>

<blockquote>
<table width="542" border="0" id="table1">
<tr>
<td>
<blockquote>
<blockquote>
<form method="POST" action="Response.asp">
<p align="left"><strong>What is the nature of your comments?</strong>
<dl>
<dd>
<p align="left">
<input type="radio" name="MessageType"
value="Problem">Problem/Bug&nbsp;&nbsp;&nbsp;
<br>
<input type="radio" checked name="MessageType"
value="Suggestion">Suggestion&nbsp;&nbsp;
<br>
<input type="radio" name="MessageType" value="Thanks!">Note of
thanks&nbsp;&nbsp;&nbsp; <br>
<input type="radio" name="MessageType" value="Other">Other
</dd>
</dl>
<p align="left"><strong>What about this site do you want to comment
on?</strong><dl>
<dd>
<p align="left"><select name="Subject" size="1">
<option>Web Site General</option>
<option selected>Word Tips</option>
<option>Odds &amp; Ends</option>
<option>Donations</option>
<option>(Other)</option></select>&nbsp;&nbsp;&nbsp; Other:
<input type="text" size="41" maxlength="256" name="SubjectOther"></dd>
</dl>
<p align="left"><strong>Enter your comments in the space provided
below:</strong><dl>
<dd>
<p align="left">
<textarea name="Comments" rows="15" cols="77"></textarea></dd>
</dl>
<p align="left"><strong>How can I get in touch with you:</strong><dl>
<dd>
<table width="486" id="table2">
<tr>
<td align="right">
<p align="left">Name:</td>
<td colspan="2">
<p align="left">
<input type="text" size="55" maxlength="256" name="Username"></td>
</tr>
<tr>
<td align="right">
<p align="left">E-mail:</td>
<td colspan="2">
<p align="left">
<input type="text" size="55" maxlength="256" name="UserEmail"></td>
</tr>
<tr>
<td>
<p align="left"></td>
<td valign="top" width="5">
<p align="left">
<input type="checkbox" name="ContactRequested" value="Yes"></td>
<td valign="top">
<p align="left">Please contact me regarding this matter.</td>
</tr>
</table></dd>
</dl>
<div align="center">
<input type="submit" value="Send" name="B1">
<input type="reset" value="Clear" name="B2"></form>
</blockquote>
</blockquote>
</td>
</tr>
</table>
</blockquote>
<form action="https://www.paypal.com/cgi-bin/webscr" method="post">
<input type="hidden" name="cmd0" value="_s-xclick">
<p align="center">
<input type="image"
src="https://www.paypal.com/en_US/i/btn/x-click-but04.gif" border="0"
name="submit0" alt="Make payments with PayPal - it's fast, free and
secure!">
<input type="hidden" name="encrypted0" value="-----BEGIN
PKCS7-----MIIG7QYJKoZIhvcNAQcEoIIG3jCCBtoCAQExggEwMIIBLAIBADCBlDCBjjELMAkGA1UEBhMCVVMxCzAJBgNVBAgTAkNBMRYwFAYDVQQHEw1Nb3VudGFpbiBWaWV3MRQwEgYDVQQKEwtQYXlQYWwgSW5jLjETMBEGA1UECxQKbGl2ZV9jZXJ0czERMA8GA1UEAxQIbGl2ZV9hcGkxHDAaBgkqhkiG9w0BCQEWDXJlQHBheXBhbC5jb20CAQAwDQYJKoZIhvcNAQEBBQAEgYCOQoD6ZLVLUWWhzQEP0fKk/zig2snv7ml5Zo8QEzSXB4yWCw4+oBcK5NTqQq3YO2/vuPHZfBtEEK7AwJVWgyPDKnxHgieP1XRKppZQxP6/Ln1QQwx/HdTZP6Cj+g21eV+F99Zk9CuISk/0BTJ/Tl5VIIKoaR+MC1AmcEOvPK3kXTELMAkGBSsOAwIaBQAwawYJKoZIhvcNAQcBMBQGCCqGSIb3DQMHBAhyCV/crOfQ+YBItWZftwYkhKdCdWZir3JaYjRZw00m+WDMmIqWEmBcymBV5aEj5cFQ8k6N33Uv7hTk4+Ekzgmwh02fejkJMLBMHLj/MYDaQIXAoIIDhzCCA4MwggLsoAMCAQICAQAwDQYJKoZIhvcNAQEFBQAwgY4xCzAJBgNVBAYTAlVTMQswCQYDVQQIEwJDQTEWMBQGA1UEBxMNTW91bnRhaW4gVmlldzEUMBIGA1UEChMLUGF5UGFsIEluYy4xEzARBgNVBAsUCmxpdmVfY2VydHMxETAPBgNVBAMUCGxpdmVfYXBpMRwwGgYJKoZIhvcNAQkBFg1yZUBwYXlwYWwuY29tMB4XDTA0MDIxMzEwMTMxNVoXDTM1MDIxMzEwMTMxNVowgY4xCzAJBgNVBAYTAlVTMQswCQYDVQQIEwJDQTEWMBQGA1UEBxMNTW91bnRhaW4gVmlldzEUMBIGA1UEChMLUGF5UGFsIEluYy4xEzARBgNVBAsUCmxpdmVfY2VydHMxETAPBgNVBAMUCGxpdmVfYXBpMRwwGgYJKoZIhvcNAQkBFg1yZUBwYXlwYWwuY29tMIGfMA0GCSqGSIb3DQEBAQUAA4GNADCBiQKBgQDBR07d/ETMS1ycjtkpkvjXZe9k+6CieLuLsPumsJ7QC1odNz3sJiCbs2wC0nLE0uLGaEtXynIgRqIddYCHx88pb5HTXv4SZeuv0Rqq4+axW9PLAAATU8w04qqjaSXgbGLP3NmohqM6bV9kZZwZLR/klDaQGo1u9uDb9lr4Yn+rBQIDAQABo4HuMIHrMB0GA1UdDgQWBBSWn3y7xm8XvVk/UtcKG+wQ1mSUazCBuwYDVR0jBIGzMIGwgBSWn3y7xm8XvVk/UtcKG+wQ1mSUa6GBlKSBkTCBjjELMAkGA1UEBhMCVVMxCzAJBgNVBAgTAkNBMRYwFAYDVQQHEw1Nb3VudGFpbiBWaWV3MRQwEgYDVQQKEwtQYXlQYWwgSW5jLjETMBEGA1UECxQKbGl2ZV9jZXJ0czERMA8GA1UEAxQIbGl2ZV9hcGkxHDAaBgkqhkiG9w0BCQEWDXJlQHBheXBhbC5jb22CAQAwDAYDVR0TBAUwAwEB/zANBgkqhkiG9w0BAQUFAAOBgQCBXzpWmoBa5e9fo6ujionW1hUhPkOBakTr3YCDjbYfvJEiv/2P+IobhOGJr85+XHhN0v4gUkEDI8r2/rNk1m0GA8HKddvTjyGw/XqXa+LSTlDYkqI8OwR8GEYj4efEtcRpRYBxV8KxAW93YDWzFGvruKnnLbDAF6VR5w/cCMn5hzGCAZowggGWAgEBMIGUMIGOMQswCQYDVQQGEwJVUzELMAkGA1UECBMCQ0ExFjAUBgNVBAcTDU1vdW50YWluIFZpZXcxFDASBgNVBAoTC1BheVBhbCBJbmMuMRMwEQYDVQQLFApsaXZlX2NlcnRzMREwDwYDVQQDFAhsaXZlX2FwaTEcMBoGCSqGSIb3DQEJARYNcmVAcGF5cGFsLmNvbQIBADAJBgUrDgMCGgUAoF0wGAYJKoZIhvcNAQkDMQsGCSqGSIb3DQEHATAcBgkqhkiG9w0BCQUxDxcNMDUwMzE2MjEwNDM2WjAjBgkqhkiG9w0BCQQxFgQULWjdnK1B3gYnjVWHlNYnhP4fUnYwDQYJKoZIhvcNAQEBBQAEgYCs25Nn9HBOV5g+NBNdH7dtFR3Og/y9C5uJXgpjwpbje+4myHoXtH0wZwdQGZ8pJ/daqlQPx/260HIdp2dVVoxILs8vLh1XOmK9Y3q2oE/fXx7xaIiW1KRzg33mJaqFDrTS3WzRZyK9QsxL6bHgywO0Dw4JFRyliXUjPYXnCvFWMw==-----END
PKCS7-----
">
</p>
</form></body>

</html>

Here is the code from the Response page:

<html>

<body>
<%@ Language = VBscript %>
'<% option explicit %>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Language" content="en-us">
<meta http-equiv="Content-Type" content="text/html;charset=windows-1252">
<title>feedback response</title>
</head>

<body>

<%
Dim MessageType, Subject, SubjectOther, Comments
Dim Username, UserEmail, ContactRequested
Dim MyBody, Mymail

'grab data from the form

MessageType= Request.Form("MessageType")
Subject= Request.Form("Subject")
SubjectOther= Request.Form("SubjectOther")
Comments= Request.Form("Comments")
Username= Request.Form("Username")
UserEmail= Request.Form("UserEmail")
ContactRequested= Request.Form("ContactRequested")
%>

<p>&nbsp;</p>
<p>Thank you for your feedback.&nbsp; Your feeback was:</p>

<p>
<b>Message Type:</b> <%= MessageType %> <br>
<b>Subject:</b> <%= Subject%> <br>
<b>Subject Other:</b> <%=SubjectOther %> <br>
<b>Comments=</b> <%= Comments%> <br>
<b>Your Name:</b> <%= Username%> <br>
<b>Your Email:</b> <%= UserEmail%> <br>
<b>Contact Requested:</b> <%=ContactRequested %> <br>
</p>

<%
'create the email and send it

'Set Mymail = CreateObject("CDONTS.NewMail") 'for CDONTS
Set myMail=CreateObject("CDO.Message") 'for CDO

Mymail.From= UserEmail
Mymail.To= "(e-mail address removed)" 'change to your email
Mymail.Subject= "Website Comments from " & Username

MyBody = "Comments from the web site." & vbCrLf & vbCrLf
MyBody = MyBody & "Comments: " & Comments & vbCrLf & vbCrLf
MyBody = MyBody & "Username: " & Username & vbCrLf & vbCrLf
MyBody = MyBody & "UserEmail: " & UserEmail & vbCrLf & vbCrLf
MyBody = MyBody & "ContactRequested: " & ContactRequested & vbCrLf

'Mymail.Body= MyBody 'for CDONTS
myMail.TextBody= MyBody 'for CDO

Mymail.Send
set Mymail =nothing

%>
</body>
</html>

The User_Feedback_Testing.asp does not show up on my menu bar right now to
avoid confusing user. The most recent one is published however.

I am off to my regular day job and will wait further instructions from you.
You have been a great help plus I like you sense of humor.
 
S

Stefan B Rusynko

The tag <%@ Language = VBscript %> must be the 1st on the page and you have 2 <html> <body> tags

Your post for response.asp has:

<html>
<body>
<%@ Language = VBscript %>
'<% option explicit %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>

Should just be:

<%@Language="VBscript"%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>




| PC,
|
| Thanks for hanging in there. I think it is getting close. I unchecked the
| friend error and now recieve a report:
|
|
| Microsoft VBScript compilation error '800a0400'
|
| Expected statement
|
| /Response.asp, line 5
|
| option explicit
| ^I tried using both email methods and I get the same result.
|
| Here is the code from the User_Feedback_Testing.asp feedback page:
|
| <html>
|
| <head>
| <meta name="GENERATOR" content="Microsoft FrontPage 6.0">
| <meta name="ProgId" content="FrontPage.Editor.Document">
| <meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
| <title>User FeedBack Testing</title>
| <style>
| <!--
| A:active {COLOR: #993300}
| A:visited {COLOR: #993300}
| .internal {border-style:eek:utset; border-width:4px; color: #000000;
| background: #CAB733; width: 120px; height: 24px}
| a:visited.internal {color: #eee; }
| a:hover.internal {border-style:eek:utset; border-width:4px;
| ackground:#AA9A2B; }
| .internalBlock {width: 120px;height: 24px;text-align: center;}
| table.MsoNormalTable
| {mso-style-parent:"";
| font-size:10.0pt;
| font-family:"Times New Roman";
| }
| -->
| </style>
| <meta name="Microsoft Theme" content="expeditn 1011, default">
| <meta name="Microsoft Border" content="t, default">
| </head>
|
| <body>
| <p></p>
| <p></p>
| <p align="center">&nbsp;<p align="center"><font size="6">I Appreciate Your
| Feedback</font><p>
| Please take a moment ot tell me what you think about this web site and if
| you find the Word tips useful.&nbsp;&nbsp; All comments, suggestions, and
| don't forget &quot;donations&quot; are welcome.&nbsp;
|
| <hr size="2" noshade>
|
| <blockquote>
| <table width="542" border="0" id="table1">
| <tr>
| <td>
| <blockquote>
| <blockquote>
| <form method="POST" action="Response.asp">
| <p align="left"><strong>What is the nature of your comments?</strong>
| <dl>
| <dd>
| <p align="left">
| <input type="radio" name="MessageType"
| value="Problem">Problem/Bug&nbsp;&nbsp;&nbsp;
| <br>
| <input type="radio" checked name="MessageType"
| value="Suggestion">Suggestion&nbsp;&nbsp;
| <br>
| <input type="radio" name="MessageType" value="Thanks!">Note of
| thanks&nbsp;&nbsp;&nbsp; <br>
| <input type="radio" name="MessageType" value="Other">Other
| </dd>
| </dl>
| <p align="left"><strong>What about this site do you want to comment
| on?</strong><dl>
| <dd>
| <p align="left"><select name="Subject" size="1">
| <option>Web Site General</option>
| <option selected>Word Tips</option>
| <option>Odds &amp; Ends</option>
| <option>Donations</option>
| <option>(Other)</option></select>&nbsp;&nbsp;&nbsp; Other:
| <input type="text" size="41" maxlength="256" name="SubjectOther"></dd>
| </dl>
| <p align="left"><strong>Enter your comments in the space provided
| below:</strong><dl>
| <dd>
| <p align="left">
| <textarea name="Comments" rows="15" cols="77"></textarea></dd>
| </dl>
| <p align="left"><strong>How can I get in touch with you:</strong><dl>
| <dd>
| <table width="486" id="table2">
| <tr>
| <td align="right">
| <p align="left">Name:</td>
| <td colspan="2">
| <p align="left">
| <input type="text" size="55" maxlength="256" name="Username"></td>
| </tr>
| <tr>
| <td align="right">
| <p align="left">E-mail:</td>
| <td colspan="2">
| <p align="left">
| <input type="text" size="55" maxlength="256" name="UserEmail"></td>
| </tr>
| <tr>
| <td>
| <p align="left"></td>
| <td valign="top" width="5">
| <p align="left">
| <input type="checkbox" name="ContactRequested" value="Yes"></td>
| <td valign="top">
| <p align="left">Please contact me regarding this matter.</td>
| </tr>
| </table></dd>
| </dl>
| <div align="center">
| <input type="submit" value="Send" name="B1">
| <input type="reset" value="Clear" name="B2"></form>
| </blockquote>
| </blockquote>
| </td>
| </tr>
| </table>
| </blockquote>
| <form action="https://www.paypal.com/cgi-bin/webscr" method="post">
| <input type="hidden" name="cmd0" value="_s-xclick">
| <p align="center">
| <input type="image"
| src="https://www.paypal.com/en_US/i/btn/x-click-but04.gif" border="0"
| name="submit0" alt="Make payments with PayPal - it's fast, free and
| secure!">
| <input type="hidden" name="encrypted0" value="-----BEGIN
|
PKCS7-----MIIG7QYJKoZIhvcNAQcEoIIG3jCCBtoCAQExggEwMIIBLAIBADCBlDCBjjELMAkGA1UEBhMCVVMxCzAJBgNVBAgTAkNBMRYwFAYDVQQHEw1Nb3VudGFpbiBWaWV3MRQwEgYDVQQKEwtQYXlQYWwgSW5jLjETMBEGA1UECxQKbGl2ZV9jZXJ0czERMA8GA1UEAxQIbGl2ZV9hcGkxHDAaBgkqhkiG9w0BCQEWDXJlQHBheXBhbC5jb20CAQAwDQYJKoZIhvcNAQEBBQAEgYCOQoD6ZLVLUWWhzQEP0fKk/zig2snv7ml5Zo8QEzSXB4yWCw4+oBcK5NTqQq3YO2/vuPHZfBtEEK7AwJVWgyPDKnxHgieP1XRKppZQxP6/Ln1QQwx/HdTZP6Cj+g21eV+F99Zk9CuISk/0BTJ/Tl5VIIKoaR+MC1AmcEOvPK3kXTELMAkGBSsOAwIaBQAwawYJKoZIhvcNAQcBMBQGCCqGSIb3DQMHBAhyCV/crOfQ+YBItWZftwYkhKdCdWZir3JaYjRZw00m+WDMmIqWEmBcymBV5aEj5cFQ8k6N33Uv7hTk4+Ekzgmwh02fejkJMLBMHLj/MYDaQIXAoIIDhzCCA4MwggLsoAMCAQICAQAwDQYJKoZIhvcNAQEFBQAwgY4xCzAJBgNVBAYTAlVTMQswCQYDVQQIEwJDQTEWMBQGA1UEBxMNTW91bnRhaW4gVmlldzEUMBIGA1UEChMLUGF5UGFsIEluYy4xEzARBgNVBAsUCmxpdmVfY2VydHMxETAPBgNVBAMUCGxpdmVfYXBpMRwwGgYJKoZIhvcNAQkBFg1yZUBwYXlwYWwuY29tMB4XDTA0MDIxMzEwMTMxNVoXDTM1MDIxMzEwMTMxNVowgY4xCzAJBgNVBAYTAlVTMQswCQYDVQQIEwJDQTEWMBQGA1UEBxMNTW91bnRhaW4gVmlldzEUMBIGA1UEChMLUGF5UGFsIEluYy4xEzARBgNVBAsUCmxpdmVfY2VydHMxETAPBgNVBAMUCGxpdmVfYXBpMRwwGgYJKoZIhvcNAQkBFg1yZUBwYXlwYWwuY29tMIGfMA0GCSqGSIb3DQEBAQUAA4GNADCBiQKBgQDBR07d/ETMS1ycjtkpkvjXZe9k+6CieLuLsPumsJ7QC1odNz3sJiCbs2wC0nLE0uLGaEtXynIgRqIddYCHx88pb5HTXv4SZeuv0Rqq4+axW9PLAAATU8w04qqjaSXgbGLP3NmohqM6bV9kZZwZLR/klDaQGo1u9uDb9lr4Yn+rBQIDAQABo4HuMIHrMB0GA1UdDgQWBBSWn3y7xm8XvVk/UtcKG+wQ1mSUazCBuwYDVR0jBIGzMIGwgBSWn3y7xm8XvVk/UtcKG+wQ1mSUa6GBlKSBkTCBjjELMAkGA1UEBhMCVVMxCzAJBgNVBAgTAkNBMRYwFAYDVQQHEw1Nb3VudGFpbiBWaWV3MRQwEgYDVQQKEwtQYXlQYWwgSW5jLjETMBEGA1UECxQKbGl2ZV9jZXJ0czERMA8GA1UEAxQIbGl2ZV9hcGkxHDAaBgkqhkiG9w0BCQEWDXJlQHBheXBhbC5jb22CAQAwDAYDVR0TBAUwAwEB/zANBgkqhkiG9w0BAQUFAAOBgQCBXzpWmoBa5e9fo6ujionW1hUhPkOBakTr3YCDjbYfvJEiv/2P+IobhOGJr85+XHhN0v4gUkEDI8r2/rNk1m0GA8HKddvTjyGw/XqXa+LSTlDYkqI8OwR8GEYj4efEtcRpRYBxV8KxAW93YDWzFGvruKnnLbDAF6VR5w/cCMn5hzGCAZowggGWAgEBMIGUMIGOMQswCQYDVQQGEwJVUzELMAkGA1UECBMCQ0ExFjAUBgNVBAcTDU1vdW50YWluIFZpZXcxFDASBgNVBAoTC1BheVBhbCBJbmMuMRMwEQYDVQQLFApsaXZlX2NlcnRzMREwDwYDVQQDFAhsaXZlX2FwaTEcMBoGCSqGSIb3DQEJARYNcmVAcGF5cGFsLmNvbQIBADAJBgUrDgMCGgUAoF0wGAYJKoZIhvcNAQkDMQsGCSqGSIb3DQEHATAcBgkqhkiG9w0BCQUxDxcNMDUwMzE2MjEwNDM2WjAjBgkqhkiG9w0BCQQxFgQULWjdnK1B3gYnjVWHlNYnhP4fUnYwDQYJKoZIhvcNAQEBBQAEgYCs25Nn9HBOV5g+NBNdH7dtFR3Og/y9C5uJXgpjwpbje+4myHoXtH0wZwdQGZ8pJ/daqlQPx/260HIdp2dVVoxILs8vLh1XOmK9Y3q2oE/fXx7xaIiW1KRzg33mJaqFDrTS3WzRZyK9QsxL6bHgywO0Dw4JFRyliXUjPYXnCvFWMw==-----END
| PKCS7-----
| ">
| </p>
| </form></body>
|
| </html>
|
| Here is the code from the Response page:
|
| <html>
|
| <body>
| <%@ Language = VBscript %>
| '<% option explicit %>
|
| <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
| <html>
| <head>
| <meta http-equiv="Content-Language" content="en-us">
| <meta http-equiv="Content-Type" content="text/html;charset=windows-1252">
| <title>feedback response</title>
| </head>
|
| <body>
|
| <%
| Dim MessageType, Subject, SubjectOther, Comments
| Dim Username, UserEmail, ContactRequested
| Dim MyBody, Mymail
|
| 'grab data from the form
|
| MessageType= Request.Form("MessageType")
| Subject= Request.Form("Subject")
| SubjectOther= Request.Form("SubjectOther")
| Comments= Request.Form("Comments")
| Username= Request.Form("Username")
| UserEmail= Request.Form("UserEmail")
| ContactRequested= Request.Form("ContactRequested")
| %>
|
| <p>&nbsp;</p>
| <p>Thank you for your feedback.&nbsp; Your feeback was:</p>
|
| <p>
| <b>Message Type:</b> <%= MessageType %> <br>
| <b>Subject:</b> <%= Subject%> <br>
| <b>Subject Other:</b> <%=SubjectOther %> <br>
| <b>Comments=</b> <%= Comments%> <br>
| <b>Your Name:</b> <%= Username%> <br>
| <b>Your Email:</b> <%= UserEmail%> <br>
| <b>Contact Requested:</b> <%=ContactRequested %> <br>
| </p>
|
| <%
| 'create the email and send it
|
| 'Set Mymail = CreateObject("CDONTS.NewMail") 'for CDONTS
| Set myMail=CreateObject("CDO.Message") 'for CDO
|
| Mymail.From= UserEmail
| Mymail.To= "(e-mail address removed)" 'change to your email
| Mymail.Subject= "Website Comments from " & Username
|
| MyBody = "Comments from the web site." & vbCrLf & vbCrLf
| MyBody = MyBody & "Comments: " & Comments & vbCrLf & vbCrLf
| MyBody = MyBody & "Username: " & Username & vbCrLf & vbCrLf
| MyBody = MyBody & "UserEmail: " & UserEmail & vbCrLf & vbCrLf
| MyBody = MyBody & "ContactRequested: " & ContactRequested & vbCrLf
|
| 'Mymail.Body= MyBody 'for CDONTS
| myMail.TextBody= MyBody 'for CDO
|
| Mymail.Send
| set Mymail =nothing
|
| %>
| </body>
| </html>
|
| The User_Feedback_Testing.asp does not show up on my menu bar right now to
| avoid confusing user. The most recent one is published however.
|
| I am off to my regular day job and will wait further instructions from you.
| You have been a great help plus I like you sense of humor.
|
|
| --
| Greg Maxey/Word MVP
| See:
| http://gregmaxey.mvps.org/word_tips.htm
| For some helpful tips using Word.
|
| p c wrote:
| > Greg,
| > below is the code for your response page, between the lines. I
| > tested it on my server and works fine using your form page.
| >
| > Make sure you change the "To" email address to correspond to yours.
| >
| > If you server doesn't support CDONTOS for sending email. Then try CDO
| > by by commenting out the CDONTOS lines (add ' (quotation mark) in
| > front of the lines) and uncomment the CDO lines (delete the ' (quote
| > mark) in front of the lines.
| >
| > ---begin response.asp----
| > <%@ Language = VBscript %>
| > <% option explicit %>
| >
| > <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
| > <html>
| > <head>
| > <meta http-equiv="Content-Language" content="en-us">
| > <meta http-equiv="Content-Type"
| > content="text/html;charset=windows-1252"> <title>feedback
| > response</title> </head>
| >
| > <body>
| >
| > <%
| > Dim MessageType, Subject, SubjectOther, Comments
| > Dim Username, UserEmail, ContactRequested
| > Dim MyBody, Mymail
| >
| > 'grab data from the form
| >
| > MessageType= Request.Form("MessageType")
| > Subject= Request.Form("Subject")
| > SubjectOther= Request.Form("SubjectOther")
| > Comments= Request.Form("Comments")
| > Username= Request.Form("Username")
| > UserEmail= Request.Form("UserEmail")
| > ContactRequested= Request.Form("ContactRequested")
| > %>
| >
| > <p>&nbsp;</p>
| > <p>Thank you for your feedback.&nbsp; Your feeback was:</p>
| >
| > <p>
| > <b>Message Type:</b> <%= MessageType %> <br>
| > <b>Subject:</b> <%= Subject%> <br>
| > <b>Subject Other:</b> <%=SubjectOther %> <br>
| > <b>Comments=</b> <%= Comments%> <br>
| > <b>Your Name:</b> <%= Username%> <br>
| > <b>Your Email:</b> <%= UserEmail%> <br>
| > <b>Contact Requested:</b> <%=ContactRequested %> <br>
| > </p>
| >
| > <%
| > 'create the email and send it
| >
| > Set Mymail = CreateObject("CDONTS.NewMail") 'for CDONTS
| > 'Set myMail=CreateObject("CDO.Message") 'for CDO
| >
| > Mymail.From= UserEmail
| > Mymail.To= "(e-mail address removed)" 'change to your email
| > Mymail.Subject= "Website Comments from " & Username
| >
| > MyBody = "Comments from the web site." & vbCrLf & vbCrLf
| > MyBody = MyBody & "Comments: " & Comments & vbCrLf & vbCrLf
| > MyBody = MyBody & "Username: " & Username & vbCrLf & vbCrLf
| > MyBody = MyBody & "UserEmail: " & UserEmail & vbCrLf & vbCrLf
| > MyBody = MyBody & "ContactRequested: " & ContactRequested & vbCrLf
| >
| > Mymail.Body= MyBody 'for CDONTS
| > 'myMail.TextBody= MyBody 'for CDO
| >
| > Mymail.Send
| > set Mymail =nothing
| >
| > %>
| > </body>
| > </html>
| > ---end response.asp----
| >
| > Good luck.
| > ...PC
|
|
 
R

Ronx

Getting a nortbots page is an indication that the page was FTPd to the
server instead of being HTTP published, and the action in the form has
been left to the FrontPage extensions.
 
G

Greg Maxey

Stephan,

I made those changes and now. I get the following display:

Thank you for your feedback. Your feeback was:

Message Type:
Subject:
Subject Other:
Comments=
Your Name:
Your Email:
Contact Requested:


CDO.Message.1 error '80040220'

The "SendUsing" configuration value is invalid.

/Response.asp, line 61



The code on the Respons.asp is:

<%@ Language = VBscript %>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Language" content="en-us">
<meta http-equiv="Content-Type" content="text/html;charset=windows-1252">
<title>feedback response</title>
</head>

<body>

<%
Dim MessageType, Subject, SubjectOther, Comments
Dim Username, UserEmail, ContactRequested
Dim MyBody, Mymail

'grab data from the form

MessageType= Request.Form("MessageType")
Subject= Request.Form("Subject")
SubjectOther= Request.Form("SubjectOther")
Comments= Request.Form("Comments")
Username= Request.Form("Username")
UserEmail= Request.Form("UserEmail")
ContactRequested= Request.Form("ContactRequested")
%>

<p>&nbsp;</p>
<p>Thank you for your feedback.&nbsp; Your feeback was:</p>

<p>
<b>Message Type:</b> <%= MessageType %> <br>
<b>Subject:</b> <%= Subject%> <br>
<b>Subject Other:</b> <%=SubjectOther %> <br>
<b>Comments=</b> <%= Comments%> <br>
<b>Your Name:</b> <%= Username%> <br>
<b>Your Email:</b> <%= UserEmail%> <br>
<b>Contact Requested:</b> <%=ContactRequested %> <br>
</p>

<%
'create the email and send it

'Set Mymail = CreateObject("CDONTS.NewMail") 'for CDONTS
Set myMail=CreateObject("CDO.Message") 'for CDO

Mymail.From= UserEmail
Mymail.To= "(e-mail address removed)" 'change to your email
Mymail.Subject= "Website Comments from " & Username

MyBody = "Comments from the web site." & vbCrLf & vbCrLf
MyBody = MyBody & "Comments: " & Comments & vbCrLf & vbCrLf
MyBody = MyBody & "Username: " & Username & vbCrLf & vbCrLf
MyBody = MyBody & "UserEmail: " & UserEmail & vbCrLf & vbCrLf
MyBody = MyBody & "ContactRequested: " & ContactRequested & vbCrLf

'Mymail.Body= MyBody 'for CDONTS
myMail.TextBody= MyBody 'for CDO

Mymail.Send
set Mymail =nothing

%>
</body>
</html>
 
G

Greg Maxey

Ron, Stephan, PC

I think I have this nut cracked. I entered the following lines to the code
PC provided just before the Send mail command. I now have a crude Response
page that is actually sending the mail to my address. I am going to close
this thread and move on trying to spruce up the Response.Asp page. If I run
into problems I will seek help in a new thread. I really appreciate your
tenacity for sticking with me on this. You guys are true MVP material :)
Thanks again.

Const cdoSchema = "http://schemas.microsoft.com/cdo/configuration/"
Mymail.Configuration.Fields.Item(cdoSchema & "sendusing") = 2
Mymail.Configuration.Fields.Item(cdoSchema & "smtpserver") = "mail.mvps.org"
Mymail.Configuration.Fields.Item(cdoSchema & "smtpserverport") = 25
Mymail.Configuration.Fields.Update
 
S

Stefan B Rusynko

The server usually requires the Send From to be some valid email address at the server

Try the Reply-To for the UserEmail address

Set myMail=CreateObject("CDO.Message") 'for CDO
myMail.Value("Reply-To") = UserEmail
myMail.Value("From")= (e-mail address removed)




| Stephan,
|
| I made those changes and now. I get the following display:
|
| Thank you for your feedback. Your feeback was:
|
| Message Type:
| Subject:
| Subject Other:
| Comments=
| Your Name:
| Your Email:
| Contact Requested:
|
|
| CDO.Message.1 error '80040220'
|
| The "SendUsing" configuration value is invalid.
|
| /Response.asp, line 61
|
|
|
| The code on the Respons.asp is:
|
| <%@ Language = VBscript %>
|
| <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
| <html>
| <head>
| <meta http-equiv="Content-Language" content="en-us">
| <meta http-equiv="Content-Type" content="text/html;charset=windows-1252">
| <title>feedback response</title>
| </head>
|
| <body>
|
| <%
| Dim MessageType, Subject, SubjectOther, Comments
| Dim Username, UserEmail, ContactRequested
| Dim MyBody, Mymail
|
| 'grab data from the form
|
| MessageType= Request.Form("MessageType")
| Subject= Request.Form("Subject")
| SubjectOther= Request.Form("SubjectOther")
| Comments= Request.Form("Comments")
| Username= Request.Form("Username")
| UserEmail= Request.Form("UserEmail")
| ContactRequested= Request.Form("ContactRequested")
| %>
|
| <p>&nbsp;</p>
| <p>Thank you for your feedback.&nbsp; Your feeback was:</p>
|
| <p>
| <b>Message Type:</b> <%= MessageType %> <br>
| <b>Subject:</b> <%= Subject%> <br>
| <b>Subject Other:</b> <%=SubjectOther %> <br>
| <b>Comments=</b> <%= Comments%> <br>
| <b>Your Name:</b> <%= Username%> <br>
| <b>Your Email:</b> <%= UserEmail%> <br>
| <b>Contact Requested:</b> <%=ContactRequested %> <br>
| </p>
|
| <%
| 'create the email and send it
|
| 'Set Mymail = CreateObject("CDONTS.NewMail") 'for CDONTS
| Set myMail=CreateObject("CDO.Message") 'for CDO
|
| Mymail.From= UserEmail
| Mymail.To= "(e-mail address removed)" 'change to your email
| Mymail.Subject= "Website Comments from " & Username
|
| MyBody = "Comments from the web site." & vbCrLf & vbCrLf
| MyBody = MyBody & "Comments: " & Comments & vbCrLf & vbCrLf
| MyBody = MyBody & "Username: " & Username & vbCrLf & vbCrLf
| MyBody = MyBody & "UserEmail: " & UserEmail & vbCrLf & vbCrLf
| MyBody = MyBody & "ContactRequested: " & ContactRequested & vbCrLf
|
| 'Mymail.Body= MyBody 'for CDONTS
| myMail.TextBody= MyBody 'for CDO
|
| Mymail.Send
| set Mymail =nothing
|
| %>
| </body>
| </html>
|
|
|
| --
| Greg Maxey/Word MVP
| See:
| http://gregmaxey.mvps.org/word_tips.htm
| For some helpful tips using Word.
|
| Stefan B Rusynko wrote:
| > The tag <%@ Language = VBscript %> must be the 1st on the page and
| > you have 2 <html> <body> tags
| >
| > Your post for response.asp has:
| >
| > <html>
| > <body>
| > <%@ Language = VBscript %>
| > '<% option explicit %>
| > <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
| > <html>
| >
| > Should just be:
| >
| > <%@Language="VBscript"%>
| >
| > <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
| > <html>
| >
| >
| > | >> PC,
| >>
| >> Thanks for hanging in there. I think it is getting close. I
| >> unchecked the
| >> friend error and now recieve a report:
| >>
| >>
| >> Microsoft VBScript compilation error '800a0400'
| >>
| >> Expected statement
| >>
| >> /Response.asp, line 5
| >>
| >> option explicit
| >> ^I tried using both email methods and I get the same result.
| >>
| >> Here is the code from the User_Feedback_Testing.asp feedback page:
| >>
| >> <html>
| >>
| >> <head>
| >> <meta name="GENERATOR" content="Microsoft FrontPage 6.0">
| >> <meta name="ProgId" content="FrontPage.Editor.Document">
| >> <meta http-equiv="Content-Type" content="text/html;
| >> charset=windows-1252"> <title>User FeedBack Testing</title>
| >> <style>
| >> <!--
| >> A:active {COLOR: #993300}
| >> A:visited {COLOR: #993300}
| >> .internal {border-style:eek:utset; border-width:4px; color: #000000;
| >> background: #CAB733; width: 120px; height: 24px}
| >> a:visited.internal {color: #eee; }
| >> a:hover.internal {border-style:eek:utset; border-width:4px;
| >> ackground:#AA9A2B; }
| >> .internalBlock {width: 120px;height: 24px;text-align: center;}
| >> table.MsoNormalTable
| >> {mso-style-parent:"";
| >> font-size:10.0pt;
| >> font-family:"Times New Roman";
| >> }
| >> -->
| >> </style>
| >> <meta name="Microsoft Theme" content="expeditn 1011, default">
| >> <meta name="Microsoft Border" content="t, default">
| >> </head>
| >>
| >> <body>
| >> <p></p>
| >> <p></p>
| >> <p align="center">&nbsp;<p align="center"><font size="6">I
| >> Appreciate Your
| >> Feedback</font><p>
| >> Please take a moment ot tell me what you think about this web site
| >> and if
| >> you find the Word tips useful.&nbsp;&nbsp; All comments,
| >> suggestions, and
| >> don't forget &quot;donations&quot; are welcome.&nbsp;
| >>
| >> <hr size="2" noshade>
| >>
| >> <blockquote>
| >> <table width="542" border="0" id="table1">
| >> <tr>
| >> <td>
| >> <blockquote>
| >> <blockquote>
| >> <form method="POST" action="Response.asp">
| >> <p align="left"><strong>What is the nature of your
| >> comments?</strong> <dl>
| >> <dd>
| >> <p align="left">
| >> <input type="radio" name="MessageType"
| >> value="Problem">Problem/Bug&nbsp;&nbsp;&nbsp;
| >> <br>
| >> <input type="radio" checked name="MessageType"
| >> value="Suggestion">Suggestion&nbsp;&nbsp;
| >> <br>
| >> <input type="radio" name="MessageType" value="Thanks!">Note of
| >> thanks&nbsp;&nbsp;&nbsp; <br>
| >> <input type="radio" name="MessageType" value="Other">Other
| >> </dd>
| >> </dl>
| >> <p align="left"><strong>What about this site do you want to
| >> comment
| >> on?</strong><dl>
| >> <dd>
| >> <p align="left"><select name="Subject" size="1">
| >> <option>Web Site General</option>
| >> <option selected>Word Tips</option>
| >> <option>Odds &amp; Ends</option>
| >> <option>Donations</option>
| >> <option>(Other)</option></select>&nbsp;&nbsp;&nbsp; Other:
| >> <input type="text" size="41" maxlength="256"
| >> name="SubjectOther"></dd> </dl>
| >> <p align="left"><strong>Enter your comments in the space provided
| >> below:</strong><dl>
| >> <dd>
| >> <p align="left">
| >> <textarea name="Comments" rows="15" cols="77"></textarea></dd>
| >> </dl>
| >> <p align="left"><strong>How can I get in touch with
| >> you:</strong><dl> <dd>
| >> <table width="486" id="table2">
| >> <tr>
| >> <td align="right">
| >> <p align="left">Name:</td>
| >> <td colspan="2">
| >> <p align="left">
| >> <input type="text" size="55" maxlength="256"
| >> name="Username"></td> </tr>
| >> <tr>
| >> <td align="right">
| >> <p align="left">E-mail:</td>
| >> <td colspan="2">
| >> <p align="left">
| >> <input type="text" size="55" maxlength="256"
| >> name="UserEmail"></td> </tr>
| >> <tr>
| >> <td>
| >> <p align="left"></td>
| >> <td valign="top" width="5">
| >> <p align="left">
| >> <input type="checkbox" name="ContactRequested"
| >> value="Yes"></td> <td valign="top">
| >> <p align="left">Please contact me regarding this matter.</td>
| >> </tr>
| >> </table></dd>
| >> </dl>
| >> <div align="center">
| >> <input type="submit" value="Send" name="B1">
| >> <input type="reset" value="Clear" name="B2"></form>
| >> </blockquote>
| >> </blockquote>
| >> </td>
| >> </tr>
| >> </table>
| >> </blockquote>
| >> <form action="https://www.paypal.com/cgi-bin/webscr" method="post">
| >> <input type="hidden" name="cmd0" value="_s-xclick">
| >> <p align="center">
| >> <input type="image"
| >> src="https://www.paypal.com/en_US/i/btn/x-click-but04.gif" border="0"
| >> name="submit0" alt="Make payments with PayPal - it's fast, free and
| >> secure!">
| >> <input type="hidden" name="encrypted0" value="-----BEGIN
| >>
| >
PKCS7-----MIIG7QYJKoZIhvcNAQcEoIIG3jCCBtoCAQExggEwMIIBLAIBADCBlDCBjjELMAkGA1UEBhMCVVMxCzAJBgNVBAgTAkNBMRYwFAYDVQQHEw1Nb3VudGFpbiBWaWV3MRQwEgYDVQQKEwtQYXlQYWwgSW5jLjETMBEGA1UECxQKbGl2ZV9jZXJ0czERMA8GA1UEAxQIbGl2ZV9hcGkxHDAaBgkqhkiG9w0BCQEWDXJlQHBheXBhbC5jb20CAQAwDQYJKoZIhvcNAQEBBQAEgYCOQoD6ZLVLUWWhzQEP0fKk/zig2snv7ml5Zo8QEzSXB4yWCw4+oBcK5NTqQq3YO2/vuPHZfBtEEK7AwJVWgyPDKnxHgieP1XRKppZQxP6/Ln1QQwx/HdTZP6Cj+g21eV+F99Zk9CuISk/0BTJ/Tl5VIIKoaR+MC1AmcEOvPK3kXTELMAkGBSsOAwIaBQAwawYJKoZIhvcNAQcBMBQGCCqGSIb3DQMHBAhyCV/crOfQ+YBItWZftwYkhKdCdWZir3JaYjRZw00m+WDMmIqWEmBcymBV5aEj5cFQ8k6N33Uv7hTk4+Ekzgmwh02fejkJMLBMHLj/MYDaQIXAoIIDhzCCA4MwggLsoAMCAQICAQAwDQYJKoZIhvcNAQEFBQAwgY4xCzAJBgNVBAYTAlVTMQswCQYDVQQIEwJDQTEWMBQGA1UEBxMNTW91bnRhaW4gVmlldzEUMBIGA1UEChMLUGF5UGFsIEluYy4xEzARBgNVBAsUCmxpdmVfY2VydHMxETAPBgNVBAMUCGxpdmVfYXBpMRwwGgYJKoZIhvcNAQkBFg1yZUBwYXlwYWwuY29tMB4XDTA0MDIxMzEwMTMxNVoXDTM1MDIxMzEwMTMxNVowgY4xCzAJBgNVBAYTAlVTMQswCQYDVQQIEwJDQTEWMBQGA1UEBxMNTW91bnRhaW4gVmlldzEUMBIGA1UEChMLUGF5UGFsIEluYy4xEzARBgNVBAsUCmxpdmVfY2VydHMxETAPBgNVBAMUCGxpdmVfYXBpMRwwGgYJKoZIhvcNAQkBFg1yZUBwYXlwYWwuY29tMIGfMA0GCSqGSIb3DQEBAQUAA4GNADCBiQKBgQDBR07d/ETMS1ycjtkpkvjXZe9k+6CieLuLsPumsJ7QC1odNz3sJiCbs2wC0nLE0uLGaEtXynIgRqIddYCHx88pb5HTXv4SZeuv0Rqq4+axW9PLAAATU8w04qqjaSXgbGLP3NmohqM6bV9kZZwZLR/klDaQGo1u9uDb9lr4Yn+rBQIDAQABo4HuMIHrMB0GA1UdDgQWBBSWn3y7xm8XvVk/UtcKG+wQ1mSUazCBuwYDVR0jBIGzMIGwgBSWn3y7xm8XvVk/UtcKG+wQ1mSUa6GBlKSBkTCBjjELMAkGA1UEBhMCVVMxCzAJBgNVBAgTAkNBMRYwFAYDVQQHEw1Nb3VudGFpbiBWaWV3MRQwEgYDVQQKEwtQYXlQYWwgSW5jLjETMBEGA1UECxQKbGl2ZV9jZXJ0czERMA8GA1UEAxQIbGl2ZV9hcGkxHDAaBgkqhkiG9w0BCQEWDXJlQHBheXBhbC5jb22CAQAwDAYDVR0TBAUwAwEB/zANBgkqhkiG9w0BAQUFAAOBgQCBXzpWmoBa5e9fo6ujionW1hUhPkOBakTr3YCDjbYfvJEiv/2P+IobhOGJr85+XHhN0v4gUkEDI8r2/rNk1m0GA8HKddvTjyGw/XqXa+LSTlDYkqI8OwR8GEYj4efEtcRpRYBxV8KxAW93YDWzFGvruKnnLbDAF6VR5w/cCMn5hzGCAZowggGWAgEBMIGUMIGOMQswCQYDVQQGEwJVUzELMAkGA1UECBMCQ0ExFjAUBgNVBAcTDU1vdW50YWluIFZpZXcxFDASBgNVBAoTC1BheVBhbCBJbmMuMRMwEQYDVQQLFApsaXZlX2NlcnRzMREwDwYDVQQDFAhsaXZlX2FwaTEcMBoGCSqGSIb3DQEJARYNcmVAcGF5cGFsLmNvbQIBADAJBgUrDgMCGgUAoF0wGAYJKoZIhvcNAQkDMQsGCSqGSIb3DQEHATAcBgkqhkiG9w0BCQUxDxcNMDUwMzE2MjEwNDM2WjAjBgkqhkiG9w0BCQQxFgQULWjdnK1B3gYnjVWHlNYnhP4fUnYwDQYJKoZIhvcNAQEBBQAEgYCs25Nn9HBOV5g+NBNdH7dtFR3Og/y9C5uJXgpjwpbje+4myHoXtH0wZwdQGZ8pJ/daqlQPx/260HIdp2dVVoxILs8vLh1XOmK9Y3q2oE/fXx7xaIiW1KRzg33mJaqFDrTS3WzRZyK9QsxL6bHgywO0Dw4JFRyliXUjPYXnCvFWMw==-----END
| >> PKCS7-----
| >> ">
| >> </p>
| >> </form></body>
| >>
| >> </html>
| >>
| >> Here is the code from the Response page:
| >>
| >> <html>
| >>
| >> <body>
| >> <%@ Language = VBscript %>
| >> '<% option explicit %>
| >>
| >> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
| >> <html>
| >> <head>
| >> <meta http-equiv="Content-Language" content="en-us">
| >> <meta http-equiv="Content-Type"
| >> content="text/html;charset=windows-1252"> <title>feedback
| >> response</title> </head>
| >>
| >> <body>
| >>
| >> <%
| >> Dim MessageType, Subject, SubjectOther, Comments
| >> Dim Username, UserEmail, ContactRequested
| >> Dim MyBody, Mymail
| >>
| >> 'grab data from the form
| >>
| >> MessageType= Request.Form("MessageType")
| >> Subject= Request.Form("Subject")
| >> SubjectOther= Request.Form("SubjectOther")
| >> Comments= Request.Form("Comments")
| >> Username= Request.Form("Username")
| >> UserEmail= Request.Form("UserEmail")
| >> ContactRequested= Request.Form("ContactRequested")
| >> %>
| >>
| >> <p>&nbsp;</p>
| >> <p>Thank you for your feedback.&nbsp; Your feeback was:</p>
| >>
| >> <p>
| >> <b>Message Type:</b> <%= MessageType %> <br>
| >> <b>Subject:</b> <%= Subject%> <br>
| >> <b>Subject Other:</b> <%=SubjectOther %> <br>
| >> <b>Comments=</b> <%= Comments%> <br>
| >> <b>Your Name:</b> <%= Username%> <br>
| >> <b>Your Email:</b> <%= UserEmail%> <br>
| >> <b>Contact Requested:</b> <%=ContactRequested %> <br>
| >> </p>
| >>
| >> <%
| >> 'create the email and send it
| >>
| >> 'Set Mymail = CreateObject("CDONTS.NewMail") 'for CDONTS
| >> Set myMail=CreateObject("CDO.Message") 'for CDO
| >>
| >> Mymail.From= UserEmail
| >> Mymail.To= "(e-mail address removed)" 'change to your email
| >> Mymail.Subject= "Website Comments from " & Username
| >>
| >> MyBody = "Comments from the web site." & vbCrLf & vbCrLf
| >> MyBody = MyBody & "Comments: " & Comments & vbCrLf & vbCrLf
| >> MyBody = MyBody & "Username: " & Username & vbCrLf & vbCrLf
| >> MyBody = MyBody & "UserEmail: " & UserEmail & vbCrLf & vbCrLf
| >> MyBody = MyBody & "ContactRequested: " & ContactRequested & vbCrLf
| >>
| >> 'Mymail.Body= MyBody 'for CDONTS
| >> myMail.TextBody= MyBody 'for CDO
| >>
| >> Mymail.Send
| >> set Mymail =nothing
| >>
| >> %>
| >> </body>
| >> </html>
| >>
| >> The User_Feedback_Testing.asp does not show up on my menu bar right
| >> now to
| >> avoid confusing user. The most recent one is published however.
| >>
| >> I am off to my regular day job and will wait further instructions
| >> from you.
| >> You have been a great help plus I like you sense of humor.
| >>
| >>
| >> --
| >> Greg Maxey/Word MVP
| >> See:
| >> http://gregmaxey.mvps.org/word_tips.htm
| >> For some helpful tips using Word.
| >>
| >> p c wrote:
| >>> Greg,
| >>> below is the code for your response page, between the lines. I
| >>> tested it on my server and works fine using your form page.
| >>>
| >>> Make sure you change the "To" email address to correspond to yours.
| >>>
| >>> If you server doesn't support CDONTOS for sending email. Then try
| >>> CDO
| >>> by by commenting out the CDONTOS lines (add ' (quotation mark) in
| >>> front of the lines) and uncomment the CDO lines (delete the ' (quote
| >>> mark) in front of the lines.
| >>>
| >>> ---begin response.asp----
| >>> <%@ Language = VBscript %>
| >>> <% option explicit %>
| >>>
| >>> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
| >>> <html>
| >>> <head>
| >>> <meta http-equiv="Content-Language" content="en-us">
| >>> <meta http-equiv="Content-Type"
| >>> content="text/html;charset=windows-1252"> <title>feedback
| >>> response</title> </head>
| >>>
| >>> <body>
| >>>
| >>> <%
| >>> Dim MessageType, Subject, SubjectOther, Comments
| >>> Dim Username, UserEmail, ContactRequested
| >>> Dim MyBody, Mymail
| >>>
| >>> 'grab data from the form
| >>>
| >>> MessageType= Request.Form("MessageType")
| >>> Subject= Request.Form("Subject")
| >>> SubjectOther= Request.Form("SubjectOther")
| >>> Comments= Request.Form("Comments")
| >>> Username= Request.Form("Username")
| >>> UserEmail= Request.Form("UserEmail")
| >>> ContactRequested= Request.Form("ContactRequested")
| >>> %>
| >>>
| >>> <p>&nbsp;</p>
| >>> <p>Thank you for your feedback.&nbsp; Your feeback was:</p>
| >>>
| >>> <p>
| >>> <b>Message Type:</b> <%= MessageType %> <br>
| >>> <b>Subject:</b> <%= Subject%> <br>
| >>> <b>Subject Other:</b> <%=SubjectOther %> <br>
| >>> <b>Comments=</b> <%= Comments%> <br>
| >>> <b>Your Name:</b> <%= Username%> <br>
| >>> <b>Your Email:</b> <%= UserEmail%> <br>
| >>> <b>Contact Requested:</b> <%=ContactRequested %> <br>
| >>> </p>
| >>>
| >>> <%
| >>> 'create the email and send it
| >>>
| >>> Set Mymail = CreateObject("CDONTS.NewMail") 'for CDONTS
| >>> 'Set myMail=CreateObject("CDO.Message") 'for CDO
| >>>
| >>> Mymail.From= UserEmail
| >>> Mymail.To= "(e-mail address removed)" 'change to your email
| >>> Mymail.Subject= "Website Comments from " & Username
| >>>
| >>> MyBody = "Comments from the web site." & vbCrLf & vbCrLf
| >>> MyBody = MyBody & "Comments: " & Comments & vbCrLf & vbCrLf
| >>> MyBody = MyBody & "Username: " & Username & vbCrLf & vbCrLf
| >>> MyBody = MyBody & "UserEmail: " & UserEmail & vbCrLf & vbCrLf
| >>> MyBody = MyBody & "ContactRequested: " & ContactRequested & vbCrLf
| >>>
| >>> Mymail.Body= MyBody 'for CDONTS
| >>> 'myMail.TextBody= MyBody 'for CDO
| >>>
| >>> Mymail.Send
| >>> set Mymail =nothing
| >>>
| >>> %>
| >>> </body>
| >>> </html>
| >>> ---end response.asp----
| >>>
| >>> Good luck.
| >>> ...PC
|
|
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Sending e-mail from a ASP form 6
code to submit a forn via email 2
E-mail web response 6
How do I change the 'Time Zone' in the webbot 3
redirect after form submits results to email 4
Form email stopped working after attaching dwt created in Sharepoi 2
forwards to form confirmation instead of specified page 2
Submitting & Validation of Form 2

Top