Go Premium for a chance to win a PS4. Enter to Win

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 574
  • Last Modified:

Convert frontpage Form mailer to Godaddy's ASP form mailer.

I have a website that we just moved the hosting to godaddy. now some of the forms do not work. I want to convert the script to use GoDaddy's form mailer.

On the current script when I submit it does not send the mail and it will not direct me to the Thank you page. here is a code snippit of the current script.

<form method="POST" name="FrontPage_Form1" action="--WEBBOT-SELF--" onsubmit="return FrontPage_Form1_Validator(this)" language="JavaScript">
                  <!--webbot bot="SaveResults" U-File="C:\xxxx\xxxx2007\_private\form_results.txt" S-Format="TEXT/CSV" S-Label-Fields="TRUE" B-Reverse-Chronology="FALSE" S-Email-Format="TEXT/PRE" S-Email-Address="WEBFORM@xxxx.COM" B-Email-Label-Fields="TRUE" B-Email-ReplyTo-From-Field="TRUE" S-Email-ReplyTo="email" B-Email-Subject-From-Field="FALSE" S-Email-Subject="Send Me An Instant Quote" S-Builtin-Fields="REMOTE_NAME REMOTE_USER HTTP_USER_AGENT" S-Form-Fields="name address city state zip dayphone evephone email Services OtherComments " U-Confirmation-Url="thanks2.htm" -->
                  <div align="center">

With godaddy they use an asp script called gdform.asp. Here is the code snippit they recommend.
<form action="gdform.asp" method="post">
<input type="hidden" name="subject" value="Form Submission" />
<input type="hidden" name="redirect" value="thankyou.html" />
<p>First Name:<input type="text" name="FirstName" /></p>
<p>Last Name:<input type="text" name="LastName" /></p>
<p>E-Mail:<input type="text" name="email" /></p>
<p>Comments:<textarea name="comments" cols="40" rows="10">
Type comments here.</textarea></p>
<input type="submit" name="submit" value="submit"/>
</form>

How do I alter my current script to utilize godaddy's form mailer.

Thanks
0
marcum
Asked:
marcum
  • 7
  • 6
1 Solution
 
marcumAuthor Commented:
I changed the following form action from - action="--WEBBOT-SELF--"

to action="gdform.asp"

Now it mails but it will not direct me to the thank you page.
Any suggestions?
0
 
James MurrellProduct SpecialistCommented:
0
 
marcumAuthor Commented:
any other idea's?
As I said I got the script to work now I just need to make it redirect to the thank you page.
Here is GoDaddy's gdform.asp

<%

Dim landing_page, host_url
Dim fso, outfile, filename, dirname, myFolder
Dim req_method, key, value
Dim bErr, errStr, bEmpty
On Error resume next
bErr = false
bEmpty = true
errStr = ""
Set fso = Server.CreateObject("Scripting.FileSystemObject")
host_url = Request.ServerVariables("HTTP_HOST")
req_method = Request.ServerVariables("REQUEST_METHOD")
dtNow = Now()
filename = Server.MapPath("\ssfm")
dirname = filename
filename = filename & "\gdform_" & DatePart("M", dtNow) & DatePart("D", dtNow) & DatePart("YYYY", dtNow) & DatePart("N", dtNow) & DatePart("S", dtNow)

Function FormatVariableLine(byval var_name, byVal var_value)
      Dim tmpStr
      tmpStr = tmpStr & "<GDFORM_VARIABLE NAME=" & var_name & " START>" & vbCRLF
      tmpStr = tmpStr & var_value & vbCRLF
      tmpStr = tmpStr & "<GDFORM_VARIABLE NAME=" & var_name & " END>"
      FormatVariableLine = tmpStr
end function

Sub OutputLine(byVal line)
   outfile.WriteLine(line)
end sub

if err.number = 0 then
      Set outfile = fso.CreateTextFile(filename, true, false)
      if err.number <> 0 then
                  bErr = true
                  errStr = "Error creating file! Directory may not be writable or may not exist.<br>Unable to process request."
      else
            if(req_method = "GET") then
                  for each Item in request.QueryString
                        if item <> "" then
                              bEmpty = false
                              key = item
                              value = Request.QueryString(item)
                              if(lcase(key) = "redirect") then
                                    landing_page = value
                              else
                                    line = FormatVariableLine(key, value)
                                    Call OutputLine(line)
                              end if
                        end if      
                  next
            elseif (req_method = "POST") then
                  for each Item in request.form
                        if item <> "" then
                              bEmpty = false
                              key = item
                              value = Request.form(item)
                              if(lcase(key) = "redirect") then
                                    landing_page = value
                              else
                                    line = FormatVariableLine(key, value)
                                    Call OutputLine(line)
                              end if
                        end if      
                  next
            end if
            outfile.close
      end if      
      if(bEmpty = true) AND errStr = "" then
            bErr = true
            errStr = errStr & "<br>No variables sent to form! Unable to process request."
      end if
      if(bErr = false) then      
            if (landing_page <> "") then
                  response.Redirect "http://" & host_url & "/" & landing_page
            else
                  response.Redirect "http://" & host_url      
            end if
      else
            Response.Write errStr
      end if      
      set fso = nothing
else
  Response.Write " An Error Occurred creating mail message. Unable to process form request at this time."
end if
%>
0
Efficient way to get backups off site to Azure

This user guide provides instructions on how to deploy and configure both a StoneFly Scale Out NAS Enterprise Cloud Drive virtual machine and Veeam Cloud Connect in the Microsoft Azure Cloud.

 
marcumAuthor Commented:
my suspicion is that I need to alter this area.

 if(bErr = false) then      
            if (landing_page <> "") then
                  response.Redirect "http://" & host_url & "/" & landing_page
            else
                  response.Redirect "http://" & host_url      
            end if
0
 
James MurrellProduct SpecialistCommented:
change

          response.Redirect "http://" & host_url & "/" & landing_page
            else
                  response.Redirect "http://" & host_url      

to where you want it to go
0
 
marcumAuthor Commented:
so add my page info directly after the http://   ???
0
 
James MurrellProduct SpecialistCommented:
yes
0
 
marcumAuthor Commented:
that didn't work.. it doubled my url statement.
0
 
James MurrellProduct SpecialistCommented:
host_url = Request.ServerVariables("HTTP_HOST") ...it may not like that


or response.Redirect "http://somewhere.com/thankyou.asp"
            else
                  response.Redirect "http://" & host_url      
0
 
marcumAuthor Commented:
nope, it just redirects me to the root of the domain
0
 
James MurrellProduct SpecialistCommented:
 if(lcase(key) = "redirect") then
                                    landing_page = value
0
 
marcumAuthor Commented:
that works thanks
0
 
James MurrellProduct SpecialistCommented:
cool -  Thanks for the points
0

Featured Post

Get your Disaster Recovery as a Service basics

Disaster Recovery as a Service is one go-to solution that revolutionizes DR planning. Implementing DRaaS could be an efficient process, easily accessible to non-DR experts. Learn about monitoring, testing, executing failovers and failbacks to ensure a "healthy" DR environment.

  • 7
  • 6
Tackle projects and never again get stuck behind a technical roadblock.
Join Now