Ir para conteúdo

POWERED BY:

Arquivado

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

wills

[Resolvido] Upload de arquivos .psd

Por , em ASP Clássico

Recommended Posts

wills    0

wills
Postado

marioufpa, tu tá me dando uma divina!

 

então, aquela parte do upload, "finalizou!".....aeeeeeeeeeee

 

agora tô tentando salvar no bd, mas está vindo em branco os dados. dei um response.write mas, não me retornou nada.

 

assim que eu conseguir resolver esse problema, vou para tentar salvar os dados no bd, e mandar o arquivo para o diretório certo.

 

depois finalizo com e-mail (esse tempo pronto) uso cdosys

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

como está tentando recuperar?

Compartilhar este post

Link para o post
Compartilhar em outros sites

wills    0

wills
Postado

bom, agora sim me compliquei.... tentei algumas coisas mas....

 

arquivos = "caminhoabsoluto"
session.LCID = 1046

set bd = Server.CreateObject("ADODB.Connection")
bd.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=caminhoabsoluto"
bd.open

	set pes = bd.execute("select * from clientes where psd = '" & request.Form("f1") & "'")
		if pes.eof then
			insert = "insert into clientes(nome,mail,telefone,psd)"
			insert = insert & "values ('" & request.Form("txtnome") & "','" & request.Form("txtmail") & "',"
			insert = insert &  "'" & request.Form("txttelefone") & "','" & request.Form("f1") & "')"
			set inseri = bd.execute(insert)
			
					On Error Resume next
			Set objUpload = Server.CreateObject("Dundas.Upload.2")
			objUpload.UseVirtualDir = False
			objUpload.UseUniqueNames = True
			objUpload.Save arquivos
			
			Response.Write "Arquivo enviado com sucesso!"			
			

		else
		response.Write("duplicou!")
		end if

o que ocorre é o seguinte, ele salva no bd as informações, mas os dados não vão para o diretório.

 

podem me ajudar mais um pouco?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

mude

 

ASP
request.Form

 

por

 

ASP
objUpload.Form

Compartilhar este post

Link para o post
Compartilhar em outros sites

wills    0

wills
Postado

mas isso para inserir no bd?

 

xi cara, não rola não.... se liga

 

Microsoft VBScript runtime  error '800a01a8'

Object required: ''

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

poe isso para cima do insert

 

ASP
Set objUpload = Server.CreateObject("Dundas.Upload.2")

objUpload.UseVirtualDir = False

objUpload.UseUniqueNames = True

objUpload.Save arquivos

 

inverte a posição

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

quando inverte o que acontece?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

mas aparece algum erro?

Compartilhar este post

Link para o post
Compartilhar em outros sites

wills    0

wills
Postado

aparece nada....

 

se liga

 

http://www.4vconnect.com/dundas.htm

 

[bhtml[/b]

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Untitled Document</title>
</head>
<body>
<form action="dundas.asp" name="frmteste" method="post" enctype="multipart/form-data">
	nome: <input name="txtnome" type="text" /><br />
	e-mail: <input type="text" name="txtmail" /><br />
	telefone: <input type="text" name="txttelefone" /><br />
	<input type="file" name="f1" />
	<input type="submit" value="vai" name="vai" />
</form>
</body>
</html>

asp

<%
dim arquivos, bd, mnome, mde, mpara, massunto, mmsg, corpo, pes, inseri
session.LCID = 1046
set bd = Server.CreateObject("ADODB.Connection")
bd.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=caminhoabsolute"
bd.open

	set pes = bd.execute("select * from clientes where psd = '" & request.Form("f1") & "'")
		if pes.eof then
			insert = "insert into clientes(nome,mail,telefone,psd)"
			insert = insert & "values ('" & request.Form("txtnome") & "','" & request.Form("txtmail") & "',"
			insert = insert &  "'" & request.Form("txttelefone") & "','" & request.Form("f1") & "')"
			set inseri = bd.execute(insert)
		else
		response.Write("duplicou!")
		end if
	bd.close
	set bd = Nothing

	arquivos = "caminhoabsolute"	
	On Error Resume next
	Set objUpload = Server.CreateObject("Dundas.Upload.2")
	objUpload.UseVirtualDir = False
	objUpload.UseUniqueNames = True
	objUpload.Save arquivos
	Response.Write "Arquivo enviado com sucesso!"	
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

tira

 

On Error Resume next

Compartilhar este post

Link para o post
Compartilhar em outros sites

wills    0

wills
Postado

Dundas.Upload.2 error '80004005'

 

Failed to get the boundary.

 

/dundas.asp, line 34

 

essa linha 34 é onde comentei o on error resume next

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

como esta o codigo agora?

 

marca a linha do erro

Compartilhar este post

Link para o post
Compartilhar em outros sites

wills    0

wills
Postado

<%

dim arquivos, bd, mnome, mde, mpara, massunto, mmsg, corpo, pes, inseri

session.LCID = 1046

set bd = Server.CreateObject("ADODB.Connection")

bd.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=e:\domains\4vconnect.com\wwwroot\dundas\dados.mdb"

bd.open

 

set pes = bd.execute("select * from clientes where psd = '" & request.Form("f1") & "'")

if pes.eof then

insert = "insert into clientes(nome,mail,telefone,psd)"

insert = insert & "values ('" & request.Form("txtnome") & "','" & request.Form("txtmail") & "',"

insert = insert & "'" & request.Form("txttelefone") & "','" & request.Form("f1") & "')"

set inseri = bd.execute(insert)

else

response.Write("duplicou!")

end if

bd.close

set bd = Nothing

 

arquivos = "e:\domains\4vconnect.com\wwwroot\dundas\"

'On Error Resume next esta linda está com erro!

Set objUpload = Server.CreateObject("Dundas.Upload.2")

objUpload.UseVirtualDir = False

objUpload.UseUniqueNames = True

objUpload.Save arquivos

Response.Write "Arquivo enviado com sucesso!"

%>

 

o pior é que não estou encontrando nada na net.... só tu mesmo tá me ajudando a chegar na solução

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

mas se ta comentado nao devia dar erro ai

 

mude tudo por

 

ASP
<%

dim arquivos, bd, mnome, mde, mpara, massunto, mmsg, corpo, pes, inseri

session.LCID = 1046

set bd = Server.CreateObject("ADODB.Connection")

bd.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=e:domains4vconnect.comwwwrootdundasdados.mdb"

bd.open

 

arquivos = "e:domains4vconnect.comwwwrootdundas"

'On Error Resume next

Set objUpload = Server.CreateObject("Dundas.Upload.2")

objUpload.UseVirtualDir = False

objUpload.UseUniqueNames = True

objUpload.Save arquivos

Response.Write "Arquivo enviado com sucesso!"    

 

    set pes = bd.execute("select * from clientes where psd = '" & request.Form("f1") & "'")

        if pes.eof then

            insert = "insert into clientes(nome,mail,telefone,psd)"

            insert = insert & "values ('" & request.Form("txtnome") & "','" & request.Form("txtmail") & "',"

            insert = insert &  "'" & request.Form("txttelefone") & "','" & request.Form("f1") & "')"

            set inseri = bd.execute(insert)

        else

        response.Write("duplicou!")

        end if

    bd.close

    set bd = Nothing

 

 

%>

 

mude isso depois mudamos os request.Form que tambem precisarão ser alterados

 

veja se apaerece algum erro

Compartilhar este post

Link para o post
Compartilhar em outros sites

wills    0

wills
Postado

então, mesmo invertendo não rola, ele trava na linha do on error resume next.

 

cara, fiz um teste antes, manja na dundas.htm

 

no form eu fiz isto:

 

<form action="dundas.asp" name="frmteste" method="post" enctype="multipart/form-data">

para

 

<form action="dundas.asp" name="frmteste" method="post">

dessa maneira ele salva no bd, mas não faz upload do arquivo.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

tira esta linha e roda denovo

 

nao devia dar erro nela

 

se mudar nao vai fazer o upload mesmo

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

ta dando sempre "duplicou" aqui

 

deu erro agora qual é a linah 24?

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