Problema Com Upload Multiplos

[kabulozo 0]

E ae galera, beleza?To fazendo um sisteminha de Upload(com ASPUpload) de imagens, e na página é possível mandar até 5 imagens por vez.Eele ta fazendo o upload tudo certinho, ae pra passar o nome dos arquivos pro bd eu fiz da seguinte maneira:

cont = 1Do while cont < 6str_Fotos = Upload.Files(cont).ExtractFileNamesql = "INSERT INTO "sql = sql & " adm_fotos "sql = sql & " (adm_age_id,adm_cob_id,adm_fot_fot) "sql = sql & " VALUES "sql = sql & " ("&int_idEvento&","&int_idCobertura&",'"&str_Fotos&"') "con.Execute(sql)cont = cont + 1Loop

Uso o MySQL, e ele ta gravando corretamente no banco, mas aparece a seguinte mensagem de erro na página:

Tipo de erro:Objeto Response, ASP 0185 (0x80020003)Não foi encontrada uma propriedade padrão do objeto./fnb/adm/pc_fotos.aspTipo de navegador: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 2.0.50727) Página: POST 732976 bytes to /fnb/adm/pc_index.aspPOST Data:erro '80020009' Exceção. /iisHelp/common/500-100.asp, line 223

O que está errado, se ele está gravando corretamente no bd e fazendo o upload dos arquivos corretamente??Desde já agradeço pela atenção.Vlw

[kabulozo 0]

Ninguem por aqui pode me ajudar com esse problema??? :blink: :( http://forum.imasters.com.br/public/style_emoticons/default/cry.gif

[Salgado 4]

Como está o código completo? O erro é uma propriedade errada num Response.

[kabulozo 0]

Segue abaixo o código completo da pagina pc_fotos.asp

<link href="css/pc_modelo.css" rel="stylesheet" type="text/css"><!--#Include file="connection/conecta.asp"--><table width="550" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td valign="top"><p class="pTitulos">FOTOS</p> <hr width="550" size="1" noshade> <p> </p><% str_Envia = Request("Envia") If str_Envia = "Sim" Then int_idEvento = Request("idEvento") int_idCobertura = Request("idCobertura") Conecta() sql = "SELECT "&_ " adm_age_eve,adm_age_dat "&_ " FROM "&_ " adm_agenda "&_ " WHERE "&_ " adm_age_id = "&int_idEvento&" " Set rs = con.Execute(sql) str_Evento = rs("adm_age_eve") int_DatDia = Day(rs("adm_age_dat")) int_DatMes = Month(rs("adm_age_dat")) int_DatAno = Year(rs("adm_age_dat")) str_DatDia = int_DatDia If str_DatDia < 10 Then str_DatDia = "0" & int_DatDia Else str_DatDia = int_DatDia End If str_DatMes = int_DatMes If str_DatMes < 10 Then str_DatMes = "0" & int_DatMes Else str_DatMes = int_DatMes End If Set rs = Nothing Set sql = Nothing Set Upload = Server.CreateObject("Persits.Upload") Count = Upload.Save(Server.MapPath("../eventos/" &str_Evento&str_DatDia&str_DatMes&int_DatAno& "/fotos/")) cont = 1 Do while cont < 6 str_Fotos = Upload.Files(cont).ExtractFileName sql = "INSERT INTO " sql = sql & " adm_fotos " sql = sql & " (adm_age_id,adm_cob_id,adm_fot_fot) " sql = sql & " VALUES " sql = sql & " ("&int_idEvento&","&int_idCobertura&",'"&str_Fotos&"') " con.Execute(sql) cont = cont + 1 Loop Desconecta() Set int_idEvento = Nothing Set str_Evento = Nothing Set int_DatDia = Nothing Set int_DatMes = Nothing Set int_DanAno = Nothing Set str_DatDia = Nothing Set str_DatMes = Nothing Set Upload = Nothing%> <p> </p> <p align="center"><strong>OS DADOS FORAM INSERIDOS COM SUCESSO!</strong></p> <p> </p> <p align="center"><strong><a href="pc_index.asp?area=Fotos&subsecao=Adicionar&Envia=Sim&idEvento=<%=int_idEvento%>&idCobertura=<%=int_idCobertura%>">CLIQUE AQUI</a> PARA ENVIAR MAIS FOTOS!</strong></p> <p> </p> </td> </tr></table><% Else int_idEvento = Request("idEvento") int_idCobertura = Request("idCobertura")%> <p> </p> <form action="pc_index.asp?area=Fotos&subsecao=Adicionar&Envia=Sim&idEvento=<%=int_idEvento%>&idCobertura=<%=int_idCobertura%>" method="post" enctype="multipart/form-data" name="AD_FLYER" id="AD_FLYER"> <input type="hidden" name="Envia" value="Sim"> <table width="320" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td width="110" height="20"><p align="right"><strong>FOTO 1:</strong></p> </td> <td height="20" class="pCampo"><p class="pCampo"> <input name="file" type="file" id="file"> </p> </td> </tr> <tr> <td height="20"><p align="right"><strong>FOTO 2:</strong></p> </td> <td height="20" class="pCampo"><p class="pCampo"> <input type="file" name="file"> </p> </td> </tr> <tr> <td height="20"><p align="right"><strong>FOTO 3:</strong></p> </td> <td height="20" class="pCampo"><p class="pCampo"> <input type="file" name="file"> </p> </td> </tr> <tr> <td height="20"><p align="right"><strong>FOTO 4:</strong></p> </td> <td height="20" class="pCampo"><p class="pCampo"> <input type="file" name="file"> </p> </td> </tr> <tr> <td height="20"><p align="right"><strong>FOTO 5:</strong></p> </td> <td height="20" class="pCampo"><p class="pCampo"> <input type="file" name="file"> </p> </td> </tr> <tr> <td height="30" colspan="2"><p align="center"> <input type="submit" name="Submit" value="Enviar"> </p> </td> </tr> </table></form> <p> </p> </td> </tr></table><% Set int_idEvento = Nothing Set int_idCobertura = Nothing End If Set str_Envia = Nothing%>

Ta ae, espero que possam me ajudar....

[kabulozo 0]

Achei o erro... vacilo meu... o problema tava aki

 

Set int_idEvento = Nothing

Set str_Evento = Nothing

 

<p align="center"><strong><a href="pc_index.asp?area=Fotos&subsecao=Adicionar&Envia=Sim&idEvento=<%=int_idEvento%>&idCobertura=<%=int_idCobertura%>">CLIQUE AQUI</a> PARA ENVIAR MAIS FOTOS!</strong></p>

Declarei Nothing para a variavel sendo que eu estava usando ela depois.

 

Aproveitando, é obrigado a declarar Nothing a todas as Variaveis usadas na página, ou só quando essas Variaveis são criadas com o comando Set...... ????

 

Vlw

[Salgado 4]

Só destruir os SETados.