Escrevi código para realizar upload de imgs e exibí-las em grid, dá a
mensagem de sucesso, mas qdo procuro a img na pasta ela não esta... o que
posso fazer???

O código esta abaixo.. Por favor me ajudem...
----------------------------------------------------------------------------------------------
Sub upload (Sender as Object, e as EventArgs)
        Dim strNomeArquivo as string
        strNomeArquivo = MyFile.PostedFile.FileName
        Dim NomeArquivo as string = System.IO.Path.GetFileName(strNomeArquivo)

        Try
            MyFile.PostedFile.SaveAs("c:\InetPub\wwwroot\Sepla ntec\Siag\Imagens\upload\" + Request.Cookies("SIAG_ISN_PROJETO").value + "_" + NomeArquivo)
            vsg_Isn_Tabela = vog_Conexao.ExecSQl("Select S_ACOMP_PROJETO_IMG.nextval
as ISN_TABELA From dual ", "ISN_TABELA").ToString()
            vsl_Sql = "Insert Into T_ACOMP_PROJETO_IMG ("
            vsl_Sql += " ISN_ACOMP_PROJETO_IMG, "
            vsl_Sql += " ISN_PROJETO, "
            vsl_Sql += " ISN_ACOMP_PROJETO, "
            vsl_Sql += " COD_MES, "
            vsl_Sql += " DSC_PATH_ARQUIVO, "
            vsl_Sql += " DSC_ARQUIVO) "
            vsl_Sql += " values "
            vsl_Sql += "(" & vsg_Isn_Tabela & ","
            vsl_Sql += "" & Request.Cookies("SIAG_ISN_PROJETO").value & ","
            vsl_Sql += "" & Request.Cookies("SIAG_ISN_ACOMP_PROJETO").value & ","
            vsl_Sql += "" & ddl_COD_MES.selecteditem.value & ","
            vsl_Sql += "'" & "c:\InetPub\wwwroot\Seplantec\Siag\Imagens\upload\ " +
Request.Cookies("SIAG_ISN_PROJETO").value + "_" + NomeArquivo & "',"
            vsl_Sql += "'" & NomeArquivo & "') "
            if vog_Conexao Is Nothing Then
                vog_Conexao = New Conexao()
            End If

            lbl_Mensagem.text = vog_Conexao.ExecSQl(vsl_Sql)
            If instr(1,lbl_Mensagem.text,"ORA-00001") > 0 then
                lbl_Mensagem.text = "Informação duplicada"
            End if
            lbl_UPLOAD_ARQ.text = "Enviada com sucesso"
        catch Exp as exception

                lbl_UPLOAD_ARQ.text = "Erro no envio."

        End Try
        pc_monta_dtg_Img()
        MyBase.Page_Load(Sender,E)
    End Sub



Wagner Oliveira