Cadastro e upload ao mesmo tempo.

[allan.web 0]

Ola pessoal... estou presisando urgentemente faze o cadastro de dados e upload no mesmo form urgente...

Tenho o seguinte codigo, mas ele não da ero nem nda... simplismente não cadastra os dados e tbem não upa nda... sera que alguem pode me ajudar....

 

desde ja agradeço

Postei todo ele... mas a parte que apresenta o problema esta em negrito.

------------------------------------------------------------------------------------------------------------------------------

<%

 

 if request("nome") <> "" then

nome = request("nome")

email = request("email")

caiaque = request.form("caiaque")

ano = request.form("ano")

valor = request.form("valor")

estado = request.form("estado")

fone = request.form("fone")

obs = request.form("obs")

obs = replace(obs,vbCrlf,"<br>")

data =(date)

hora =(time)

 

teste = request.ServerVariables("remote_addr")

             

       set upload = server.CreateObject("Dundas.Upload.2")

    upload.UseUniqueNames = false

    upload.UseVirtualDir = true

 

   upload.save ("/imagens_cad")

   

   n=0

   for each uploadedFile in upload.files

   response.Write n

   path = uploadedFile.path

   if n = 0 then

   arquivo = upload.GetFileName(path)

   tamanho = uploadedFile.size

   tamanho = round(tamanho, 0)

   elseif n = 1 then

   arquivo01 = upload.GetFileName(path)

   tamanho01 = uploadedFile.size

   tamanho01 = round(tamanho, 0)

   end if

   

   path = uploadedFile.path

   n = n + 1

   

   next

   

   set upload = nothing

 

set conexdados = server.CreateObject("ADODB.Connection")

conexdados.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("bd.mdb")

 

conexdados.execute "insert into cadastro (nome, email, obs, caiaque, ano, valor, estado, fone, data, hora) values ('"&nome&"','"&email&"','"&obs&"', '"&caiaque&"', '"&ano&"', '"&valor&"', '"&estado&"', '"&fone&"', '"&data&"', '"&hora&"')"

 

 

 

conexdados.close

set conexdados = nothing

 

end if

%>

[allan.web 0]

Me ajudem por favor é muito importante....desde ja agradeço

[diego_sl 0]

dá uma lida aki

 

http://www.dundas.com/other/dundasupload/i...d&body=body.htm

 

e aki

 

http://www.dundas.com/products/onlineDocs/...rods/Dunsam.htm