Public Sub CreateMessageAlert(ByVal strMessage As String, ByVal strKey As _
      String)
        Dim strScript As String = "<script language=JavaScript>alert('" _
                                            & strMessage & "')</script>"
 
        ScriptManager.RegisterStartupScript(Me.Page, Me.GetType, strKey, _
          strScript, True)
 
    End Sub

    If EditMode = 0 Then        'Insert
            Dim wert As Long
 
            wert = BL.InsertProduct(MyProduct)
 
            If wert <> False Then
                CreateMessageAlert("Das Produkt wurde erfolgreich eingefügt!", _
                  "MsgInserted")
                Response.Redirect("~/Pages/addproducts.aspx?PID=" + _
                wert.ToString + "&EM=1")
            Else
                'MsgBox("Fehler beim Speichern des Produkts!", 
                ' MsgBoxStyle.MsgBoxSetForeground + MsgBoxStyle.Critical)
            End If
        ElseIf EditMode = 1 Then    'Edit
 
            If BL.UpdateMyProduct(MyProduct, prolong) Then
                CreateMessageAlert("Das Produkt wurde erfolgreich" & _
                  "gespeichert!", "MsgSaved")
                Response.Redirect("~/Pages/addproducts.aspx?EM=1&PID=" + _
                Me.pProductID.Text)
            Else
                'MsgBox("Fehler beim Speichern des Produkts!", 
                ' MsgBoxStyle.MsgBoxSetForeground + MsgBoxStyle.Critical)
            End If
        End If

Ciao

J?rgen

PS: geht nicht gibt's nicht