%
'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
%>
Servo sign up to become a VMWare VIP partner
Servo sign up to become a VMWare VIP partner
For some time now, our customers
have discussed the benefits of virtualisation as a tool to either reduce server estate, disaster recovery or to create development environments.
This was most noticeable for some customers who were migrating from NT 4 server due to Microsoft pulling support.
Virtual infrastructure provides a layer of abstraction between the computing, storage and networking hardware, and the software that runs on it. Virtual infrastructure simplifies IT so companies leverage their storage, network, and computing resources to control costs and respond faster. In a virtual infrastructure, users see resources as if they were dedicated to them. The administrator manages and optimizes resources globally across the enterprise.
How Can VMware Help You?
VMware helps enterprises lower costs, respond faster and deliver flexible and consistent IT .
Lower Costs
You don't pay for what you don't need
You get more out of your IT investment dollars
Easier to separate the strategic IT investments from the commodity IT functions
Respond faster to business demand
Integration with partners and customers is easier
Expansion or M&A activities can happen faster
Resources can be deployed or moved quickly to the business units that need them
Deliver IT that's more flexible and consistent
Leverages technologies you are already investing in: SAN, vLAN
Gives you lower-cost platform options
It lowers risk and increases responsiveness
If you require any more information please contact your account manager, visit www.vmware.com or call 01629 832111 and ask to speak to a presales consultant.