[Resolvido] dica aleaória diária

[AlexCT 0]

DICA ALEATÓRIA DIÁRIANão foi eu que fiz o script inteiro e sim adaptei para o que eu precisava, criando a parte de verificação de data.BD: db_jogo.mdbTabela: jogos - campos: id, descricao, materialTabela: dia_rnd - campos: data, id_ativ<%Set Conn= server.createobject("adodb.connection")DSNtest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("database/db_jogo.mdb")Conn.Open DSNtestResponse.expires = 0SQL = "SELECT * FROM jogos"set RS = Server.CreateObject("ADODB.RecordSet")RS.Open SQL, Conn, 3, ,adCmdTextRANDOMIZE timerid_rnd = INT(RND * RS.RecordCount)RS.Close'######## VERIFICA SE A DATA DE HOJE a mesma de DATA BD #################Set RSdia_rnd = conn.execute("Select * from dia_rnd")Session.LCID = 1046hoje = day(now)&"/"&month(now)&"/"&year(now)IF hoje = RSdia_rnd("data") THEN id_rnd = RSdia_rnd("id_ativ")ELSE SQL_updia_rnd = "UPDATE DISTINCTROW dia_rnd SET data = '" & hoje & "', id_ativ = '" & id_rnd & "'"Set RS_updia_rnd = conn.Execute(SQL_updia_rnd)END IF'######## FIM da VERIFICAÇÃO #################SQL2 = "SELECT * FROM jogos WHERE id LIKE '"& id_rnd &"'"set RS2 = conn.execute(SQL2) 'ou assim RS.open SQL2, ConnWHILE not RS2.EOF%>' ########### Aqui vem a parte HTML #################<table . . . <%=RS2("descricao")%> <% = RS2("material")%> . . .</table>' ########### FIM - Aqui vem a parte HTML #################<% RS2.MoveNextWENDset RSdia_rnd = nothingset RS_updia_rnd = nothingset RS2 = nothingset RS = nothingConn.Closeset Conn = nothing%>