Problemas com Upload e Update

[Thammynha 0]

Bom dia !!!! http://forum.imasters.com.br/public/style_emoticons/default/grin.gif

 

Estou com alguns probleminhas....

 

 

Bom.. tenho uma página onde o usuário poderá atualizar seus dados e enviar um arquivo .doc para determinado diretório.

O problema é que o update não está funcionando... :S

O form está com method="post" e eu não consigo recuperar os dados via request.form....

 

O que pode estar errado ?

 

segue o form ( vou colocar só uma parte, por o form é grande....)

 

<form action="interesse.asp?action=edit_cad&NomeCv=<%=rsC("cod_consultor")%>&id1=<%=rsC("cod_consultor")%>&id2=<%=request.querystring("id2")%>&id3=<%=request.querystring("id3")%>" enctype="multipart/form-data" method="post" name="form2" id="form2">


<input name="taxa_hora" type="text" id="taxa_hora"  onKeyDown="FormataValor(this,17,event);"  value="<%if taxa_hora = "" then response.Write("") else response.Write(""&FormatNumber(taxa_hora,2)) end if%>" size="25" maxlength="17"/>


<input name="salario" type="text" id="salario" onKeyDown="FormataValor(this,17,event);" value="<%if salario = "" then response.Write("") else response.Write(""&FormatNumber(salario,2)) end if%>" size="25" maxlength="17"/>

</form>

e aqui é onde acontece o update e o upload.

 

<%
if request.QueryString("action") = "edit_cad" then

caminho_server = server.MapPath("controle/cv/")
Caminho = Cstr(caminho_server)

Set upl = Server.CreateObject("SoftArtisans.FileUp")
'upl.Useuniquenames = true
upl.Path = caminho_server
upl.Save
Set upl = Nothing




sqlstmt = "update consultor set taxa_hora='"&taxa_hora&"', salario='"&salario&"', disponibilidade='"&disponibilidade&"', celular='"&celular&"', consultoria_contratante='"&consultoria_contratante&"', consultoria_prime='"&consultoria_prime&"', modalidade='"&modalidade&"' where cod_consultor = "&consultor&"" 

Set conn = server.createobject("adodb.connection") 'abre a conexão com o banco de dados 
conn.open MM_Conn_STRING 'avisa qual banco de dados será utilizado na consulta 
set rsquery = conn.execute(sqlstmt) 'executa a instrução SQL contida na variavel sqlstmt 
set rsquery = nothing 
set conn = nothing 

end if

%>

E o outro probleminha é q não consigo mudar o nome do arquivo (.doc) q o usuário envia para o servidor...

 

Caso eu não tenha explicado direito.. me fala o q não entendeu q eu tento explicar melhor!!!!!

 

Obrigada pessoal....

[Patrique 0]

nesta linha abaixo

 

caminho_server = server.MapPath("controle/cv/")

 

você não colocou o caminhdo do seu banco... tipo

 

caminho_server = server.MapPath("controle/cv/banco.mdb")

 

[]'s

[Thammynha 0]

nesta linha abaixo

 

caminho_server = server.MapPath("controle/cv/")

 

você não colocou o caminhdo do seu banco... tipo

 

caminho_server = server.MapPath("controle/cv/banco.mdb")

 

[]'s

Oi Patrique!

 

Mas esse não é o caminho para onde devem ir os arquivos ?????

[Ted k' 126]

é patrique, é upload e não cadastramento...

 

gera algum erro?

 

colocou permissões na pasta?

[Patrique 0]

Aff.... eu olhei por alto e imaginei que fosse a conexao do bd heheheheeh foi malz vacilo meu

 

[]'s

[Thammynha 0]

é patrique, é upload e não cadastramento...

 

gera algum erro?

 

colocou permissões na pasta?

Gera este erro

 

Request object error 'ASP 0206 : 80004005' 

Cannot call BinaryRead 

/interesse.asp, line 230 

Cannot call BinaryRead after using Request.Form collection.

Linha 230

 

upl.Save

E está td com permissão!!

[Thammynha 0]

Aff.... eu olhei por alto e imaginei que fosse a conexao do bd heheheheeh foi malz vacilo meu

 

[]'s

Sem problema Patrique!

 

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

[FxLxPx 0]

Também tive esse problema...

 

http://support.softartisans.com/kbview_60.aspx

 

Eh soh fazer isso ae q funciona...

 

 

Abraços...

[Thammynha 0]

Obrigada FxLxPx, o upload funcionou direitinho!!

 

Agora, como faço pra mudar o nome do arquivo ?

 

Por exemplo, quero que o arquivo tenha o nome do id do usuário (200.doc) ao invés do nome original do arquivo do usuário (meu cv.doc)

 

Como fazer isso ?

[Mário Monteiro 179]

voce pode mudar por fso

 

ja que voce sabe o nome original voce o busca an pagina e o troca nao deve da 5 linhas de codigo

 

se tiver duvidas avise

[Thammynha 0]

o problema é que eu sei o nome do meu arquivo.

 

e o arquivo dos outros usuários do sistema ????

[Vagner Bucioli Scala 0]

Olá Tammy! na linha:

 

 

upl.Save

tente substituir por:

 

upl.SaveAS "nomeescolhido.doc"

Dai dando certo depois é só você pegar o ID do Usuário, tipo:

 

idUSER = RS("idUSER")

 

upl.SaveAS idUSER & ".doc"

[Mário Monteiro 179]

Como assim o nome do seu arquivo?

 

Voce altera para todos os arquivos