Script tipo "la frase del giorno"

[wegawhite]

Ciao a tutti.

Mi hanno passato qualche giorno fa uno script preparato dal mio predecessore (scappato in sudamerica con la moglie del titolare :maLOL: ), per alcuni aggiornamenti.... praticamente ho finito ma ho un dubbio "amletico" su questi parametri impostati nel dbase access, che per cautela non mi azzardo a modificare:

Nome tabella = config, composta dai seguenti campi:
config_id = contatore chiave primaria
config_variable = testo
config_value = memo

i valori nella tabella sono i seguenti:

config_id = 51
config_variable = quote_of_the_day
config_value = 2

config_id = 52
config_variable = number_quote_of_the_day
config_value = 14

Cosa significano secondo Voi? Lo script è realizzato tipo la "frase del giorno", che cambia ogni qualvolta si entra nella pagina web... vorrei una mano per capire...

[X_Gold*]

Originariamente inviato da wegawhite
Ciao a tutti.

Mi hanno passato qualche giorno fa uno script preparato dal mio predecessore (scappato in sudamerica con la moglie del titolare :maLOL: ), per alcuni aggiornamenti.... praticamente ho finito ma ho un dubbio "amletico" su questi parametri impostati nel dbase access, che per cautela non mi azzardo a modificare: i valori nella tabella sono i seguenti: Cosa significano secondo Voi? Lo script è realizzato tipo la "frase del giorno", che cambia ogni qualvolta si entra nella pagina web... vorrei una mano per capire...

visto cosi' potrebbe essere qualsiasi cosa


un po piu' di codice ?

[wegawhite]

eccolo pronto:

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")

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

l'ho ripulito delle parti non significative....

[X_Gold*]

ma cosa usa file di configurazione ?? VVoVe:

non sapevo si potesse anche in vbs


getConfig che funzione è ?

[wegawhite]

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

[wegawhite]

up