<% '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

  Send this article to a colleague  Print this article
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.