Aquí tienes algo muy semejante a lo que te dice triqui solo que en funcion, de manera que podrás reutilizarla.
Código ASP:
Ver original'Esta funcion se encarga de crear un message box para el usuario
'Fue modificada y refactorizada de su versión original 1.0
'Su utilización es de la siguiente forma: CreateMessageAlert(me,"Mensaje a enviar",strkey1)
Public Shared Sub CreateMessageAlert(ByRef aspxPage As Page, ByVal message As String, ByVal strKey As String)
Dim strScript As String = "<script language=JavaScript>alert('" & message & "')</script>"
With aspxPage
With .ClientScript
If (Not .IsStartupScriptRegistered(strKey)) Then
.RegisterStartupScript(.GetType, strKey, strScript)
End If
End With
End With
End Sub
Y la llamas así
Código ASP:
Ver originalclase.CreateMessageAlert(Me.Parent, existcategory, "strKey1")