Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

valdo

fazendo o update

Recommended Posts

caro Darko,muito legal esse código, testei e deu certinho...Como fazer um update com esse código, ou seja como posso adaptar o código para que eu faça ediçaõ dos arquivos?<%Set Upload = Server.CreateObject("Persits.Upload.1")'Upload.OverwriteFiles = False'On Error Resume Next'Upload.SetMaxSize 1048576 ' Limit files to 1MBCount = Upload.Save("D:\Inetpub\html\teste\pastadasfotos")%><% = Count %> FOTO ENVIADA<%Dim objConn, objRs, strQuery, strConnection, titulo, conteudo, fototitulo = Upload.form("titulo")conteudo = Upload.form("conteudo")Set File = Upload.Files(1)If File.ImageType = "GIF" or File.ImageType = "JPG" or File.ImageType = "PNG" Thenfoto = File.FileNameEnd IfSet objConn = Server.CreateObject("ADODB.Connection")objConn.Open "DBQ=D:\Inetpub\teste\Db1.mdb" & ";Driver={Microsoft Access Driver (*.mdb)}"strQuery = "INSERT INTO noticias (titulo,conteudo,foto) VALUES ('"&titulo&"','"&conteudo&"','"&foto&"')"On error Resume NextSet ObjRs = objConn.Execute(strQuery)objConn.closeSet objRs = NothingSet objConn = Nothingif err = 0 Thenresponse.redirect "ok.htm"end if%>

Compartilhar este post


Link para o post
Compartilhar em outros sites

Laboratório de scripts (ASP) http://forum.imasters.com.br/public/style_emoticons/default/seta.gif ASP

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.