Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

conseld

Erro UPLOAD (SoftArtisans.FileUp)

Por , em ASP Clássico

Recommended Posts

conseld    0

conseld
Postado

Olá Galera mais uma vez, eu não sou muito bom em ASP trabalho mesmo com PHP, mas preciso rodar ele em ASP o sistema.

 

Bom eu peguei o esquema de upload na Locaweb

Mas não está funcionando 100% erros que não sei o que!

Estou usando drewmeaver 8

 

Aqui mostra o codigo

Antes disso em PHP o caminho da imagem fica assim

 

pasta/imagem.jpg

 

isso grava no banco de dados

 

Em ASP seria assim

 

F:\pasta\imagem.jpg

Na locaweb mostra assim para configurar

 

upl.Path = "e:\home\dominio\web\pasta"

 

Poderia me ajudar

 

<%@LANGUAGE="VBSCRIPT"%>

<!--#include file="../../Connections/carci.asp" -->

<%

 

if(request.Form("cadastro")) then

 

Dim rs

Dim rs_numRows

 

 

Set rs = Server.CreateObject("ADODB.Recordset")

rs.ActiveConnection = MM_carci_STRING

rs.Source = "SELECT * FROM download"

rs.CursorType = 0

rs.CursorLocation = 2

rs.LockType = 3

rs.Open()

rs_numRows = 0

 

rs.addnew()

rs("texto")=(Request.Form("texto"))

rs("anexo")=(Request.Form("anexo"))

rs.update()

 

Set upl = Server.CreateObject("SoftArtisans.FileUp")

 

'upl.Path = "e:\home\dominio\web\pasta"

 

upl.Path = "E:\Trabalhos\Carci_ASP\download"

 

upl.Save ------------>> ERRO está aqui

 

upl.TotalBytes

Set upl = Nothing

 

response.Write("Cadastro feito")

 

'response.Redirect("ver_cadastro.asp?cad=Cadastro feito com sucesso!")

 

 

rs.Close()

Set rs = Nothing

end if

 

%>

 

Tipo de erro:

Objeto Request, ASP 0206 (0x80004005)

Não é possível chamar BinaryRead após usar a coleção Request.Form.

/admin/controle/cadastro_registros.asp, line 29

 

 

Bom poderia ver o que seria

 

http://forum.imasters.com.br/public/style_emoticons/default/ermm.gif

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

voce nao poderá recuperar assimRequest.Form("texto")os valores dos formularios

Compartilhar este post

Link para o post
Compartilhar em outros sites

conseld    0

conseld
Postado

Puts...Como seriase não e assim.!!Request.Form("texto")??

Compartilhar este post

Link para o post
Compartilhar em outros sites

conseld    0

conseld
Postado

<%@LANGUAGE="VBSCRIPT"%>

<!--#include file="../../Connections/carci.asp" -->

<%

 

if(request.Form("cadastro")) then

 

Dim rs

Dim rs_numRows

 

Set upl = Server.CreateObject("SoftArtisans.FileUp")

 

upl.Path = "E:\Trabalhos\Carci_ASP\download"

upl.Save -------------------->> erro está aqui ainda

upl.TotalBytes

Set upl = Nothing

 

Set rs = Server.CreateObject("ADODB.Recordset")

rs.ActiveConnection = MM_carci_STRING

rs.Source = "SELECT * FROM download"

rs.CursorType = 0

rs.CursorLocation = 2

rs.LockType = 3

rs.Open()

rs_numRows = 0

 

rs.addnew()

rs("texto")=(upl.form("texto"))

rs("anexo")=(upl.form("anexo"))

rs.update()

 

 

response.Write("Cadastro feito")

'response.Redirect("ver_cadastro.asp?cad=Cadastro feito com sucesso!")

 

 

rs.Close()

Set rs = Nothing

end if

 

%>

 

 

Tipo de erro:

Objeto Request, ASP 0206 (0x80004005)

Não é possível chamar BinaryRead após usar a coleção Request.Form.

/admin/controle/cadastro_registros.asp, line 14

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

ainda tem la em cimarequest.Form("cadastro")

Compartilhar este post

Link para o post
Compartilhar em outros sites

conseld    0

conseld
Postado

cadastro registro.asp

 

 

 

<html>

<head>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<title>#</title>

<link href="../../link.css" rel="stylesheet" type="text/css">

</head>

 

<body>

<form action="upload.asp" method="post" name="form1">

<table width="100%" border="0" cellspacing="0" cellpadding="10">

<tr>

<td><span class="fontGrande">Cadastro de registros anexos </span><br>

<span class="font11">No campo</span> "<span class="font12login">Texto/Titulo</span>" <span class="font11">escreva sobre o arquivo anexo.</span><br>

<span class="font11">Campo</span> "<span class="font12login">Anexo de arquivo</span>" <span class="font11">selecione o botão procurar procure o arquivo e clique em no botão abrir.</span></td>

</tr>

<tr>

<td><table width="100%" border="0" cellspacing="0" cellpadding="3">

<tr>

<td class="login">Texto / Titulo</td>

</tr>

<tr>

<td><textarea name="texto" cols="50" class="form" id="texto"></textarea></td>

</tr>

<tr>

<td class="login">Anexo de arquivo </td>

</tr>

<tr>

<td><input name="anexo" type="file" class="form" id="anexo" size="50"></td>

</tr>

<tr>

<td><input type="submit" name="Submit" value="Enviar"></td>

</tr>

</table></td>

</tr>

</table>

</form>

</body>

</html>

 

upload.asp

 

<%@LANGUAGE="VBSCRIPT"%>

<!--#include file="../../Connections/carci.asp" -->

<%

 

Dim rs

Dim rs_numRows

 

Set upl = Server.CreateObject("SoftArtisans.FileUp")

 

upl.Path = "E:\Trabalhos\Carci_ASP\download"

upl.Save ==============>> ERRO continua aqui

upl.TotalBytes

Set upl = Nothing

 

Set rs = Server.CreateObject("ADODB.Recordset")

rs.ActiveConnection = MM_carci_STRING

rs.Source = "SELECT * FROM download"

rs.CursorType = 0

rs.CursorLocation = 2

rs.LockType = 3

rs.Open()

rs_numRows = 0

 

rs.addnew()

rs("texto")=(upl.form("texto"))

rs("anexo")=(upl.form("anexo"))

rs.update()

 

response.Write("Cadastro feito")

'response.Redirect("ver_cadastro.asp?cad=Cadastro feito com sucesso!")

 

rs.Close()

Set rs = Nothing

 

%>

 

<% rs.Close()

Set rs = Nothing %>

 

 

Tipo de erro:

SoftArtisans.FileUp.1 (0x80020009)

Invalid or corrupt MIME headers. Please check the referring form's ENCTYPE

/admin/controle/upload.asp, line 11

 

 

Bom galera não sei o que o problemaa..

 

AJUDA??? http://forum.imasters.com.br/public/style_emoticons/default/cry.gif http://forum.imasters.com.br/public/style_emoticons/default/cry.gif http://forum.imasters.com.br/public/style_emoticons/default/cry.gif

Compartilhar este post

Link para o post
Compartilhar em outros sites

arr    0

arr
Postado

Ten que definir o enctype no Form

 

<form action="upload.asp" method="post" name="form1" ENCTYPE="multipart/form-data">

 

e o caminho do Upload tem que seguir o informado poela locaweb:

 

upl.Path = "e:\home\seudominio\web\pasta\"

 

Não se esqueça de dar permissão de escrita na pasta.

Compartilhar este post

Link para o post
Compartilhar em outros sites

conseld    0

conseld
Postado

Faz até o upload..mas não registra no banco de dadosestou loko.. estou dia todo para resolver isso!!

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito