slumpa

hur får jag det här och slumpa bild varje 10 min??

<%
strSQLimg = "SELECT [id], username, bild, kon, alder FROM members WHERE NOT bild = 'Bilder\Medlemmar\ingen.gif' ORDER BY datum desc"

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("database/members.mdb")

Set objRSimg = objConn.Execute(strSQLimg)

If Not objRSimg.EOF Then
varArray = objRSimg.GetRows()
End If

Set objRSimg = Nothing

objConn.Close
Set objConn = nothing

Set objArray = New clsArray
With objArray
.ArrayType = 2 
.Positions = 4
.SetArray varArray

'## -- get randomly data as array --

varImages = .Random(6)
End With
Set objArray = Nothing

'## -- show random images --

If IsArray(varImages) Then
For N = 0 TO UBound(varImages,2)

newage = DateDiff ("d", varImages(4,N), Now)
newage = newage - (newage Mod 365)
newage = newage / 365

response.write "<a href=""krypin.asp?checkid=" & varImages(0,N) & """><img src=""" & varImages(2,N) & """ alt=""" & varImages(1,N) & "&nbsp;"& left(varImages(3,N),1)& newage &""" border = ""0"" width= ""69"" height= ""89""></a>"
Next
end if
%>

Tidsinställd ASP? Nja.. det låter inte möjligt. :l

------------------
Jag gillar chokladblå himmel.

Det kommer inte att ändras från någon besöker sidan och exekverar skriptet.

mvh Jörgen :)

------------------
"När forumledarna är på gott humör går det också att få ett eller annat
vettigt ord ur dem." /Hypatia 2002

Du måste reloada sidan.
Om du har denna "sida" i en egen frame så är det ju lätt att göra genom META taggen

<%
Response.AddHeader "REFRESH", "600,URL=minreloadsida.asp"

strSQLimg = "SELECT [id], username, bild, kon, alder FROM members WHERE NOT bild = 'Bilder\Medlemmar\ingen.gif' ORDER BY datum desc"
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("database/members.mdb")

Set objRSimg = objConn.Execute(strSQLimg)

If Not objRSimg.EOF Then
varArray = objRSimg.GetRows()
End If

Set objRSimg = Nothing

objConn.Close
Set objConn = nothing

Set objArray = New clsArray
With objArray
.ArrayType = 2 
.Positions = 4
.SetArray varArray

'## -- get randomly data as array --

varImages = .Random(6)
End With
Set objArray = Nothing

'## -- show random images --

If IsArray(varImages) Then
For N = 0 TO UBound(varImages,2)

newage = DateDiff ("d", varImages(4,N), Now)
newage = newage - (newage Mod 365)
newage = newage / 365

response.write "<a href=""krypin.asp?checkid=" & varImages(0,N) & """><img src=""" & varImages(2,N) & """ alt=""" & varImages(1,N) & " "& left(varImages(3,N),1)& newage &""" border = ""0"" width= ""69"" height= ""89""></a>"
Next
end if
%>

cya,
PatrikB

------------------
-=* IF there is a wrong way to do something, then someone will do it *=-

Du kan även lösa det med javascript antar ajg, eftersom det exekverar hos klienten

Du läser in alla bilder på sidan i asp, men lägger dem i ett javascript. Sen har du ett javascript som ändrar bilden var 10 min, då behövs ingen reload.

Fråga på Javascript forumet så får du nog exakt hjälp

------------------
Alt-F4 for help
------------------

Javascriptlösningen funkar om det är ett fåtal bilder.
Som jag fattar det så kan det bli en hel del bilder och då är inte javascriptlösningen ett alternativ, enligt min åsikt eftersom varje bild måste reloadas först .... hemska tanke om det finns 100-talet bilder att preloada först.

borde iof gå med RemoteScripting, fast då får någon med de kunskaperna rycka in :e

cya,
PatrikB

------------------
-=* IF there is a wrong way to do something, then someone will do it *=-

går det inte och göra utan nån frame??

Jo, fast då måste du ladda om hela sidan och det kanske besökaren inte tycker är speciellt trevligt. Det andra alternativet är att försöka att fixa det med remotescripting fast då får som sagt ngn annan rycka in och förklara hur det funkar

[r]
Med I-Frame kanske det funkar bättre, fast alla browser har inte stöd för det.
Ett annat alternativ är att med hjälp av javascript "läsa in" andra filer och lägga in det materialet i ett lager.
Bara att fråga hur man gör i javascript forumet eller läs mer på tex: www.dansteinman.com/dynduo/
[/r]

cya,
PatrikB

------------------
-=* IF there is a wrong way to do something, then someone will do it *=-

[Redigerat av PatrikB den 05 feb 2002]