Salve,

sto cercando di creare una sezione albums di matrimonio nel mio sito, scontrandomi ogni giorno con qualche problema....questo è l'ultimo

Vorrei fare una pagina in cui si possano visualizzare gli album con casualità, ma solo quelli "pubblici" cioè in cui ho l'ok degli sposi...tutto funziona finchè non inserisco

where pubblico='" & SI & "'

non mi fa vedere più niente...se lo tolgo ovviamente li vedo, ma tutti anche quelli che vorrei nascondere

Perchè?



<%



strAccessDB = "mdb-database/album.mdb"
Set Conn = Server.CreateObject("ADODB.Connection")
strCon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(strAccessDB)
Conn.Open strCon
Set rs = Server.CreateObject("ADODB.Recordset")
query = "SELECT * FROM album where pubblico='" & SI & "'"

rs.Open query,Conn,3,3
if not rs.EOF then

Response.Write"<font color='#800000' size='1'>"
Response.Write "

OGGI ABBIAMO SELEZIONATO

"

N = 4 'numero di record casuali da visualizzare
Randomize
max = rs.RecordCount-1
redim arr(max)
'popolo l'array da 0 al numero di record
for i=0 to max
arr(i)=i
next
'mischio i numeri in modo casuale
for i=0 to max
casuale = Int((max)*Rnd)
temp = arr(i)
arr(i) = arr(casuale)
arr(casuale) = temp
next
'visualizzo gli N record casuali
for i=0 to N-1
rs.Move arr(i)
Response.Write "<table width='180' cellspacing='1'>"
Response.Write "<tr> "
Response.Write "<td width='120' height='35' valign='top' align='center' >"
Response.write "[img]public/" & rs.fields("cognome") & "" & rs.fields("nome") & "/" & rs.fields("fotoa") & " [/img]

"
Response.Write " "
Response.Write "<td width='480' valign='middle'>"

Response.Write"<font color='#800000' size='1'>"

Response.Write " "
nome=Rs("nome")
Response.Write("
<a href='file.asp?id=" & rs.fields("id") & "' target=''>" & _
nome & "</a>
" )


zona=Rs("zona")
if len(zona) > 55 then
zona1=left(zona,55)&" "&"..."
else
zona1=zona
end if
Response.Write zona1

Response.Write "</td>"
Response.Write "</tr>"
Response.Write "</table>"
rs.MoveFirst
next
end if


%>