dados não grava no DB

[marcioadrmachado 0]

olá pessoal....tenho um cadastro de clientes com upload... só que o restante dos dados não grava no db... no código abaixo apartir do alturapeso = upload.form("alturapeso") não grava nada....o codigo abaixo<% set upload = server.CreateObject("Dundas.Upload.2") upload.UseUniqueNames = true upload.UseVirtualDir = true upload.save ("..\romanceweb.com.br\db") n=0 for each uploadedFile in upload.files path = uploadedFile.path if n = 0 then arquivo = upload.GetFileName(path) tamanho = uploadedFile.size tamanho = round(tamanho, 0) firstname = upload.form("firstname") surname = upload.form("surname") email = upload.form("email") dob = upload.Form("birth_day") & "/" & upload.Form("birth_month") & "/" & upload.Form("birth_year") --- = upload.form("---") username = upload.form("username") password = upload.form("password") passwordconfirm = upload.form("passwordconfirm") alturapeso = upload.form("alturapeso") tipofisico = upload.form("tipofisico") tompele = upload.form("tompele") olhos = upload.form("olhos") cabelos = upload.form("cabelos") estadocivil = upload.form("estadocivil") quantomoradia = upload.form("quantomoradia") rendamensal = upload.form("rendamensal") filhos = upload.form("filhos") formacao = upload.form("formacao") profissaoatual = upload.form("profissaoatual") signo = upload.form("signo") bebida = upload.form("bebida") fumo = upload.form("fumo") estiloleitura = upload.form("estiloleitura") estilomusica = upload.form("estilomusica") gostadeler = upload.form("gostadeler") sexo = upload.form("sexo") idade = upload.form("idade") tompele01 = upload.form("tompele01") estadocivil01 = upload.form("estadocivil01") bebida01 = upload.form("bebida01") fuma01 = upload.form("fuma01") filhos01 = upload.form("filhos01") rendamensal01 = upload.form("rendamensal01") formacao01 = upload.form("formacao01") end if path = uploadedFile.path n = n + 1 next set upload = nothing passwordLength = Len(password) if passwordLength < 5 or passwordLength > 15 then response.Redirect("singupform.asp?msg=A senha deve conter no minimo 5 e no máximo 15 caracteres") else set conexdados = server.createObject ("ADODB.Connection") conexdados.open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& server.mappath("..\romanceweb.com.br\db\siteusers.mdb") set rs=server.createobject ("adodb.recordset") rs.open "select * from users where username = '"&username&"'" ,conexdados,3,1 if rs.eof then if password <> passwordconfirm then ' Verifica se a senha foi repetida corretamente response.Redirect("singupform.asp?msg=Senha repetida incorretamente") else sql = "insert into users (username,password,arquivo) values ('"&username&"','"&password&"','"&arquivo&"')" conexdados.execute sql end if end if conexdados.close set conexdados=nothing end if%>valeus

[dark0 0]

hum..ele simplesmente passa pela pagina como se tivesse gravado, mas nao grava, ou ele da algum erro?

[Mário Monteiro 179]

hum..

 

ele simplesmente passa pela pagina como se tivesse gravado, mas nao grava, ou ele da algum erro?

no aguardo dessa informação tambem...