Random i asp

Prøv at gøre sådan her ellers vil random nemlig tage de samme poster ud :

<%
randomize
R=clng(1000000*rnd)
SQL = "SELECT TOP 1 * FROM jokes ORDER BY rnd(-(ID)*" & R & ")"
%>

Tak for det - nu virker det bedre. Mit script ser nu således ud: www.thouber.dk/script.txt

Hvordan sørger jeg for at den ikke viser den samme type flere gange? (Der er flere med ens værdi i "area"-feltet)

Så skal du holde styr på hvad der er vist og udvide din SQL sætning så den ikke medtager noget den har vist.
Skal det gælde for hver bruger kan du gemme det i session variable hvad den har vist, er det generelt så en post kun må vises en gang kan du lave en kolonne i databasen som du sætte når posten har været vist.

.. Og hvordan udvider jeg så min SQL-sætning, så den ikke medtager noget den allerede har vist?

(Hvor den ikke medtager poster, hvor "area" i den nye post, er lig med "area" i en tidligere vist post)

Hvis du har et autonummer kolonne kan du gemme "area i sesssion såsådan her


' SQL forespørgsel
randomize
R=clng(1000000*rnd)
strSQL = "Select top 4 * from apartments Where dato <> Null And Type = 'bolig' "
if Session("vist")<>"" then strSQL = strSQL & " and area not in (" &Session("vist") &") "
strSQL = strSQL & "ORDER BY rnd(-(ID)*" & R & ")"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
if not rs.EOF then
  if session("vist") <> "" then session("vist")=session("vist")&","
  session("vist") = session("vist") & rs("area")
end if



er det en tekst kolonne skal der´ping ' omkring så denne:
  session("vist") = session("vist") & rs("area")

bliver:
  session("vist") = session("vist") & "'" & rs("area") & "'"

Det er et tekst-felt, men jeg kan ikke få det til at virke...

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'dato <> Null And Type = 'bolig' and area not in (Nørrebjerg Runddel 'Nørrebjerg Runddel ')'.

/ny/test2.asp, line 22

du skal kun havde en ene af linjerne.

sådan her:

SQL forespørgsel
randomize
R=clng(1000000*rnd)
strSQL = "Select top 4 * from apartments Where dato <> Null And Type = 'bolig' "
if Session("vist")<>"" then strSQL = strSQL & " and area not in (" &Session("vist") &") "
strSQL = strSQL & "ORDER BY rnd(-(ID)*" & R & ")"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
if not rs.EOF then
  if session("vist") <> "" then session("vist")=session("vist")&","
  session("vist") = session("vist") & "'" & rs("area") & "'"
end if

Jeg får igen samme fejl...

hvordan ser koden ud?

www.thouber.dk/script.txt

Prøv at udkskrive strSQL og ikke udføre den før denne linje:
Set rs = Conn.Execute(strSQL)

Sådan her:

response.write strSQL
response.end
Set rs = Conn.Execute(strSQL)


Og tjek der er ' omkring det i in. Jeg bliver nok til at smutte, så prøv at rode lidt med det :)

Jeg har stadig ikke fået scriptet til at virke... Har du en anden idé til hvordan vi løser problemet?

På forhånd tak for hjælpen...

Det er løsningen, det virker fint :)
Har du prøvet det jeg forslog at udskrive strSQL?

Hvileken fejl får du?