Public Sub CreateMessageAlert(ByVal strMessage As String, ByVal strKey As _
  String, ByVal JumpTo As String)
        Dim strScript As String = "<script language=""javascript""" & _
        "type=""text/javascript"">alert('" & strMessage & "')"
        If JumpTo <> "" Then
            strScript += ";window.location.href = '" + JumpTo + "'"
        End If
        strScript += "</script>"
 
        ScriptManager.RegisterStartupScript(Me.Page, Me.GetType, strKey, _
          strScript, False)
 
    End Sub

Ciao

J?rgen

PS: geht nicht gibt's nicht