Random

Jeg så et lille random kode der var lagt ud på nettet.
Det har jeg lavet lidt mere om på, ikke så meget.
Nu har jeg lavet et random system der virker og ikke er så vildt

Koden fylder ikke mere ind 30 liner
Her er koden som kan bestå af en fil. Men jeg har valgt at ligge den i to filer, da den ene fil kun skal bruges til at opdate felte (NR) i databasen .

 
Fil nr. 1
Ps. du skal have et felt der hedder nr.
#code_start#
<% sql=\"SELECT * FROM salg order by nr desc\"
Set RS = conn.Execute(Sql)
nr = rs(\"nr\")
Randomize
intChoice = Int(Rnd * nr ) %>
<% sql=\"SELECT * FROM salg WHERE nr=\" & intChoice
Set RS = conn.Execute(Sql) %>
------ Her efter kan du tag de felter du vil have ind ----
#code_end#

Næste fil

#code_start#
Fil nr 2 ---- Her opdater du felte (NR). Det kan du bare få brugerne til at opdater når der indsættes nye data i databasen------
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.mappath(\"data.mdb\")

Set rs = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"Select * from salg\"
rs.Open strSQL, Conn, 1, 3
i = 0
if rs.EOF then
else
Do Until rs.EOF
rs.Update
rs(\"nr\") = i
rs.Update
RS.MoveNext
i = 1+I
Loop
end if
rs.Close
Set rs = Nothing
response.redirect (\"dit sted\")
%>
#code_end#
Hilsen Jan Hansen ps. håber at i kan bruge det.
Hvis der er stavefejl...må i undskylde det...er ikke den bedste til det.