Outro Problema

[tsarri]

To com problemas para adicionar no banco de dados. não ta aparecendo nenhum erro ainda, Pessoal eu sei q eu encho o saco, o codigo esta ok so que não esta adicionando no banco de dados, alguém sabe o q poder.

<%

if request.form("reg") = "yes" then

'comece variáveis do formulário

loja = request.form("loja")

'os valores da verificação estão atuais e corretos

if loja = "" then

  err = 1

  errmess = "Favor Preencher o campo!<br>"

end if

if err = 0 then

  set dataconn = server.createobject ("ADODB.connection")

  set rs1 = server.createobject ("ADODB.recordset")

  dataconn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=c:\inetpub\wwwroot\teste\opiniao.mdb"

  MYSQL = "SELECT * FROM textos WHERE loja_virtual = '" & loja & "'"

  rs1.open MYSQL, dataconn, 1, 3

rs1.AddNew

    rs1.Fields("loja_virtual") = loja

rs1.close()

  dataconn.close()

  end if

end if

%>

[Alam]

Você poderia substituir tudo isso:

set dataconn = server.createobject ("ADODB.connection")
  set rs1 = server.createobject ("ADODB.recordset")
  dataconn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=c:\inetpub\wwwroot\teste\opiniao.mdb"
  MYSQL = "SELECT * FROM textos WHERE loja_virtual = '" & loja & "'"
  rs1.open MYSQL, dataconn, 1, 3

rs1.AddNew
    rs1.Fields("loja_virtual") = loja 

rs1.close()
  dataconn.close()

Por isso aqui

Set dataconn = Server.CreateObject("ADODB.Connection")
	dataconn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=c:\inetpub\wwwroot\teste\opiniao.mdb"
  dataconn.Execute("INSERT INTO textos (loja_virtual) VALUES '"& loja &"'")
	dataconn.Close
Set dataconn = Nothing

ou substituir a linha:

 rs1.open MYSQL, dataconn, 1, 3

por:

 rs1.open MYSQL, dataconn, 3, 3

Não testei, mas creio que funciona!

Alam

[Victor]

aff Alam, não viaja mano, você ta falando coisa nada a vê..

tsarri, não está cadastrando porque não trm insert

conexao.execute "insert into tabela (registro) values ('"&request.form("registro")&"')"

[dark0]

Vitor, ele não ta viajando não..

são modos diferentes de fazer a mesma coisa..

O modo que o tsarri ta fazendo, não tá completamente errado, ele está usando o modo ADDNEW, que tb insere no banco de dados..

[cyberalexxx]

Nunca trabalhei através de AddNew, mais sera que depois que voce adiciona o novo registro(em branco) e seta um valor para o campo, tipo: rs1.Fields("loja_virtual") = loja , não teria que atualizar o registro com rs1.Update ???

[]'s

Cyberalexxx