DwZone Forum DwZone Forum
Welcome to the DwZone-it Forum
 
  FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups  
    RegisterRegister -->   LoginLogin  
Asp Upload and Resize  
DwZone Forum Index -> Asp Upload and Resize

Moderators: AdministratorsModerators 
Hint: For improved responsiveness, use Internet Explorer 4 (or above) with Javascript enabled, choose 'Dynamic' from the View dropdown and hit 'Set Options' to save your changes.
New Topic Search for
 View     Per page     Messages Since 
Messages 11 to 20 of 860 (Total: 366) First |  Prev |  Next |  Last  
 Subject Author Date  
   Re: dwzUpload/dwzUpload.asp, line 947  
View this persons public profile  Gianluigi   13:20 2 Aug 2020  
   Re: dwzUpload/dwzUpload.asp, line 947  
View this persons public profile  Luiz   13:59 26 Sep 2020  
   Re: dwzUpload/dwzUpload.asp, line 947  
View this persons public profile  Gianluigi   13:21 2 Aug 2020  
    error '800a0bb9'  
View this persons public profile  Luiz   7:56 2 Aug 2020  
 
Hi Gian,

My application present this error: error '800a0bb9'.
below, my code.

CONNECTION PAGE
<%
function abre_conexao(CnString,MM_con_estra_STRING)
CnString="DRIVER={MySQL ODBC 5.3 ANSI Driver};SERVER=estratosphera.mysql.dbaas.com.br;PORT=3306;DATABASE=estratosphera;USER=estratosphera;PASSWORD=Kadinka13;OPTION=3;"
set MM_con_estra_STRING=server.createobject("adodb.connection")
MM_con_estra_STRING.Open CnString
end function


sub fecha_conexao()
MM_con_estra_STRING.close
set MM_con_estra_STRING = nothing
end sub
%>

MY UPLOAD PAGE

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="dwzUpload/dwzUpload.asp" -->
<!--#include file="dwzUpload/clsResize.asp" -->
<!--#include file="Connections/con_estra.asp" --><%
'****************************
'* INSERT RECORD UPLOAD
'* http://www.DwZone-it.com
'* Version 2.5.36
'****************************
dim dwzUpload
set dwzUpload = new dwzClsUpload
dwzUpload.Init
dwzUpload.Timeout = "5400"
dwzUpload.Charset = "utf-8"
dwzUpload.Progresspage = ""
dwzUpload.TotalFileSize = ""
dwzUpload.TempFolder = ""
dwzUpload.RedirectUrl = "refresh.html"
dwzUpload.CnString = MM_con_estra_STRING
dwzUpload.DbType = "MySql"
dwzUpload.Table = "estratosphera.trabalhos"
dwzUpload.ObjFiles = "/arquivos;1;;;;0;T_img1#201,1,65535;1;#0,0,0;;;0;;;;#0,0,0;1;#0,0,0;1;#0,0,0;#0,0,0;T_img1|/arquivos;1;;;;0;T_img2#201,1,65535;1;#0,0,0;;;0;;;;#0,0,0;1;#0,0,0;1;#0,0,0;#0,0,0;T_img2|/arquivos;1;;;;0;T_img3#201,1,65535;1;#0,0,0;;;0;;;;#0,0,0;1;#0,0,0;1;#0,0,0;#0,0,0;T_img3@_@_@1@_@_@0@_@_@0;;;80;0;;;80;0;_m;0;1;0;;;80;0;_s;1|0;;;80;0;;;80;0;_m;0;1;0;;;80;0;_s;1|0;;;80;0;;;80;0;_m;0;1;0;;;80;0;_s;1@_@_@./@_@_@POST@_@[email protected]@_@_@false@_@_@jpeg@_@_@1"
dwzUpload.FormName = "form1"
dwzUpload.UploadType = "Insert"
dwzUpload.ValueToRedirect = "T_texto"
dwzUpload.StrFields = "T_titulo|value|T_texto|value"
dwzUpload.StrColumns = "T_titulo|TextVoid;201;1;65535|T_texto|TextVoid;201;1;65535"
dwzUpload.Execute
'********************
'* Custom Functions
'********************
function dwzGetFolderName(str): dwzGetFolderName = Ris : end function
function dwzGetFileName(str): dwzGetFileName = Ris : end function
'****************************
'* INSERT RECORD UPLOAD
'****************************
%>
<%
Dim RS_trabalhos
Dim RS_trabalhos_cmd
Dim RS_trabalhos_numRows

Set RS_trabalhos_cmd = Server.CreateObject ("ADODB.Command")
RS_trabalhos_cmd.ActiveConnection = MM_con_estra_STRING ------------------ (LINE 44 error)
RS_trabalhos_cmd.CommandText = "SELECT * FROM trabalhos"
RS_trabalhos_cmd.Prepared = true

Set RS_trabalhos = RS_trabalhos_cmd.Execute
RS_trabalhos_numRows = 0
%>
<!doctype html>
<html>
<head>
<%
'****************************
'* UPLOAD HEAD CODE
'****************************
dwzUpload.GetHeadCode
'****************************
'* UPLOAD HEAD CODE
'****************************
%><meta charset="utf-8">
<title>ESTRATOSPHERA design, criação e web</title>
</head>

<body>
<form onsubmit="return ProgressBar()" action="<%=dwzUpload.GetEditAction%>" method="post" enctype="multipart/form-data" name="form1">
<p>
<label for="T_titulo">Título</label>
<input name="T_titulo" type="text" id="T_titulo" size="50">
</p>
<p>
<label for="T_texto">Texto</label>
<textarea name="T_texto" cols="50" id="T_texto"></textarea>
</p>
<p>
<label for="T_img1">Imagem 1</label>
<input type="file" name="T_img1" id="T_img1">
<br>
<label for="T_img2">Imagem 2</label>
<input type="file" name="T_img2" id="T_img2">
<br>
<label for="T_img3">Imagem 3</label>
<input type="file" name="T_img3" id="T_img3">
</p>
<p>
<input type="submit" name="button" id="button" value="Submit">
</p>
</form>
</body>
</html>
<%
RS_trabalhos.Close()
Set RS_trabalhos = Nothing
%>


My pages in Internet Provider

www.estratosphera.com.br/index.asp




 
Reply to this current thread  View this persons public profile  Send Private Message
   Re: error '800a0bb9'  
View this persons public profile  Gianluigi   8:07 2 Aug 2020  
   Re: error '800a0bb9'  
View this persons public profile  Luiz   11:48 2 Aug 2020  
   Re: error '800a0bb9'  
View this persons public profile  Luiz   12:22 2 Aug 2020  
   Re: error '800a0bb9'  
View this persons public profile  Luiz   16:03 2 Aug 2020  
   Re: error '800a0bb9'  
View this persons public profile  Gianluigi   22:43 2 Aug 2020  
   Copy Files error  
View this persons public profile  Luiz   10:08 1 Jun 2020  
Last Visit: Thursday 25 Jul, 2024 6:44 am First |  Prev |  Next |  Last  
 Login
Username:  Password:    
Read Message Read Message   Unread message Unread message
Read message [popular] Read message [popular]   Unread message [popular] Unread message [popular]
Read message [locked] Read message [locked]   Unread message [locked] Unread message [locked]
All times are GMT-2

Jump to: