BUYING

Select a recently added item or alternatively search below for a specific category.

<% Set MyCmd = Server.CreateObject("ADODB.Command") MyCmd.ActiveConnection = MyConn MyCmd.CommandText = "SELECT * FROM Forces_Items WHERE ItemID = ? AND Deleted = 'no' AND Paid = 'yes'" MyCmd.Parameters.Append MyCmd.CreateParameter("", 3, 1, , request("id")) Set RSNews = Server.CreateObject("ADODB.RecordSet") RSNews.Open MyCmd IF RSNews.EOF then %>

Sorry! Item no longer exists.

<%else Do While Not RSNews.EOF%>

<%=RSNews("Title")%>   >   <%GetCat = "SELECT Category FROM Forces_ItemCategories WHERE CatID = '"&RSNews("CatID")&"' " SET RSCat = MyConn.execute(GetCat)%> <%=RSCat("Category")%>

<%=RSNews("Title")%>

£<%=RSNews("Price")%>

<%if RSNews("Image1") <> "" then%>" width="300" class="mainimg" alt="" /><%end if%>

PRICE :
£<%=RSNews("Price")%>   

ITEM NUMBER : <%=RSNews("ItemID")%>
END DATE : <%=DateAdd("d", RSNews("ListingDuration"), RSNews("EntryDate"))%>

Description :
<%=RSNews("Description")%>

Condition :
<%=RSNews("Condition")%>

Item Location :
<%GetLocations = "SELECT * FROM Forces_Locations WHERE LocID = '"&RSNews("Location")&"' " SET RSLocations = MyConn.execute(GetLocations) Do While NOT RSLocations.EOF%> <%=RSLocations("LocName")%> (<%=RSLocations("Postcode")%>) <%RSLocations.Movenext Loop%>

<%if session("AccountID") > 0 then%>

Contact Details :
<%=RSNews("TelNo")%>
"><%=RSNews("Email")%>

Postage Details :
<%=RSNews("PandP")%>

" class="email">EMAIL SELLER <%else%> " class="email2">LOGIN FOR DETAILS <%end if%>
<%RSNews.Movenext Loop end if%>