[Resolvido] Problemas com SaFileUp

G10 · Março 15, 2012

Boa tarde,tenho um script de upload que funcionava com o Persits.Upload

mais precisei trocar de componente ,troquei pelo SaFileUp ,porém ainda nao conseguir

fazer funcionar, está dando o seguinte erro:

Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'Files'

/sites/ModuloFotos/upload.asp, line 30

(óbvio que da para perceber que o erro diz que o componente nao suporta o metodo utilizado,

com o outro componente este metodo funcionava,como utilizar para este ? )

NA LINHA 30 TEM O SEGUINTE CÓDIGO

For Each File in SaFileUp.Files

CÓDIGO INTEIRO COM SaFileUp ADPATADO

<!--#include file="adovbs.inc"-->
<!--#include file="criptografia.asp"-->

<%
randomize
tam=8 'Define o tamanho da senha
md=md5(now())
aleat=Int(22-tam*Rnd)+1
codigoAleatorio=mid(md, aleat, tam)
%>
<%'###### início loop SaFileUp componente##########################################################%>

<%
'Server.ScriptTimeout = 360


Dim SaFileUp
Dim strFormElement
Dim strSubItem

Dim sCaminho

'Instancia o componente
	SET SaFileUp = Server.CreateObject("SoftArtisans.FileUp") 

'Configura o caminho onde arquivo será salvo
    Count = SaFileUp.Save = ("e:\home\imagens\fotos\")


For Each File in SaFileUp.Files

'######### início do registro na Base de Dados, dentro do loop do script de upload   ##############


nome_original = codigoAleatorio & "_" & File.Filename
nome_arquivo = File.FileName

id= request.QueryString("id")%> 



<%'#################  criando a miniatura para o thumbnail ASPJPG  ################################%>



<% 
' Create instance of AspJpeg
Set Jpeg = Server.CreateObject("SoftArtisans.Jpeg")
' Open source image
Jpeg.Open "e:\home\imagens\fotos\" & nome_arquivo &""

' New width
L = 600

' Resize, preserve aspect ratio
If Jpeg.OriginalWidth > jpeg.OriginalHeight Then
  Jpeg.Width = L
  Jpeg.Height = jpeg.OriginalHeight * L / jpeg.OriginalWidth
Else
  Jpeg.Height = L
  Jpeg.Width = jpeg.OriginalWidth * L / jpeg.OriginalHeight
End If

'Esse método é opcional, usado para melhorar o visual da imagem 
'Jpeg.Sharpen 1, 150

Jpeg.Quality = 100

' create thumbnail and save it to disk
Jpeg.Save "e:\home\imagens\thumbs\" & codigoAleatorio & "_" & nome_arquivo &""

%> 

<%Set Jpeg = Nothing%> 


<% 
' Create instance of AspJpeg
Set Jpeg = Server.CreateObject("SoftArtisans.Jpeg")
' Open source image
Jpeg.Open "e:\home\imagens\fotos\" & nome_arquivo &""

' New width
L = 600
' Resize, preserve aspect ratio
If Jpeg.OriginalWidth > jpeg.OriginalHeight Then
  Jpeg.Width = L
  Jpeg.Height = jpeg.OriginalHeight * L / jpeg.OriginalWidth
Else
  Jpeg.Height = L
  Jpeg.Width = jpeg.OriginalWidth * L / jpeg.OriginalHeight
End If

'Esse método é opcional, usado para melhorar o visual da imagem 
'Jpeg.Sharpen 1, 150

Jpeg.Quality = 100
jpeg.Adjust 3, -1
jpeg.Adjust 1, 0.2

' create thumbnail and save it to disk
Jpeg.Save "e:\home\imagens\thumbs\pb_" & codigoAleatorio & "_" & nome_arquivo &""

%> 

<%Set Jpeg = Nothing%> 


<% 
' Create instance of AspJpeg
Set Jpeg = Server.CreateObject("SoftArtisans.Jpeg")
' Open source image
Jpeg.Open "e:\home\imagens\fotos\" & nome_arquivo &""

' New width
L = 1000

' Resize, preserve aspect ratio
If Jpeg.OriginalWidth < 1000 Then

ElseIf Jpeg.OriginalWidth > jpeg.OriginalHeight Then
  Jpeg.Width = L
  Jpeg.Height = jpeg.OriginalHeight * L / jpeg.OriginalWidth
Else
  Jpeg.Height = L
  Jpeg.Width = jpeg.OriginalWidth * L / jpeg.OriginalHeight
End If

'Esse método é opcional, usado para melhorar o visual da imagem 
'Jpeg.Sharpen 1, 150

Jpeg.Quality = 100

X = Jpeg.Width - 300	
Y = Jpeg.Height - 200

'Jpeg.Canvas.DrawPNG X, Y, "e:\home\"

Jpeg.Canvas.Font.Color = &HFFFFFFF
Jpeg.Canvas.Font.Family = "Arial"
Jpeg.Canvas.Font.Size = 14
Jpeg.Canvas.Font.Bold = True
Jpeg.Canvas.Font.ShadowColor = &H000000
Jpeg.Canvas.Font.ShadowXoffset = 1
Jpeg.Canvas.Font.ShadowYoffset = 1
Jpeg.Canvas.Font.Quality = 1 


Dados = "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & server.mappath("dados.mdb")

sqlstmtConfig = "SELECT * FROM configuracoes where id=1"
Set rsConfig = Server.CreateObject("ADODB.Recordset")
rsConfig.Open sqlstmtConfig, Dados

enderecoSite = rsConfig("enderecoSite")

Set rsConfig = nothing

'Jpeg.Canvas.Print 10, 10, "© " & Year(Date) & " " & enderecoSite

' create thumbnail and save it to disk
Jpeg.Save "e:\home\imagens\fotos\" & codigoAleatorio & "_" & nome_arquivo &""

%> 

<%Set Jpeg = Nothing%>

<%'###########################################  FIM ASPJPG  #######################################%>


<%
ConnString="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=e:\home\ModuloFotos\dados.mdb;"
Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.Open ConnString 

set insertSet = Server.CreateObject("ADODB.Recordset")
insertSet.Open "fotos", Conn,_
adOpenStatic, adCmdTable

insertSet.AddNew
insertSet("idAlbum") = id
insertSet("foto") = codigoAleatorio & "_" & nome_arquivo
insertSet("thumb") = codigoAleatorio & "_" & nome_arquivo
insertSet.update

insertSet.close
set insertSet = Nothing

%>
<%
set RS = nothing
Conn.close

%>		

<%
Next
'--- Dereference FileUp
Set SaFileUp = Nothing 
'####### FIM do SaFileUp componente   #########################################################

if nome_arquivo = "" then

else
Set ObjFSO = Server.CreateObject("Scripting.FileSystemObject")
ObjFSO.DeleteFile "e:\home\imagens\fotos\"&nome_arquivo&" "
Set ObjFSO = Nothing
end if

%>

<%
id= request.QueryString("id")
album= request.QueryString("album") 
response.Redirect("albumDetalhe.asp?album="&album&"&id="&id&"")
%>

O CÓDIGO COM O COMPONENTE Persits.Upload (ASSIM FUNCIONA)

<!--#include file="adovbs.inc"-->
<!--#include file="criptografia.asp"-->

<%
randomize
tam=8 'Define o tamanho da senha
md=md5(now())
aleat=Int(22-tam*Rnd)+1
codigoAleatorio=mid(md, aleat, tam)
%>
<%

'Server.ScriptTimeout = 360


Dim oFileUp
Dim strFormElement
Dim strSubItem

Dim sCaminho


'--- Instantiate the FileUp object
Set oFileUp = Server.CreateObject("Persits.Upload.1")

oFileUp.OverwriteFiles = False
oFileUp.SetMaxSize 99999999
Count = oFileUp.Save("e:\home\imagens\fotos\")


For Each File in oFileUp.Files



'######### início do registro na Base de Dados, dentro do loop do script de upload   ##############


nome_original = codigoAleatorio & "_" & File.Filename
nome_arquivo = File.FileName

id= request.QueryString("id")%> 



<%'#################  criando a miniatura para o thumbnail ASPJPG  ################################%>



<% 
' Create instance of AspJpeg
Set Jpeg = Server.CreateObject("Persits.Jpeg")
' Open source image
Jpeg.Open "e:\home\imagens\fotos\" & nome_arquivo &""

' New width
L = 600

' Resize, preserve aspect ratio
If Jpeg.OriginalWidth > jpeg.OriginalHeight Then
  Jpeg.Width = L
  Jpeg.Height = jpeg.OriginalHeight * L / jpeg.OriginalWidth
Else
  Jpeg.Height = L
  Jpeg.Width = jpeg.OriginalWidth * L / jpeg.OriginalHeight
End If

'Esse método é opcional, usado para melhorar o visual da imagem 
'Jpeg.Sharpen 1, 150

Jpeg.Quality = 100

' create thumbnail and save it to disk
Jpeg.Save "e:\home\imagens\thumbs\" & codigoAleatorio & "_" & nome_arquivo &""

%> 

<%Set Jpeg = Nothing%> 


<% 
' Create instance of AspJpeg
Set Jpeg = Server.CreateObject("Persits.Jpeg")
' Open source image
Jpeg.Open "e:\home\imagens\fotos\" & nome_arquivo &""

' New width
L = 600
' Resize, preserve aspect ratio
If Jpeg.OriginalWidth > jpeg.OriginalHeight Then
  Jpeg.Width = L
  Jpeg.Height = jpeg.OriginalHeight * L / jpeg.OriginalWidth
Else
  Jpeg.Height = L
  Jpeg.Width = jpeg.OriginalWidth * L / jpeg.OriginalHeight
End If

'Esse método é opcional, usado para melhorar o visual da imagem 
'Jpeg.Sharpen 1, 150

Jpeg.Quality = 100
jpeg.Adjust 3, -1
jpeg.Adjust 1, 0.2

' create thumbnail and save it to disk
Jpeg.Save "e:\home\imagens\thumbs\pb_" & codigoAleatorio & "_" & nome_arquivo &""

%> 

<%Set Jpeg = Nothing%> 


<% 
' Create instance of AspJpeg
Set Jpeg = Server.CreateObject("Persits.Jpeg")
' Open source image
Jpeg.Open "e:\home\imagens\fotos\" & nome_arquivo &""

' New width
L = 1000

' Resize, preserve aspect ratio
If Jpeg.OriginalWidth < 1000 Then

ElseIf Jpeg.OriginalWidth > jpeg.OriginalHeight Then
  Jpeg.Width = L
  Jpeg.Height = jpeg.OriginalHeight * L / jpeg.OriginalWidth
Else
  Jpeg.Height = L
  Jpeg.Width = jpeg.OriginalWidth * L / jpeg.OriginalHeight
End If

'Esse método é opcional, usado para melhorar o visual da imagem 
'Jpeg.Sharpen 1, 150

Jpeg.Quality = 100

X = Jpeg.Width - 300	
Y = Jpeg.Height - 200

'Jpeg.Canvas.DrawPNG X, Y, "e:\home\ema.png"

Jpeg.Canvas.Font.Color = &HFFFFFFF
Jpeg.Canvas.Font.Family = "Arial"
Jpeg.Canvas.Font.Size = 14
Jpeg.Canvas.Font.Bold = True
Jpeg.Canvas.Font.ShadowColor = &H000000
Jpeg.Canvas.Font.ShadowXoffset = 1
Jpeg.Canvas.Font.ShadowYoffset = 1
Jpeg.Canvas.Font.Quality = 1 


Dados = "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & server.mappath("dados.mdb")

sqlstmtConfig = "SELECT * FROM configuracoes where id=1"
Set rsConfig = Server.CreateObject("ADODB.Recordset")
rsConfig.Open sqlstmtConfig, Dados

enderecoSite = rsConfig("enderecoSite")

Set rsConfig = nothing

'Jpeg.Canvas.Print 10, 10, "© " & Year(Date) & " " & enderecoSite

' create thumbnail and save it to disk
Jpeg.Save "e:\home\imagens\fotos\" & codigoAleatorio & "_" & nome_arquivo &""

%> 

<%Set Jpeg = Nothing%>

<%'###########################################  FIM ASPJPG  #######################################%>


<%
ConnString="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=e:\home\web\sistema\dados.mdb;" 
Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.Open ConnString 

set insertSet = Server.CreateObject("ADODB.Recordset")
insertSet.Open "fotos", Conn,_
adOpenStatic, adCmdTable

insertSet.AddNew
insertSet("idAlbum") = id
insertSet("foto") = codigoAleatorio & "_" & nome_arquivo
insertSet("thumb") = codigoAleatorio & "_" & nome_arquivo
insertSet.update

insertSet.close
set insertSet = Nothing

%>
<%
set RS = nothing
Conn.close

%>		

<%

Next		
'--- Dereference FileUp
Set oFileUp = Nothing
'####### FIM do SaFileUp componente   #########################################################

if nome_arquivo = "" then

else
Set ObjFSO = Server.CreateObject("Scripting.FileSystemObject")
ObjFSO.DeleteFile "e:\home\imagens\fotos\"&nome_arquivo&" "
Set ObjFSO = Nothing
end if

%>

<%
id= request.QueryString("id")
album= request.QueryString("album") 
response.Redirect("albumDetalhe.asp?album="&album&"&id="&id&"")
%>

xanburzum · Março 15, 2012

Normalmente, isso é porque você usou uma propriedade ou método que não existe, ou não existe na versão do objeto que você está usando. dá onde você pegou este code ?

olhe este exemplo:

<%@ Language=VBScript %>
<% Option Explicit 

'-----------------------------------------------------------------------
'--- FileUp Simple Upload Sample
'--- 
'--- This sample demonstrates how to perform a single file upload
'--- with FileUp

'--- Copyright (c) 2003 SoftArtisans, Inc.
'--- Mail: info@softartisans.com   http://www.softartisans.com
'-----------------------------------------------------------------------
%>

<HTML>
<HEAD>
<TITLE>SoftArtisans FileUp Simple Upload Sample</TITLE>
</HEAD>

<BODY>
<p align=center>
<img src="/safileupsamples/fileupse.gif" alt="SoftArtisans FileUp">
</p>

<H3 ALIGN=center>FileUp Simple Upload Sample</H3>

<!--

Note: For any form uploading a file, the ENCTYPE="multipart/form-data" and 
METHOD="POST" attributes MUST be present

-->
<FORM ACTION="formresp.asp" ENCTYPE="MULTIPART/FORM-DATA" METHOD="POST">
<TABLE align=center WIDTH="600">
<TR>
<TD ALIGN="RIGHT" VALIGN="TOP">Enter Filename:</TD>

<!--
Note: Notice this form element is of TYPE="FILE"
-->	
<TD ALIGN="LEFT"><INPUT TYPE="FILE" NAME="myFile"><BR>
<I>Click "Browse" to select a file to upload</I>
</TD>
</TR>
<TR>
<TD ALIGN="RIGHT"> </TD>
<TD ALIGN="LEFT"><INPUT TYPE="SUBMIT" NAME="SUB1" VALUE="Upload File"></TD>
</TR>
<tr>
<td colspan=2>
<hr noshade>
<b>Note:</b> This sample demonstrates how to perform a simple single file upload with FileUp
</td>
</tr>

</TABLE>
</FORM>

</BODY>
</HTML>

<%@ Language=VBScript %>
<% Option Explicit %>

<HTML>
<HEAD>
<TITLE>SoftArtisans FileUp Upload Simple Sample</TITLE>
</HEAD>
<BODY>
<p>
<img src="/safileupsamples/fileupse.gif" alt="SoftArtisans FileUp">
</p>

<%
'-----------------------------------------------------------------------
'--- FileUp Simple Upload Sample
'--- 
'--- This sample demonstrates how to perform a single file upload
'--- with FileUp

'--- This is the ASP form-response script that uses FileUp to receive and
'--- process the upload submitted from form.asp

'--- Copyright (c) 2003 SoftArtisans, Inc.
'--- Mail: info@softartisans.com   http://www.softartisans.com
'-----------------------------------------------------------------------

'--- Declarations
Dim oFileUp

'--- Instantiate the FileUp object
Set oFileUp = Server.CreateObject("SoftArtisans.FileUp")

'--- Set the Path property to the location you wish to
'--- temporarily cache the incoming file before saving
'--- Note: This property must be set immediately after
'--- instantiating the FileUp object
oFileUp.Path = Server.MapPath(Application("vroot") & "/temp")

'--- Check to be sure there was a file selected in the form
'--- If so, continue processing
If IsObject(oFileUp.Form("myFile")) Then
	If Not oFileUp.Form("myFile").IsEmpty Then

		'--- Save the file
		'--- Note: The Save() method saves the file
		'--- with its original name to the directory
		'--- you set as the Path property.
		'--- To save a file to a different location
		'--- or with a different name, use the SaveAs() method
		'--- instead of Save()
		On Error Resume Next
			oFileUp.Form("myFile").Save
			If Err.Number <> 0 Then
				Response.Write "<B>An error occurred while saving the file</B><BR>" & _
								Err.Description & " (" & Err.Source & ")"
				Response.End
			End If
		On Error Goto 0

		'--- Display information about the saved file
		Response.Write "<H3>FileUp Saved the File Successfully</H3>"
		Response.Write "<DL>"

		'--- ServerName is the full path of the file as it was saved on the server
		Response.Write "<DT><B>Path on server</B></DT><DD>" & oFileUp.Form("myFile").ServerName & "</DD>"
		'--- UserFilename is the full path of the file as it was sent from the client
		Response.Write "<DT><B>Path on client</B></DT><DD>" & oFileUp.Form("myFile").UserFilename & "</DD>"
		'--- ShortFileName is just the Userfilename without the path
		Response.Write "<DT><B>Short filename</B></DT><DD>" & oFileUp.Form("myFile").ShortFilename & "</DD>"
		'--- TotalBytes is the byte size of the file
		Response.Write "<DT><B>Byte size</B></DT><DD>" & oFileUp.Form("myFile").TotalBytes & "</DD>"
		'--- ContentType is the mime type of the file. Eg, "application/msword"
		Response.Write "<DT><B>Content type</B></DT><DD>" & oFileUp.Form("myFile").ContentType & "</DD>"
		'--- CheckSum is the MD5 hash of the file that can be used to check file integrity
		Response.Write "<DT><B>CheckSum</B></DT><DD>" & oFileUp.Form("myFile").CheckSum & "</DD>"
		Response.Write "</DL>"

	Else
		Response.Write "There was no file submitted in the form field."
	End If
Else
	Response.Write "The referenced field does not exist or is not of type=""file"""
End If

'--- Dereference FileUp
Set oFileUp = Nothing
%>


</BODY>
</HTML>

G10 · Março 16, 2012

Normalmente, isso é porque você usou uma propriedade ou método que não existe, ou não existe na versão do objeto que você está usando. dá onde você pegou este code ?

Utilizo esse código a muito tempo em meus sistemas,peguei na net a um bom tempo atrás e fiz muitas adptações ate suprir meu uso,

ele faiz o upload com o redimencionamento e cria um thumb da imagem

só que agora o servidor que vou utilizar nao tem o componente Persits.Upload :huh:

tentei utilizar o exemplo que você me passou utilizando o SaFileUP nao consegui...

nao sei como vou fazer para funcionar :pinch:

se alguem puder me ajuda vou ficar agradecido !

xanburzum · Março 16, 2012

ele gera algum erro ?

se você quer fazer o upload com o redimencionamento e cria um thumb da imagem, existem outros códigos que disponibilizei no lab. de script, dá uma olhada pode te ajudar.

G10 · Março 17, 2012

ele gera algum erro ?

se você quer fazer o upload com o redimencionamento e cria um thumb da imagem, existem outros códigos que disponibilizei no lab. de script, dá uma olhada pode te ajudar.

Na verdade eu queria apenas trocar o componente ,passar de Persits para SaUpFile :ermm:

xanburzum · Março 17, 2012

é só seguir esse modelo, esse code é um exemplo de utilização do componente

G10 · Março 18, 2012

é só seguir esse modelo, esse code é um exemplo de utilização do componente

tá dificil rs,pensei que era mais simples troca o componente...

Vamos lá,tentei fazer as adptações e agora me retorna o seguinte erro :

Object doesn't support this property or method: 'Files'

Esta é a linha do ERRO :

For Each File in oFileUp.Files

O Trecho do código onde esta apresentando o erro:

<%'###### início loop SaFileUp componente##########################################################%>

<%

'Server.ScriptTimeout = 360


Dim oFileUp
Dim strFormElement
Dim strSubItem

Dim sCaminho


'--- Instantiate the FileUp object
Set oFileUp = Server.CreateObject("SoftArtisans.FileUp")
oFileUp.Path = "e:\home\Web\site\imagens\fotos\"


   For Each File in oFileUp.Files



'######### início do registro na Base de Dados, dentro do loop do script de upload   ##############


nome_original = codigoAleatorio & "_" & File.Filename
nome_arquivo = File.FileName

id= request.QueryString("id")

%>

xanburzum · Março 18, 2012

ele não tem essa propriedade file

SaFileUp.nomedoForm("nomedocampo").Save

G10 · Março 19, 2012

ele não tem essa propriedade file

SaFileUp.nomedoForm("nomedocampo").Save

Fala Xanburzum, vlw pela dica,agora parece que deu uma clariada nas coisas !

refiz as declarações do componente e ficou assim

<%

Server.ScriptTimeout = 360

Dim oFileUp
Dim strFormElement
Dim strSubItem

'--- Instantiate the FileUp object
Set oFileUp = Server.CreateObject("SoftArtisans.FileUp")

oFileUp.Path = caminhoFisico & "e:\home\Web\sites\imagens\fotos\"

For Each strFormElement In oFileUp.Form

	If IsObject(oFileUp.Form(strFormElement)) Then

		'--- It's a file element, so we'll see if it's empty or not
		If Not oFileUp.Form(strFormElement).IsEmpty Then

			'--- It's not empty, so we'll save it
			On Error Resume Next
				oFileUp.Form(strFormElement).Save
				'If Err.Number <> 0 Then

				'End If
			On Error Goto 0


'######### início do registro na Base de Dados, dentro do loop do script de upload   ##############


nome_original = codigoAleatorio & "_" & oFileUp.Form(strFormElement).ShortFilename
nome_arquivo = oFileUp.Form(strFormElement).ShortFilename

id= request.QueryString("id")%>

Só que agora está me retornando este erro:

Microsoft VBScript compilation error '800a041f'

Unexpected 'Next'

/sites/ModuloFotos/upload.asp, line 208

NA LINHA 208 COMEÇA O "NEXT" , onde tem esse trecho de código:

	Next		
'--- Dereference FileUp
Set oFileUp = Nothing
'####### FIM do SaFileUp componente   #########################################################

xanburzum · Março 19, 2012

Isso geralmente é causado pelo assentamento incorreto de fazer loops and/or for/next . exemplo:

<% 
   for i = 0 to 1 
       do while i < 2 
       next 
   loop 
%>

reveja seu loop

G10 · Março 19, 2012

Isso geralmente é causado pelo assentamento incorreto de fazer loops and/or for/next . exemplo:
<% 
   for i = 0 to 1 
       do while i < 2 
       next 
   loop 
%>
reveja seu loop

Xanburzum, Fiz funcionar coloquei 2 End if la no inicio ,e parou de dar aquele erro,

agora ele faiz o upload cria o thumb tudo certinho, mais ao fazer o upload ele me retorna um erro tipico :

Persits.Jpeg.1 error '800a0002'

The system cannot find the path specified.

/sites/ModuloFotos/upload.asp, line 63

a linha 63 está assim :

Jpeg.Open "e:\home\site\imagens\fotos\" & nome_arquivo &""

O path está certo,pois esta fazendo o upload normalmente ,o trecho do código é este :

<% 
' Create instance of AspJpeg
Set Jpeg = Server.CreateObject("Persits.Jpeg")
' Open source image
Jpeg.Open "e:\home\site\imagens\fotos\" & nome_arquivo &""

G10 · Março 19, 2012

Xamburzum Valew pelas ajudas, !

Consegui fazer funcionar

Coloquei os 'End IF' no lugar errado ,

o correto era antes do Next

End If

xanburzum · Março 19, 2012

OK, amigo, ficamos felizaes que tenha conseguido...

Arquivado

[Resolvido] Problemas com SaFileUp

Recommended Posts

G10 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

G10 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

G10 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

G10 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

G10 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

G10 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

G10 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

editor quill configuração

PHP - Orientação com UPDATE

BelogsTo do laravel

Fóruns

Tempo Real

Informação importante