<%@ language="vbscript"%> <% dim PageNumber set PageNumber = Request.QueryString("pn") dim TotalCount TotalCount = 9400 dim ListInOnePage ListInOnePage = 24 dim TotalPageCount TotalPageCount = TotalCount/ListInOnePage if(CInt(PageNumber)=0) then PageNumber =1 end if PageNumber = CInt(PageNumber) dim FirstList FirstList = (PageNumber*ListInOnePage)-ListInOnePage dim LastList LastList = PageNumber*ListInOnePage dim thefolder thefolder=server.mappath(".") set fs = server.createobject("Scripting.FileSystemObject") set cf = server.createobject("Scripting.FileSystemObject") set f = fs.getfolder(thefolder) set fl = f.files ' list of files TxtName = "\format.txt" TxtName = thefolder+TxtName if fs.FileExists(TxtName) Then set string_file = cf.OpenTextFile(TxtName,1,False,-2) string_file = string_file.ReadAll dim theString theString = string_file end if %>

powerpoint template, powerpoint background, powerpoint themes   Sign up for email offers   HOME PRODUCTS SUPPORT SITEMAP       About Services Partners Affiliates   Downloads         Browse All Templates Abstract / Textures Animals & Agriculture Accounting / Financial America Business Business Concepts Computer, Technology & Science Careers / Industry Consulting Construction Cars / Transportation Education & Training Entertainment & Art Food & Beverages General Global Holiday / Special Occasion International / Flags Legal Medical Military Nature & Environment People Spiritual / Religious Sports Telecommunication Utilities / Industrial 3D Free PowerPoint Templates <%dim first first =FirstList dim FirstListFlag,i,k FirstListFlag = FirstList FirstListFlag = -1 dim theLength theLength = len(theString) For i=FirstList+1 to LastList %> <%dim val val = first+4 if val=i then first = i %> <% end if next%> <% k = i j=FirstListFlag Do While j<0 dim Length,title,Link,page Length = InStr(theString,"^") if(Length>0) then page = left(theString,Length-1) theString = right(theString,len(theString)-Length) dim flagPage flagPage = CInt(k) page = CInt(page) 'Response.Write(page) Length = InStr(theString,"^") title = left(theString,Length-1) theString = right(theString,len(theString)-Length) Length = InStr(theString,";") Link = left(theString,Length-1) theString = right(theString,len(theString)-Length) else theLength =0 end if if(page =flagPage) then 'Response.Write("asdsadsad") FirstListFlag =0 j=FirstListFlag %> <% else theLength = len(theString) end if Loop %> <%Response.Write(title)%>      <% dim FirstListPage FirstListPage = PageNumber+4 dim LastListPage LastListPage = TotalPageCount-4 if PageNumber>10 then FirstListPage = PageNumber-6 else FirstListPage = 1 end if LastListPage = PageNumber+9 first =0 for i=1 to TotalPageCount if i>=FirstListPage and iPageNumber then %> <%Response.Write(i)%> <%end if if i =PageNumber then %><%Response.Write(i)%> <% end if if i=TotalPageCount-1 and LastListPage=TotalPageCount-1 and LastListPage <%Response.Write(i)%> <%end if next%>      home | powerflashpoint | powerquizpoint | web templates | products | company | slideserve | tutorials | forum | blog | links digitalofficepro powerpoint templates in association with PoweredTemplates.com © 2009 DigitalOfficePro, Inc.All rights Reserved Privacy Policy. Report abuse@digitalofficepro.com