<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../Connections/OLEDB.asp" -->
<!--#include file="../Connections/ADOSQL.asp" -->
<%
' *** Edit Operations: declare variables

MM_editAction = CStr(Request("URL"))
If (Request.QueryString <> "") Then
  MM_editAction = MM_editAction & "?" & Request.QueryString
End If

' boolean to abort record edit
MM_abortEdit = false

' query string to execute
MM_editQuery = ""
%>

<%
' *** Insert Record: set variables

If (CStr(Request("MM_insert")) <> "") Then
Session("Message") = ""
  MM_editConnection = MM_OLEDB_STRING
  MM_editTable = "dbo.tblSHOP_Categories"
  MM_editRedirectUrl = ""
  MM_fieldsStr  = "CategoryName|value|Description|value|ImageName|value"
  MM_columnsStr = "CategoryName|',none,''|Description|',none,''|ImageName|',none,''"

  ' create the MM_fields and MM_columns arrays
  MM_fields = Split(MM_fieldsStr, "|")
  MM_columns = Split(MM_columnsStr, "|")
  
  ' set the form values
  For i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_fields(i+1) = CStr(Request.Form(MM_fields(i)))
  Next

  ' append the query string to the redirect URL
  If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
    If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
      MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
    Else
      MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
    End If
  End If

End If
%>
<%
' *** Update Record: set variables

If (CStr(Request("MM_update")) <> "" And CStr(Request("MM_recordId")) <> "") Then
Session("Message") = ""
  MM_editConnection = MM_OLEDB_STRING
  MM_editTable = "dbo.tblSHOP_Categories"
  MM_editColumn = "CategoryID"
  MM_recordId = "" + Request.Form("MM_recordId") + ""
  MM_editRedirectUrl = ""
  MM_fieldsStr  = "CategoryName|value|Description|value|ImageName|value"
  MM_columnsStr = "CategoryName|',none,''|Description|',none,''|ImageName|',none,''"

  ' create the MM_fields and MM_columns arrays
  MM_fields = Split(MM_fieldsStr, "|")
  MM_columns = Split(MM_columnsStr, "|")
  
  ' set the form values
  For i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_fields(i+1) = CStr(Request.Form(MM_fields(i)))
  Next

  ' append the query string to the redirect URL
  If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
    If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
      MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
    Else
      MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
    End If
  End If

End If
%>


<%
' *** Insert Record: construct a sql insert statement and execute it

If (CStr(Request("MM_insert")) <> "") Then
Session("Message") = ""
  ' create the sql insert statement
  MM_tableValues = ""
  MM_dbValues = ""
  For i = LBound(MM_fields) To UBound(MM_fields) Step 2
    FormVal = MM_fields(i+1)
    MM_typeArray = Split(MM_columns(i+1),",")
    Delim = MM_typeArray(0)
    If (Delim = "none") Then Delim = ""
    AltVal = MM_typeArray(1)
    If (AltVal = "none") Then AltVal = ""
    EmptyVal = MM_typeArray(2)
    If (EmptyVal = "none") Then EmptyVal = ""
    If (FormVal = "") Then
      FormVal = EmptyVal
    Else
      If (AltVal <> "") Then
        FormVal = AltVal
      ElseIf (Delim = "'") Then  ' escape quotes
        FormVal = "'" & Replace(FormVal,"'","''") & "'"
      Else
        FormVal = Delim + FormVal + Delim
      End If
    End If
    If (i <> LBound(MM_fields)) Then
      MM_tableValues = MM_tableValues & ","
      MM_dbValues = MM_dbValues & ","
    End if
    MM_tableValues = MM_tableValues & MM_columns(i)
    MM_dbValues = MM_dbValues & FormVal
  Next
  MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"

  If (Not MM_abortEdit) Then
    ' execute the insert
    Set MM_editCmd = Server.CreateObject("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_editConnection
    MM_editCmd.CommandText = MM_editQuery
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close

    If (MM_editRedirectUrl <> "") Then
      Response.Redirect(MM_editRedirectUrl)
    End If
  End If

End If
%>
<%
' *** Update Record: construct a sql update statement and execute it

If (CStr(Request("MM_update")) <> "" And CStr(Request("MM_recordId")) <> "") Then
Session("Message") = ""
  ' create the sql update statement
  MM_editQuery = "update " & MM_editTable & " set "
  For i = LBound(MM_fields) To UBound(MM_fields) Step 2
    FormVal = MM_fields(i+1)
    MM_typeArray = Split(MM_columns(i+1),",")
    Delim = MM_typeArray(0)
    If (Delim = "none") Then Delim = ""
    AltVal = MM_typeArray(1)
    If (AltVal = "none") Then AltVal = ""
    EmptyVal = MM_typeArray(2)
    If (EmptyVal = "none") Then EmptyVal = ""
    If (FormVal = "") Then
      FormVal = EmptyVal
    Else
      If (AltVal <> "") Then
        FormVal = AltVal
      ElseIf (Delim = "'") Then  ' escape quotes
        FormVal = "'" & Replace(FormVal,"'","''") & "'"
      Else
        FormVal = Delim + FormVal + Delim
      End If
    End If
    If (i <> LBound(MM_fields)) Then
      MM_editQuery = MM_editQuery & ","
    End If
    MM_editQuery = MM_editQuery & MM_columns(i) & " = " & FormVal
  Next
  MM_editQuery = MM_editQuery & " where " & MM_editColumn & " = " & MM_recordId

  If (Not MM_abortEdit) Then
    ' execute the update
    Set MM_editCmd = Server.CreateObject("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_editConnection
    MM_editCmd.CommandText = MM_editQuery
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close

    If (MM_editRedirectUrl <> "") Then
      Response.Redirect(MM_editRedirectUrl)
    End If
  End If

End If
%>
<%
set rsCATEGORIES = Server.CreateObject("ADODB.Recordset")
rsCATEGORIES.ActiveConnection = MM_OLEDB_STRING
rsCATEGORIES.Source = "SELECT * FROM dbo.tblSHOP_Categories"
rsCATEGORIES.CursorType = 0
rsCATEGORIES.CursorLocation = 2
rsCATEGORIES.LockType = 3
rsCATEGORIES.Open()
rsCATEGORIES_numRows = 0
%>
<%

set Images = Server.CreateObject("ADODB.Command")
Images.ActiveConnection = MM_ADOSQL_STRING
Images.CommandText = "dbo._SP_SELECT_IMAGES_ADM"
Images.Parameters.Append Images.CreateParameter("RETURN_VALUE", 3, 4)
Images.CommandType = 4
Images.CommandTimeout = 0
Images.Prepared = true
set rsIMAGES = Images.Execute
rsIMAGES_numRows = 0

%>
<%
if request("delete") = "1" then
	set DeleteCategory = Server.CreateObject("ADODB.Command")
	DeleteCategory.ActiveConnection = MM_OLEDB_STRING
	DeleteCategory.CommandText = "dbo.spSHOP_DeleteCategory"
	DeleteCategory.CommandType = 4
	DeleteCategory.CommandTimeout = 0
	DeleteCategory.Prepared = true
	DeleteCategory.Parameters.Append DeleteCategory.CreateParameter("@CategoryID", 3, 1,4,Request("CategoryID"))
	Set rsRETURN = DeleteCategory.Execute()
	
	If rsRETURN("ReturnValue") = "0" Then
	Session("Message") = "New Category has been deleted successfully."
	response.redirect "SHOP_ManageCategories.asp"
	ElseIf rsRETURN("ReturnValue") = "1" Then
	Session("Message") = "Category can not be deleted because it is being used."
	response.redirect "SHOP_ManageCategories.asp"
	End If
	
end if
%>
<%
	Dim Message: Message = Session("Message") 


%>
<%
Dim Repeat1__numRows
Repeat1__numRows = -1
Dim Repeat1__index
Repeat1__index = 0
rsCATEGORIES_numRows = rsCATEGORIES_numRows + Repeat1__numRows
%>

<html>
<head>
<title>Manage Categories</title>
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
<script LANGUAGE="JavaScript">
<!--
window.name = "AddCategory";

function ExpandEdit(whichEl) {	//By Oliver Schnars
    whichIm = event.srcElement;
    if (whichEl.style.display == "none") {
        whichEl.style.display = "";
        whichIm.innerHTML = "<font COLOR='#993399'>Close</font>";     
    }
    else {
        whichEl.style.display = "none";
        whichIm.innerHTML = "<font COLOR='#006666'>edit</font>";   
    }
}

function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function MM_validateForm() { //v4.0
  var i,p,q,nm,test,num,min,max,errors='',args=MM_validateForm.arguments;
  for (i=0; i<(args.length-2); i+=3) { test=args[i+2]; val=MM_findObj(args[i]);
    if (val) { nm=val.name; if ((val=val.value)!="") {
      if (test.indexOf('isEmail')!=-1) { p=val.indexOf('@');
        if (p<1 || p==(val.length-1)) errors+='- '+nm+' must contain an e-mail address.\n';
      } else if (test!='R') {
        if (isNaN(val)) errors+='- '+nm+' must contain a number.\n';
        if (test.indexOf('inRange') != -1) { p=test.indexOf(':');
          min=test.substring(8,p); max=test.substring(p+1);
          if (val<min || max<val) errors+='- '+nm+' must contain a number between '+min+' and '+max+'.\n';
    } } } else if (test.charAt(0) == 'R') errors += '- '+nm+' is required.\n'; }
  } if (errors) alert('The following error(s) occurred:\n'+errors);
  document.MM_returnValue = (errors == '');
}
//-->
</script>
<link REL="stylesheet" HREF="/_admin/admin.css" TYPE="TEXT/CSS">
</head>

<body BGCOLOR="#E8E4C1" TEXT="#000000" onLoad="form1.CategoryName.focus();">
<table WIDTH="100%" BORDER="0" CELLSPACING="6" CELLPADDING="0">
  <tr>
	<td VALIGN="TOP">
	  <table WIDTH="100%" CELLSPACING="0" BGCOLOR="#006699">
		<tr>
		  <td VALIGN="TOP">
			<table WIDTH="100%" BORDER="0" CELLSPACING="0" BGCOLOR="#FFFFFF">
			  <tr>
				<td VALIGN="TOP">
				  <table WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0">
					<tr>
					  <td BGCOLOR="#CCCCCC">&nbsp;&nbsp;<font COLOR="#006699">&nbsp;<b>Manage Categories</b>&nbsp;&nbsp;&nbsp;&nbsp;|&nbsp;&nbsp;&nbsp;&nbsp;<a HREF="#" onClick="location.assign('SHOP_AddProduct.asp');">Cancel</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font COLOR="#FF0000"><b>&nbsp;
						<% =Message %>
						</b></font></font></td>
					</tr>
					<tr>
					  <td VALIGN="TOP">
						<table WIDTH="100%" BORDER="0" CELLSPACING="6" CELLPADDING="0">
						  <tr>
							<td>
							  <form NAME="form1" METHOD="POST" TARGET="AddCategory" ACTION="<%=MM_editAction%>" onSubmit="MM_validateForm('CategoryName','','R');return document.MM_returnValue">
							    <table WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0">
								  <tr BGCOLOR="#666666">
								    <td COLSPAN="4"><font COLOR="#FFFFFF">&nbsp;&nbsp;Add New Category:</font><font COLOR="#FFFFFF"></font><font COLOR="#FFFFFF"></font><font COLOR="#FFFFFF"></font></td>
								  </tr>
								  <tr>
								    <td WIDTH="8%" ALIGN="RIGHT" NOWRAP>Name: 
									  </td>
									<td WIDTH="18%" NOWRAP>
									  <input TYPE="text" NAME="CategoryName" SIZE="20" MAXLENGTH="50">
									</td>
									<td ROWSPAN="2" NOWRAP ALIGN="RIGHT">Description:</td>
									<td ROWSPAN="2" NOWRAP>
									  <textarea NAME="Description" COLS="20" ROWS="4"></textarea>
									</td>
								  </tr>
								  <tr>
								    <td WIDTH="8%" ALIGN="RIGHT" NOWRAP>Image:</td>
									<td WIDTH="18%" NOWRAP>
									  <select NAME="ImageName">
									  <option value="">- none -</option>
									    <% If NOT rsIMAGES.EOF Then %>
										<%
While (NOT rsIMAGES.EOF)
%>

										<option value="<%=(rsIMAGES.Fields.Item("FileName").Value)%>"><%=(rsIMAGES.Fields.Item("FileName").Value)%></option>

										<%
  rsIMAGES.MoveNext()
Wend
If (rsIMAGES.CursorType > 0) Then
  rsIMAGES.MoveFirst
Else
  rsIMAGES.Requery
End If
%>
										<% Else %>
										<option value="">- no images available -</option>
										<% End If %>
									  </select>
									</td>
								  </tr>
								  <tr>
									<td WIDTH="8%" ALIGN="RIGHT" NOWRAP>&nbsp;</td>
									<td WIDTH="18%" NOWRAP>
									  <input TYPE="submit" VALUE="Add New Category" CLASS="btnEditProduct">
									</td>
									<td NOWRAP ALIGN="RIGHT">&nbsp;</td>
									<td NOWRAP>&nbsp;</td>
								  </tr>
							    </table>
								<input type="hidden" name="MM_insert" value="true">
							  </form>
							</td>
						  </tr>
						</table>
						<table WIDTH="100%" BORDER="0" CELLSPACING="6" CELLPADDING="0">
						  <tr>
							<td VALIGN="TOP">
							  <table WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0">
								<tr>
								  <td NOWRAP ALIGN="CENTER" WIDTH="6%" BGCOLOR="#666666"><font COLOR="#FFFFFF"></font></td>
								  <td NOWRAP WIDTH="34%" BGCOLOR="#666666"><font COLOR="#FFFFFF">Category Name</font></td>
								  <td NOWRAP WIDTH="29%" BGCOLOR="#666666"><font COLOR="#FFFFFF">Description</font></td>
								  <td NOWRAP WIDTH="31%" BGCOLOR="#666666"><font COLOR="#FFFFFF">Image Name</font></td>
								</tr>
								<% If NOT rsCATEGORIES.EOF Then 
								
								Dim CounterEdit: CounterEdit = 0
								
								Dim BGColor: BGColor = "#D2D2D2"
								
								
								%>
								<% 
While ((Repeat1__numRows <> 0) AND (NOT rsCATEGORIES.EOF)) 
%>
<%

								If BGColor = "#D2D2D2" Then
								BGColor = "#FFFFFF"
								Else
								BGColor= "#D2D2D2"
								End If
						
						%>
								<tr BGCOLOR="<%=BGColor%>">
								  <td NOWRAP ALIGN="CENTER" WIDTH="6%">&nbsp;&nbsp;<label id="edit" style="cursor:hand" onClick="ExpandEdit(EditCategory<%=CounterEdit %>);"><font COLOR="#006666"><U>edit</U></font></label>&nbsp;&nbsp;|&nbsp;&nbsp;<a HREF="<%=request.servervariables("SCRIPT_NAME")%>?delete=1&CategoryID=<%=rsCATEGORIES("CategoryID")%>"><font COLOR="#FF0000">delete</font></a>&nbsp;&nbsp;</td>
								  <td NOWRAP WIDTH="34%"><%=(rsCATEGORIES.Fields.Item("CategoryName").Value)%></td>
								  <td NOWRAP WIDTH="29%"><%=Left(rsCATEGORIES.Fields.Item("Description").Value, 23)%></td>
								  <td NOWRAP WIDTH="31%"><%=(rsCATEGORIES.Fields.Item("ImageName").Value)%></td>
								</tr>
								<tr VALIGN="TOP">
								  <td NOWRAP COLSPAN="4">
								  <span id="EditCategory<%=CounterEdit %>" style="display:none">
								    <form NAME="formEditCategory<%=CounterEdit %>" METHOD="POST" TARGET="AddCategory" ACTION="<%=MM_editAction%>">
									  <table WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0">
								  	    <tr>
								          <td WIDTH="8%" ALIGN="RIGHT" NOWRAP>Name: 
									  </td>
										  <td WIDTH="18%" NOWRAP>
									  	    <input TYPE="text" NAME="CategoryName" SIZE="20" MAXLENGTH="50" VALUE="<%=(rsCATEGORIES.Fields.Item("CategoryName").Value)%>">
									</td>
										  <td ROWSPAN="2" NOWRAP ALIGN="RIGHT">Description:</td>
										  <td ROWSPAN="2" NOWRAP>
									  	    <textarea NAME="Description" COLS="20" ROWS="4"><%=(rsCATEGORIES.Fields.Item("Description").Value)%></textarea>
											&nbsp;<%If NOT rsCATEGORIES.Fields.Item("ImageName").Value = "" Then %><img SRC="/UPLOADS/POPPIN_Images/<%=(rsCATEGORIES.Fields.Item("ImageName").Value)%>" WIDTH="90"><% end if %>
									</td>
										</tr>
								  	    <tr>
								          <td WIDTH="8%" ALIGN="RIGHT" NOWRAP>Image:</td>
										  <td WIDTH="18%" NOWRAP>
									  	    <select NAME="ImageName">
										<option value="">- none -</option>
									          <% If NOT rsIMAGES.EOF Then %>
											  <%
While (NOT rsIMAGES.EOF)
%>

											  <option value="<%=(rsIMAGES.Fields.Item("FileName").Value)%>" <%if (CStr(rsIMAGES.Fields.Item("FileName").Value) = CStr(rsCATEGORIES.Fields.Item("ImageName").Value)) then Response.Write("SELECTED") : Response.Write("")%> ><%=(rsIMAGES.Fields.Item("FileName").Value)%></option>

											  <%
  rsIMAGES.MoveNext()
Wend
If (rsIMAGES.CursorType > 0) Then
  rsIMAGES.MoveFirst
Else
  rsIMAGES.Requery
End If
%>
										<% Else %>
										<option value="">- no images available -</option>
										<% End If %>
									  </select>
										  </td>
										</tr>
								  	    <tr>
									      <td WIDTH="8%" ALIGN="RIGHT" NOWRAP>&nbsp;</td>
										  <td WIDTH="18%" NOWRAP>
									  	    <input TYPE="submit" VALUE="Save Changes" CLASS="btnEditProduct">
									</td>
										  <td NOWRAP ALIGN="RIGHT">&nbsp;</td>
										  <td NOWRAP>&nbsp;</td>
										</tr>
							          </table>
									  <input type="hidden" name="MM_update" value="true">

									  <input type="hidden" name="MM_recordId" value="<%= rsCATEGORIES.Fields.Item("CategoryID").Value %>">
									</form>
									</span>
								  </td>
								</tr>
								<% CounterEdit = CounterEdit + 1 %>
								<% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  rsCATEGORIES.MoveNext()
Wend
%>
								<% else %>
								<tr>
								  <td NOWRAP ALIGN="CENTER" COLSPAN="4"><font COLOR="#FF0000">No Categories have been added yet.</font></td>
								</tr>
								<% end if %>
								<tr>
								  <td NOWRAP ALIGN="CENTER" COLSPAN="4">&nbsp;</td>
								</tr>
							  </table>
							</td>
						  </tr>
						</table>
					  </td>
					</tr>
				  </table>
				</td>
			  </tr>
			</table>
		  </td>
		</tr>
	  </table>
	</td>
  </tr>
</table>
</body>
</html>
<%
rsCATEGORIES.Close()
%>