<%
'check user information
dim uidSubscriberID
dim bAnonymous
bAnonymous= true
'FISRTLY
'see if user has clicked from emailed newsletter
if (request.querystring("sid")<>"") then
'yes they have, check if it is a valid userid
if (validateUser(request.querystring("sid"))=false) then
response.Redirect("error.asp?err=badid")
end if
'set the session
Session("uidSubscriberID") = uidSubscriberID
'try and add a cookie to their machine
response.Cookies("ServoUser")=uidSubscriberID
response.Cookies("ServoUser").expires=DateAdd("yyyy",10,now())
'SECONDLY
'see if user has a session ID
elseif (session("uidSubscriberID")<>"") then
'yes they have, check if it is a valid userid
if (validateUser(session("uidSubscriberID"))=false) then
response.Redirect("error.asp?err=badid")
end if
'THIRDLY
'see if the user has a userid querystring
elseif (request.QueryString("uid")<>"") then
'yes they have, check if it is a valid userid
if (validateUser(request.QueryString("uid"))=false) then
response.Redirect("error.asp?err=badid")
end if
'FOURTHLY
'see if the user has a cookie
elseif request.Cookies("ServoUser")<>"" then
if (validateUser(request.Cookies("ServoUser"))=false) then
'delete the cookie as it has an invalid userid
response.Cookies("ServoUser").expires=now()
response.Redirect("error.asp?err=badid")
end if
'set the session
Session("uidSubscriberID") = uidSubscriberID
'FITHLY
'must be an anonymous browser from web site or someone who has disabled cookies
else
bAnonymous=true
end if
function validateUser(uidUser)
dim sSQL
dim rs
dim rsDetails
sSQL= "SELECT useruid FROM tRegisteredUsers WHERE useruid='" & uidUser & "'"
set rs= objConn.Execute(sSQL)
if not rs.EOF then
uidSubscriberID = rs.Fields("useruid")
bAnonymous=false
validateUser=true
else
validateUser=false
end if
rs.close
set rs=nothing
end function
%>
Over the last eight month s Servo has undergone a strict evalaution process which has resulted in becoming a Premium Associateof MessageLabs
Over the last eight months Servo has undergone a strict evalaution process
which has resulted in becoming a Premium Associate of MessageLabs
Servo's continued move into working closer with security orientated manaufacturers is in recognition of the increasing challenges of company regulations and compliancy. Servo recognise that compliancy cannot be achived by a single product or service and requires Servos skills to pull together a solution to help our customers alleviate any concerns.
Messagelabs is the global leader in managed email security for businesses. It is able to offer a higher level of protection from an increasing, converging landscape of email threats including viruses, spam and other unwanted content.
Control the email content that enters the network
Minimise the business risk and cost implications of that risk
Protect users from viruses, spam and other unwanted email content
Protect internet bandwidth and email infrastructure
Protect internal resources and productivity
Protect and control users and company image
Protect and control against loss of intellectual property
Servo FREE Email Audit & Risk Assessment Premier Associates are able to offer, without obligation, a complete audit of a customers email traffic.
We have found it a useful excercise in l earn ing exactly how a customers business is faring in the battle against the latest email threats. If you wish to investigate then please contact Amie Pitt on 01629 832111.
