<%@ Language=VBScript %> <% message="" if Request.QueryString("sendmail")="yes" then objoccupation = Request.Form("occupation") objsubjectks = Request.Form("subjectks") objfindsite = Request.Form("findsite") objrate = Request.Form("rate") objusematerials = Request.Form("usematerials") if len(objusematerials)=0 then objusematerials = "blank" else end if objcomments = Request.Form("comments") if len(objcomments)=0 then objcomments = "blank" else end if objemailadd = Request.Form("emailadd") objupdate = Request.Form("update") if len(objupdate)=0 then objupdate = "no" else end if 'Response.Write "
" & objoccupation 'Response.Write "
" & objsubjectks 'Response.Write "
" & objfindsite 'Response.Write "
" & objrate 'Response.Write "
" & objusematerials 'Response.Write "
" & objcomments 'Response.Write "
" & objemailadd 'Response.Write "
" & objupdate Const cdoSendUsingPort = 1 'Create the message object. Set iMsg = CreateObject("CDO.Message") 'Create the configuration object. Set iConf = iMsg.Configuration With iConf.Fields .item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort .Update End With set iMsg = CreateObject("CDO.Message") set iConf = CreateObject("CDO.Configuration") Set Flds = iConf.Fields strBody = "" &_ "" &_ "" &_ "
" &_ " " &_ "

FeedBack Form Egg Site

" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "
Occupation:" & objoccupation & "
Subject & Key Stage: " & objsubjectks & "
How they found site: " & objfindsite & "
Rate: " & objrate & "
How they use the material: " & objusematerials & "
Any other comments: " & objcomments & "
Email address: " & objemailadd & "
Notified of any updates: " & objupdate & "
" iMsg.To = "info@britegg.co.uk" iMsg.From = "info@britegg.co.uk" iMsg.ReplyTo = "info@britegg.co.uk" iMsg.Subject = "Feedback Form Egg Site" iMsg.HTMLBody = strBody iMsg.Send Set iMsg = Nothing Set iConf = Nothing Set Flds = Nothing Response.Redirect "thankyou.htm" end if %> :: Eggs ::
Home Page Pancake Special Easter Special World Of Eggs
Primary
Secondary

Are you a:



If you teach, what subject & Key Stage do you teach?

  

How did you find out about this site?

  

How do you rate the contents of this site?

  

How are you going to use the materials?

  

Any further comments?

  

Email address:

  

Click the box if you want to be notified of any updates.


Reset form

Back