chaddu1256
IS-IT--Management
We recieved a website from our web hoster so we could host the website locally at our facility. On the webpage there are two form submission pages. There is a mailaction.asp script file that was in the root directory of the webpage which I know is used to actually send the forms to an email address when you click the submit button. I will post the script here in a second but I just wanted to know what we needed to do on our web server here to actually get this submission page working again. Any info would be great.
<%@ LANGUAGE = VBScript %>
<html>
<head>
<title>Contact EMail</title>
<%
if Request.Form("Name"
.Count Then
szEmail_to = "info@billeradvantage.com"
szTo_name = "Biller Advantage"
szEmail_from = Request.Form("E-mail"
szFrom_name = Request.Form("Name"
szSubject = "BillerAdvantage Partnership Request"
szMessage = ""
szMessage = "BillerAdvantage Partnership Request Form:" & chr(10) & chr(10) &_
"Name: " & Request.Form("Name"
& chr(10) &_
"Last Name: " & Request.Form("Lastname"
& chr(10) &_
"Company Name: " & Request.Form("Company"
& chr(10) &_
"Address: " & Request.Form("Address1"
& chr(10) &_
"Address2: " & Request.Form("Address2"
& chr(10) &_
"City: " & Request.Form("City"
& chr(10) &_
"State: " & Request.Form("State"
& chr(10) &_
"Zip: " & Request.Form("Zip"
& chr(10) &_
"Phone: " & Request.Form("Phone"
& chr(10) &_
"Fax: " & Request.Form("Fax"
& chr(10) &_
"Email: " & Request.Form("Email"
& chr(10)
Set Mail = Server.CreateObject("Persits.MailSender"
Mail.Host = "localhost" ' Specify a valid SMTP server
Mail.From = szEmail_from ' Specify sender's address
Mail.FromName = szFrom_name ' Specify sender's name
Mail.AddAddress szEmail_to, szTo_name
Mail.AddReplyTo szEmail_from
Mail.Subject = szSubject
Mail.Body = szMessage
On Error Resume Next
Mail.SendToQueue
End If
%>
<script language=javascript>
location.replace("index.htm"
;
</script>
<%@ LANGUAGE = VBScript %>
<html>
<head>
<title>Contact EMail</title>
<%
if Request.Form("Name"
szEmail_to = "info@billeradvantage.com"
szTo_name = "Biller Advantage"
szEmail_from = Request.Form("E-mail"
szFrom_name = Request.Form("Name"
szSubject = "BillerAdvantage Partnership Request"
szMessage = ""
szMessage = "BillerAdvantage Partnership Request Form:" & chr(10) & chr(10) &_
"Name: " & Request.Form("Name"
"Last Name: " & Request.Form("Lastname"
"Company Name: " & Request.Form("Company"
"Address: " & Request.Form("Address1"
"Address2: " & Request.Form("Address2"
"City: " & Request.Form("City"
"State: " & Request.Form("State"
"Zip: " & Request.Form("Zip"
"Phone: " & Request.Form("Phone"
"Fax: " & Request.Form("Fax"
"Email: " & Request.Form("Email"
Set Mail = Server.CreateObject("Persits.MailSender"
Mail.Host = "localhost" ' Specify a valid SMTP server
Mail.From = szEmail_from ' Specify sender's address
Mail.FromName = szFrom_name ' Specify sender's name
Mail.AddAddress szEmail_to, szTo_name
Mail.AddReplyTo szEmail_from
Mail.Subject = szSubject
Mail.Body = szMessage
On Error Resume Next
Mail.SendToQueue
End If
%>
<script language=javascript>
location.replace("index.htm"
</script>