Erro Em Script

lampiao_muléstia · Fevereiro 24, 2005

opa galera...

ta dando o seguinte aqui no meu script,,,, acessem Com express

vão na parte de eventos e façam o cadastro .................

o erro que ta dando é o seguinte

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0x33e4 Thread 0x3890 DBC 0x1540a34 Jet'.

/eventos/cs/cadastrar.asp, line 172

........... já tentei resolver de tudo qnt é tipo.....

o conteúdo da linha 172 que ele fala ali é ....

Conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath(".bdCS.mdb")

valeus galera.....até +

qualquer duvida postem ai........

falwos

fertel · Fevereiro 25, 2005

Server.MapPath(".bdCS.mdb")

Que ponto é esse antes do nome do arquivo (mdb)??

edmais · Fevereiro 25, 2005

O ponto(.) na frente do seu arquivo.mdb está provocando o erro no script, verifique o nome do arquivo, e tente novamente!

Abraços!!

lampiao_muléstia · Fevereiro 25, 2005

O ponto(.) na frente do seu arquivo.mdb está provocando o erro no script, verifique o nome do arquivo, e tente novamente!
Abraços!!

eae.............agora o erro ta dando bem ai.......

Set bd = Conexao.Execute(ComandoSQL)

falows

lampiao_muléstia · Fevereiro 25, 2005

<%
Else
  If Not IsEmpty(Request.Form("submit")) AND Trim(Request.Form("Jog1_C")) <> "" AND Trim(Request.Form("Jog2")) <> "" AND Trim(Request.Form("Jog3")) <> "" AND Trim(Request.Form("Jog4")) <> "" AND Trim(Request.Form("Jog5")) <> "" AND Trim(Request.Form("nick1")) <> ""  AND Trim(Request.Form("Cla")) <> ""  AND Trim(Request.Form("email")) <> ""  Then
    Set Conexao = Server.CreateObject("ADODB.Connection")
    Conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)};DB="&Server.MapPath("http://www.comexpressonline.com.br/DB/bdCS.mdb") 
    ComandoSQL = "INSERT INTO jogadores (Jog1_C, nick1, RG1, jog2, nick2, RG2, jog3, nick3, RG3, jog4, nick4, RG4, jog5, nick5, RG5, jog6_R, nick6_R, RG6_R, jog7_R, nick7_R, RG7_R, Cla, telefone, celular, email, MSN)"
    ComandoSQL = ComandoSQL & " VALUES ("
    ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("Jog1_C")) & "',"
    ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("nick1")) & "',"
    ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("RG1")) & "',"
    ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("jog2")) & "',"
    ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("nick2")) & "',"
    ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("RG2")) & "',"
    ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("jog3")) & "',"
    ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("nick3")) & "',"
    ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("RG3")) & "',"
    ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("jog4")) & "',"
    ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("nick4")) & "',"
    ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("RG4")) & "',"
    ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("jog5")) & "',"
    ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("nick5")) & "',"
    ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("RG5")) & "',"
    ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("jog6_R")) & "',"
    ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("nick6_R")) & "',"
    ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("RG6_R")) & "',"
    ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("jog7_R")) & "',"
    ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("nick7_R")) & "',"
    ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("RG7_R")) & "',"
    ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("Cla")) & "',"
    ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("telefone")) & "',"
    ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("celular")) & "',"
    ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("email")) & "',"
    ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("MSN")) & "')"
    Set bd = Conexao.Execute(ComandoSQL)
    Conexao.Close
    Set bd = Nothing
    Set Conexao = Nothing
%>

   <font face="Arial" size="2">
   <center><br>Os dados foram enviados com sucesso!

   <br><a href="http://www.comexpressonline.com.br/eventos/index.htm"><b>Clique aqui</b></a> para continuar</font></center>

<%

strCla  = Trim(Request.Form("Cla"))   
strNome  = Trim(Request.Form("Jog1_C"))
strEmail = Trim(Request.Form("email"))

Set objMail  = Server.CreateObject("CDONTS.NewMail")
objMail.To   = "comexpresson-line@hotmail.com"
objMail.From = strEmail 
objMail.Subject = "Inscrição no Campeonato de Counter-Strike"

strMsgParaCadastro = "Clã: " & strCla & vbcrlf
strMsgParaCadastro = strMsgParaCadastro & "Capitão: " & strNome & vbcrlf
strMsgParaCadastro = strMsgParaCadastro & "Email: " & strEmail & vbcrlf 

strMsgParaCadastro = strMsgParaCadastro & "-----------------------------"
objMail.Body = strMsgParaCadastro
objMail.Send 
Set objMail = nothing


strMsgObrigado = "Olá " & strNome & vbcrlf
strMsgObrigado = strMsgObrigado & "O seu Cadastro foi Recebido pela .com Express" & vbcrlf
strMsgObrigado = strMsgObrigado & "Breve você receberá mais informações." & vbcrlf & vbcrlf

strMsgObrigado = strMsgObrigado & "Abraços," & vbcrlf
strMsgObrigado = strMsgObrigado & "Naoto - .Com Express"

Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From = "zica@hotmail.com"
objMail.To = strEmail 
objMail.Subject = "Insc. no Camp. de Couter Strike"
objMail.Body = strMsgObrigado
objMail.Send   


  Else
%>

Se caso alguém quiser ver o script todo...

falows

Annelise · Fevereiro 25, 2005

esse pontinho ai...

acho que e ele....já tentu tira-lo?

lampiao_muléstia · Fevereiro 25, 2005

q ponto....???

dark0 · Fevereiro 25, 2005

Amigo, acho que o caminho do banco de dados sendo colocado assim:

http://www.site.com.br/banco.mdb

assim acho que não vai funcionar não

Tenta deixar a linha de conexao com o banco de dados assim:

<%
Else
If Not IsEmpty(Request.Form("submit")) AND Trim(Request.Form("Jog1_C")) <> "" AND Trim(Request.Form("Jog2")) <> "" AND Trim(Request.Form("Jog3")) <> "" AND Trim(Request.Form("Jog4")) <> "" AND Trim(Request.Form("Jog5")) <> "" AND Trim(Request.Form("nick1")) <> "" AND Trim(Request.Form("Cla")) <> "" AND Trim(Request.Form("email")) <> "" Then
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)};DB="&Server.MapPath("DB/bdCS.mdb")
ComandoSQL = "INSERT INTO jogadores (Jog1_C, nick1, RG1, jog2, nick2, RG2, jog3, nick3, RG3, jog4, nick4, RG4, jog5, nick5, RG5, jog6_R, nick6_R, RG6_R, jog7_R, nick7_R, RG7_R, Cla, telefone, celular, email, MSN)"
ComandoSQL = ComandoSQL & " VALUES ("
ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("Jog1_C")) & "',"
ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("nick1")) & "',"
ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("RG1")) & "',"
ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("jog2")) & "',"
ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("nick2")) & "',"
ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("RG2")) & "',"
ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("jog3")) & "',"
ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("nick3")) & "',"
ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("RG3")) & "',"
ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("jog4")) & "',"
ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("nick4")) & "',"
ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("RG4")) & "',"
ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("jog5")) & "',"
ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("nick5")) & "',"
ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("RG5")) & "',"
ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("jog6_R")) & "',"
ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("nick6_R")) & "',"
ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("RG6_R")) & "',"
ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("jog7_R")) & "',"
ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("nick7_R")) & "',"
ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("RG7_R")) & "',"
ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("Cla")) & "',"
ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("telefone")) & "',"
ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("celular")) & "',"
ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("email")) & "',"
ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("MSN")) & "')"
Set bd = Conexao.Execute(ComandoSQL)
Conexao.Close
Set bd = Nothing
Set Conexao = Nothing
%>

<center> Os dados foram enviados com sucesso!
 <a href="http://www.comexpressonline.com.br/eventos/index.htm">Clique aqui</a> para continuar</center>
<%
strCla = Trim(Request.Form("Cla"))
strNome = Trim(Request.Form("Jog1_C"))
strEmail = Trim(Request.Form("email"))
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.To = "comexpresson-line@hotmail.com"
objMail.From = strEmail
objMail.Subject = "Inscrição no Campeonato de Counter-Strike"
strMsgParaCadastro = "Clã: " & strCla & vbcrlf
strMsgParaCadastro = strMsgParaCadastro & "Capitão: " & strNome & vbcrlf
strMsgParaCadastro = strMsgParaCadastro & "Email: " & strEmail & vbcrlf
strMsgParaCadastro = strMsgParaCadastro & "-----------------------------"
objMail.Body = strMsgParaCadastro
objMail.Send
Set objMail = nothing
strMsgObrigado = "Olá " & strNome & vbcrlf
strMsgObrigado = strMsgObrigado & "O seu Cadastro foi Recebido pela .com Express" & vbcrlf
strMsgObrigado = strMsgObrigado & "Breve você receberá mais informações." & vbcrlf & vbcrlf
strMsgObrigado = strMsgObrigado & "Abraços," & vbcrlf
strMsgObrigado = strMsgObrigado & "Naoto - .Com Express"
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From = "zica@hotmail.com"
objMail.To = strEmail
objMail.Subject = "Insc. no Camp. de Couter Strike"
objMail.Body = strMsgObrigado
objMail.Send
Else
%>

lampiao_muléstia · Fevereiro 25, 2005

coloquei a seguinte linha de comando , que é a linha 172

 Conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("DB/bdCS.mdb")

e ta dando a peste do erra ainda.....

dark0 · Fevereiro 25, 2005

qual erro tá dando?

Principe · Fevereiro 25, 2005

Tenta assim:

Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("DB/bdCS.mdb")

dark0 · Fevereiro 25, 2005

isso ta me xeirando à caminho do banco de dados errado.

mas só a descrição completa do erro poderá dizer

lampiao_muléstia · Fevereiro 25, 2005

eita scriptzinho incardido.!!!rsrsrs

ae Principe..... coloquei do jeito que tu me falow... e o erro continua o mesmo....

o erro é o Seguinte...:

----------------------------------------------------------------------------

Microsoft JET Database Engine error '80004005'

'D:\Dominios\comexpressonline\www\eventos\cs\DB\bdCS.mdb' is not a valid path. Make sure that the path name is spelled correctly and that you are connected to the server on which the file resides.

/eventos/cs/cadastrar.asp, line 172

----------------------------------------------------------------------------

a linha 172 do script é

Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("DB/bdCS.mdb")

Vlaeus galera,, e até +

lampiao_muléstia · Fevereiro 25, 2005

saiu o erro que estava agora entro outro.....

<%
Else
  If Not IsEmpty(Request.Form("submit")) AND Trim(Request.Form("Jog1_C")) <> ""  AND Trim(Request.Form("nick1")) <> ""  AND Trim(Request.Form("Cla")) <> ""  AND Trim(Request.Form("email")) <> ""  Then
    Set Conexao = Server.CreateObject("ADODB.Connection")
    Conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("\eventos\cs\bdCS.mdb") 
    ComandoSQL = "INSERT INTO jogadores (Jog1_C, nick1, RG1, jog2, nick2, RG2, jog3, nick3, RG3, jog4, nick4, RG4, jog5, nick5, RG5, jog6_R, nick6_R, RG6_R, jog7_R, nick7_R, RG7_R, Cla, telefone, celular, email, MSN)"
    ComandoSQL = ComandoSQL & " VALUES ("
    ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("Jog1_C")) & "',"
    ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("nick1")) & "',"
    ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("RG1")) & "',"
    ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("jog2")) & "',"
    ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("nick2")) & "',"
    ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("RG2")) & "',"
    ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("jog3")) & "',"
    ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("nick3")) & "',"
    ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("RG3")) & "',"
    ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("jog4")) & "',"
    ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("nick4")) & "',"
    ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("RG4")) & "',"
    ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("jog5")) & "',"
    ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("nick5")) & "',"
    ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("RG5")) & "',"
    ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("jog6_R")) & "',"
    ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("nick6_R")) & "',"
    ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("RG6_R")) & "',"
    ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("jog7_R")) & "',"
    ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("nick7_R")) & "',"
    ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("RG7_R")) & "',"
    ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("Cla")) & "',"
    ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("telefone")) & "',"
    ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("celular")) & "',"
    ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("email")) & "',"
    ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("MSN")) & "')"
    Set bd = Conexao.Execute(ComandoSQL)
    Conexao.Close
    Set bd = Nothing
    Set Conexao = Nothing
%>

   <font face="Arial" size="2">
   <center><br>Os dados foram enviados com sucesso!

   <br><a href="http://www.comexpressonline.com.br"><b>Clique aqui</b></a> para continuar</font></center>

<%

esta dando um erro bem ai:

Set bd = Conexao.Execute(ComandoSQL)

o erro é:

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query.

/eventos/cs/cadastrar.asp, line 167

falows galera...

fertel · Fevereiro 26, 2005

Só por curiodidade....

Você usou aquele programa ASPDataform pra fazer esse script não foi?

Se for toma cuidado porque ele faz numa mesma página função pra exibir e editar, ou exibri e cadastrar novos dados.

E mais: Ele só vai funcionar se todos os campos forem preenchidos e se os dados forem compatíveis com os campos dentro do bd...

Em resumo esse programa só é bom pra código muito pequeno e apenas texto ou pra você aprender a utilizar esses querys...

Quem não entende muito bem de ASP mesmo e usa o programa fica perdidinho às vezes já passei por isso há muito tempo atrás;

falou?

lampiao_muléstia · Fevereiro 26, 2005

bereza....mas intao oque eu posso fazer pra essse trem funcionar?,,,

queima e joga fora???

fertel · Fevereiro 26, 2005

Bom vamos lá...

Primeira coisa a ser feita observa as diferenças:

<%
Else
   Set Conexao = Server.CreateObject("ADODB.Connection")
   Conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("\eventos\cs\bdCS.mdb") 
   ComandoSQL = "INSERT INTO jogadores (Jog1_C, nick1, RG1, jog2, nick2, RG2, jog3, nick3, RG3, jog4, nick4, RG4, jog5, nick5, RG5, jog6_R, nick6_R, RG6_R, jog7_R, nick7_R, RG7_R, Cla, telefone, celular, email, MSN)"
   ComandoSQL = ComandoSQL & " VALUES ("
   ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("Jog1_C")) & "',"
   ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("nick1")) & "',"
   ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("RG1")) & "',"
   ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("jog2")) & "',"
   ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("nick2")) & "',"
   ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("RG2")) & "',"
   ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("jog3")) & "',"
   ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("nick3")) & "',"
   ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("RG3")) & "',"
   ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("jog4")) & "',"
   ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("nick4")) & "',"
   ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("RG4")) & "',"
   ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("jog5")) & "',"
   ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("nick5")) & "',"
   ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("RG5")) & "',"
   ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("jog6_R")) & "',"
   ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("nick6_R")) & "',"
   ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("RG6_R")) & "',"
   ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("jog7_R")) & "',"
   ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("nick7_R")) & "',"
   ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("RG7_R")) & "',"
   ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("Cla")) & "',"
   ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("telefone")) & "',"
   ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("celular")) & "',"
   ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("email")) & "',"
   ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("MSN")) & "')"
   Set bd = Conexao.Execute(ComandoSQL)
   Conexao.Close
   Set bd = Nothing
   Set Conexao = Nothing
%>

Aí em cima tem alguma alterações necessárias. Segundo: Todas as instruções de inserção no banco está como "texto". Se algum campo do banco de dados for número vai dar erro ok? Então dá essa verificada no banco. Caso haja número, tem que fazer o seguinte:

ComandoSQL = ComandoSQL & "" & Request.FORM("celular") & ","

Observe que foi retirada as aspas simples do código para aceitar números.

Tenta isso e vê o que dá e posta a mensagem de erro caso exista.

Como eu disse, pega das páginas do aspdataform os pedaços que interessam de inclusão, alteração, deletar, etc e monta outra página mais "limpa", eu fazia isso antigamente e dava certo. Mas tem que entender o código.

Belmonte SC · Julho 25, 2006

Cara, tenho algo parecido, só que tenho o sinal de + conforme abaixo, tirei o sinal e dá erro...tenta aí...

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

Belmonte SC · Julho 25, 2006

uso assim"

set con=server.createobject("adodb.connection")

Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../banco/banco.mdb") & ";"

você colocou contra barra!!!

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

Conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("\eventos\cs\bdCS.mdb")

e outra coisa:

se o banco estiver em pasta diferente você precisa sair para entrar na pasta do banco usando o .. , então use ("../pasta/banco.mdb").

falow...

Entrar

Erro Em Script

Pergunta

Link para o comentário

Compartilhar em outros sites

18 respostass a esta questão

Posts Recomendados

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Estatísticas dos Fóruns