or

| Public Shared Sub NonAjaxAlert(ByVal message As String, ByVal AlertTitle As String, Optional ByVal UserName As String = "") |
| Try |
| Dim scriptString As String = String.Empty |
| Dim exPage As Page = HttpContext.Current.CurrentHandler |
| scriptString = "(function(){var f = function(){radalert('" & message & "',null,null,'" & AlertTitle & "');Sys.Application.remove_load(f);};Sys.Application.add_load(f);})()" |
| ScriptManager.RegisterStartupScript(exPage, exPage.GetType(), "radalert", scriptString, True) |
| Catch ex As Exception |
| 'Generic Error routine to log errors |
| End Try |
| End Sub |

<AppointmentTemplate>
<div class= <%# Eval("Attributes['ClassTag']") %>
onclick="MyClickEvent("<%# Eval("Attributes['resource_name']") %>")" >
</div>
</AppointmentTemplate>
Any guidance appreciated.
Cheers
Paul