<% Dim conn Call OpenDB() dim rsData set rsData = Server.CreateObject("ADODB.Recordset") strSQL = " SELECT videoid, videotitle, videolink, videoorder FROM videos ORDER BY videoorder ASC " rsData.Open strSQL, conn If not rsData.EOF Then arVid = rsData.GetRows() strVGo = "Y" End If rsData.Close strSQL = " SELECT ringid, ringtitle, ringlink, ringtoneorder FROM ringtones ORDER BY ringtoneorder ASC " rsData.Open strSQL, conn If not rsData.EOF Then arRing = rsData.GetRows() strRGo = "Y" End If rsData.Close strSQL = "SELECT photo_id, photo_name, group_id FROM pic ORDER BY group_id ASC, photo_id DESC" rsData.Open strSQL, conn If not rsData.EOF Then arPic = rsData.GetRows() strPGo = "Y" End If rsData.Close %> Media, Videos, Photos, Ringtones, Wallpaper - Stephen Speaks

Age of the Underdog - Album Release
Lorem ipsum dolor sit amet, consectetur adipiscing elit. Morbi nisi tellus, lacinia eu ornare non, egestas sit amet velit. Nulla sapien leo, mollis sed condimentum id, condimentum nec elit. Vivamus sit amet ipsum velit. Etiam quis magna eget neque sollicitudin accumsan. Quisque sagittis commodo enim mattis egestas. Maecenas ultricies facilisis lorem sed iaculis. Nullam velit magna, aliquam nec accumsan eget, vulputate quis ante. Duis laoreet pharetra nisl et rutrum.

 

Videos

<% IF strVGo="Y" Then For i = 0 to UBOUND(arVid, 2) Response.Write("

" & arVid(2,i) & "

" & vbCrLf) Next End IF %>

 

 

Videos

<% Dim jcount jcount = 0 IF strPGo = "Y" Then for p = 0 to UBOUND(arPic, 2) If arPic(2,p)=0 THen Response.Write("") jcount = jcount + 1 End IF next End IF %>

 

 

 

Videos

<% IF strRGo="Y" Then For i = 0 to UBOUND(arRing, 2) Response.Write(" " & arRing(1,i) & "
" & vbCrLf) Next End IF %>

 

 

Videos

<% IF strPGo = "Y" Then for p = 0 to UBOUND(arPic, 2) If arPic(2,p)=1 THen Response.Write("" & arPic(1,p) & "
") End IF next End IF %>

 

 

 

 

Read the Blog

 

Age of The Underdog



Read the Blog