<% response.cachecontrol = "no-cache" %> <% timeout(1) strSQL = "SELECT DISTINCT n.PageID, n.Heading, n.UploadDate FROM CMS_Page n, CMS_PageEmbeddedLinks l WHERE n.FileName IS NULL AND n.PageID = l.MainPageID AND l.Broken = 1 ORDER BY n.Heading" set rsPage = server.createobject("ADODB.Recordset") rsPage.open strSQL, Application("CString"), 3, 1 %> Website Administration

 

Broken Links
<%if rsPage.EOF then%>

All Pages are valid!
<% else rsPage.PageSize = 15 intPageCount = rsPage.PageCount if request("intPage") <> empty and IsNumeric(request("intPage")) then intPage = CInt(request("intPage")) else intPage = 1 end if if intPage > intPageCount then intPage = intPageCount elseif intPage < 1 then intPage = 1 end if rsPage.AbsolutePage = intPage if intPagecount > 1 then %>
<% if CDbl(intPage) > 1 then %> Previous Page <%else%> <% end if %> Pages: <% for i=1 to intPagecount if i = CDbl(intPage) then %> <%=i%> <% else %> <%=i%> <% end if next %> <% if CDbl(intPage) <> intPagecount then %> Next Page <%else%> <% end if %>
<%end if%>
<% counterx=0 for i = 1 to rsPage.PageSize i_PageID = rsPage("PageID") s_Heading = rsPage("Heading") s_UploadDate = rsPage("UploadDate") %> <%rsPage.movenext%> <%if rsPage.EOF then exit for%> <%Next%>
Edit','right');" onMouseDown="javascript:this.style.borderColor='#666666 #FFFFFF #FFFFFF #666666';" onMouseUp="javascript:this.style.borderColor='#FFFFFF #666666 #666666 #FFFFFF';" onMouseOver="javascript:this.style.borderColor='#FFFFFF #666666 #666666 #FFFFFF';" onMouseOut="javascript:this.style.borderColor='<%=colorx &" "& colorx &" "& colorx &" "& colorx%>';"> <%=s_Heading%> <%=Day(s_UploadDate) &" "& MonthName(Month(s_UploadDate)) &" "& Year(s_UploadDate)%>
<%end if%>

 

<% rsPage.close set rsPage = nothing %>