Ogni giorno una novità diversa

[orcim]

Ciao, avrei necessità di realizzare in ASP una procedura che prelevasse alcune notizie da un dbase access, settimanalmente aggiornato, e che in automatico facesse "girare" le notizie... una diversa per ogni giorno della settimana... esempio:

lunedì = notizia economica
martedì = notizia di cronaca
mercoledì = notizia di sport
giovedì = notizia di cultura
venerdì = notizia di comunicazione
sabato = notizia gossip
domenica = notizia religiosa

da dove comincio???? :master:

Grazie

[ZeroCool981]

fai 3 tabelle.
1) giorni
2) notizie
3) categorie

relazioni ogni giorno a ogni notizia
e ogni notizia alla categoria relativa

[orcim]

Grazie ho creato il dbase con 3 tabelle:

1) giorni
IDgiorno
giorno

2) notizie
IDNotizia
Notizia

3) categorie
IDCat
categoria

ognuna delle tabelle contiene 7 records relazioni tra loro tramite gli ID di ciascuna tabella relazionati uno-a-uno

vado bene? e poi?

[rixx]

io farei una sola tabella con:
id giorno news cat true/false

true/false indica se la news èp già passata o meno...

[orcim]

Dunque vado avanti con i vs. consigli... adesso ho un problema... alcune notizie sono come numero di righe più lunghe rispetto a quelle che si possono visualizzare realmente sulla hp.

Altre invece si leggono per intero.

Per quelle che vengono "tagliate" esiste in asp una maniera per far vedere un'anteprima e poi indicare un link sul quale cliccare per completarne la lettura??? :master:

[orcim]

Ho inserito questa riga, ma quando clicco sul link non si apre la continuazione del testo che sto visualizzando, ma il testo successivo contenuto nel record del dbase... dove sbaglio?

<% Response.Write "" & Mid(rs_getQuote("quote"), 1, 15) & "" %>

[orcim]

Sto anche provando così, ma va in errore:

<% Response.write "<span class='testo'>"& Mid(rs_getQuote("quote"), 1, 15) & "</span>...leggi

Error Type:
Microsoft VBScript compilation (0x800A0409)
Unterminated string constant

[orcim]

mi spiego meglio nella barra degli indirizzi quando chiamo la pagina mi ritrovo: http://www.miapaginaweb/quote/index.asp?&id=6

mentre il response write di prima mi linka a: http://www.miapaginaweb/quote/index.asp?&id=1

qualcuno sa spiegarmi perchè????

[orcim]

Oggi non c'è trippa per gatti... posto il code completo perchè non so più

<%Response.Buffer = True%> 



<%

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


Response.write "<span class='testo'>"& Mid(rs_getQuote("quote"), 1, 20) & "</span>Continua...."

rs_getQuote.Close
Set rs_getQuote = Nothing
%>

[orcim]

up