<% set rsC=server.createobject("Adodb.Recordset") rsC.open "Select * From List WHere Email ='" & request.querystring("id") &"'",con,3,2 if rsC.eof=False then con.execute "Delete From List Where Email ='" & request.querystring("id") &"'" strMessage="You have unsubscribed from Morphehs.com " else strMessage="You have already unsubscribed from Morphehs.com" end if rsC.close %>

	<%=strMessage%>
Home | Environment | Health & Safety | Management System | Performance Measurement | Regulations | Training | Membership | Products & Suppliers | Useful Links   About Us | Contact Us | FAQ | Feedback | Forum Copyright Morphehs Ltd (Registered in England No. 05442814) | Designed and Maintained by webACORN