citatscript ??

yeps helt bestemt, jeg har et kørende på www.dinos.dk som du er mere end velkommen til at stjæle koden til :)

koden kan findes på http://www.dinos.dk/index.php?op=5 , under linket der sjovt nok hedder "citatscript"

ok, jeg glemte at sige at det skal være til access og i asp

lige så meget min fejl, glemte at se kategorien :)

Lidt ala :

  Dim Rs, Count, Record
  Call Randomize()
  Set Rs = m_Conn.Execute("Select Count(*) From tblQuotes")
  Count = CLng(Rs(0)*Rnd())

  Set Rs = m_Conn.Execute("Select Top "&Count&" * From tblQuotes")

  Do While Rs.Eof = False
    Record=Rs(2)
    Rs.MoveNext
  Loop

  Response.Write(Record)

databasen hedder users, tabellen hedder users og kolonnen hedder citat kan du lave en conn der henter fra det og spytter citater ud der skifter for hvert reload. Du skal huske at der er mange af felterne der er blanke (700 medlemmer og kun ca. 30 citater udfyldt)

noget ala:


  Dim Rs, Count, Record
  Call Randomize()
  Set Rs = m_Conn.Execute("Select Count(*) From users Where Not citat=''")
  Count = CLng(Rs(0)*Rnd())

  Set Rs = m_Conn.Execute("Select Top "&Count&" * From users Where Not citat=''")

  Do While Rs.Eof = False
    Record=Rs(2)
    Rs.MoveNext
  Loop

  Response.Write(Record)

du kan evt. selv prøve at lære lidt om de ting du beskæftiger dig med, tak

??