<%=pagename%>

<% vd_ctr=1 do while not rsCategory.eof Stritems="SELECT videogallery.*, videogallery.Category FROM videogallery WHERE (((videogallery.Category)="&rsCategory("id")&")) order by vieworder asc;" Set rsitems = Server.CreateObject("ADODB.Recordset") rsitems.open Stritems,convideo ctritem=1 do while not rsitems.eof %> <%if ctritem=1 then%>

<%end if%> <%if ctritem=1 then%> <%end if%> <%if ctritem=2 then ctritem=0 %> <%end if ctritem=ctritem+1 %> <%rsitems.movenext loop %> <% If ctritem mod 2 = 0 Then %> <%end if%>

<%=rsCategory("Category_Name")%>
style="border-right:1px #c00 dashed" <%end if%> > &title=<%=rsitems("title")%>&description=<%=rsitems("description")%>&id=<%=id%>&lang=<%=lang%>">" alt="" /> &title=<%=rsitems("title")%>&description=<%=rsitems("description")%>&id=<%=id%>&lang=<%=lang%>"><%=rsitems("Title")%> <%=rsitems("description")%>

<%rsCategory.movenext loop %> <%=Click_the_image_to_view_the_video%>