aspsmartupload, gravar no banco

[Wallcrawler 0]

Caros amigos do Imasters, tenho uma página que utiliza o AspSmartUpload para fazer o upload de algumas imagens para o servidor, além de criar uma pasta para cada grupo de imagens, bem como guardar essas informações no banco. O problema dela, é que hora funciona e hora não.

 

Gostaria que vcs olhassem e analizassem se a página possui algum erro de lógica / programação.

 

Obrigado:

 

ASP

[*]<!--#include file="../db_open.asp"-->

 

[*]<%

 

[*] Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

 

[*]

 

[*] mySmartUpload.DeniedFilesList = "exe,bat,asp"

 

[*]

 

[*] mySmartUpload.Upload

 

[*]

 

[*] sql2 = "select max(int_noticias) as cont from noticias"

 

[*] rs.Open sql2, conn, 3, 3

 

[*] wid = Cint(rs("cont")) + 1

 

[*]

 

[*] Dim pasta

 

[*] pasta = "\imagens_materias\" & wid

 

[*] Set objFS = Server.CreateObject("Scripting.FileSystemObject")

 

[*] If Not objFS.FolderExists(Server.MapPath(pasta)) Then

 

[*] Set F = objFS.CreateFolder(Server.MapPath(pasta))

 

[*] 'Response.Write "A pasta foi criada com sucesso"

 

[*] Else

 

[*] Response.Write "A pasta já existe e não pode ser criada"

 

[*] Response.End()

 

[*] End if

 

[*] Set objFS = Nothing

 

[*]

 

[*] For each file In mySmartUpload.Files

 

[*] If not file.IsMissing Then

 

[*]  file.SaveAs("/imagens_materias/"& wid & "/" & file.FileName)

 

[*] End If

 

[*] Next

 

[*] ' Salva as informações no banco

 

[*] Dim titulo, resumo, materia, data, fonte

 

[*] titulo = mySmartUpload.form("txt_titulo")

 

[*] resumo = mySmartUpload.form("txt_resumo")

 

[*] materia = replace(replace(mySmartUpload.form("txt_materia"), """", """), "'", "")

 

[*] data = mySmartUpload.form("dt_materia")

 

[*] fonte = mySmartUpload.form("txt_fonte")

 

[*]

 

[*] if mySmartUpload.Files.item("foto1").FileName = "" then

 

[*] Response.Write ""

 

[*] else

 

[*] URL_FOTO1 = "imagens_materias/"& wid & "/" & mySmartUpload.Files.item("foto1").FileName

 

[*] end if

 

[*] if mySmartUpload.Files.item("foto2").FileName = "" then

 

[*] Response.Write ""

 

[*] else

 

[*] URL_FOTO2 = "imagens_materias/"& wid & "/" & mySmartUpload.Files.item("foto2").FileName

 

[*] end if

 

[*] if mySmartUpload.Files.item("foto3").FileName = "" then

 

[*] Response.Write ""

 

[*] else

 

[*] URL_FOTO3 = "imagens_materias/"& wid & "/" & mySmartUpload.Files.item("foto3").FileName

 

[*] end if

 

[*]

 

[*]

 

[*] SQL = "INSERT INTO NOTICIAS(TXT_TITULO,TXT_RESUMO,TXT_MATERIA,DT_MATERIA,TXT_FONTE,URL_FOTO1,U

RL_FOTO2,URL_FOTO3) VALUES ('"& titulo & "','" & resumo &"','"& materia &"','" & Cdate(data) &"','"& fonte &"','"&URL_FOT01&"','"&URL_FOT02&"','"&URL_FOT03&"')"

 

[*] rs1.open SQL, conn

 

[*]

 

[*] Response.Redirect("noticias_listagem.asp?cadastro=ok")

 

[*]%>

 

[*]

[Wallcrawler 0]

Nota:

No trecho abaixo, na página não possui o &nbsp....

 

ASP

[*] SQL = "INSERT INTO& nbsp;NOTICIAS(TXT_TITULO,TXT_RESUMO,TXT_MATERIA,DT_MATERIA,TXT_FONTE,URL_FO

TO1,U

 

[*]RL_FOTO2,URL_FOTO3) VALUES ('"& titulo & "','" & resumo &"','"& materia &"','" & Cdate(data) &"','"& fonte &"','"&URL_FOT01&"','"&URL_FOT02&"','"&URL_FOT03&"')"

 

[*]

 

[*] rs1.open SQL, conn

 

[*]

 

[*]

 

[*]

 

[*] Response.Redirect("noticias_listagem.asp?cadastro=ok")

 

[*]

 

[*]%>

 

[*]

[Mário Monteiro 179]

esta dando algum erro??

[Wallcrawler 0]

O pior é que não aparece nenhum defeito. Simplesmente aparece "A página não pode ser exibida".Mas o problema é a intermitência do funcionamento.

[Mário Monteiro 179]

Mas o problema é a intermitência do funcionamento.

esse cara falou bonito...

 

Mas como assim só fala isso???

 

Esta habitada as mernsagens amigaveis ???