Un record diverso ogni giorno

[zeweb]

Ciao dovrei stampare in una pagina un record a caso ogni giorno diverso, praticamente è una vetrina dove vengono presentate delle società sportive, quindi ogni giorno devo vedere un record diverso...è possibile applicarlo a questo mio script?

vi scrivo quello che fin'ora ho usato ma non fa nessun randomize..non so se è possibile, chiedo a voi che siete esperti :-)

<%
    Set objConn = Server.CreateObject("ADODB.Connection")
    Dim objConn
    objConn.ConnectionString = cn
    objConn.Open
    Dim sql
    sql=("SELECT * FROM affiliate ORDER BY id ASC")
    set objRec=server.CreateObject("ADODB.recordset")
    objRec.Open sql, objConn,3,3
    %>

poi in una tabella metto:

<%
response.write "http://<img src=/documenti/logo/"& o...order=""0"" />"
%>

<%
nc = 200 'Numero di caratteri
testo = objRec("storia")
While mid(testo,nc,1) <> " "
nc = nc - 1
Wend
testo = Left(testo,nc) & "<a href=""scheda.asp?ID="& objRec("ID") & """>...leggi &raquo;"
testo = Replace(testo,VbCrLF,"
")
Response.write(replace(testo,". ",". 
"))
%>

poi chiudo

<%
set objRec=nothing
set objConn=nothing
%>

[santino83]

allora

inserisci nella tabella affiliate (o in qualsiasi altra tabella, fai te) il campo "visto" di tipo data in cifre (se usi access) cmq: gg/mm/aaaa

step 1:

controllo che se c'è un record già visto oggi, se c'è mi prendo il suo id:

set rs=server.createobject("adodb.recordset")
sql="select id from affiliate where visto=#" & date() &"#"
rs.open sql,objCon,3,3

if not rs.eof then
idtrovato=rs("id")
else
idtrovato=""
end if

step 2:

se idtrovato="" allora prendo il primo record ella lista di affiliate, altrimenti prendo l'affiliata con id=idtrovato

if idtrovato<>"" then
sql="select * from affiliate where id=" & idtrovato
else
sql="select top 1 * from affiliate order by visto asc"
end if

objRec.open sql, objConn,3,3

if not objRec.eof then
idtrovato=objRec("id")
end if

poi ti fai tutta la tua bella procedura di visualizzazione del record. alla fine di questa fai lo

step 3:

update dell'affiliata visualizzata nel campo visto, che setto alla data odierna

if idtrovato<>"" then
sql="update affiliate set visto=#" & date() & "# where id=" & idtrovato
objConn.execute(sql)
end if

fai la pulizia della memoria chiudendo recordset e connessione


questo è tutto...l'ho buttatat giu cos' ma spero che possa andar bene. se trovi qualcosa di + efficiente fammi un fischio

[zeweb]

Sei stato gentilissimo ma non è che riesci a scrivermi il codice x intero anche con la procedura di visualizzazione del record....è difficile x me...

Grazie comunque

[zeweb]

ma nel campo visto della tabella affiliate devo metterci una data diversa per ogni record? non capisco?

[zeweb]

Strano mi da errore proprio nella parte che avveo già di visualizzzione del record

Item cannot be found in the collection corresponding to the requested name or ordinal.

/prova/rc_casuale.asp, line 31

nella linea di objRec("url")

<% 
	Set objConn = Server.CreateObject ("ADODB.Connection")
	Set objRec = Server.CreateObject ("ADODB.Recordset")
	objConn.ConnectionString = cn
	objConn.Open
	sql="select id from affiliate where visto=#" & date() &"#"
	objRec.open sql,objConn,3,3

	if not objRec.eof then
	idtrovato=objRec("id")
	else
	idtrovato=""
	end if
	
	if idtrovato<>"" then
	sql="select * from affiliate where id=" & idtrovato
	else
	sql="select top 1 * from affiliate order by visto asc"
	end if

	if not objRec.eof then
	idtrovato=objRec("id")
	end if
	%>
<table width="463"  border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td width="150" rowspan="2" valign="top" class="titolini">
      <div align="center">
        <%
response.write "http://<img src=/documenti/logo/"& o...order=""0"" />"
%>
    </div></td>
    <td width="237" class="titoli1"><%=objRec("nome")%></td>
  </tr>
  <tr valign="top">
    <td class="testo">
      <div align="justify">
        <%nc = 200 'Numero di caratteri
testo = objRec("storia") 
While mid(testo,nc,1) <> " "
	nc = nc - 1
Wend
testo = Left(testo,nc) & "<a href=""scheda.asp?ID="& objRec("ID") & """>...leggi &raquo;"
testo = Replace(testo,VbCrLF,"
")
Response.write(replace(testo,". ",". 
"))
%>
    </div></td>
  </tr>
</table>

<%
if idtrovato<>"" then
sql="update affiliate set visto=#" & date() & "# where id=" & idtrovato
objConn.execute(sql)
end if
%>
<%
set objRec=nothing
set objConn=nothing 
%>

[santino83]

<% 
	Set objConn = Server.CreateObject ("ADODB.Connection")
	Set objRec = Server.CreateObject ("ADODB.Recordset")
	objConn.ConnectionString = cn
	objConn.Open
	sql="select id from affiliate where visto=#" & date() &"#"
	objRec.open sql,objConn,3,3

	if not objRec.eof then
	idtrovato=objRec("id")
	else
	idtrovato=""
	end if
	objRec.close
	if idtrovato<>"" then
	sql="select * from affiliate where id=" & idtrovato
	else
	sql="select top 1 * from affiliate order by visto asc"
	end if
        objRec.open sql,objConn,3,3
	if not objRec.eof then
	idtrovato=objRec("id")
	end if
	%>
<table width="463"  border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td width="150" rowspan="2" valign="top" class="titolini">
      <div align="center">
        <%
response.write "http://<img src=/documenti/logo/"& o...order=""0"" />"
%>
    </div></td>
    <td width="237" class="titoli1"><%=objRec("nome")%></td>
  </tr>
  <tr valign="top">
    <td class="testo">
      <div align="justify">
        <%nc = 200 'Numero di caratteri
testo = objRec("storia") 
While mid(testo,nc,1) <> " "
	nc = nc - 1
Wend
testo = Left(testo,nc) & "<a href=""scheda.asp?ID="& objRec("ID") & """>...leggi »"
testo = Replace(testo,VbCrLF,"
")
Response.write(replace(testo,". ",". 
"))
%>
    </div></td>
  </tr>
</table>

<%
if idtrovato<>"" then
sql="update affiliate set visto=#" & date() & "# where id=" & idtrovato
objConn.execute(sql)
end if
%>
<%
set objRec=nothing
set objConn=nothing 
%>

[zeweb]

adesso vedo un record ma sotto mi da:

Microsoft JET Database Engine error '80004005'

Operation must use an updateable query.

/prova/rc_casuale.asp, line 55

[zeweb]

e questa riga

<%
if idtrovato<>"" then
sql="update affiliate set visto=#" & date() & "# where id=" & idtrovato
objConn.execute(sql)
end if
%>

[santino83]

stai in locale?

[zeweb]

no no la pagina è caricata

qui