BALLGOWN EXCHANGE

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

Sorry! Gown no longer exists.

<%else Do While Not RSNews.EOF%>

<%=RSNews("Style")%>

EXCHANGE

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

STYLE : <%=RSNews("Style")%>

Size :
<%=RSNews("gsize")%>

Colour :
<%=RSNews("colour")%>

Material :
<%=RSNews("material")%>

Year of Purchase :
<%=RSNews("yrofpurchase")%>

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

Item Location :
<%=RSNews("Location")%>

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

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

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