<%@ Language=VBScript %> <% ' PageId = 5 ' Position1: 215x125 Left ' Position2: 167x125 Right ' Path = images/uploadedimages ' How to get Unique File name: replace(replace(replace(Now," ",""),":",""),"/","") dim rs dim objConn dim Position1 dim Position2 dim Path Path = "images/uploadedimages/" set objConn = Server.CreateObject("ADODB.Connection") set rs = Server.CreateObject("ADODB.Recordset") objConn.ConnectionString = "DSN=pca;uid=sa;pwd=;" objConn.Open strSQL = "SELECT AllImages.FileName FROM AllImages WHERE (((AllImages.PageId)=5)) ORDER BY AllImages.ImagePosition;" set rs = objconn.Execute(strSQL) if not rs.EOF then if not isnull(rs(0)) then Position1 = Path & rs(0) end if rs.MoveNext if not isnull(rs(0)) then Position2 = Path & rs(0) end if end if %>
Anansi
Narrated by Denzel Washington, these two Jamaican folktales are about a teeny-tiny spider, Anansi, whose boasts are as tall as his tales get. Music by UB-40. (Grades K-6)
Finn McCoul
In this Celtic legend narrated by Catherine O'Hara, Finn McCoul, the greatest champion in all of Ireland, gets a wee bit nervous when he discovers that the brutish giant Cucullin is after him. Music by Boys of the Lough. (Grades 2-6)
Koi and the Kola Nuts
Narrated by Whoopi Goldberg, this humorous African folktale is about Koi, who wants the villagers to honor him as befits the son of the chief. Music by Herbie Hancock. (Grades K-6)
The Tiger and the Brahmin
Narrated by Ben Kingsley, this Indian folktale is about a Brahmin who makes the mistake of letting the tiger out of his cage. Music by Ravi Shankar. (Grades K-6)
Jack and the Beanstalk
In this comic retelling, narrated by Michael Palin, young Jack foolishly sells his family's cow for a handful of magic beans. Music by David Stewart. (Grades 2-6)
 
<% dim RandomImage strSQL = "SELECT COUNT(*) FROM RandomCommunity" set rs = objconn.Execute(strSQL) Randomize Timer RandomImage = int(rnd * rs(0)) strSQL = "SELECT ImagePath FROM RandomCommunity" set rs = objconn.Execute(strSQL) rs.Move RandomImage %>
<% rs.Close objConn.Close set rs = nothing set objConn = nothing %>