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
%>
Rispondi quotando
