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%>
-
<%if RSNews("Image1") <> "" then%>
- " onclick="showImage(this.href); return false;" return false;"><%end if%>
<%if RSNews("Image2") <> "" then%>
- " onclick="showImage(this.href); return false;" return false;"><%end if%>
<%if RSNews("Image3") <> "" then%>
- " onclick="showImage(this.href); return false;" return false;"><%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")%>
Contact Details :
<%=RSNews("TelNo")%>
"><%=RSNews("Email")%>