SHOPPING LINKS

Add a Shopping Link

Shopping Links

<% SQLAccountsR = "SELECT * FROM Forces_ShoppingLinks WHERE Deleted = 'no' ORDER BY Title" Set RSAccountsR= MyConn.Execute(SQLAccountsR) if RSAccountsR.EOF then response.write("") else i = 0 while not RSAccountsR.EOF %> <%i= i + 1%> <%if int(i)/2 = int(i)\2 then%> <%else%> <%end if%> <% RSAccountsR.MoveNext WEND End If RSAccountsR.Close %>  Title   Link   Category  There are currently no shopping links. <%=RSAccountsR("Title")%> " width="100" alt="" border="0"> <%=RSAccountsR("Link")%> <%GetCat = "SELECT Category FROM Forces_ItemCategories WHERE catID = '"&RSAccountsR("CatID")&"' " SET RSCat = MyConn.execute(GetCat)%> <%=RSCat("Category")%> " onclick="if(!confirm('Are you sure you want to delete this record? It will be removed permanently!')) return false;">