codice:
<%
ID = Request.QueryString("id")
IF ID = "" THEN
	ID = 0
END IF

SELECT CASE ID
	CASE 0    ' Quando č il primo accesso


open_recordset rs_getQuote,"select * from quote"
open_recordset	rs,"select * from idate"

if month(now()) < 10 then
   imonth = "0"& month(now())
else
	imonth =  month(now())
end if
idate1 = day(now()) & "/" & imonth & "/" & year(now())

idate2 = formatdatetime(rs("iday"),2)
rs.close

Randomize Timer
intRnd = (Int(RND * rs_getQuote.RecordCount))

if iquote_of_the_day = "1" then
	if idate1 <> idate2 then
	    sql_update = "update config set config_value="&intRnd&" where config_variable = 'number_quote_of_the_day' "
	    conn.Execute(sql_update)	
	    sql_update = "update idate set iday='"&now()&"'"
	    conn.Execute(sql_update)	
	    rs_getQuote.Move intRnd
	else	
		rs_getQuote.Move inumber_quote_of_the_day
	end if
else
	if session("id") = intRnd then
	   do while session("id") = intRnd
	   	  intRnd = (Int(RND * rs_getQuote.RecordCount))
	   loop
	end if
	rs_getQuote.Move intRnd
	session("id") = intRnd
end if

campoMemo=replace(rs_getQuote("quote"),chr(13),"
")
			strCitazione = Mid(campoMemo,1,3000)
			strAutore = rs_getQuote("author")
			ID = rs_getQuote("id")
			strLink = "<span class='testo'>"& strCitazione & "</span><a href='index.asp?id="& ID &"' target='_self'>
....Leer mįs....</a>" 

	CASE ELSE   ' Quando si č cliccato su continua per visualizzare il resto della frase
			open_recordset rs_getQuote,"select * from quote where ID = " & ID		

			campoMemo=replace(rs_getQuote("quote"),chr(13),"
")
			strCitazione = campoMemo
			strAutore = rs_getQuote("author")
			strLink = "<span class='testo'>"& strCitazione & "</span>"		
			strLink = strLink & "
<a href='index.asp' target='_self'>

estrai altro record</a>"

END SELECT


%>
prova questo