<% If request("sendButton")="Send" then For each sRequest in Request.Form Select Case sRequest Case "Name" name=sRequest & ": " & request(sRequest) & chr(10) Case "Telephone" telephone=sRequest & ": " & request(sRequest) & chr(10) Case "Message" message=sRequest & ": " & request(sRequest) & chr(10) End Select Next Dim objMyMail Set objMyMail = CreateObject("CDO.Message") objMyMail.Subject="Website enquiry" objMymail.From="enquiry@diggle.net" objMyMail.To="enquiry@diggle.net" objMyMail.TextBody=name+telephone+message objMyMail.Send set objMyMail = nothing Response.Redirect ("contact_us_thankyou.htm") End If %> DiggleNet Ltd - Contact Us
 


 



PROVIDING TRUSTWORTHY, RELIABLE & USER-FRIENDLY IT SOLUTIONS
Home
Bespoke Software
Internet Services
Case Study 1
Case Study 2
Case Study 3


Contact Us
 
 
 
DiggleNet Ltd
25 Ravensway
Downham Market
Norfolk
PE38 0DB

Tel: 01366 388911
e-mail: info@diggle.net
 


 

 





Contact Us

 
 

The first thing we do is listen

 
 

Contact Us

DiggleNet Ltd
25 Ravensway
Downham Market
Norfolk
PE38 0DB

Tel: 01366 388911
e-mail: info@diggle.net