<% Option Explicit %> <% Response.Buffer = True %>

<% ' 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("Password")="" Then %> <% ShowHeader "Confirmation" %> Please enter the password you used when you created your ad.

&Operation=<%=Request("Operation")%>">
Password:
<% Else %> <% Dim Query, Connect, MyClass, Place ShowHeader "Confirmation" On Error Resume Next Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "Classifieds" Set MyClass = Server.CreateObject("ADODB.Recordset") Query = "SELECT ItemNum,Password FROM Items WHERE ItemNum=" & _ Request("ItemNum") MyClass.Open Query,Connect If MyClass("Password") = Request("Password") Then If Request("Operation") = "EDIT" Then Response.Redirect "editad.asp?ItemNum=" & Request("ItemNum") ElseIf Request("Operation") = "DEL" Then Response.Redirect "delad.asp?ItemNum=" & Request("ItemNum") Else Response.Write("Internal Error. No valid Operation sent.

") End If Else Response.Write("Invalid password. Click Back to try again.

") End If If Err.Number <> 0 Then %>

There was an error in confirmation.

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

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