Fazer o que vc disse não dá certo. uma vez que o ASP acha erro de sintaxe, ele não conclui o processamento, não chegando na instrução response.write.
Eu já comentei tudo e fiz um teste dando um response.write em todas as variáeis de sessão, responsáveis por captar os valores dos formularios, visto que é um processo de cadastramento por etapas, E os valores são passados direitinho.
Já experimentei ir no Acess direto
peguei os valores que eu queria passar pelo formulario e testei direto em uma consulta de inclusão. E foi.. E diga-se de passagem, com Aspas e sem aspas no campo numerico.
INSERT INTO membros ( cod_usu, nome, usuario, email, senha, tp_deposito, bloqueado ) values ("13","teste","teste","claudiocss@bol.com.br","123ewr","egold","sim")
E com Aspas ou sem aspas no número, ele inclui o registro.
Com o ASP é que fica de palhaçada.
=================================================
Segue o código da minha página:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim conexao, nome, usuario, senha, email, banco, agencia, conta
Dim indicacao,aleatorio1, aleatorio2, egold, dt_registro, ult_login, tp_deposito
DIM dsn, sql_InsereMembro, sql_InsereDeposito, Sql_MembroXDeposito, Sql_Renda
Dim Rs_InsereMembro, Rs_InsereDeposito, Rs_MembroXDeposito, Rs_Renda
nome=session("nome")
usuario=session("usuario")
senha=session("senha")
email=session("email")banco=session("numerobanco")
agencia=session("agencia")
conta=session("conta")
indicacao=session("indicacao")
aleatorio1=session("aleatorio1")
aleatorio2=session("aleatorio2")
egold=session("egold")
dt_registro=Date()
ult_login=Date()
tp_deposito=session("opcao")
bloqueado="sim"Set conexao= server.CreateObject("ADODB.Connection")
dsn = "\\iis638\domains\p\poprandomizer.com\user\private\banco.mdb"
conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & dsn& ";"
MaxUsu="SELECT max(cod_usu) as mid FROM membros"
set rs = conexao.execute(MaxUsu)
ultimoid = rs("mid")
cod_usu = cint(ultimoid + 1)set rs= Nothing
'MaxDep="SELECT max(id_deposito) as mid FROM deposito"
'set rs = conexao.execute(MaxDep)
'ultimoid = rs("mid")
'id_dep = cint(ultimoid + 1)
'set rs= Nothing
sql_InsereMembro="INSERT INTO membros (cod_usu, nome, usuario, email, senha, tp_deposito, bloqueado) VALUES ('"&cod_usu&"','"&nome&"','"&usuario&"','"&email&"','"&senha&"','"&tp_deposito&"','"&bloqueado&"' )"'sql_InsereDeposito="INSERT INTO deposito (id_deposito, aleatorio1, aleatorio2, indicacao) VALUES ('"& id_deposito &"','"& aleatorio1 &"','"& aleatorio2 &"','"& indicacao &"' )"
'Sql_MembroXDeposito="INSERT INTO MembroXDeposito (id_deposito, cod_usu, tp_deposito, confirmado) VALUES ('"& id_deposito &"','"& cod_usu &"','"& tp_deposito &"','não' )"
'Sql_Renda="INSERT INTO Renda (cod_usu, usuario, tp_deposito, valor_depositos, valor_indicacao) VALUES ('"& cod_usu &"','"& tp_deposito &"','0','0' )"
Set rsVerifica = conexao.Execute("SELECT usuario FROM membros Where usuario= '"& usuario &"'")
If rsVerifica.EOF <> True Then
Response.write "<p> </p>"
Response.Write "<center><strong><font size=2 color=#990000 face=Verdana, Arial, Helvetica, sans-serif>Ooooops... um erro aconteceu</font></strong></center><br>"
Response.write "<center><font size=2 face=Verdana, Arial, Helvetica, sans-serif>Usuário já existente</font></center><p><center><p>"
Response.End
Else
set Rs_InsereMembro=conexao.execute(sql_InsereMembro)'set Rs_InsereMembro=Nothing
'Set Rs_InsereDeposito= conexao.execute(sql_InsereDeposito)
'Set Rs_InsereDeposito=Nothing
'Set Rs_MembroXDeposito= conexao.execute(sql_MembroXDeposito)
'Set Rs_MembroXDeposito=Nothing
'Set Rs_Renda= conexao.execute(sql_Renda)
'Set Rs_Renda=Nothing
End If
set RsVerifica=Nothing
conexao.close
%>
Edição feita por: LeoB, 02/09/2004, 20:19.
