Poxa vida o que pode estar errado.

[masterofdreams 0]

o erro e nesta linha...Microsoft OLE DB Provider for ODBC Drivers (0x80040E57)[Microsoft][Driver ODBC para Microsoft Access]Valor numérico fora do intervalo (null)/hdvelox/teste/aa.asp, line 89o erro esta aqui em algum lugar..<%Else If Not IsEmpty(Request.Form("submit")) AND Trim(Request.Form("nome")) <> "" AND Trim(Request.Form("login")) <> "" AND Trim(Request.Form("senha")) <> "" AND Trim(Request.Form("email")) <> "" AND Trim(Request.Form("aniversario")) <> "" AND Trim(Request.Form("Telefone")) <> "" AND Trim(Request.Form("Perfil")) <> "" Then Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open "DBQ=C:\Inetpub\wwwroot\banco.mdb;Driver={Microsoft Access Driver (*.mdb)};" ComandoSQL = "INSERT INTO usuarios (nome, login, senha, email, aniversario, Telefone, Perfil)" ComandoSQL = ComandoSQL & " VALUES (" ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("nome")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("login")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("senha")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("email")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("aniversario")) & "'," ComandoSQL = ComandoSQL & "" & Server.HTMLEncode(Request.FORM("Telefone")) & "," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("Perfil")) & "')" Set bd = Conexao.Execute(ComandoSQL) Conexao.Close Set bd = Nothing Set Conexao = Nothing%>quando tento com o select option não funciona...

[dimarcinho 0]

bom, nao sei o resto do seu codigo, mas você fechou o IF ?? aparentemente tah certo

 

<%

Else <-- q isso?

If Not IsEmpty(Request.Form("submit")) AND Trim(Request.Form("nome")) <> "" AND Trim(Request.Form("login")) <> "" AND Trim(Request.Form("senha")) <> "" AND Trim(Request.Form("email")) <> "" AND Trim(Request.Form("aniversario")) <> "" AND Trim(Request.Form("Telefone")) <> "" AND Trim(Request.Form("Perfil")) <> "" Then

Set Conexao = Server.CreateObject("ADODB.Connection")

Conexao.Open "DBQ=C:\Inetpub\wwwroot\banco.mdb;Driver={Microsoft Access Driver (*.mdb)};"

ComandoSQL = "INSERT INTO usuarios (nome, login, senha, email, aniversario, Telefone, Perfil)"

ComandoSQL = ComandoSQL & " VALUES ("

ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("nome")) & "',"

ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("login")) & "',"

ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("senha")) & "',"

ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("email")) & "',"

ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("aniversario")) & "',"

ComandoSQL = ComandoSQL & "" & Server.HTMLEncode(Request.FORM("Telefone")) & ","

ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("Perfil")) & "')"

End If

Set bd = Conexao.Execute(ComandoSQL)

Conexao.Close

Set bd = Nothing

Set Conexao = Nothing

%>