Solved

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

Posted on 2007-11-16
13
541 Views
Last Modified: 2013-12-24
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
Comment
Question by:marcum
  • 7
  • 6
13 Comments
 

Author Comment

by:marcum
ID: 20298375
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
 
LVL 31

Expert Comment

by:James Murrell
ID: 20298435
0
 

Author Comment

by:marcum
ID: 20298578
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
Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 

Author Comment

by:marcum
ID: 20298589
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
 
LVL 31

Expert Comment

by:James Murrell
ID: 20298599
change

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

to where you want it to go
0
 

Author Comment

by:marcum
ID: 20298659
so add my page info directly after the http://   ???
0
 
LVL 31

Expert Comment

by:James Murrell
ID: 20298671
yes
0
 

Author Comment

by:marcum
ID: 20298702
that didn't work.. it doubled my url statement.
0
 
LVL 31

Expert Comment

by:James Murrell
ID: 20298717
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
 

Author Comment

by:marcum
ID: 20298827
nope, it just redirects me to the root of the domain
0
 
LVL 31

Accepted Solution

by:
James Murrell earned 500 total points
ID: 20298838
 if(lcase(key) = "redirect") then
                                    landing_page = value
0
 

Author Comment

by:marcum
ID: 20298962
that works thanks
0
 
LVL 31

Expert Comment

by:James Murrell
ID: 20299389
cool -  Thanks for the points
0

Featured Post

Secure Your Active Directory - April 20, 2017

Active Directory plays a critical role in your company’s IT infrastructure and keeping it secure in today’s hacker-infested world is a must.
Microsoft published 300+ pages of guidance, but who has the time, money, and resources to implement? Register now to find an easier way.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Learn by example how to specify CSS selectors for Selenium WebDriver test automation software.
Developer portfolios can be a bit of an enigma—how do you present yourself to employers without burying them in lines of code?  A modern portfolio is more than just work samples, it’s also a statement of how you work.
The purpose of this video is to demonstrate how to reset a WordPress password if you are locked out and cannot reset the password. A typical use would be if you cannot access the email to which WordPress would send the password recovery email to…
The purpose of this video is to demonstrate how to integrate Mailchimp with Facebook. This will be demonstrated using a Windows 8 PC. Mailchimp and Facebook will be used. Log into your Mailchimp account. : Click on your name. Go to Account Setti…

680 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question