Roulette

Er der ik\' nogen der kan give et eksempel ?? Jeg kan godt afsætte nogle flere point

http://www.viewsource.dk/aspsearch3.asp?ID=18
http://www.viewsource.dk/asp/Navigation/Linkroulette/Linkroulette.asp

hmmm det første link er lidt mærklig

bare søg på roulette så kommer den frem

hmmm nu virker det sku

glem min sidste kommentar

Prøv med denne:

<%
\'//Connection
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"banner.mdb\")
Conn.Open DSN

\'//Her tæller vi så alle bannerne
sql = \"select count(*) as antal from banner\"
set rs = Conn.Execute(sql)

\'//Lægger antallet af bannere i en variabel
antal_bannere = rs(\"antal\")

\'//Lukker dette recordset
rs.close

\'//Laver et tilfældigt tal udfra antallet af bannere
Randomize
random_id = int(rnd * antal_bannere) + 1


\'//Laver et recordset med det tilfældige banner
sql = \"select * from banner where id = \" & random_id & \"\"

\'//Laver Recordset
Set rs = Server.CreateObject(\"ADODB.Recordset\")
rs.Open sql, conn, 1, 3

    \'//Opdaterer feltet med visninger med 1 ekstra
    rs.update
    rs(\"vist\") = rs(\"vist\") + 1
    rs.update

\'//Smider billedet ud som et link
Response.Write(\"<center><a href=click_banner.asp?id=\" & rs(\"id\") & \" target=\'_blank\'><img border=0 src=\" & rs(\"billede\") & \" alt=\'Klik her!\'></a></center>\")


\'//Lukker recordsettet og connectionen
rs.close
set rs = nothing
Conn.Close
Set Conn = Nothing
%>
<html>

<head>
<title></title>
</head>

<body>
</body>
</html>

Jeg har lavet et som du kan finde på: www.klemensker-if.dk/jacob/netcoders/

Hvis du får problemer med det, så bare skriv.

Mvh. Jacob

Jeg giver jer alle sammen 33 point, fordi jeg syntes at alle jeres bud er gode :)

Håber det er ok.

/Snuseren.dk