Erro ao tentar inserir dado no banco MySQL

[lifenetwork 0]

Boa tarde,

 

Estou fazendo uma aplicação eu nunca havia usado MySQL coloquei ele para rodar aqui e esta funcionando, consigo consultar informações mas no momento de inserir da erro...

 

 

Arquivo connectbd.asp

 

<%

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

conexao.Open "Driver={MySQL ODBC 3.51 Driver}; SERVER=127.0.0.1; DATABASE=radius; UID=root; PWD=1234"

%>

Redirect_cad.asp

<%

Dim codigo, data, nome, email, endereco, bairro, cidade, estado, telefone, cnpj, categoria, velocidade, informacoes, foto

codigo = Request.Form ("codigo")

data = Request.Form ("data")

nome = Request.Form ("nome")

email = Request.Form ("email")

endereco = Request.Form ("endereco")

bairro = Request.Form ("bairro")

cidade = Request.Form ("cidade")

estado = Request.Form ("estado")

telefone = Request.Form ("telefone")

cnpj = Request.Form ("cnpj")

categoria = Request.Form ("categoria")

informacao = Request.Form ("informacao")

foto = Request.Form ("foto")

velocidade = Request.Form ("velocidade")

sql = "INSERT INTO clientes ( codigo, data, nome, email, endereco, bairro, cidae, estado, telefone, cnpj, categoria, informacao, foto, velocidade ) VALUES ('"& codigo &"','"& data &"','"& nome &"','"& email &"','"& endereco &"','"& bairro &"','"& cidade &"','"& estado &"','"& telefone &"','"& cnpj &"','"& categoria &"','"& informacao &"','"& foto &"','"& velocidade &"')"

conn.execute(sql)

%>

Erro Apresentado

Erro de tempo de execução do Microsoft VBScript erro '800a01a8'

Objeto necessário: ''

/redirect_cad_cliente.asp, linha 30

A linha 30 é a --> conn.execute(sql)

 

[Fábio BN 17]

Oi, mude a linha 30 para:

 

conexao.execute(sql)

 

Abraços!

[xanburzum 169]

dentro do arquivo Redirect_cad.asp, vc tem que ter um include chamando o arquivo de conexao, depois crie um objeto recordset:

 

 

Dim codigo, data, nome, email, endereco, bairro, cidade, estado, telefone, cnpj, categoria, velocidade, informacoes, foto

codigo = Request.Form ("codigo")

data = Request.Form ("data")

nome = Request.Form ("nome")

email = Request.Form ("email")

endereco = Request.Form ("endereco")

bairro = Request.Form ("bairro")

cidade = Request.Form ("cidade")

estado = Request.Form ("estado")

telefone = Request.Form ("telefone")

cnpj = Request.Form ("cnpj")

categoria = Request.Form ("categoria")

informacao = Request.Form ("informacao")

foto = Request.Form ("foto")

velocidade = Request.Form ("velocidade")

sql = "INSERT INTO clientes ( codigo, data, nome, email, endereco, bairro, cidae, estado, telefone, cnpj, categoria, informacao, foto, velocidade ) VALUES ('"& codigo &"','"& data &"','"& nome &"','"& email &"','"& endereco &"','"& bairro &"','"& cidade &"','"& estado &"','"& telefone &"','"& cnpj &"','"& categoria &"','"& informacao &"','"& foto &"','"& velocidade &"')"

Set RS = Server.CreateObject("ADODB.RecordSet")

RS.Open SQL, conexao, 1,3

%>