If you have problems using this form,
you may request the information by emailing to
ir@royl.com
.
Thank you.
Privacy Statement:
All information collected from this form is used exclusively for
the internal marketing purposes of Royale Energy, Inc. This information
is not sold to, nor shared with, any entity outside of the company.
<%
' Once the user presses the submit button, we do this...
Else
' Send the mail based on what is filled in on the form......
Dim FullName
Dim EmailAddr
Dim FromField
Dim SubjectField
Dim TxtBody
FullName = Request.Form("requestor")
EmailAddr = Request.Form("email")
FromField = FullName & " <" & EmailAddr & ">"
SubjectField = "[Information Request]"
TxtBody = "Full Name: " & FullName & Chr(13) & _
"E-Mail: " & EmailAddr & Chr(13) & _
"Addr1: " & Request.Form("addr1") & Chr(13) & _
"Addr2: " & Request.Form("addr2") & Chr(13) & _
"City, State and Zip: " & Request.Form("city") & ", " & Request.Form("state") & " " & Request.Form("zip") & Chr(13) & _
"Country: " & Request.Form("country") & Chr(13) & _
"Phone #: " & Request.Form("voiceph") & Chr(13) & _
"Fax #: " & Request.Form("faxph") & Chr(13) & _
"Preferred method of contact: " & Request.Form("MetCon") & Chr(13) & _
"Information Packet?: " & Request.Form("InfoPacket") & Chr(13) & Chr(13) & _
"Message Below" & Chr(13) & "=================================" & Chr(13) & Request.Form("textbody")
Dim iMsg
Dim iConf
Dim Flds
Set iMsg = Server.CreateObject("CDO.Message")
' Set iConf = iMsg.Configuration
Set iConf = Server.CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
With Flds
' assume constants are defined within script file
.Item(cdoSendUsingMethod) = 2 ' cdoSendUsingPort
.Item(cdoSMTPServer) = "mail.royl.com" 'Change this to the DNS of your mail server
.Item(cdoSMTPServerPort) = 25
.Item(cdoSMTPConnectionTimeout) = 30 ' quick timeout
.Item(cdoSMTPAuthenticate) = cdoBasic
' .Item(cdoSendUserName) = "webmaster" ' Change this to a verified user on your mail system
' .Item(cdoSendPassword) = "waxonwaxoff" ' Change this to a verified password on your mail system
.Item(cdoSendEmailAddress) = """Investor Relations"" "
.Item(cdoSendUserReplyEmailAddress) = """Investor Relations"" "
.Update
End With
With iMsg
.Configuration = iConf
.From = FromField
.CC = ""
.Subject = SubjectField
.TextBody = TxtBody
.To = "ir@royl.com"
.Send
End With
Set iMsg = Nothing
%>
Royale Energy, Inc. - Feedback Form
