RGX

Galera, blz? Estou precisando de um help pra configurar o componente SaFileUp na minha página de inserção. Sempre funcionou bem a minha aplicação, até trocar de provedor. Atualmente o código ainda funciona, mas com a limitação de 3mb pra upload. Acima disso não vai de jeito algum. Já entrei no manual do componente e mesmo assim ainda não consegui fazer funcionar. Até consigo efetuar o upload, mas o mesmo não grava no bd. Abaixo segue o código da minha página:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
response.buffer = true
server.scriptTimeout = 3600
%>

<!-- #include file="../../includes/wdg/WDG.asp" -->
<!--#include file="../../Connections/noticias.asp" -->
<!--#include file="../../includes/common/KT_common.asp" -->
<!--#include file="../../includes/nxt/KT_back.asp" -->
<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers=""
MM_authFailedURL="../login2.asp"
MM_grantAccess=false
If Session("MM_Username") <> "" Then
  If (true Or CStr(Session("MM_UserAuthorization"))="") Or _
         (InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then
    MM_grantAccess = true
  End If
End If
If Not MM_grantAccess Then
  MM_qsChar = "?"
  If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&"
  MM_referrer = Request.ServerVariables("URL")
  if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString()
  MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer)
  Response.Redirect(MM_authFailedURL)
End If
%>
<!--#include file="../../includes/tNG/tNG.inc.asp" -->
<!-- #INCLUDE file="fckeditor.asp" -->

<%
'Make a transaction dispatcher instance
Dim tNGs: Set tNGs = new tNG_dispatcher
tNGs.Init "../../"
%>
<%
' Start trigger
Dim formValidation: Set formValidation = new tNG_FormValidation
formValidation.Init
tNGs.prepareValidation formValidation
' End trigger
%>
<%
'start Trigger_FileDelete trigger
'remove this line if you want to edit the code by hand
Function Trigger_FileDelete (ByRef tNG)
  Dim deleteObj: Set deleteObj = new tNG_FileDelete
  deleteObj.Init tNG
  deleteObj.setFolder "../../fotos/"
  deleteObj.setDbFieldName "Imagem"
  Set Trigger_FileDelete = deleteObj.Execute()
End Function
'end Trigger_FileDelete trigger
%>
<%
'start Trigger_FileUpload trigger
'remove this line if you want to edit the code by hand 
Function Trigger_FileUpload (ByRef tNG)
  Dim uploadObj: Set uploadObj = new tNG_FileUpload
  uploadObj.Init tNG
  uploadObj.setFormFieldName "Imagem"
  uploadObj.setDbFieldName "Imagem"
  uploadObj.setFolder "../../fotos/"
  uploadObj.setMaxSize 50000
  uploadObj.setAllowedExtensions "swf, flv, gif, jpg"
  uploadObj.setRename "auto"
  Set Trigger_FileUpload = uploadObj.Execute()
End Function
'end Trigger_FileUpload trigger
%>
<%
'start Trigger_FileUpload1 trigger
'remove this line if you want to edit the code by hand 
Function Trigger_FileUpload1 (ByRef tNG)
  Dim uploadObj: Set uploadObj = new tNG_FileUpload
  uploadObj.Init tNG
  uploadObj.setFormFieldName "Miniaturas"
  uploadObj.setDbFieldName "Miniaturas"
  uploadObj.setFolder "../../fotos/thumbnails/"
  uploadObj.setMaxSize 50000
  uploadObj.setAllowedExtensions "swf, flv, gif, jpg"
  uploadObj.setRename "auto"
  Set Trigger_FileUpload1 = uploadObj.Execute()
End Function
'end Trigger_FileUpload1 trigger
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
rstbl_noticias_numRows = rstbl_noticias_numRows + Repeat1__numRows
%>
<%
' Make an insert transaction instance 
Dim ins_tbl_noticias: Set ins_tbl_noticias = new tNG_multipleInsert
ins_tbl_noticias.init MM_noticias_STRING
tNGs.addTransaction ins_tbl_noticias
' Register triggers
ins_tbl_noticias.registerTrigger Array("STARTER", "Trigger_Default_Starter", 1, "POST", "KT_Insert1")
ins_tbl_noticias.registerTrigger Array("BEFORE", "Trigger_Default_FormValidation", 10, formValidation)
ins_tbl_noticias.registerTrigger Array("END", "Trigger_Default_Redirect", 99, "../../includes/nxt/back.asp")
ins_tbl_noticias.registerTrigger Array("AFTER", "Trigger_FileUpload", 97)
ins_tbl_noticias.registerTrigger Array("AFTER", "Trigger_FileUpload1", 97)
' Add columns
ins_tbl_noticias.setTable "tbl_noticias"
ins_tbl_noticias.addColumn "Titulo", "STRING_TYPE", "POST", "Titulo", ""
ins_tbl_noticias.addColumn "Noticia", "STRING_TYPE", "POST", "Noticia", ""
ins_tbl_noticias.addColumn "Fonte", "STRING_TYPE", "POST", "Fonte", ""
ins_tbl_noticias.addColumn "Imagem", "FILE_TYPE", "FILES", "Imagem", ""
ins_tbl_noticias.addColumn "Miniaturas", "FILE_TYPE", "FILES", "Miniaturas", ""
ins_tbl_noticias.addColumn "Data", "DATE_TYPE", "POST", "Data", ""
ins_tbl_noticias.addColumn "Hora", "DATE_TYPE", "POST", "Hora", ""
ins_tbl_noticias.setPrimaryKey "Id", "NUMERIC_TYPE", "", ""
%>
<%
' Make an update transaction instance
Dim upd_tbl_noticias: Set upd_tbl_noticias = new tNG_multipleUpdate
upd_tbl_noticias.init MM_noticias_STRING
tNGs.addTransaction upd_tbl_noticias
' Register triggers
upd_tbl_noticias.registerTrigger Array("STARTER", "Trigger_Default_Starter", 1, "POST", "KT_Update1")
upd_tbl_noticias.registerTrigger Array("BEFORE", "Trigger_Default_FormValidation", 10, formValidation)
upd_tbl_noticias.registerTrigger Array("END", "Trigger_Default_Redirect", 99, "../../includes/nxt/back.asp")
upd_tbl_noticias.registerTrigger Array("AFTER", "Trigger_FileUpload", 97)
upd_tbl_noticias.registerTrigger Array("AFTER", "Trigger_FileUpload1", 97)
' Add columns
upd_tbl_noticias.setTable "tbl_noticias"
upd_tbl_noticias.addColumn "Titulo", "STRING_TYPE", "POST", "Titulo"
upd_tbl_noticias.addColumn "Noticia", "STRING_TYPE", "POST", "Noticia"
upd_tbl_noticias.addColumn "Fonte", "STRING_TYPE", "POST", "Fonte"
upd_tbl_noticias.addColumn "Imagem", "FILE_TYPE", "FILES", "Imagem"
upd_tbl_noticias.addColumn "Miniaturas", "FILE_TYPE", "FILES", "Miniaturas"
upd_tbl_noticias.addColumn "Data", "DATE_TYPE", "POST", "Data"
upd_tbl_noticias.addColumn "Hora", "DATE_TYPE", "POST", "Hora"
upd_tbl_noticias.setPrimaryKey "Id", "NUMERIC_TYPE", "GET", "Id"
%>
<%
' Make a delete transaction instance
Dim del_tbl_noticias: Set del_tbl_noticias = new tNG_multipleDelete
del_tbl_noticias.init MM_noticias_STRING
tNGs.addTransaction del_tbl_noticias
' Register triggers
del_tbl_noticias.registerTrigger Array("STARTER", "Trigger_Default_Starter", 1, "POST", "KT_Delete1")
del_tbl_noticias.registerTrigger Array("END", "Trigger_Default_Redirect", 99, "../../includes/nxt/back.asp")
del_tbl_noticias.registerTrigger Array("AFTER", "Trigger_FileDelete", 98)
' Add columns
del_tbl_noticias.setTable "tbl_noticias"
del_tbl_noticias.setPrimaryKey "Id", "NUMERIC_TYPE", "GET", "Id"
%>
<%
'Execute all the registered transactions
tNGs.executeTransactions
%>
<%
'Get the transaction recordset
Dim rstbl_noticias
Dim rstbl_noticias_numRows

Set rstbl_noticias = tNGs.getRecordset("tbl_noticias")
rstbl_noticias_numRows = 0
%>
<%
Dim rstbl_noticias_total
rstbl_noticias_total = KT_getNumberOfRows(rstbl_noticias)
%>
<html xmlns:wdg="http://ns.adobe.com/addt">
<head>
<title>Clipping Sos Card</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="../../includes/skins/mxkollection3.css" rel="stylesheet" type="text/css" media="all" />
<script src="../../includes/common/js/base.js" type="text/javascript"></script>
<script src="../../includes/common/js/utility.js" type="text/javascript"></script>
<script src="../../includes/skins/style.js" type="text/javascript"></script>
<% Response.Write tNGs.displayValidationRules()%>
<script src="../../includes/nxt/scripts/form.js" type="text/javascript"></script>
<script src="../../includes/nxt/scripts/form.js.asp" type="text/javascript"></script>
<script src="../../SpryAssets/SpryValidationTextField.js" type="text/javascript"></script>
<script type="text/javascript">
$NXT_FORM_SETTINGS = {
  duplicate_buttons: false,
  show_as_grid: true,
  merge_down_value: true
}
</script>
<script type="text/javascript" src="../../includes/common/js/sigslot_core.js"></script>
<script src="../../includes/common/js/base.js" type="text/javascript"></script>
<script src="../../includes/common/js/utility.js" type="text/javascript"></script>
<script type="text/javascript" src="../../includes/wdg/classes/MXWidgets.js"></script>
<script type="text/javascript" src="../../includes/wdg/classes/MXWidgets.js.asp"></script>
<script type="text/javascript" src="../../includes/wdg/classes/Calendar.js"></script>
<script type="text/javascript" src="../../includes/wdg/classes/SmartDate.js"></script>
<script type="text/javascript" src="../../includes/wdg/calendar/calendar_stripped.js"></script>
<script type="text/javascript" src="../../includes/wdg/calendar/calendar-setup_stripped.js"></script>
<script src="../../includes/resources/calendar.js"></script>
<link href="../../includes/skins/mxkollection3.css" rel="stylesheet" type="text/css" media="all" />
<link href="../../SpryAssets/SpryValidationTextField.css" rel="stylesheet" type="text/css">
</head>

<body>
<%
	Response.Write tNGs.getErrorMsg()
%>
<div class="KT_tng">
  <h1>
    <%
' Show IF Conditional region1 
  If Request.QueryString("Id") = "" Then
%>
      <%=NXT_getResource("Insert_FH")%>
      <%
' else Conditional region1
  Else %>
      <%=NXT_getResource("Update_FH")%>
      <%
  End If
' End Conditional region1
%>
    Not&iacute;cia</h1>
  <div class="KT_tngform">
    <form method="post" id="form1" action="<%= KT_escapeAttribute(KT_getFullUri()) %>" enctype="multipart/form-data">
      <% cnt1 = 0 %>
      <% 
While ((Repeat1__numRows <> 0) AND (NOT rstbl_noticias.EOF)) 
%>
        <% cnt1 = cnt1 + 1 %>
        <% tNGs.SetCounter cnt1 %>
        <%
' Show IF Conditional region1 
  If rstbl_noticias_total > 1 Then
%>
          <h2><%=NXT_getResource("Record_FH")%> <%=cnt1%></h2>
          <%
  End If
' End Conditional region1
%>
        <table cellpadding="2" cellspacing="0" class="KT_tngtable">
          <tr>
            <td class="KT_th"><label for="Titulo_<%= cnt1 %>">Titulo:</label></td>
            <td><input type="text" name="Titulo_<%= cnt1 %>" id="Titulo_<%= cnt1 %>" value="<%=(KT_escapeAttribute(rstbl_noticias.Fields.Item("Titulo").Value))%>" size="100" />
              <%=(tNGs.displayFieldHint("Titulo"))%> <%=(tNGs.displayFieldError("tbl_noticias", "Titulo"))%></td>
          </tr>
          <tr>
            <td class="KT_th"><label for="Noticia_<%= cnt1 %>">Noticia:</label></td>
            <td><%
Dim sBasePath, svalordocampo
sBasePath = Request.ServerVariables("PATH_INFO")
sBasePath = Left( sBasePath, InStrRev( sBasePath, "/_samples" ))
svalordocampo = rstbl_noticias("Noticia")
Dim oFCKeditor
Set oFCKeditor = New FCKeditor
oFCKeditor.BasePath = sBasePath
oFCKeditor.Value = svalordocampo
oFCKeditor.Create "Noticia"
%>
            <%=(tNGs.displayFieldHint("Noticia"))%> <%=(tNGs.displayFieldError("tbl_noticias", "Noticia"))%></td>
          </tr>
          <tr>
            <td class="KT_th"><label for="Fonte_<%= cnt1 %>">Fonte:</label></td>
            <td><input type="text" name="Fonte_<%= cnt1 %>" id="Fonte_<%= cnt1 %>" value="<%=(KT_escapeAttribute(rstbl_noticias.Fields.Item("Fonte").Value))%>" size="32" maxlength="255" />
              <%=(tNGs.displayFieldHint("Fonte"))%> <%=(tNGs.displayFieldError("tbl_noticias", "Fonte"))%></td>
          </tr>
          <tr>
            <td class="KT_th"><label for="Imagem_<%= cnt1 %>">Imagem:</label></td>
            <td><input type="file" name="Imagem_<%= cnt1 %>" id="Imagem_<%= cnt1 %>" size="32" />              <%=(tNGs.displayFieldError("tbl_noticias", "Imagem"))%></td>
          </tr>
          <tr>
            <td class="KT_th"><label for="Miniaturas_<%= cnt1 %>">Miniaturas:</label></td>
            <td><input type="file" name="Miniaturas_<%= cnt1 %>" id="Miniaturas_<%= cnt1 %>" size="32" />
              <%=(tNGs.displayFieldError("tbl_noticias", "Miniaturas"))%></td>
          </tr>
          <tr>
            <td class="KT_th"><label for="Data_<%= cnt1 %>">Data:</label></td>
            <td><input name="Data_<%= cnt1 %>" id="Data_<%= cnt1 %>" value="<%=(KT_formatDate(rstbl_noticias.Fields.Item("Data").Value))%>" size="10" maxlength="22" wdg:mondayfirst="false" wdg:subtype="Calendar" wdg:mask="<%= KT_screen_date_format %>" wdg:type="widget" wdg:singleclick="false" wdg:restricttomask="no" wdg:readonly="true" />
              <%=(tNGs.displayFieldHint("Data"))%> <%=(tNGs.displayFieldError("tbl_noticias", "Data"))%></td>
          </tr>
          <tr>
            <td class="KT_th"><label for="Hora_<%= cnt1 %>">Hora:</label></td>
            <td><span id="sprytextfield1">
              <input type="text" name="Hora_<%= cnt1 %>" id="Hora_<%= cnt1 %>" value="<%=(KT_formatDate(rstbl_noticias.Fields.Item("Hora").Value))%>" size="10" maxlength="22" />
              <span class="textfieldInvalidFormatMsg">Invalid format.</span></span><%=(tNGs.displayFieldHint("Hora"))%> <%=(tNGs.displayFieldError("tbl_noticias", "Hora"))%></td>
          </tr>
        </table>
        <input type="hidden" name="kt_pk_tbl_noticias_<%=cnt1%>" class="id_field" value="<%=(KT_escapeAttribute(rstbl_noticias.Fields.Item("kt_pk_tbl_noticias").Value))%>" />
        <%
		  Repeat1__index=Repeat1__index+1
		  Repeat1__numRows=Repeat1__numRows-1
		  rstbl_noticias.MoveNext()
		Wend
		%>
      <div class="KT_bottombuttons">
        <div>
          <%
		' Show IF Conditional region1 
		  If Request.QueryString("Id") = "" Then
		%>
            <input type="submit" name="KT_Insert1" id="KT_Insert1" value="<%=NXT_getResource("Insert_FB")%>" />
            <%
		' else Conditional region1
		  Else %>
            <input type="submit" name="KT_Update1" value="<%=NXT_getResource("Update_FB")%>" />
            <input type="submit" name="KT_Delete1" value="<%=NXT_getResource("Delete_FB")%>" onClick="return confirm('<%=NXT_getResource("Are you sure?")%>');" />
            <%
			  End If
			' End Conditional region1
			%>
          <input type="button" name="KT_Cancel1" value="<%=NXT_getResource("Cancel_FB")%>" onClick="return UNI_navigateCancel(event, '../../includes/nxt/back.asp')" />
        </div>
      </div>
    </form>
  </div>
  <br class="clearfixplain" />
</div>
<p>&nbsp;</p>
<script type="text/javascript">
<!--
var sprytextfield1 = new Spry.Widget.ValidationTextField("sprytextfield1", "custom", {isRequired:false, validateOn:["change"], pattern:"00:00:00", useCharacterMasking:true});
//-->
</script>
</body>
</html>