Random function til konkurrencer og lign.

http://activedeveloper.dk/aspdigital/2002010201.asp

http://activedeveloper.dk/aspdigital/2001082901.asp

//>Rune

Prøver dette:
<%
Set RS = Server.CreateObject("ADODB.RecordSet")
RS.open ("SELECT * FROM [users] WHERE ID = ("&_
    "SELECT Min(ID) FROM Tabel WHERE ID >= (" &_
    "SELECT Round(CDbl(" & Replace(Rnd(),",",".") &_
    "*Max(ID))) FROM [users]))")
%>
<%=RS("firstname")%>


Men får følgende fejl:

ADODB.Recordset error '800a0e7d'
Unknown runtime error

/default.asp, line 1550

Her kommer lige den rigtige... UPS!!

<%
Randomize Timer

Set RS = Server.CreateObject("ADODB.RecordSet")
RS.open ("SELECT * FROM [users] WHERE ID = ("&_
    "SELECT Min(ID) FROM [users] WHERE ID >= (" &_
    "SELECT Round(CDbl(" & Replace(Rnd(),",",".") &_
    "*Max(ID))) FROM [users]))")
%>
<%=RS("firstname")%>

Stadig med samme fejl..

Hvilken database bruger du?

//>Rune

Hvis det er en Access db du bruger så prøv med dette:

<%
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("dindatabase.mdb")
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN

Sql = "Select count(*) as Found from [dintabell]"
Set Record =  myConn.Execute(Sql)
Ialt = Record("found")
Sql = "Select * from [dintabell]"
Set Record =  myconn.Execute(Sql)
Randomize
RandNum = Int(Rnd * Ialt) + 1
Record.MoveFirst
For i = 1 to RandNum - 1
    Record.MoveNext()
next

myConn.Close
Set myConn = Nothing
%>

//>Rune

Hej du må for alt i verden ikke bruger dette styk kode http://activedeveloper.dk/aspdigital/2002010201.asp da det giver et usymetrisk udfald. Hvilket betyder der er lige stor chance for alle for at vinde. Altså der er nogle som har størrer sansynlighed for at vinde.


Brug dette hvor du først har en SQL som finde de folk som er vindere med en WHERE del og så vælges et tilfældit tal så kan du hendte oplysninger omkrng person ved hjælp af det unikke ID som en person forhåbenligt har i tabellen:


<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("db5.mdb")

SQL = "SELECT id FROM tabel WHERE kolonnne = 'vinder'"
set rs = Conn.Execute(SQL)
do while not rs.EOF
  idlist = idlist & "," & rs("id")
  rs.movenext
loop
idlist = mid(idlist,2) 'Fjerner første ,
idarr = Split(idlist,",")
randomize
vinderID = idarr(Int(rnd * (Ubound(idarr)+1)))

Response.Write "Vinder ID er : " & vinderID

'Lav en SQL som hendter data omkring brugeren her så

SQL = "SELECT * FROM tabel WHERE id = " & vinderID
set rs = Conn.Execute(SQL)
'Udskriv data

Conn.Close
Set Conn = Nothing
%>

Ja ok - Men hvordan udskriver jeg resultatet?

doh... Der skal stå

Hvilket betyder der IKKE er lige stor chance for alle for at vinde. Altså der er nogle som har størrer sansynlighed for at vinde.

<%
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("dindatabase.mdb")
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN

Sql = "Select count(*) as Found from [dintabell]"
Set Record =  myConn.Execute(Sql)
Ialt = Record("found")
Sql = "Select * from [dintabell]"
Set Record =  myconn.Execute(Sql)
Randomize
RandNum = Int(Rnd * Ialt) + 1
Record.MoveFirst
For i = 1 to RandNum - 1
    Record.MoveNext()
next

Response.Write(Record("Feltnavn"))

myConn.Close
Set myConn = Nothing
%>

//>Rune

Ok tak.. Tester lige

Microsoft JET Database Engine error '80040e10'
No value given for one or more required parameters.

/default.asp, line 1551

[ /default.asp, line 1551  = set rs = MyConn.Execute(SQL) ]