Hi,

Can someone please help?

I have 2 functions. The one function called CheckImg receives a variable with a value such as img=imgpath.
The other function called Update calls the CheckImg function such as:
<code>
Function Update()
Sub Update()

        CheckImg()
        Dim strUpdate As String = "update ybay_mdb...CATS T1 LEFT JOIN CATS T2 ON T1.CAT_ID=T2.CAT_ID SET CAT_NAME=@cat_name, CAT_IMAGE=@cat_image, cat_type=@cat_type WHERE T2.CAT_ID=@CAT_ID"
        Dim CMD As New SqlCommand(strUpdate, oConn)
        CMD.Parameters.Add("@cat_name", txtName.Text.Trim)
        CMD.Parameters.Add("@cat_image", img)
        CMD.Parameters.Add("@cat_type", drpType.SelectedValue)

        oConn.Open()
        CMD.ExecuteNonQuery()
        oConn.Close()
    End Sub
end Function
</code>

However, when i debug Update i see that img is nothing although in checkimg it does receive the correct value. How can i make the img in Checkimg also available in Update?

Thanks in advance.

Hi,

Are you putting a subroutine inside a function? This will generate errors. If this isn't the case, then are you returning anything from the CheckImg Function?

J

HI,

Thanks for the reply. I made a few mistakes i see with my posting.
By mistake i added sub update.

Here is my code:
cat_id i get from the querystring.
<code>
  Sub Update()

        CheckImg()
        Dim strUpdate As String = "update ybay_mdb...CATS T1 LEFT JOIN CATS T2 ON T1.CAT_ID=T2.CAT_ID SET CAT_NAME=@cat_name, CAT_IMAGE=@cat_image, cat_type=@cat_type WHERE T2.CAT_ID=@CAT_ID"
        Dim CMD As New SqlCommand(strUpdate, oConn)
        CMD.Parameters.Add("@cat_name", txtName.Text.Trim)
        CMD.Parameters.Add("@cat_image", img)
        CMD.Parameters.Add("@cat_type", drpType.SelectedValue)

        oConn.Open()
        CMD.ExecuteNonQuery()
        oConn.Close()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Request.QueryString("cat_id") <> "" Then
            Update()
        Else
            NewCat()
        End If

    End Sub
    Sub CheckImg()

        Dim myExt As String = Path.GetExtension(filMyFile.PostedFile.FileName)
        If (filMyFile.PostedFile.FileName <> "") Then
            Dim imgName As String = Path.GetFileNameWithoutExtension(filMyFile.PostedF ile.FileName)

            Dim imgExt As String = myExt

            img = imgName + imgExt
            If (filMyFile.PostedFile.ContentLength > maxfilelen * 1024) Then
                Response.Write("úîåðä âãåìä îãé")
                Exit Sub
            Else
                If myExt.ToLower <> ".gif" And myExt.ToLower <> ".jpg" And myExt.ToLower <> ".jpeg" And myExt.ToLower <> ".bmp" And myExt.ToLower <> ".html" And myExt.ToLower <> ".htm" Then
                    Response.Write(" ðà äëðñ ÷åáõ îúàéí (.jpg,jpeg,bmp,gif,htm,html)")
                    Exit Sub

                Else

                    upldimg(imgName, imgExt)

                End If

            End If
        Else


            Dim imgExt As String = Image1.ImageUrl.Split("/assets/")(4)

            img = imgext


        End If
</code>

HI,

I found my problem. Instead of using Functions i used Subs.