This snapshot, taken on 22/07/2004, shows web content selected for preservation by The National Archives. External links, forms and search boxes may not work in archived websites.
Links to betsie site Department for Work and Pensions
   
services and benefits A-Z what's new media centre
working age families and children about us resource centre
pensions and retirement disabled people and carers contact us other languages
welsh version links site map search advanced search
 
 

Enquiries Complaints and appeals Ministers
Helplines Site feedback Local office search
Contact us / Site feedback

    
   

Site feedback
So that we can monitor and develop the DWP website we are interested in your views on its:

  • Design
  • Content
  • Ease of use, and
  • Interactivity.

Please complete the form below if you would like to make comments about all or part of the site. You do not have to give your name or email address if you do not want to, but we will need these if you want a reply. All comments will be treated confidentially and will not be used for any other purpose.

<% Dim name 'name of whoever filled out the form Dim subject 'subject the e-mail Dim message 'message body of the e-mail Dim objCDOMail 'the mail server object Dim emailAddress 'e-mail address Dim recipient 'destination of email Dim errorMessage 'error message for form validation Set objCDOMail = Server.CreateObject("CDONTS.NewMail") 'create the email server object subject =Request.Form("subject") emailAddress =Request.Form("email") name = Request.Form("realname") recipient = "website@dwp.gsi.gov.uk" message = Request.Form("message") timeNow= now newMessage = message & chr(13) & chr(13) & "This message was sent to you via the DWP website on " & timeNow & chr(13) & chr(13) & "If you are unable to deal with this message immediately, please send acknowledgement of receipt within 24 hours, and refer to the Cabinet Office's guidance on dealing with correspondence received from the public by E-Mail." & chr(13) & chr(13) & "Copies of this guidance are available in Printed form, or on the DWP Intranet, and detail the recommended procedures and timescales for replies to correspondence received by e-mail." & chr(13) & chr(13) & "Copies can also be obtained by Contacting Tim Elms in the Parliamentary Relations Unit on 020 7238 0715" 'Check to see if the user has entered a correct e-mail address If Len(emailAddress) < 5 OR NOT Instr(1, emailAddress, " ") = 0 OR InStr(1, emailAddress, "@", 1) < 2 OR InStrRev(emailAddress, ".") < InStr(1, emailAddress, "@", 1) Then errorMessage = errorMessage & "You must enter a valid email address
" End If 'Check whether user has entered a name If name = "" Then errorMessage = errorMessage & "You must enter a valid name" End If If Request.Form("POSTED") Then If errorMessage > "" Then 'If the're errors, output the error message Response.Write errorMessage Else 'otherwise , send the e-mail objCDOMail.From = name objCDOMail.To = recipient objCDOMail.BodyFormat = 1 'Set the e-mail body format (0=HTML 1=Text) objCDOMail.MailFormat = 1 'Set the mail format (0=MIME 1=Text) objCDOMail.Subject = subject objCDOMail.Body = newMessage objCDOMail.Send 'Send the e-mail Set objCDOMail = Nothing 'Close the server object End If End If If Request.Form("POSTED") AND errorMessage = "" Then Response.Redirect "https://secureonline.dwp.gov.uk/dwp-contact/thanks.asp?s=" & subject + "&m=" & message + "&t=" & timeNow 'Response.Write "" & name + ", thank you for your feedback." else %> <% End If %>
Your name

 Your email address

 Subject

Your message

 
 
   

 

Text only (Betsie) | Benefits & services | Families & children | Working age | Pensions & Retirement | Contact us | About us | Resource centre | Other languages | Media centre | What’s new | Statistics & Research | UK Online | Crown copyright

top of page