(Resolvido) Ajuda com upload e envio de cadastro

[raphpac]

Boa noite,

Gostaria de contar com a ajuda dos Srs. para descobrir meu erro no codigo, tratase de um cadastro com foto.

Como começei com asp a pouco tempo, pode ser que seja algum errinhu bobo.

Vamos lá, no script abaixo era para ele gravar todas as informações do cadastro no banco de dados Access e armazenar a imagem na pasta /foto/ gravando o nome dela no bd. No momento ele so esta dando upload na imagem <_<

<!--#include File="Adovbs.inc"-->
<!--#include file="Connections/cadastro.asp" -->

<% 
Set upl = Server.CreateObject("SoftArtisans.FileUp")
upl.Path = "E:\..............\cadastro\foto"
strFileName = Mid(upl.UserFilename, InstrRev(upl.UserFilename, "\") + 1)
upl.Save 

%> 

<% 
vinculo=Request.Form("vinculo")
nome=Request.Form("nome")
endereco=Request.Form("endereco")
numero=Request.Form("numero")
bairro=Request.Form("bairro")    
cidade=Request.Form("cidade")
estado=Request.Form("estado")
cep=Request.Form("cep")
fone1=Request.Form("fone1")
fone2=Request.Form("fone2")
celular=Request.Form("celular")
fax=Request.Form("fax")
comentario=Request.Form("comentario")
razao=Request.Form("razao")
contato=Request.Form("contato")
email=Request.Form("email")
email2=Request.Form("email2")
site=Request.Form("site") 
foto=Request.Form("foto")
obs=Request.Form("obs") 

Set objConn = Server.CreateObject("ADODB.Connection")
strConnection = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="
strConnection = strConnection & Server.MapPath("../db/banco.mdb")
objConn.Open strConnection
  
strSql = "SELECT nome From cadastro Where [cadastro].nome = '"&nome&"'" 
Set objTemp = objConn.Execute(strSql)
If Not objTemp.Eof Then        
Response.redirect "erro.asp?nome="&nome 
  Else
 end if

        Set RS = Server.CreateObject("ADODB.RecordSet")
        RS.Open "cadastro", objConn , adOpenKeyset, adLockOptimistic
        
RS.Addnew 
RS("vinculo") = vinculo
RS("nome") = nome
RS("endereco") = endereco
RS("numero") = numero
RS("bairro") = bairro
RS("cidade") = cidade
RS("estado") = estado
RS("cep") = cep
RS("fone1") = fone1
RS("fone2") = fone2
RS("celular") = celular
RS("fax") = fax
RS("comentario") = comentario
RS("razao") = razao
RS("contato") = contato
RS("email") = email
RS("email2") = email2
RS("site") = site
RS("obs") = obs 
RS("foto") = strFileName
RS("n_acessos") = "0"    
RS.update
RS.Close
Set Conn = nothing
Set RS = nothing 
Set upl = Nothing
response.redirect "cadastro_cliente_conf.asp" 
%>

agradeço desde já,

Raphael.

Editado Novembro 23, 2008 por Rafael Spilki

[Rafael Spilki]

Raphael, tudo bem?

Isso aqui esta muito estranho:

upl.Path = "E:\..............\cadastro\foto"

isso esta assim mesmo ou você usou para ocultar alguma inf? enfim... como você disse que a imagem esta sendo salva corretamente esqueceremos isso... As infs não devem estar sendo gravadas no bd, porque quando se trata de upload normalmente não se pode usar request.form para resgatar os dados do form... usualmente é algo parecido com:

nome_da_variavel = UploadRequest.Item("campo_do_form").Item("Value")

mas isso pode variar de componente para componente...

Caso a sintaxe acima não funcione, procure na documentação do seu componente... o erro provavel é esse!

Era isso?

qualquer. coisa poste aqui!

[]'s Rafael Spilki

[raphpac]

Boa tarde,

Muito obrigado meu xára ehehhe

upl.Path = "E:\..............\cadastro\foto"

Foi so para ocultar o nome mesmo.

O erro estava no resquet.form mesmo.

O certo é

nome=upl.Form("nome")

.

Um abraço,

Raphael