upload e gravar no bd

[Ghean 0]

Como faço para fazer um upload e gravar o nome da imagem no bd (access) procurei por algo parecido mas só achei para php. http://forum.imasters.com.br/public/style_emoticons/default/blush.gif

[4P. 0]

Esse é um script que montei.Espero que ajude.Sub add_imagempt_upload = Server.MapPath("../imgs/Uploads/")pt_upload2 = Server.MapPath("../imgs/noticia")' conexão com o asp-uploadSet Upload = Server.CreateObject("Persits.Upload")' Limite do upload 819200 bytes ou seja 800kb / 1kb = 1024 bytesUpload.SetMaxSize 819200, True' Intercepte todas as exceções para indicar o erro amigável do usuárioOn Error Resume Next'Não iginore nenhum postUpload.IgnoreNoPost = True'Salva o arquivoCount = Upload.Save(pt_upload)' Verifica se o upload esta vazio If Err.Number = 8 Then session("status") = strUploadMaxSize response.redirect("../adm/new_img_not.asp") Else ' 8 é o número da "da exceção caso o arquivo seja muito grande" ' Verifica se o arquivo e mair que o tamanho definido If Count = 0 Then Session("status") = strUploadEmpty response.redirect("../adm/new_img_not.asp") Else 'Verifica se existe mais algum erro If Err <> 0 Then session("status") = "Ocorreu um erro: " & Err.Description response.redirect("../adm/new_img_not.asp") Else Set File = Upload.Files("file") FileTemp = File.filename ' nome do arquivo FileExt = File.Ext FileExt = Lcase(FileExt) mprefix = "not_" NewFile01 = mprefix & Session("id") & File.Ext If FileExt = ".jpg" or FileExt = ".gif" then File.SaveAS(pt_upload &"\"& FileTemp) 'Upload da imagem grande + redimensionamento File.SaveAS(pt_upload2 &"\"& NewFile01) Set Jpeg = Server.CreateObject("Persits.Jpeg") Pathss = pt_upload2 &"\"& NewFile01 Jpeg.Open Pathss If jpeg.OriginalWidth > jpeg.OriginalHeight Then if jpeg.OriginalWidth > 640 then Jpeg.Width = 640 jpeg.Height = jpeg.OriginalHeight * 640 / jpeg.OriginalWidth End if Else if jpeg.OriginalHeight = 480 then jpeg.Height = 480 jpeg.Width = jpeg.OriginalWidth * 480 / jpeg.OriginalHeight End if End If Jpeg.Save(pt_upload2 &"/"& NewFile01) Dim ExFile Set ExFile = CreateObject("Scripting.FileSystemObject") Set DelF = ExFile.GetFile(pt_upload &"\"& FileTemp) DelF.Delete sql="Update "&tabela&" Set imagem='"&NewFile01&"' Where id="&Session("id") ConnBase.Execute(sql) session("status")=session("atu")&"Imagem da notícia gravada com sucesso!" Session.Contents.Remove("id") Session.Contents.Remove("atu") response.Redirect("../adm/end_noticia.asp") Else response.Write("jpg") session("status") = strUploadinvalido file.delete response.redirect("../adm/new_img_not.asp") End If End If End If End IfEnd Sub