<% '--------------------------- 'Variables and Class Instantiation '--------------------------- set CLASS_cLink = new CLink dim intCount '--------------------------- 'Actions '--------------------------- Select Case lcase(PARAM.Action) Case "clickthrough" CLASS_cLink.LoadFromID(PARAM.ID) intCount = CLASS_cLink.Clickthrough intCount = intCount +1 CLASS_cLink.Clickthrough = intCount CLASS_cLink.StoreData Case "hit" CLASS_cLink.LoadFromID(PARAM.ID) intCount = CLASS_cLink.hits intCount = intCount +1 CLASS_cLink.hits = intCount CLASS_cLink.StoreData End Select '--------------------------- 'Clean Up '--------------------------- set CLASS_cLink = nothing %>