random fra 3 kolonner

Det her script tæller først antallet af rækker i din database og derefter laver den en randomize og gå så til en random række.

Så skal du bar lige lave en random til(samme princip) som vælger hvilken kolonne det skal være.

Håber du forstår.

<%
Sql = \"Select count(*) as Found from Users\"
Set Record =  Rs.Execute(Sql)

Ialt = Record(\"found\")

Randomize
RandNum = Int(Rnd * Ialt) + 1
Record.MoveFirst
For i = 1 to RandNum - 1
  Record.MoveNext
next
%>

smadre lige nogen flere point på for et fuldt eksempel :)

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.mappath(\"data.mdb\")
Set rs = Server.CreateObject(\"ADODB.RecordSet\")

randomize
kolNo = Int(rnd*(3-1))+1

strSQL = \"SELECT * FROM random;\"
rs.Open strSQL, Conn, 3, 1
rndMax = CInt(rs.RecordCount)

if rndMax > 0 then
  Randomize
  rndNumber = Int((RND * rndMax))    \'Find et random nummer
  rs.Move rndNumber    \'Flyt til den første valgte record

  Response.Write rs(\"\" & kolNo)  \'udskriver her fra kolonne 1,2 eller 3
end if
rs.Close
Set Conn = Nothing
%>

eagleeye :) Den skal finde et ord fra hver kolonne, og randomize dem, sådan så den ikke hiver 3 ord ud, med samme ID altså noget ala sådan her


ID | 1 | 2 | 3 |
1  to  en  bi
2  si  ko  øl
3  yo  cd 
4      rs

Sådan så at outputtet vil være noget ala

si cd bi

:)

hmm håber du kan se ideen, formateringen af det der ovenover er ikke for fed

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.mappath(\"dbfil.mdb\")
Set rs = Server.CreateObject(\"ADODB.RecordSet\")

strSQL = \"SELECT count(1) as antal FROM random;\"
set rs = conn.execute(strSQL)
randomize
rndNumber = Int(RND * rs(\"antal\")) \'Find et random nummer
strSQL = \"SELECT * FROM random;\"
set rs = conn.execute(strSQL)
rs.move rndNumber
response.write rs(\"1\")

strSQL = \"SELECT count(2) as antal FROM random;\"
set rs = conn.execute(strSQL)
randomize
rndNumber = Int(RND * rs(\"antal\")) \'Find et random nummer
strSQL = \"SELECT * FROM random;\"
set rs = conn.execute(strSQL)
rs.move rndNumber
response.write rs(\"2\")

strSQL = \"SELECT count(3) as antal FROM random;\"
set rs = conn.execute(strSQL)
randomize
rndNumber = Int(RND * rs(\"antal\")) \'Find et random nummer
strSQL = \"SELECT * FROM random;\"
set rs = conn.execute(strSQL)
rs.move rndNumber
response.write rs(\"3\")

Set Conn = Nothing
%>

Lige det sidste spørgsmål, den tager posterne fra samme ID det skal den ikke :(
Og hvis der lad os sige er 50 poster i kolonne 1
30 i 2 og 40 i 3 , så hvis scriptet vælger post 39 får man kun 2 poster :( HELP det sidste

http://www.cliche.dk/generator/

underligt den vægler fint 3 forskellige ID\'s i min test fil.
kikker lige på det igen

jeg kan dog godt lave det sidste problem du beskriver

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.mappath(\"dbfil.mdb\")
Set rs = Server.CreateObject(\"ADODB.RecordSet\")

strSQL = \"SELECT count([1]) as antal FROM random;\"
set rs = conn.execute(strSQL)
randomize
rndNumber = Int(RND * rs(\"antal\")) \'Find et random nummer
strSQL = \"SELECT * FROM random;\"
set rs = conn.execute(strSQL)
rs.move rndNumber
response.write rs(\"1\")

strSQL = \"SELECT count([2]) as antal FROM random;\"
set rs = conn.execute(strSQL)
randomize
rndNumber = Int(RND * rs(\"antal\")) \'Find et random nummer
strSQL = \"SELECT * FROM random;\"
set rs = conn.execute(strSQL)
rs.move rndNumber
response.write rs(\"2\")

strSQL = \"SELECT count([3]) as antal FROM random;\"
set rs = conn.execute(strSQL)
randomize
rndNumber = Int(RND * rs(\"antal\")) \'Find et random nummer
strSQL = \"SELECT * FROM random;\"
set rs = conn.execute(strSQL)
rs.move rndNumber
response.write rs(\"3\")

Set Conn = Nothing
%>



hvis du ikke vil lave dine kolonne navne om kan man lave det i en for løkke...
for i = 1 to 3
...
next
??

her er eks med for i=1 to 3

for i = 1 to 3
  strSQL = \"SELECT count([\"&i&\"]) as antal FROM random;\"
  set rs = conn.execute(strSQL)
  randomize
  rndNumber = Int(RND * rs(\"antal\")) \'Find et random nummer
  strSQL = \"SELECT * FROM random;\"
  set rs = conn.execute(strSQL)
  rs.move rndNumber
  response.write rs(\"\"&i)
next

Denne her hendter du data fra den kolonne som man er kommet til:

for i = 1 to 3
  strSQL = \"SELECT count([\"&i&\"]) as antal FROM random;\"
  set rs = conn.execute(strSQL)
  randomize timer
  rndNumber = Int(RND * rs(\"antal\")) \'Find et random nummer
  strSQL = \"SELECT [\"&i&\"] FROM random;\"
  set rs = conn.execute(strSQL)
  rs.move rndNumber
  response.write rs(\"\"&i)
next

eagleeye, nu virker det med den her

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.mappath(\"dbfil.mdb\")
Set rs = Server.CreateObject(\"ADODB.RecordSet\")

strSQL = \"SELECT count([1]) as antal FROM random;\"
set rs = conn.execute(strSQL)
randomize
rndNumber = Int(RND * rs(\"antal\")) \'Find et random nummer
strSQL = \"SELECT * FROM random;\"
set rs = conn.execute(strSQL)
rs.move rndNumber
response.write rs(\"1\")

strSQL = \"SELECT count([2]) as antal FROM random;\"
set rs = conn.execute(strSQL)
randomize
rndNumber = Int(RND * rs(\"antal\")) \'Find et random nummer
strSQL = \"SELECT * FROM random;\"
set rs = conn.execute(strSQL)
rs.move rndNumber
response.write rs(\"2\")

strSQL = \"SELECT count([3]) as antal FROM random;\"
set rs = conn.execute(strSQL)
randomize
rndNumber = Int(RND * rs(\"antal\")) \'Find et random nummer
strSQL = \"SELECT * FROM random;\"
set rs = conn.execute(strSQL)
rs.move rndNumber
response.write rs(\"3\")

Set Conn = Nothing
%>

Så jeg takker for indsatsen :9