 |
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
 |
|
 |
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
 HTML TutorialsPhotoshop
Tutorials
Flash TutorialsASP
TutorialsFAQ
|
<%
sqlt = "select Backgroundthumb,BackgroundImage from WallPapers"
Set rs1=strWallConnect.execute(sqlt)
' Generating random number from total number of records
Dim intRnd
Randomize Timer
while not rs1.EOF AND Counter< 3
intRnd = ((RND * rs1.RecordCount)/3)
intRnd = INT(intRnd)
' Now moving the cursor to random record number
rs1.Move intRnd
' Showing the random statement
Backimage=rs1.Fields("BackgroundThumb")
BackgroundImage=rs1.Fields("BackgroundImage")
response.write " ") Response.Write _ ""&_ "Download Wallpaper" &_ "" response.Write(" ") response.Write(" ") Counter = Counter +1 rs1.MoveNext wend rs1.Close Set rs1=Nothing %> |
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
 |
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
