olá...acho que vc abusou veio..colocou sua senha, banco de dados e host...modifica tudo lá que todo mundo ta acessando seu banco de dados veio, caraca vc é doido fazer isto.
vc esqueseu de trocar o set
Set conexao = Server.CreateObject("ADODB.Connection")
por
Set conex = Server.CreateObject("ADODB.Connection")
no topo da conexao...e modifica sua senha que vc postouela aqui ai todo mundo ta acessando sua conta no DB..ve isto ai....caraca.
faz assim:
<%
' Neste arquivo estão as configurações do site.
dim titulo_pagina
titulo_pagina = "BRASFEST - O seu site de festas."
inicio_t = Timer
' Funcções de Validação
Set RS = server.CreateObject("ADODB.RecordSet")
Set RS1 = server.CreateObject("ADODB.RecordSet")
Set RS2 = server.CreateObject("ADODB.RecordSet")
Set RS3 = server.CreateObject("ADODB.RecordSet")
Set RS4 = server.CreateObject("ADODB.RecordSet")
Set RS6 = server.CreateObject("ADODB.RecordSet")
Set RSM = server.CreateObject("ADODB.RecordSet")
Set RSB = server.CreateObject("ADODB.RecordSet")
Set RSA = server.CreateObject("ADODB.RecordSet")
Set Conex = Server.CreateObject("ADODB.Connection")
Conex.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};"_
& "SERVER=67.19.166.82;"_
& " DATABASE=brasfest;"_
& "UID=brasfest;PWD=festsenha; OPTION=3"
Conex.Open "brasfest"
%>
Pode ficar tranquilo manow! q nao e essa a senha nao! isso dai e ficticio!
abraços vo fazer o teste obrigado pela ajuda!
olá...acho que vc abusou veio..colocou sua senha, banco de dados e host...modifica tudo lá que todo mundo ta acessando seu banco de dados veio, caraca vc é doido fazer isto.
vc esqueseu de trocar o set
Set conexao = Server.CreateObject("ADODB.Connection")
por
Set conex = Server.CreateObject("ADODB.Connection")
no topo da conexao...e modifica sua senha que vc postouela aqui ai todo mundo ta acessando sua conta no DB..ve isto ai....caraca.
faz assim:
<%
' Neste arquivo estão as configurações do site.
dim titulo_pagina
titulo_pagina = "BRASFEST - O seu site de festas."
inicio_t = Timer
' Funcções de Validação
Set RS = server.CreateObject("ADODB.RecordSet")
Set RS1 = server.CreateObject("ADODB.RecordSet")
Set RS2 = server.CreateObject("ADODB.RecordSet")
Set RS3 = server.CreateObject("ADODB.RecordSet")
Set RS4 = server.CreateObject("ADODB.RecordSet")
Set RS6 = server.CreateObject("ADODB.RecordSet")
Set RSM = server.CreateObject("ADODB.RecordSet")
Set RSB = server.CreateObject("ADODB.RecordSet")
Set RSA = server.CreateObject("ADODB.RecordSet")
Set Conex = Server.CreateObject("ADODB.Connection")
Conex.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};"_
& "SERVER=67.19.166.82;"_
& " DATABASE=brasfest;"_
& "UID=brasfest;PWD=festsenha; OPTION=3"
Conex.Open "brasfest"
%>
Pode ficar tranquilo manow! q nao e essa a senha nao! isso dai e ficticio!
abraços vo fazer o teste obrigado pela ajuda!
Manow eu fiz oq vc mandou!
botei isso oh:
<%
' Neste arquivo estão as configurações do site.
dim titulo_pagina
titulo_pagina = "BRASFEST - O seu site de festas."
inicio_t = Timer
' Funcções de Validação
Set RS = server.CreateObject("ADODB.RecordSet")
Set RS1 = server.CreateObject("ADODB.RecordSet")
Set RS2 = server.CreateObject("ADODB.RecordSet")
Set RS3 = server.CreateObject("ADODB.RecordSet")
Set RS4 = server.CreateObject("ADODB.RecordSet")
Set RS6 = server.CreateObject("ADODB.RecordSet")
Set RSM = server.CreateObject("ADODB.RecordSet")
Set RSB = server.CreateObject("ADODB.RecordSet")
Set RSA = server.CreateObject("ADODB.RecordSet")
Set Conex = Server.CreateObject("ADODB.Connection")
Conex.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};"_
& "SERVER=67.19.166.82;"_
& " DATABASE=brasfest;"_
& "UID=brasfest;PWD=147852net; OPTION=3"
Conex.Open "brasfest"
%>
só q nao deu do mesmo jeito!
ai eu inseri a porta nessa linha q vc nao colocou!
& "SERVER=67.19.166.82;PORT=3306;"_
mas mesmo assim nao deu! to precisando isso com urgencia se puder me ajudar! eu do uma graninha pra vc pra mim ajudar a por isso pra funcionar o site sempre fico no ar só q o provedor resolveu tirar a conexão pelo painel com o drive odbc e pediram pra mim fazer via codigo q e mais seguro!
Abraços me adiciona no msn pra gente ver isso to precisando com urgencia mesmo se tiver ai mais alguem disposto a me ajudar!
edenis_oliveira@gmail.com