ciao a tutti. Ho questa necessità. Sul mio sito ho inserito le immagini random. però veorrei escludere una categoria di ID=72 in quanto appartenenti ad un'area riservata. Sono due giorni che provo a modificare il codice ma le immagini continuano a vedersi. Posto il codice
<%
Dim SQLRandom, rsRandom, IntRnd
Set rsRandom = Server.CreateObject("ADODB.Recordset")
SQLRandom = "SELECT ID, KategorieID, Preis, ArtName, Image, AusverkaufsPreis, Ausverkauf FROM tab_items"
rsRandom.Open SQLRandom, Conn, 3, , adCmdText
If not rsRandom.EOF then
Randomize Timer
IntRnd = (Int(RND * rsRandom.RecordCount))
rsRandom.Move IntRnd
Dim rImageShow
rImageShow = rsRandom("Image")
if rImageShow = "" then
rImageShow = "noPicture.gif"
end if
%>
Ho provato a sostituire
SQLRandom = "SELECT ID, KategorieID, Preis, ArtName, Image, AusverkaufsPreis, Ausverkauf FROM tab_items"
con
SQLRandom = "SELECT ID, KategorieID, Preis, ArtName, Image, AusverkaufsPreis, Ausverkauf FROM tab_items where KategorieID <> 72"
Ma non cambia nulla. Ciao