record che cambia ogni giorno

[slay]

ho bisogno di una mano
vorrei visualizzare nella mia home un record preso a caso dal db e che cambia in automatico ogni giorno
... chi mi da una dritta :bubu:

[slay]

ho messo questo codice la prima parte per trovare l'ultimo id inserito ma non funziona cosa cìè che non va?

quello che vorrei fare io è quello di estrarre 3 record random
il primo scelto dalla codcategoria 3,5,6
il secondo scelto dalla codcategoria 4,7,8
e il terzo dalla codcategoria 2,1,9
codcategoria è la colonna della mia tabella ricette
e dovrebbero variare in automatico ogni giorno


mi date una mano

vorrei visualizzare il titolo della tabella del db e le prime 20/30 parole della descrizione...


<%
Dim con
Set con = Server.CreateObject("ADODB.Connection")
con.Open dcnDB ' da valorizzare
SQL = "SELECT MAX(id) AS MaxId FROM ricette"
Dim rs19
set rs19 = con.Execute(SQL)
If Not rs19.Eof Then
MaxId = rs19("MaxId ")
Else
MaxId = 0
End If
Rs19.Close : Set rs19 = Nothing
%>



<%
Randomize
RandomNumber = Rnd * MaxId
%>
<%'Quindi andiamo ad estrarre un record utilizzando il numero appena calcolato:%>
<%
SQL19 = "SELECT TOP 1 * FROM ricette WHERE id >= " & RandomNumber
set rs19 = con.Execute(SQL)
If Not rs19.Eof Then
Response.Write rs19("id") & " - " & rs19("descrizione")
Else
Response.Write "Nessuna ricetta da visualizzare"
End If
%>

<%
'chiusura rs
rs19.close
set rs19=nothing
%>


grazie grazie

[slay]

pietà di me

[waitec40]

    Function DiffADate()
       DiffADate = Abs (DateDiff("d", Now, "11/06/2004"))
    End Function

  
    sql = "SELECT *  FROM tabella  WHERE id_frase =" & DiffADate

[asdfgasdfg]

per visualizzare l'ultimo puoi anche fare così:
sql = "SELECT * FROM tabella order by id_frase desc"

[slay]

perdonami ora sono riuscito ad estrarre un record con questo script:

SQL = "SELECT Max(ID) AS MaxID, Min(ID) AS MinID FROM ricette"
Dim objRSrnd
Set objRSrnd = dcnDB.Execute(SQL)
Dim maxID, minID, rndID
maxID = objRSrnd("MaxID")
minID = objRSrnd("MinID")
' calcoliamo l'ID casuale
Randomize
rndID = Int((maxID - minID + 1) * Rnd + minID)
' Impostiamo la query per etrarre il record casuale
SQL = "SELECT titolo,descrizione FROM ricette WHERE ID >= " & rndID
' Eseguiamo la query
Set objRSrnd = dcnDB.Execute(SQL) %>
<tr>
<td width="46%" height="19">

</p>
<%'Visualizziamo i risultati della queryobjRSrnd
Response.Write "
"%></td></tr>
<%Dim fld
For Each fld In objRSrnd.Fields
Response.Write " " & objRSrnd(fld.Name) & "
"
Next


dove devo mettere
Function DiffADate()
DiffADate = Abs (DateDiff("d", Now, "11/06/2004"))
End Function

[slay]

[slay]

questa è la mia query


SQL = "SELECT titolo,descrizione FROM ricette WHERE ID >= " & rndID& " and categoriacod <> 17"


come inserisco & DiffADate :master: