Smart Upload

[natalia 0]

Oi pessoal, estou com o seguinte problema.Estou trabalhando com SUB: If Upl.Form("acao") = "CadastraNoticia" Then Call CadastraNoticia() Else Call FormNoticia() Esta página funciona perfeitamente na Locaweb, mas com Dundas ou SaFileUp. Agora que mudei o site de host, lá eles só tem o Smart Upload, eu alterei o código para usar este componente, mas agora não consigo usar a SUB. O Upl.Form("acao") vem vazio, alguém sabe pq?

[Daw 0]

Tente postar o código mais detalhado natalia...

 

Inclusive a instância do componente sua SUB.

 

Qualquer coisa tem um help no site do smartupload www.aspsmart.com

 

 

[]tz

[natalia 0]

Dei uma resumida no formulário, pq iria ficar muito grande.<%On Error Resume NextSet Upl = Server.CreateObject("aspSmartUpload.SmartUpload")If Upl.Form("acao") = "CadastraNoticia" Then Call CadastraNoticia()Else Call FormNoticia()End If %><% Sub FormNoticia() %><script language="JavaScript" type="text/javascript"><!--function submitForm() { if(document.cadastra.notTitulo.value == "") { alert("Digite o título da Noticia."); document.cadastra.notTitulo.focus(); return false; } updateRTEs(); return true;}initRTE("<%=Session("Path")%>engro-adm/Editor/images/", "", "");//--></script><form name="cadastra" method="post" action="Not-Insert.asp" onSubmit="return submitForm();" ENCTYPE="multipart/form-data"> <table width="560" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="560" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF"> <tr> <td colspan="2"> </td> </tr> <tr> <td colspan="2" align="center" bgcolor="EEECEC"> <table width="540" border="0" cellspacing="3" cellpadding="0"> <tr> <td width="91" class="Titulo3">Titulo</td> <td><input name="notTitulo" type="text" class="Adm-list" size="65"></td> </tr> <tr> <td width="91" class="Titulo3">Imagem Indice</td> <td class="Adm-Normal"><input name="notImagem" type="File" class="Adm-list" size="50"></td> </tr> </table></td> </tr> <tr> <td colspan="2" align="center" bgcolor="EEECEC"><table width="540" border="0" cellspacing="3" cellpadding="0"> <tr> <td width="560" height="25" class="Titulo2"> Resumo do conteúdo [Chamada da matéria]</td> </tr> </table></td> </tr> <tr> <td width="2%" bgcolor="EEECEC" class="Adm-Normal"> </td> <td width="98%" bgcolor="EEECEC" class="Adm-Normal"><script language="JavaScript" type="text/javascript"> <!-- <% notResumo = RTESafe(notResumo) %> //Usage: writeRichText(fieldname, html, width, height, buttons, readOnly) writeRichText('notResumo', '<%=notResumo%>', 520, 70, true, false); //--> </script></td> </tr> <tr> <td colspan="2" align="center" bgcolor="EEECEC"><table width="540" border="0" cellspacing="3" cellpadding="0"> <tr> <td width="560" height="25" class="Titulo2"> Texto completo da matéria</td> </tr> </table></td> </tr> <tr> <td bgcolor="EEECEC" class="Adm-Normal"> </td> <td bgcolor="EEECEC" class="Adm-Normal"><script language="JavaScript" type="text/javascript"> <!-- <% notTexto = RTESafe(notTexto) %> //Usage: writeRichText(fieldname, html, width, height, buttons, readOnly) writeRichText('notTexto', '<%=notTexto%>', 520, 200, true, false); //--> </script></td> </tr> <tr> <td colspan="2" align="center" bgcolor="EEECEC"><table width="0%" border="0" cellspacing="0" cellpadding="0"> <tr> <td><a href="Not-Edit.asp?acao=FormExcNoticia"><img src="<%=Session("Path")%>images/Adm-Bt-Voltar.gif" border="0"></a></td> <td><input name="image" type="image" src="<%=Session("Path")%>images/Adm-Bt-Gravar.gif" border="0"></td> <td> </td> </tr> </table></td> </tr> <tr> <td colspan="2" align="center" bgcolor="EEECEC"> </td> </tr> </table></td> </tr> </table></td> </tr></table> <input type="hidden" name="acao" value="CadastraNoticia"> </form><% End Sub %><%Sub CadastraNoticia() 'Upload da imagem. Upl.MaxFileSize = 200000 Upl.Upload For Each File In Upl.Files If not File.IsMissing Then notImagem = File.FileName File.SaveAs Server.MapPath("\Img-Noticia\" & File.FileName) End If Next sqlIns = " INSERT INTO Noticia ( "&_ " notMesCodigo, "&_ " notTitulo, "&_ " notAutor, "&_ " notRevisor, "&_ " notDtRevisor, "&_ " notEmail, "&_ " notImagem, "&_ " notResumo, "&_ " notTexto, "&_ " notUrl, "&_ " notStatus, "&_ " notDataIni, "&_ " notDataFim, "&_ " notIdioma) "&_ " VALUES ("&_ " "& validateNumber(notMesCodigo) &", "&_ " '"& Filtra(Upl.Form("notTitulo")) &"', "&_ " '"& Filtra(Upl.Form("notAutor")) &"', "&_ " '"& Filtra(Upl.Form("notRevisor")) &"', "&_ " '"& notDtRevisor &"', "&_ " '"& Filtra(Upl.Form("notEmail")) &"', "&_ " '"& notImagem &"', "&_ " '"& Filtra(Upl.Form("notResumo")) &"', "&_ " '"& Filtra(Upl.Form("notTexto")) &"', "&_ " '"& notUrl &"', "&_ " "& validateNumber(Upl.Form("notStatus")) &", "&_ " '"& notDataIni &"', "&_ " '"& notDataFim &"', "&_ " 'PT') " Conexao.Execute(sqlIns) Response.Write "Registro cadastrado com sucesso." %> <meta http-equiv="refresh" content="1;URL=Not-Edit.asp"><% Set rsIns = Nothing Set Upload = Nothing End Sub %>

[arr 0]

Ptz, dei uma olhada no site e saiu de linha o componente...

 

No SmartUpload você tem que chamar o método upload antes do request se não me engano.

Ficaria assim:

Set Upl = Server.CreateObject("aspSmartUpload.SmartUpload")upl.uploadIf Upl.Form("acao") = "CadastraNoticia" ThenCall CadastraNoticia()ElseCall FormNoticia()End If

E comenta esse on error resume next para debugar que é melhor.

[natalia 0]

E não é que era isso mesmo. Brigadão!