% Dim sqlPics, connStrPics, rsPics, IntRnd 'path to the database 'Pfad zur Datenbank connStrPics = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\VHOSTS\gestaolegal.com.br\httpdocs\database\fipsPicRotate.mdb" 'connStrPics = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\\!!!Gestao Legal - Backup\novo\database\fipsPicRotate.mdb" sqlPics = "select ID, Picture, AltText from pictures ORDER by ID asc" Set rsPics = Server.CreateObject("ADODB.Recordset") rsPics.Open sqlPics, connStrPics, 3, , adCmdText Randomize Timer IntRnd = (Int(RND * rsPics.RecordCount)) rsPics.Move IntRnd fotos = rsPics("Picture") rsPics.Close Set rsPics = Nothing %>
|
||||||||||
|
||||||||||