|
Server : Apache/2.4.62 System : FreeBSD fbsdweb2.web.rcn.net 14.1-RELEASE FreeBSD 14.1-RELEASE releng/14.1-n267679-10e31f0946d8 GENERIC amd64 User : www ( 80) PHP Version : 8.3.8 Disable Function : NONE Directory : /domains/thomasjolly1/admin/ |
Upload File : |
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../Connections/dsPets.asp" -->
<%
set rsProductsEditDelete = Server.CreateObject("ADODB.Recordset")
rsProductsEditDelete.ActiveConnection = MM_dsPets_STRING
rsProductsEditDelete.Source = "SELECT Product_ID, Productline_ID, Product_Name, Price, Checkout_Number, Product_Description, Thumbnail, Photo FROM tblProduct"
rsProductsEditDelete.CursorType = 0
rsProductsEditDelete.CursorLocation = 2
rsProductsEditDelete.LockType = 3
rsProductsEditDelete.Open()
rsProductsEditDelete_numRows = 0
If Request.QueryString("Action") = "Delete" Then
If Request.QueryString("Product_ID") <> "" Then
RecordToDelete = CInt(Request.QueryString("Product_ID"))
'--Move to first record
If Not rsProductsEditDelete.BOF Then
rsProductsEditDelete.MoveFirst
'--Find the record we want to delete
Do Until rsProductsEditDelete.Fields("Product_ID") = RecordToDelete
rsProductsEditDelete.MoveNext
Loop
rsProductsEditDelete.Delete
rsProductsEditDelete.Requery
End If
End If
End If
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE>Jolly Antiques -- Product List</TITLE>
<link rel="stylesheet" href="http://a451.g.akamai.net/7/451/1713/0045/www.potterybarn.com/pbecimgs/20011112-001/html/css/css.htm" type="text/css">
<link href="../css/style.css" rel="stylesheet" type="text/css">
</HEAD>
<BODY BGCOLOR="FFFFFF" TOPMARGIN="0" LEFTMARGIN="0" MARGINHEIGHT="0" MARGINWIDTH="0" LINK="666666" ALINK="666666" VLINK="666666">
<!-- begin Top Nav -->
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#A3B2C7"><img src="../images/jolly_logo.gif" width="401" height="87"></td>
<td bgcolor="#A3B2C7"><div align="right">
<table width="130" border="0" cellspacing="0" cellpadding="5">
<tr>
<td><img src="../images/spacer.gif" width="10" height="2"></td>
</tr>
<tr>
<td><a href="add_product.asp">add new products</a> </td>
</tr>
<tr>
<td><a href="edit_files.asp">modify products</a> </td>
</tr>
<tr>
<td><a href="delete_files.asp">delete products </a></td>
</tr>
<tr>
<td><a href="view.asp">view list of products </a></td>
</tr>
<tr>
<td><img src="../images/spacer.gif" width="10" height="2"></td>
</tr>
</table>
</div></td>
</tr>
<tr>
<td colspan="2" bgcolor="#666633"><img src="images/spacer.gif" width="1" height="7"></td>
</tr>
<tr>
<td colspan="2" bgcolor="#999966"><img src="images/spacer.gif" width="1" height="1"></td>
</tr>
<tr>
<td colspan="2" bgcolor="#666633"><img src="images/spacer.gif" width="1" height="3"></td>
</tr>
<tr>
<td colspan="2" bgcolor="#cccc99"><img src="images/spacer.gif" width="1" height="22"></td>
</tr>
</table>
<!-- end Top Nav -->
<br>
<TABLE WIDTH="1000" BORDER="0" CELLPADDING="5" CELLSPACING="0">
<TR>
<TD WIDTH="790">
<table width="900">
<tr valign="top">
<td><b> Product ID</b></td>
<td><b> Productline ID</b></td>
<td><b> Product Name</b></td>
<td><!--hide price<b>Price
</b> --></td>
<td><b><!-- Checkout Number --></b></td>
<td><b>Product Description</b></td>
<td><b>Thumbnail</b></td>
<td><b>Photo</b></td>
</tr>
<%
'-- Go to the first record
If Not rsProductsEditDelete.BOF Then
rsProductsEditDelete.MoveFirst
'-- Loop through records until we are at the end
Do Until rsProductsEditDelete.EOF
'-- Display the fields
Response.Write("<tr>" & Chr(13))
Response.Write(" <td valign='top'>" & rsProductsEditDelete.Fields("Product_ID") & "</td>" & Chr(13))
Response.Write(" <td>" & rsProductsEditDelete.Fields("Productline_ID") & "</td>" & Chr(13))
Response.Write(" <td>" & rsProductsEditDelete.Fields("Product_Name") & "</td>" & Chr(13))
Response.Write(" <td>" & rsProductsEditDelete.Fields("Price") & "</td>" & Chr(13))
Response.Write(" <td>" & rsProductsEditDelete.Fields("Checkout_Number") & "</td>" & Chr(13))
Response.Write(" <td>" & rsProductsEditDelete.Fields("Product_Description") & "</td>" & Chr(13))
Response.Write(" <td>" & rsProductsEditDelete.Fields("Thumbnail") & "</td>" & Chr(13))
Response.Write(" <td>" & rsProductsEditDelete.Fields("Photo") & "</td>" & Chr(13))
'-- display the edit and delete links
Response.Write(" <td><a href='edit.asp?Product_ID=" & rsProductsEditDelete.Fields("Product_ID") & "'><b>Edit<br>(Use this button to modify the product information.)</b></a> </td>" & Chr(13))
Response.Write("</tr>" & Chr(13))
rsProductsEditDelete.MoveNext
Loop
End If
%>
</table>
</TD>
<TR>
<TD HEIGHT="34"><IMG SRC="../images/spacer.gif" WIDTH="1" HEIGHT="34" ALT="" BORDER="0"></TD>
</TR>
</TABLE>
</BODY>
</HTML>
<%
rsProductsEditDelete.Close()
%>