<%@ Language=VBScript %>
<%Response.Buffer=True%>
<%PageID=600%>
<%
Header
Menu PageID
CustomerDelete
Footer
%>
<%
Sub CustomerDelete
CustomerID = Request.QueryString("CID")
OpenConnection1
Set rs=Server.CreateObject("ADODB.Recordset")
Sel="SELECT * FROM Customers WHERE CustomerID=" & CustomerID
rs.Open Sel,DB,1,3
If rs.EOF then Response.Redirect("Customer_List.asp")
txtName=rs("txtFname") & " " & rs("txtLname")
If Trim(rs("txtCompany"))<>"" then txtCompany="(" & rs("txtCompany")& ") "
rs.Close%>
<%= FormatDateTime(Date,1) %>
| |
Delete the Customer Account for
<%=txtName & " " &txtCompany%>? |
| |
| YES |
NO |
<%End Sub%>