Banner system

<%
Dim vis, Rs, DBPath, Ialt, sql, Record, RandNum, i
Function Show()
Randomize
RandNum = Int(Rnd * Ialt) + 1
Record.MoveFirst
For i = 1 to RandNum - 1
Record.MoveNext
next
Response.Write "<a href='http://" & Record("http") & "'><img src='" & Record("banner") & "' alt='" & Record("info") & "' border = '0' class='ramme'></a>"
end function

Set Rs = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("banner.mdb")
Rs.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database/database.mdb")
Sql = "Select count(*) as Found from Bannere"
Set Record = Rs.Execute(Sql)

Ialt = Record("found")

Sql = "Select * from Bannere"
Set Record = Rs.Execute(Sql)
%>
<p align="center"><% Response.Write show() %></p>

//>Rune

Dette bannersystem er dog ikke baceret på ASPUpload, men det er intet problem at lave... (jeg har dog ikke tid) -Men du kan gå ind på www.activedeveloper.dk og læse omkring komponenten og se det ud fra det... Det skulle ikke være så svært!

//>Rune

hmm ... Jeg synes ikke ligefremt at du er kvalificeret til at bruge eksperten.dk!!!  ... Du har været her i over et år, og har endnu ikke svaret på et eneste spørgsmål!!!

????? nu mente jeg et lidt mere avanceret bannersystem med admin del og sådan nogle ting

altså et færdigt system!

med banner upload statistik o.s.v.

hehe skulle det ikke være så svært tro mig jeg er ikke særlig sej til programering

hmm ... selvom du ikke kan programmere, kan du da sagtens være med på mange af spørgsmålene herinde!!! ... Det er ikke en gavebod, hvor du bare kan komme ind en gang imellem, og love en masse point (som intet betyder for dig), og så få færdige løsninger! ... jeg kan se at du deltager i 21 spørgsmål, og de 20 har du selv oprettet! ...

Du har helt ret beldring

og fordi jeg ikke gider en til af de diskutioner, som jeg ofte ser her på eksperten. Hvor folk har utrolig travlt med at disse hinanden herinde, ikke fordi du ikke har ret i det her tilfælde, men jeg gider ikke engang begynde.

Det er netop derfor mange skælver hvergang de skal oprette et spm. herinde og jeg synes det er lidt sørgeligt! Og jeg kan godt se nu hvor du skriver det så flot, at jeg burde lukke det her spm. og begynde at svare på en masse før jeg spørger om noget igen.

Jeg bliver bare lige nødt til at sige undskyld for besværet så!!!

Det lyder godt  ;O)

-Vi må jo alle hjælpe hinanden ...