Frases aleatorias

[exercito 0]

Boa tarde moçada...

Peguei um script em que ele mostra uma frase de modo aleatorio.

Porém na página de administração não consigo acessar dando esse erro:

Agora dá esse erro qd acesso a página do admin:

 

"Microsoft JET Database Engine error '80040e14'

 

Syntax error in FROM clause.

 

/frases/function.asp, line 19 "

 

 

o para acessar a página é essa:

 

<%Response.Buffer = True%>

<%

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

strMyConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\home\frase\dados\frases.mdb;"

 

strLogin = ""

strPassword = ""

conn.open strMyConn, strLogin, strPassword

 

function checkuser(val)

if session("userid") = "" then

response.redirect "login.asp"

end if

end function

 

 

sub open_recordset(recordset, sql)

Set recordset = Server.CreateObject("ADODB.Recordset")

recordset.open sql, conn, 1, 1end sub

 

 

function DLookUp(Table,fName, sWhere)

on error resume next

Dim Res : Res = conn.execute("select " & fName & " from " & Table & " where " & sWhere).Fields(0).Value

if IsNull(Res) then Res = ""

DLookUp = Res

on error goto 0

end function

 

 

function getConfig(var)

getConfig=Dlookup("config","config_value","config_variable='" & var & "'")

end function

 

%>

[lucastroy 0]

você NÃO CRIOU O SQL....

 

 

 

você CRIOU A CONEXÃO COM O BD E CHAMOU O SQL SÓ Q você NÃO CRIOU O SQL....

 

 

sub open_recordset(recordset, sql)

Set recordset = Server.CreateObject("ADODB.Recordset")

recordset.open sql, conn, 1, 1end sub

 

 

TEORICAMENTE SERIA ASSI:

 

sub open_recordset(recordset, sql)

Set recordset = Server.CreateObject("ADODB.Recordset")

SQL = "SELECT * FORM suatabela"

recordset.open sql, conn, 1, 1end sub

[exercito 0]

Chefe, fiz a modificação e não deu certo ... deu o seguinte erro:

 

Microsoft JET Database Engine error '80040e14'

 

Syntax error (missing operator) in query expression '* FORM frases'.

 

/frases/function.asp, line 20

 

Pelo que entendi era só incluir essa linha que você me passou:

 

"SQL = "SELECT * FORM frases"

 

Ficando aquele código assim:

 

sub open_recordset(recordset, sql)

Set recordset = Server.CreateObject("ADODB.Recordset")

"SQL = "SELECT * FORM frases"

recordset.open sql, conn, 1, 1end sub

 

O BD se chama Frases, dentro dela tem essas tabelas: config, idate,quote e user.

 

Caso queira o código todo para testar tá aqui:

http://www.superasp.com.br/conteudo/artigos/artigo_401.asp

 

Onde errei, chefia?

[Mário Monteiro 179]

num é FORM e sim FROM

[exercito 0]

MANO TÁ fYODA...sub open_recordset(recordset, sql)Set recordset = Server.CreateObject("ADODB.Recordset")SQL = "SELECT * FROM QUOTE"recordset.open sql, conn, 1, 1end subCONTINUA NA MESMA... TEM COMO VCS BAIXAREM O ARQUIVO E CORRIGIR E MANDAR?TÁ FOGO!

[Mário Monteiro 179]

cara é o seguinte, num da pra fazer magica...você deve colocar os valores corretos...vou tentar explicaro * significa todos os campos, se quiser pegar algum especificos, poe os nomes deles separados por virgulaO from vai dizer de onde você vai selecioanre o que vem depois é o nome da tabela que acredito que não seja QUOTEdeve ser algo assimSELECT * FROM NOME_DA_TABELA

[exercito 0]

Valeu pela dica... mas dá o mesmo erro fazendo tais alterações. Dificil pra mim... ou o código tá com outro erro.Aguardo outras dicas ou a solução.

[abcd_man 0]

Mostra o esquema do banco de dados,.

[Mário Monteiro 179]

faz o seguinte poe aqui pra gente o trecho do codigo que retorna o erro??

[exercito 0]

Tá postado acima o link para o código todo.Aguardo.

[abcd_man 0]

Que link???

[abcd_man 0]

Ah entendi, o código não é teu ... infelizmente não tenho tempo pra olhar o código todo, mas o não te preocupa que o Mário te ajuda.

[Mário Monteiro 179]

Ah entendi, o código não é teu ... infelizmente não tenho tempo pra olhar o código todo, mas o não te preocupa que o Mário te ajuda.

pow ulisses que papo é esse???

[exercito 0]

quebra esse galho aí moçada... o código tá 10... só não consegui fazer funcionar essa area administrativa.Falta só isso pra eu botar ele pra ser usado no site.

[Mário Monteiro 179]

aqui sub open_recordset(recordset, sql)Set recordset = Server.CreateObject("ADODB.Recordset")"SQL = "SELECT * FORM frases"recordset.open sql, conn, 1, 1end subtente mudar parasub open_recordset(recordset, sql)Set recordset = Server.CreateObject("ADODB.Recordset")recordset.open sql, conn, 1, 1end subou seja quebre esta linha do end sub, quanto ao sql, creio que esteja sendo passado por parametro, então poste o trecho do codigo que chama esta subfica dificil parar o que estamos fazendo para analizar um codigo inteiro, você selecionando o trecho do erro torna mais rapido e ainda aprende um bocado com a experiencia dos erros...faça isso

[exercito 0]

Entendi... olha o código aí... e mesmo fazendo o seu ultimo post...não deu ainda...

 

<%Response.Buffer = True%>

<%

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

strMyConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\home\cssiiexercito\dados\frases.mdb;"

strLogin = ""

strPassword = ""

conn.open strMyConn, strLogin, strPassword

 

function checkuser(val)

if session("userid") = "" then

response.redirect "login.asp"

end if

end function

 

 

sub open_recordset(recordset, sql)

Set recordset = Server.CreateObject("ADODB.Recordset")

sql = SELECT * FROM frases

recordset.Open sql, conn, 1, 1

end sub

 

 

function DLookUp(Table,fName, sWhere)

on error resume next

Dim Res : Res = conn.execute("select " & fName & " from " & Table & " where " & sWhere).Fields(0).Value

if IsNull(Res) then Res = ""

DLookUp = Res

on error goto 0

end function

 

 

function getConfig(var)

getConfig=Dlookup("config","config_value","config_variable='" & var & "'")

end function

 

%>

 

o Banco se chama frases... dentro dele tem a tabela: user, quote,config, idate

[Mário Monteiro 179]

como disse anteriormentesub open_recordset(recordset, sql)Set recordset = Server.CreateObject("ADODB.Recordset")sql = SELECT * FROM frasesrecordset.Open sql, conn, 1, 1end subaqui não deve ter esta linhasql = SELECT * FROM frasesisto deve ser passado onde esta SUB é chamada...qual page usa elatente procurar algo comoCALL open_recordset(recordset, sql)lá você deve passar os parametros corretamente...

[exercito 0]

Procurei no código todo algo como:CALL open_recordset(recordset, sql)conforme a dica de vcs e infelizmente não encontrei... Tá dificil.Fiz tudinho que vcs passaram e nada.Aguardo outra orientação.

[exercito 0]

<!--#include file="function.asp"--><%Dim background1 : background1 = "#"&getConfig("background1") Dim background2 : background2 = "#"&getConfig("background2")Dim iwidth : iwidth = getConfig("iwidth") Dim iheight : iheight = getConfig("iheight") Dim textcolor1 : textcolor1 = "#"&getConfig("textcolor1")Dim textcolor2 : textcolor2 = "#"&getConfig("textcolor2")Dim iquote_of_the_day : iquote_of_the_day = getConfig("quote_of_the_day") Dim inumber_quote_of_the_day : inumber_quote_of_the_day = getConfig("number_quote_of_the_day") %>

[exercito 0]

Fiz isso e não encontrei nada... Aquilo que você me oerguntou sobre o arquivo...esse é o único arquivo que usa a include : function.asp ou seja ele é chamado aí...e dentro do Function.asp tem aquilo que já postei antes e o erro.