javascript don't executes

hi,

I have this server code:

Private Sub btnIgenyles_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnIgenyles.Click
        Dim db As Integer
        Dim chkbox As CheckBox
        Dim ordercode As String = ""
        For i = 0 To gdvKikuld.Rows.Count - 1
            chkbox = DirectCast(gdvKikuld.Rows(i).Cells(7).FindControl("chkBox"), CheckBox)
            If chkbox.Checked Then db = db + 1
            If db > 1 Then
                cs = Page.ClientScript
                script = "<script type=""text/javascript"">ShowMessageBox(""error"",""Egyszerre csak egy utazáshoz igényelhetsz előleget!"");</script>"
                cs.RegisterStartupScript(Me.GetType, "error1", script)
                Exit Sub
            End If
        Next
        If db = 0 Then
            cs = Page.ClientScript
            script = "<script type=""text/javascript"">ShowMessageBox(""error"",""Nem jelöltél ki egyetlen egy kiküldetést sem!"");</script>"
            cs.RegisterStartupScript(Me.GetType, "error2", script)
            Exit Sub
        End If

        For i = 0 To gdvKikuld.Rows.Count - 1
            chkbox = DirectCast(gdvKikuld.Rows(i).Cells(7).FindControl("chkBox"), CheckBox)
            If chkbox.Checked Then ordercode = gdvKikuld.Rows(i).Cells(0).Text
        Next

        sqlconn = New SqlConnection(ConfigurationManager.ConnectionStrings("sqlconnectstring").ConnectionString)
        sqlconn.Open()
        sqlcommand = New SqlCommand
        sqlcommand.Connection = sqlconn
        sqlcommand.Parameters.Clear()
        sqlcommand.Parameters.AddWithValue("@ordercode", ordercode)
        sqlcommand.Parameters.AddWithValue("@req_date", Now)
        sqlcommand.Parameters.AddWithValue("@amount", CInt(txtElolegosszeg.Text))
        sqlcommand.Parameters.AddWithValue("@curr", ddlPnem.Text)
        sqlcommand.Parameters.AddWithValue("@userid", userid)
        sqlcommand.Parameters.AddWithValue("@comment", txtIndoklas.Text)
        sqlcommand.Parameters.AddWithValue("@paym_mode", rbList.SelectedIndex)
        If rbList.SelectedIndex = 2 Then
            sqlcommand.Parameters.AddWithValue("@paym_mode2", txtEgyeb.Text)
        ElseIf rbList.SelectedIndex = 1 Then
            sqlcommand.Parameters.AddWithValue("@paym_mode2", ddlBankszlak.Text)
        Else
            sqlcommand.Parameters.AddWithValue("@paym_mode2", "")
        End If

        sqlcommand.CommandText = "select ordercode from paym_req where ordercode=@ordercode"
        sqlreader = sqlcommand.ExecuteReader
        If sqlreader.HasRows Then
            MsgBox("belép")
            cs = Page.ClientScript
            script = "<script type=""text/javascript"">ShowMessagebox(""error"",""Erre a küldetésre már igényeltél előleget. Valóban erre a kiküldetésre akarsz előleget igényelni?"");</script>"
            cs.RegisterStartupScript(Me.GetType, "error3", script)
            Exit Sub
        End If
        sqlreader.Close()

        sqlcommand.CommandText = "insert into paym_req values(@ordercode, @req_date, @amount, @curr, @userid, @comment, @paym_mode, @paym_mode2)"
        sqlcommand.ExecuteNonQuery()
        sqlconn.Close()
        btnIgenyles.Enabled = False

        cs = Page.ClientScript
        script = "<script type=""text/javascript"">ShowMessageBox(""success"",""Előlegigényedről e-mailben értesítést kapott a kiküldetést elrendelő. Nyomtasd ki az előlegigénylést, és írasd alá az elrendelővel."");$(""#nyomtatas"").show();</script>"
        cs.RegisterStartupScript(Me.GetType, "siker", script)
    End Sub

All ShowMessageBox js calls are executed at the right place, except this:

 If sqlreader.HasRows Then
            cs = Page.ClientScript
            script = "<script type=""text/javascript"">ShowMessagebox(""error"",""Erre a küldetésre már igényeltél előleget. Valóban erre a kiküldetésre akarsz előleget igényelni?"");</script>"
            cs.RegisterStartupScript(Me.GetType, "error3", script)
            Exit Sub
        End If

And yes, the sqlreader has at least one row.