|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|||||||||||
|
|
|
|
|
|
|||||||
|
|
|
|
|
|
|
||||||
|
|
|
||||||||||
|
|
|
||||||||||
|
|
|
||||||||||
|
|
|||||||||||
| <%
'If the form has not been submitted execute the following code
If Request.Form="" Then %>
<%
'If the form has been submitted execute the following code
Else
'receive the form values
Dim sName, sEmail, sFeedback
sName=Request.Form("txtName")
sEmail=Request.Form("txtEmail")
sFeedback=Request.Form("txtFeedback")
' create the HTML formatted email text
Dim sEmailText
sEmailText = sEmailText & ""
sEmailText = sEmailText & ""
sEmailText = sEmailText & " " sEmailText = sEmailText & "Message:" & sFeedback & " " sEmailText = sEmailText & "Date & Time:" & Now() & " " sEmailText = sEmailText & "IP :" & Request.ServerVariables("REMOTE_ADDR") sEmailText = sEmailText & "" sEmailText = sEmailText & "" 'create the mail object Set NewMailObj=Server.CreateObject("CDO.Message") NewMailObj.From=sEmail 'This is the email of the feedback sender NewMailObj.To = "wayne@lfuscl.com" NewMailObj.Subject = "Feedback" NewMailObj.TextBody = sEmailText NewMailObj.Send Set NewMailObj=Nothing Response.write " Thank you for sending your feedback. "
End If
%> " Response.write "We will get back to you if necessary. |
Please feel free to email info@lfuscl.com any interesting pictures you may have of any of our plants, offices, or related information and we will evaluate your submissions and make every effort to post on our site. |