<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% On error resume next dim i dim cellString 'open ADO connection Set dbConn = Server.CreateObject("ADODB.Connection") dbConn.Open "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=209.133.222.18; DATABASE=betaonli_videos; UID=betaonli_uservid;PASSWORD=HzhlfgElpdwRjTU; OPTION=3" 'sqlstr = "SELECT Top 10 * FROM video Order by ItemId Desc" sqlstr = "SELECT * FROM video Where participant = 'politics' Order by ItemId Desc" Set results = dbConn.Execute(sqlstr) 'test for data %> Twisted politics Videos - OnlineNigeria.com Twisted Politics
<% 'test for data if results.eof then response.write("Sorry, none found.") 'begin formatting else %> <% i = 1 do until results.eof cellString = "" if not i mod 4 = 0 then response.write(cellString) else response.write(cellString)%> <% end if i = i + 1 results.movenext loop %> <% dbConn.close %>

  • " & results("Linkname") & "
  • <% end if %>



     

    Submit A Video Clip (10MB MAX.)