Solved

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

Posted on 2007-11-16
13
557 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
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 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
Windows Server 2016: All you need to know

Learn about Hyper-V features that increase functionality and usability of Microsoft Windows Server 2016. Also, throughout this eBook, you’ll find some basic PowerShell examples that will help you leverage the scripts in your environments!

 

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

Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

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

There’s a good reason for why it’s called a homepage – it closely resembles that of a physical house and the only real difference is that it’s online. Your website’s homepage is where people come to visit you. It’s the family room of your website wh…
Today, the web development industry is booming, and many people consider it to be their vocation. The question you may be asking yourself is – how do I become a web developer?
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 viewer will learn how to create and use a small PHP class to apply a watermark to an image. This video shows the viewer the setup for the PHP watermark as well as important coding language. Continue to Part 2 to learn the core code used in creat…

627 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