Hey guys, I was wondering if any of you might be able to help me out. I am in a bit of a jam. We recently moved our webhosting provider from a Windows based system to a Linux based system. Everything works fine except I forgot about the contact submit form. That will not work because it is an ASP page. I need to find a way to convert it so it will work without having to redo the entire page.
Basically when you get to our contact page (which is html) and enter your info. You click on the submit button and it is supposed to e-mail us the info from the page and redirect to a thank you page.
The code for the ASP page (the background submit process) is in VBScript and is as follows:
<%@ Language=VBScript %>
<%
Dim MyBody
Dim MyBodyEnc
Dim MyBodyFinal
Dim MyCDONTSMail
MyBody = "On " & now & " someone sent an email from the Contact page. "
MyBody = MyBody & " The following information was sent." & Chr(13) & Chr(13)
For Each x In Request.Form
If Request.form(x) <> "submit" then
MyBody = MyBody & x & ": " & Request.Form(x) & Chr(13)
End If
next
response.Write(MyBody)
Dim sSubjectString
sSubjectString = "Contact Inquiry form"
SendEmail = 1
If SendEmail = 1 THEN
Set MyCDONTSMail = CreateObject("CDONTS.NewMail")
MyCDONTSMail.From= "no-reply@sharperimpressionspainting.com"
MyCDONTSMail.To= "sipainting@sharperimpressionspainting.com"
MyCDONTSMail.Bcc= "forefrontweb@gmail.com"
MyCDONTSMail.Subject= sSubjectString
MyCDONTSMail.Body = MyBody
MyCDONTSMail.Send
set MyCDONTSMail=nothing
End If
response.redirect("/thankyou.html")
%>
I was wondering if any of you guys might be able to help me convert it or find a solution to get this to work. I'm not real familiar with this at all and am in need of help in a big way. I appreciate any help. Thanks
Enkrypted
A+
Basically when you get to our contact page (which is html) and enter your info. You click on the submit button and it is supposed to e-mail us the info from the page and redirect to a thank you page.
The code for the ASP page (the background submit process) is in VBScript and is as follows:
<%@ Language=VBScript %>
<%
Dim MyBody
Dim MyBodyEnc
Dim MyBodyFinal
Dim MyCDONTSMail
MyBody = "On " & now & " someone sent an email from the Contact page. "
MyBody = MyBody & " The following information was sent." & Chr(13) & Chr(13)
For Each x In Request.Form
If Request.form(x) <> "submit" then
MyBody = MyBody & x & ": " & Request.Form(x) & Chr(13)
End If
next
response.Write(MyBody)
Dim sSubjectString
sSubjectString = "Contact Inquiry form"
SendEmail = 1
If SendEmail = 1 THEN
Set MyCDONTSMail = CreateObject("CDONTS.NewMail")
MyCDONTSMail.From= "no-reply@sharperimpressionspainting.com"
MyCDONTSMail.To= "sipainting@sharperimpressionspainting.com"
MyCDONTSMail.Bcc= "forefrontweb@gmail.com"
MyCDONTSMail.Subject= sSubjectString
MyCDONTSMail.Body = MyBody
MyCDONTSMail.Send
set MyCDONTSMail=nothing
End If
response.redirect("/thankyou.html")
%>
I was wondering if any of you guys might be able to help me convert it or find a solution to get this to work. I'm not real familiar with this at all and am in need of help in a big way. I appreciate any help. Thanks
Enkrypted
A+