<% ShowHeader("Detail") %> <% Dim Connect, MyClass, ItemNum Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "Classifieds" ItemNum = Trim(Request("Item")) If ItemNum = "" Then Response.Write "No Item Number was sent.

" Else Set MyClass = Connect.Execute("SELECT * FROM Items WHERE ItemNum=" & ItemNum) ShowItem MyClass("Item"),MyClass("Description"),_ MyClass("Price"),MyClass("Phone"),MyClass("Email"),_ MyClass("State"),MyClass("Posted") %> To respond to this ad, just click on the email address above and send a message.

If you created this ad, you can...
&Operation=EDIT"> Edit it or
&Operation=DEL"> Delete it