<% Option Explicit %>

<% ' The first time this page is retrieved and any time it is ' submitted without being completely filled out, the form ' is displayed. If it is submitted and completely filled out ' the form is processed in the Else clause. If Request("Item")="" Or Request("Description")="" Or _ Request("Price")="" Or Request("Phone")="" Or _ Request("Email")="" Or Request("State")="" Then Dim Connect,MyClass Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "Classifieds" Set MyClass = Connect.Execute(_ "SELECT * FROM Items WHERE ItemNum=" & _ Request("ItemNum")) %> <% ShowHeader "Edit An Ad" %> Edit any of the entries you like. Make sure each entry has a valid value before you click the Make Chages button.

"> <% If MyClass("Category") = "VEHICLES" Then %>
Item: ">
Description:
Category:
Price: ">
Phone ">
Email: ">
State: ">
<% Else %> <% Dim Query, Place ShowHeader "Edit An Ad" 'On Error Resume Next %>

CATEGORY: <%=Request("Category")%> <% ShowItem Request("Item"),Request("Description"),_ Request("Price"),Request("Phone"),Request("Email"),_ Request("State"),Date Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "Classifieds" Set MyClass = Server.CreateObject("ADODB.Recordset") Query = "SELECT * FROM Items WHERE ItemNum=" & Request("ItemNum") MyClass.Open Query,Connect,adOpenDynamic,adLockOptimistic MyClass("Item") = Request("Item") MyClass("Category") = Request("Category") MyClass("Description") = Request("Description") MyClass("Price") = Request("Price") MyClass("Phone") = Request("Phone") MyClass("Email") = Request("Email") MyClass("State") = Request("State") MyClass("Posted") = Date MyClass.Update If Err.Number = 0 Then %> Your classified ad has been updated.

Home

<% Else %> There was an error updating your ad.

Error #<%=Err.Number%>: <%=Err.Description%>

<% End If %> <% End If %>