<% Dim name,title,description,category,url,image,total name = rs("name") title = rs("title") description = rs("description") work = rs("work_involved") category = rs("category") url = rs("url") image = rs("image") dateCreated = rs("date_created") dateUpdated = rs("date_updated") total = rs1("total") dim prevP,nextP,prevImg,nextImg if total - id = 0 then 'nextP = "" prevP = id - 1 'nextImg = "
" nextImg = "" prevImg = "
" elseif id = 0 or id = 1 then nextP = id + 1 prevP = "" nextImg = "
" 'prevImg = "
" prevImg = "" else nextP = id + 1 prevP = id - 1 nextImg = "
" prevImg = "
" end if %>
<%=prevImg%>
<%=title%>
About this project:
<%=description%>
<% if not work = "" then %>
Work involved:
<%=work%> <% end if %> <% if not url = "" then %>
Visit current site »
<% end if %>
<%=nextImg%>
-- Select a site --
<% do while not rs2.EOF %> <% Dim id2,name2 id2 = rs2("id") name2 = rs2("name") %>
><%=name2%>
<% rs2.movenext loop %>
<% rs.Close cn.Close set rs = nothing set rs = nothing %>