Select Random i ASP

Dette spm har været oppe 10000 gange :)

http://www.eksperten.dk/kat/3?sort=&order=DESC&status_1=on&status_2=on&status_3=on&status_4=on&spm_creator=&spm_part=&spm_answer=&find=random&method=and&catid=3&htsort=score&engine=exp

//>Rune

*HOST* *HARK* Ehmmmm....

Jeg kigger lige lidt, så! :-))

Sorry...

Du kan fx. gøre sådan her:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
Conn.Open Application("Provider")
Sql = "SELECT Trailer.Titel, Trailer.Ext_link, Trailer.Dato, Trailer.trailer, TrailerDetail.* FROM TrailerDetail"
rs.Open Sql, Conn, 1

randomize
rs.Move(int(rs.RecordCount * rnd))
Response.Write("</tr>")
Response.Write("<tr valign='top'>")
Response.Write("<td width='145'><img src='image1/" & rs("Pic") & "' width='125' height='186'></td>")
Response.Write("<td width='230' class='tekstboks'><strong>Premiere:</strong><br>")
Response.Write("16 Januar, 2004<br> <br> <strong>Skuespillere:</strong><br>" & rs("skuespiller") & "<br><br>")
Response.Write("<strong>Instrukt&oslash;r:</strong><br>" & rs("Instruk") & "<br><br>")
Response.Write("<strong>Studio:</strong><br>" & ("Studio") & "<br><br>")
Response.Write("<strong>Genre:</strong><br>" & rs("Genre") & "<br><br>")
Response.Write("<strong>Spilletid:</strong><br>" & rs("Tid") & "</td>")
Response.Write("</tr>")
Rs.Close
Conn.Close
Set Rs = Nothing
Set Conn = Nothing
%>

Fx. sådan!

//>Rune

Rune
Tak for det, kunne sgu ikke stykke noget sammen hvor jeg kom nogle vejne..

Dog giver dit følgende fejl:

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

/filmnet/database.asp, line 22

Klaret.

Rettelse:
Sql = "SELECT Trailer.Titel, Trailer.Ext_link, Trailer.Dato, Trailer.trailer, TrailerDetail.* FROM TrailerDetail INNER JOIN Trailer ON TrailerDetail.Id = Trailer.Id"

Tak Rune!! :-)
Smider du lige en svar.

Svar :)

//>Rune

Thx 4 Poinz

//>Rune