Redirect for an ASP Contact Form

Hi,
I finished a website for a client who hosts his website on a server using ASPEmail. I am an absolute novice to ASP and normally use CGI or PHP scripts for forms.
I managed to get the contact form working and my client now receives the enquiry, but I can not get the redirect working to have the visitor send to a thank you page.
Can you please have a look at my script and let me know where I am going wrong:
<%
if Request("action") = "send" then
customerid = trim(Request.Form("txtEmail"))
strsubject = "Welcome to TDS Ltd"
strbody = strbody & "Following visitor has sent a request: " & VbCrLf & VbCrLf
strbody = strbody & "Name : " & trim(Request.Form("txtName")) & VbCrLf
strbody = strbody & "Company : " & trim(Request.Form("txtCompany")) & VbCrLf
strbody = strbody & "Address : " & trim(Request.Form("txtAddress")) & VbCrLf
strbody = strbody & "Phone : " & trim(Request.Form("txtPhone")) & VbCrLf
strbody = strbody & "Mobile : " & trim(Request.Form("txtMobile")) & VbCrLf
strbody = strbody & "Facsimile : " & trim(Request.Form("txtFax")) & VbCrLf
strbody = strbody & "Email : " & trim(Request.Form("txtEmail")) & VbCrLf
strbody = strbody & "Best time to call : " & trim(Request.Form("txtTime")) & VbCrLf
strbody = strbody & "Query : " & trim(Request.Form("txtQuery")) & VbCrLf
' Send Email
Set objEmail = Server.CreateObject("Persits.MailSender")
' enter valid SMTP host
objEmail.Host = "mail.my-domain.com"
objEmail.From = "sporky@my-domain.com"
objEmail.FromName = "Enquiry Form"
objEmail.AddAddress "sporky@my-domain.com"
objEmail.Subject = strsubject
objEmail.Body = strbody
objEmail.Send
'Redirect if a URL was given.
if Request.Form("_redirect") <> "" then
Response.Redirect(Request.Form("_redirect"))
end if
end if
%>

The form has a hidden field with redirect to the thank you page.
Thank you for your help!
Regards
Sporky

To be honest, this should work as far as I can tell...

Personally, I would check the HTML source from the browser on the form and make sure everything is as it seems.

Secondly, you can debug the info coming in from the form.

Place this at the top of the ASP page that receives the form post...

Code: Select all

<%
for each Item in request.form
response.write item & ": " & request.form(Item) & "<br />"
next
%>

This will show you all data submitted.

Should at least give you a pointer to where it's going wrong

__________________
Rob - SEO Specialist
Owner & Founder of Webforumz.com

I am currently unavailable for private work

Hi,
Thank you for your response. I tried what you suggested and looked at the HTML but everything seems at it should. Still the form does not redirect and this is really doing my heading.
Searched everywhere for an answer, but none of it is working. Do you have any other ideas?
Regards
Sporky

Remove the response.redirect line and try this in place of it:-

Code: Select all

Response.Status="301 Moved Permanently" 
Response.AddHeader "Location", "http://" & Request.ServerVariables("SERVER_NAME") & "/" & 
Request.Form("_redirect")

This should work.... but then so should the other code.

__________________
Rob - SEO Specialist
Owner & Founder of Webforumz.com

I am currently unavailable for private work

Hi,
No, unfortunately it does not work. This is the response I get:


Microsoft VBScript compilation error '800a03ea'
Syntax error
/contacttest.asp, line 33
Response.AddHeader "Location", "http://" & Request.ServerVariables("SERVER_NAME") & "/" &-----------------------------------------------------------------------------------------^Any idea what that means?RegardsSporky

Hi again,
On the following link http://www.w3schools.com/asp/met_redirect.aspI found this for redirect:

<%Response.Redirect "http://www.w3schools.com"%>But if I use that, it directs me directly to the thank you page without even going on the contact page

Do I have to give a command that specifies "onSubit" ???

Thanks again

Sporky

hi

in if block write like this

if len(Request.Form("_redirect") )<1 then
Response.Redirect(Request.Form("_redirect"))
end if

Some time the if loop dont work as we like Its know bug of VB & ASP

Thanks

Hi,
Thank you so much for your tip last week. I tried it today and it seems that I am on the right path, but now the browser is giving me this error message:

Response object error 'ASP 0158 : 80004005'
Missing URL
/contacttest.asp, line 34
A URL is required.

However, I have inserted a URL as follows:

'Redirect if a URL was given
if len(Request.Form("_redirect") )<1 then
Response.Redirect(Request.Form("http://www.tds-ltd.com/thankyou.html"))
end if

Where did I go wrong??

Regards
Sporky

Not to worry it finally works and I am very happy!!!!

hi

Let US know what was the problem
so we don't repeat it

thanks