<% dim loHTML loHTML = session("WebCAL_SH") if instr(1, loHTML, "("&request("IDEvent")&")")= 0 then loHTML = loHTML & "("&request("IDEvent")&")" else loHTML = replace(loHTML,"("&request("IDEvent")&")","") end if session("WebCAL_SH") = loHTML %>