Forums :: Asp Upload and Resize

DwZone Forum
Welcome to the DwZone-it Forum

FAQ

Memberlist

Usergroups

Asp Upload and Resize

DwZone Forum Index -> Asp Upload and Resize

Moderators: Administrators, Moderators

Mark all topics read

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.

	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

Gianluigi

13:20 2 Aug 2020

Re: dwzUpload/dwzUpload.asp, line 947

Luiz

13:59 26 Sep 2020

Re: dwzUpload/dwzUpload.asp, line 947

Gianluigi

13:21 2 Aug 2020

error '800a0bb9'

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"%>


<%
'****************************
'* 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