Asp+Mysql não consigo inserir dados

[Leonardo Djeri de Toledo 0]

Ola amigos,

 

Estou com um problema.

 

Estou fazendo um formulário de cadastro em ASP e utilizo banco de dados MYSQL, porém, não consigo inserir os dados nele.

 

A estrutura do banco de dados é

 

Segue abaixo a programação:

 

<%

 

response.buffer = true

response.expires = 0

response.cachecontrol = "private"

session.timeout = 40

session.LCID = 1046

 

 

NOME = request.form("NOME")

RAZAO = request.form("RAZAO")

FANTASIA = request.form("FANTASIA")

CPF = request.form("CPF")

RG = request.form("RG")

ENDERECO = request.form("ENDERECO")

BAIRRO = request.form("BAIRRO")

CIDADE = request.form("CIDADE")

UF = request.form("UF")

FONE = request.form("FONE")

FAX = request.form("FAX")

EMAIL = request.form("EMAIL")

CEP = request.form("CEP")

SEXO = request.form("SEXO")

NASCIMENTO = request.form("NASCIMENTO")

PASSWORD = request.form("PASSWORD")

 

 

strConnection = "DSN=mysql; DB=XXXX; UID=XXXX; PWD=XXXX"

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

adoDataConn.Open strConnection

 

' Faz uma consulta...

 

set rsResult = adoDataConn.execute ("select * from cliente where Email like '" &EMAIL&"' PASSWORD = " &PASSWORD&" order by Email")

 

if not rs.eof then

response.redirect("erro.asp?erro=Este E-mail já existe, escolha outro por favor!")

else

 

SQL1 = "INSERT INTO cliente (RAZAO,FANTASIA,NOME,NASCIMENTO,CPF,RG,ENDERECO,BAIRRO,CIDADE,UF,FONE,FAX,EMAIL,

CEP,SEXO,PASSWORD) VALUES "

SQL1 = SQL1 & "('" & RAZAO & "','" & FANTASIA & "','" & NOME & "','" & NASCIMENTO & "','" & CPF &"','" & RG &"','" & ENDERECO &"','" & BAIRRO & "','" & CIDADE &"','" & UF &"','" & FONE &"','" & FAX &"','" & EMAIL &"','" & CEP & "','" & SEXO &"','" & PASSWORD &"')"

Set rsResult = db.execute(SQL1)

response.redirect("Ok.asp?nome="& Request.Form("NOME"))

end if

 

%>

 

Alguém tem noção do que pode estar acontecendo????

 

 

Valeu pela ajuda galera!!

[<%Rafael%> 0]

Tente alterar isso:

 

Set rsResult = db.execute(SQL1)

Para isso:

 

adoDataConn.execute(SQL1)

Você não precisa criar um RecordSet para inserir os dados!

 

Abraços!

[Leonardo Djeri de Toledo 0]

Não deu certo :(

[<%Rafael%> 0]

Qual erro apresenta?

[Leonardo Djeri de Toledo 0]

Opa....

 

Eu refiz da forma que você falou e agora funcionou.... Tive que dar uma arrumada no Select também...

 

O código ficou assim:

 

<%

 

response.buffer = true

response.expires = 0

response.cachecontrol = "private"

session.timeout = 40

session.LCID = 1046

 

 

NOME = request.form("NOME")

RAZAO = request.form("RAZAO")

FANTASIA = request.form("FANTASIA")

CPF = request.form("CPF")

RG = request.form("RG")

ENDERECO = request.form("ENDERECO")

BAIRRO = request.form("BAIRRO")

CIDADE = request.form("CIDADE")

UF = request.form("UF")

FONE = request.form("FONE")

FAX = request.form("FAX")

EMAIL = request.form("EMAIL")

CEP = request.form("CEP")

SEXO = request.form("SEXO")

NASCIMENTO = request.form("NASCIMENTO")

PASSWORD = request.form("PASSWORD")

 

 

 

strConnection = "DSN=mysql; DB=barello_com_br; UID=barello_adm; PWD=y4AnsC4x"

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

adoDataConn.Open strConnection

 

' Faz uma consulta...

 

set rsResult = adoDataConn.execute ("select * from cliente where EMAIL like '" & EMAIL &"' and PASSWORD = '" & PASSWORD &"' order by EMAIL")

 

if not rsResult.eof then

response.redirect("erro.asp?erro=Este E-mail já existe, escolha outro por favor!")

else

 

SQL1 = "INSERT INTO cliente (NOME,RAZAO,FANTASIA,NASCIMENTO,CPF,RG,ENDERECO,BAIRRO,CIDADE,UF,FONE,FAX,EMAIL,

CEP,SEXO,PASSWORD) VALUES "

SQL1 = SQL1 & "('" & NOME & "','" & RAZAO & "','" & FANTASIA & "','" & NASCIMENTO & "','" & CPF &"','" & RG &"','" & ENDERECO &"','" & BAIRRO & "','" & CIDADE &"','" & UF &"','" & FONE &"','" & FAX &"','" & EMAIL &"','" & CEP & "','" & SEXO &"','" & PASSWORD &"')"

adoDataConn.execute(SQL1)

 

response.redirect("Ok.asp?nome="& Request.Form("NOME"))

 

end if

%>

 

 

Agora tá inserindo os dados normalmente, porém, tenho outro problema: A data de Nascimento está sendo inserida como 0000-00-00.

 

Você sabe como arrumar?

 

Valeu!!!

[<%Rafael%> 0]

O padrão de datas do MySQL é Ano / Mês / Dia, como está vindo esse dado???Se tiver vindo 12/7/1986, será necessário tratar o valor e inveter...Abraços!

[Leonardo Djeri de Toledo 0]

Então cara...Qualquer data que eu colocar, ele inseri 0000-00-00.Por exemplo, se eu colocar, 08/12/2006 ele vai inserir 0000-00-00.Não aparece a data, somente o 0000-00-00.heheheSabe o que pode ser?

[<%Rafael%> 0]

Respondi no outro tópico que você abriu, dê uma olhada lá!Abraços!

[jrcardozo 4]

use assimNASCIMENTO=year(NASCIMENTO) &"-"&month(NASCIMENTO)&"-"&day(NASCIMENTO)