Dreamweaver site - 1 page SPRY does not work

Hi everyone,
I have a Dreamweaver site with a ton of pages. For some reason the SPRY does not work on this one page. Its doing some simple form validation (same as all other pages), but this one submits without checking for required fields, etc.
Can anyone see what I'm missing here before I pull my hair out?

Thanks in advance.
Jon
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/VendorVB.asp" -->
<%
Dim rsStyle__MMColParam
rsStyle__MMColParam = "1"
If (Request.QueryString("VPO") <> "") Then 
  rsStyle__MMColParam = Request.QueryString("VPO")
End If
%>

<%
Dim rsStyle__MMColParam2
rsStyle__MMColParam2 = "1"
If (Request.QueryString("Auto") <> "") Then 
  rsStyle__MMColParam2 = Request.QueryString("Auto")
End If
%>

<%
Dim rsStyle
Dim rsStyle_cmd
Dim rsStyle_numRows

Set rsStyle_cmd = Server.CreateObject ("ADODB.Command")
rsStyle_cmd.ActiveConnection = MM_VendorVB_STRING
rsStyle_cmd.CommandText = "SELECT * FROM dbo.Comments_Style WHERE VPO = ? AND Auto = ?" 
rsStyle_cmd.Prepared = true
rsStyle_cmd.Parameters.Append rsStyle_cmd.CreateParameter("param1", 202, 1, 30, rsStyle__MMColParam) ' adVarWChar
rsStyle_cmd.Parameters.Append rsStyle_cmd.CreateParameter("param2", 5, 1, -1, rsStyle__MMColParam2) ' adDouble

Set rsStyle = rsStyle_cmd.Execute
rsStyle_numRows = 0
%>

<%
Dim rsStyleNum__MMColParam
rsStyleNum__MMColParam = rsStyle.Fields.Item("Auto")
%>
<%
Dim rsStyleNum
Dim rsStyleNum_cmd
Dim rsStyleNum_numRows

Set rsStyleNum_cmd = Server.CreateObject ("ADODB.Command")
rsStyleNum_cmd.ActiveConnection = MM_VendorVB_STRING
rsStyleNum_cmd.CommandText = "SELECT AL_Style FROM dbo.Style WHERE Auto = ?" 
rsStyleNum_cmd.Prepared = true
rsStyleNum_cmd.Parameters.Append rsStyleNum_cmd.CreateParameter("param1", 5, 1, -1, rsStyleNum__MMColParam) ' adDouble

Set rsStyleNum = rsStyleNum_cmd.Execute
rsStyleNum_numRows = 0
%>
<%
Dim rsCustomers__MMColParam
rsCustomers__MMColParam = "1"
If (Request("MM_EmptyValue") <> "") Then 
  rsCustomers__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim rsCustomers
Dim rsCustomers_cmd
Dim rsCustomers_numRows

Set rsCustomers_cmd = Server.CreateObject ("ADODB.Command")
rsCustomers_cmd.ActiveConnection = MM_VendorVB_STRING
rsCustomers_cmd.CommandText = "SELECT * FROM dbo.Companies WHERE ActiveCompany = ? ORDER BY Company ASC" 
rsCustomers_cmd.Prepared = true
rsCustomers_cmd.Parameters.Append rsCustomers_cmd.CreateParameter("param1", 11, 1, -1, rsCustomers__MMColParam) ' adBoolean

Set rsCustomers = rsCustomers_cmd.Execute
rsCustomers_numRows = 0
%>

<%
Dim MM_editAction2
MM_editAction2 = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
  MM_editAction2 = MM_editAction2 & "?" & Server.HTMLEncode(Request.QueryString)
End If

' boolean to abort record edit
Dim MM_abortEdit2
MM_abortEdit2 = false
%>
<%
' IIf implementation
Function MM_IIf2(condition, ifTrue, ifFalse)
  If condition = "" Then
    MM_IIf2 = ifFalse
  Else
    MM_IIf2 = ifTrue
  End If
End Function
%>

<%
If (CStr(Request("MM_insert2")) = "UpdatePP") Then
  If (Not MM_abortEdit2) Then
    ' execute the insert
    Dim MM_editCmd2

    Set MM_editCmd2 = Server.CreateObject ("ADODB.Command")
    MM_editCmd2.ActiveConnection = MM_VendorVB_STRING
    MM_editCmd2.CommandText = "INSERT INTO dbo.Comments_PP (PPDateSent, PPColor, PPColorComm, PPIHComm, PPCustComm, PPFitComm, PPStatus, PPStatusComm, StyleID) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?)" 
    MM_editCmd2.Prepared = true
    MM_editCmd2.Parameters.Append MM_editCmd2.CreateParameter("param1", 202, 1, 10, Request.Form("PPDateSent")) ' adVarWChar
    MM_editCmd2.Parameters.Append MM_editCmd2.CreateParameter("param2", 202, 1, 75, Request.Form("PPColor")) ' adVarWChar
    MM_editCmd2.Parameters.Append MM_editCmd2.CreateParameter("param3", 202, 1, 250, Request.Form("PPColorComm")) ' adVarWChar
    MM_editCmd2.Parameters.Append MM_editCmd2.CreateParameter("param4", 202, 1, 250, Request.Form("PPIHComm")) ' adVarWChar
    MM_editCmd2.Parameters.Append MM_editCmd2.CreateParameter("param5", 202, 1, 250, Request.Form("PPCustComm")) ' adVarWChar
    MM_editCmd2.Parameters.Append MM_editCmd2.CreateParameter("param6", 202, 1, 250, Request.Form("PPFitComm")) ' adVarWChar
    MM_editCmd2.Parameters.Append MM_editCmd2.CreateParameter("param7", 202, 1, 20, Request.Form("PPStatus")) ' adVarWChar
    MM_editCmd2.Parameters.Append MM_editCmd2.CreateParameter("param8", 202, 1, 250, Request.Form("PPStatusComm")) ' adVarWChar
    MM_editCmd2.Parameters.Append MM_editCmd2.CreateParameter("param9", 202, 1, 250, Request.Form("MM_recordId2")) ' adVarWChar
    MM_editCmd2.Execute
    MM_editCmd2.ActiveConnection.Close
    ' append the query string to the redirect URL
    Dim MM_editRedirectUrl2
    MM_editRedirectUrl2 = "/SampleComments.asp"
    If (Request.QueryString <> "") Then
      If (InStr(1, MM_editRedirectUrl2, "?", vbTextCompare) = 0) Then
        MM_editRedirectUrl2 = MM_editRedirectUrl2 & "?" & Request.QueryString
      Else
        MM_editRedirectUrl2 = MM_editRedirectUrl2 & "&" & Request.QueryString
      End If
    End If
    Response.Redirect(MM_editRedirectUrl2)
  End If
End If
%>

<%
Dim MM_editAction3
MM_editAction3 = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
  MM_editAction3 = MM_editAction3 & "?" & Server.HTMLEncode(Request.QueryString)
End If

' boolean to abort record edit
Dim MM_abortEdit3
MM_abortEdit3 = false
%>
<%
' IIf implementation
Function MM_IIf3(condition, ifTrue, ifFalse)
  If condition = "" Then
    MM_IIf3 = ifFalse
  Else
    MM_IIf3 = ifTrue
  End If
End Function
%>

<%
If (CStr(Request("MM_insert3")) = "UpdateTOP") Then
  If (Not MM_abortEdit3) Then
    ' execute the insert
    Dim MM_editCmd3

    Set MM_editCmd3 = Server.CreateObject ("ADODB.Command")
    MM_editCmd3.ActiveConnection = MM_VendorVB_STRING
    MM_editCmd3.CommandText = "INSERT INTO dbo.Comments_TOP (TOPDateSent, TOPColor, TOPColorComm, TOPIHComm, TOPCustComm, TOPFitComm, TOPStatus, TOPStatusComm, StyleID) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?)" 
    MM_editCmd3.Prepared = true
    MM_editCmd3.Parameters.Append MM_editCmd3.CreateParameter("param1", 202, 1, 10, Request.Form("TOPDateSent")) ' adVarWChar
    MM_editCmd3.Parameters.Append MM_editCmd3.CreateParameter("param2", 202, 1, 75, Request.Form("TOPColor")) ' adVarWChar
    MM_editCmd3.Parameters.Append MM_editCmd3.CreateParameter("param3", 202, 1, 250, Request.Form("TOPColorComm")) ' adVarWChar
    MM_editCmd3.Parameters.Append MM_editCmd3.CreateParameter("param4", 202, 1, 250, Request.Form("TOPIHComm")) ' adVarWChar
    MM_editCmd3.Parameters.Append MM_editCmd3.CreateParameter("param5", 202, 1, 250, Request.Form("TOPCustComm")) ' adVarWChar
    MM_editCmd3.Parameters.Append MM_editCmd3.CreateParameter("param6", 202, 1, 250, Request.Form("TOPFitComm")) ' adVarWChar
    MM_editCmd3.Parameters.Append MM_editCmd3.CreateParameter("param7", 202, 1, 20, Request.Form("TOPStatus")) ' adVarWChar
    MM_editCmd3.Parameters.Append MM_editCmd3.CreateParameter("param8", 202, 1, 250, Request.Form("TOPStatusComm")) ' adVarWChar
    MM_editCmd3.Parameters.Append MM_editCmd3.CreateParameter("param9", 202, 1, 250, Request.Form("MM_recordId3")) ' adVarWChar
    MM_editCmd3.Execute
    MM_editCmd3.ActiveConnection.Close
    ' append the query string to the redirect URL
    Dim MM_editRedirectUrl3
    MM_editRedirectUrl3 = "/SampleComments.asp"
    If (Request.QueryString <> "") Then
      If (InStr(1, MM_editRedirectUrl3, "?", vbTextCompare) = 0) Then
        MM_editRedirectUrl3 = MM_editRedirectUrl3 & "?" & Request.QueryString
      Else
        MM_editRedirectUrl3 = MM_editRedirectUrl3 & "&" & Request.QueryString
      End If
    End If
    Response.Redirect(MM_editRedirectUrl3)
  End If
End If
%>

<%
Dim MM_editAction4
MM_editAction4 = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
  MM_editAction4 = MM_editAction4 & "?" & Server.HTMLEncode(Request.QueryString)
End If

' boolean to abort record edit
Dim MM_abortEdit4
MM_abortEdit4 = false
%>
<%
' IIf implementation
Function MM_IIf4(condition, ifTrue, ifFalse)
  If condition = "" Then
    MM_IIf4 = ifFalse
  Else
    MM_IIf4 = ifTrue
  End If
End Function
%>

<%
If (CStr(Request("MM_insert4")) = "UpdatePackaging") Then
  If (Not MM_abortEdit4) Then
    ' execute the insert
    Dim MM_editCmd4

    Set MM_editCmd4 = Server.CreateObject ("ADODB.Command")
    MM_editCmd4.ActiveConnection = MM_VendorVB_STRING
    MM_editCmd4.CommandText = "INSERT INTO dbo.Comments_Packaging (PackagingDateSent, PackagingColor, PackagingColorComm, PackagingIHComm, PackagingCustComm, PackagingFitComm, PackagingStatus, PackagingStatusComm, StyleID) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?)" 
    MM_editCmd4.Prepared = true
    MM_editCmd4.Parameters.Append MM_editCmd4.CreateParameter("param1", 202, 1, 10, Request.Form("PackagingDateSent")) ' adVarWChar
    MM_editCmd4.Parameters.Append MM_editCmd4.CreateParameter("param2", 202, 1, 75, Request.Form("PackagingColor")) ' adVarWChar
    MM_editCmd4.Parameters.Append MM_editCmd4.CreateParameter("param3", 202, 1, 250, Request.Form("PackagingColorComm")) ' adVarWChar
    MM_editCmd4.Parameters.Append MM_editCmd4.CreateParameter("param4", 202, 1, 250, Request.Form("PackagingIHComm")) ' adVarWChar
    MM_editCmd4.Parameters.Append MM_editCmd4.CreateParameter("param5", 202, 1, 250, Request.Form("PackagingCustComm")) ' adVarWChar
    MM_editCmd4.Parameters.Append MM_editCmd4.CreateParameter("param6", 202, 1, 250, Request.Form("PackagingFitComm")) ' adVarWChar
    MM_editCmd4.Parameters.Append MM_editCmd4.CreateParameter("param7", 202, 1, 20, Request.Form("PackagingStatus")) ' adVarWChar
    MM_editCmd4.Parameters.Append MM_editCmd4.CreateParameter("param8", 202, 1, 250, Request.Form("PackagingStatusComm")) ' adVarWChar
    MM_editCmd4.Parameters.Append MM_editCmd4.CreateParameter("param9", 202, 1, 250, Request.Form("MM_recordId4")) ' adVarWChar
    MM_editCmd4.Execute
    MM_editCmd4.ActiveConnection.Close
    ' append the query string to the redirect URL
    Dim MM_editRedirectUrl4
    MM_editRedirectUrl4 = "/SampleComments.asp"
    If (Request.QueryString <> "") Then
      If (InStr(1, MM_editRedirectUrl4, "?", vbTextCompare) = 0) Then
        MM_editRedirectUrl4 = MM_editRedirectUrl4 & "?" & Request.QueryString
      Else
        MM_editRedirectUrl4 = MM_editRedirectUrl4 & "&" & Request.QueryString
      End If
    End If
    Response.Redirect(MM_editRedirectUrl4)
  End If
End If
%>

<%
Dim MM_editAction5
MM_editAction5 = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
  MM_editAction5 = MM_editAction5 & "?" & Server.HTMLEncode(Request.QueryString)
End If

' boolean to abort record edit
Dim MM_abortEdit5
MM_abortEdit5 = false
%>
<%
' IIf implementation
Function MM_IIf5(condition, ifTrue, ifFalse)
  If condition = "" Then
    MM_IIf5 = ifFalse
  Else
    MM_IIf5 = ifTrue
  End If
End Function
%>

<%
If (CStr(Request("MM_insert5")) = "UpdatePutUp") Then
  If (Not MM_abortEdit5) Then
    ' execute the insert
    Dim MM_editCmd5

    Set MM_editCmd5 = Server.CreateObject ("ADODB.Command")
    MM_editCmd5.ActiveConnection = MM_VendorVB_STRING
    MM_editCmd5.CommandText = "INSERT INTO dbo.Comments_PutUp (PutUpDateSent, PutUpColor, PutUpColorComm, PutUpIHComm, PutUpCustComm, PutUpFitComm, PutUpStatus, PutUpStatusComm, StyleID) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?)" 
    MM_editCmd5.Prepared = true
    MM_editCmd5.Parameters.Append MM_editCmd5.CreateParameter("param1", 202, 1, 10, Request.Form("PutUpDateSent")) ' adVarWChar
    MM_editCmd5.Parameters.Append MM_editCmd5.CreateParameter("param2", 202, 1, 75, Request.Form("PutUpColor")) ' adVarWChar
    MM_editCmd5.Parameters.Append MM_editCmd5.CreateParameter("param3", 202, 1, 250, Request.Form("PutUpColorComm")) ' adVarWChar
    MM_editCmd5.Parameters.Append MM_editCmd5.CreateParameter("param4", 202, 1, 250, Request.Form("PutUpIHComm")) ' adVarWChar
    MM_editCmd5.Parameters.Append MM_editCmd5.CreateParameter("param5", 202, 1, 250, Request.Form("PutUpCustComm")) ' adVarWChar
    MM_editCmd5.Parameters.Append MM_editCmd5.CreateParameter("param6", 202, 1, 250, Request.Form("PutUpFitComm")) ' adVarWChar
    MM_editCmd5.Parameters.Append MM_editCmd5.CreateParameter("param7", 202, 1, 20, Request.Form("PutUpStatus")) ' adVarWChar
    MM_editCmd5.Parameters.Append MM_editCmd5.CreateParameter("param8", 202, 1, 250, Request.Form("PutUpStatusComm")) ' adVarWChar
    MM_editCmd5.Parameters.Append MM_editCmd5.CreateParameter("param9", 202, 1, 250, Request.Form("MM_recordId5")) ' adVarWChar
    MM_editCmd5.Execute
    MM_editCmd5.ActiveConnection.Close
    ' append the query string to the redirect URL
    Dim MM_editRedirectUrl5
    MM_editRedirectUrl5 = "/SampleComments.asp"
    If (Request.QueryString <> "") Then
      If (InStr(1, MM_editRedirectUrl5, "?", vbTextCompare) = 0) Then
        MM_editRedirectUrl5 = MM_editRedirectUrl5 & "?" & Request.QueryString
      Else
        MM_editRedirectUrl5 = MM_editRedirectUrl5 & "&" & Request.QueryString
      End If
    End If
    Response.Redirect(MM_editRedirectUrl5)
  End If
End If
%>

<%
Dim rsPP__MMColParam
rsPP__MMColParam = rsStyle.Fields.Item("StyleID").Value
If (Request("MM_EmptyValue") <> "") Then 
  rsPP__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim rsPP
Dim rsPP_cmd
Dim rsPP_numRows

Set rsPP_cmd = Server.CreateObject ("ADODB.Command")
rsPP_cmd.ActiveConnection = MM_VendorVB_STRING
rsPP_cmd.CommandText = "SELECT * FROM dbo.Comments_PP WHERE StyleID = ? ORDER BY PPID ASC" 
rsPP_cmd.Prepared = true
rsPP_cmd.Parameters.Append rsPP_cmd.CreateParameter("param1", 5, 1, -1, rsPP__MMColParam) ' adDouble

Set rsPP = rsPP_cmd.Execute
rsPP_numRows = 0
%>

<%
Dim PPnumber
Dim Repeat2__numRows
Dim Repeat2__index

PPnumber = 1
Repeat2__numRows = -1
Repeat2__index = 0
rsPP_numRows = rsPP_numRows + Repeat2__numRows
%>

<%
Dim rsTOP__MMColParam
rsTOP__MMColParam = rsStyle.Fields.Item("StyleID").Value
If (Request("MM_EmptyValue") <> "") Then 
  rsTOP__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim rsTOP
Dim rsTOP_cmd
Dim rsTOP_numRows

Set rsTOP_cmd = Server.CreateObject ("ADODB.Command")
rsTOP_cmd.ActiveConnection = MM_VendorVB_STRING
rsTOP_cmd.CommandText = "SELECT * FROM dbo.Comments_TOP WHERE StyleID = ? ORDER BY TOPID ASC" 
rsTOP_cmd.Prepared = true
rsTOP_cmd.Parameters.Append rsTOP_cmd.CreateParameter("param1", 5, 1, -1, rsTOP__MMColParam) ' adDouble

Set rsTOP = rsTOP_cmd.Execute
rsTOP_numRows = 0
%>

<%
Dim TOPnumber
Dim Repeat3__numRows
Dim Repeat3__index

TOPnumber = 1
Repeat3__numRows = -1
Repeat3__index = 0
rsTOP_numRows = rsTOP_numRows + Repeat3__numRows
%>

<%
Dim rsPackaging__MMColParam
rsPackaging__MMColParam = rsStyle.Fields.Item("StyleID").Value
If (Request("MM_EmptyValue") <> "") Then 
  rsPackaging__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim rsPackaging
Dim rsPackaging_cmd
Dim rsPackaging_numRows

Set rsPackaging_cmd = Server.CreateObject ("ADODB.Command")
rsPackaging_cmd.ActiveConnection = MM_VendorVB_STRING
rsPackaging_cmd.CommandText = "SELECT * FROM dbo.Comments_Packaging WHERE StyleID = ? ORDER BY PackagingID ASC" 
rsPackaging_cmd.Prepared = true
rsPackaging_cmd.Parameters.Append rsPackaging_cmd.CreateParameter("param1", 5, 1, -1, rsPackaging__MMColParam) ' adDouble

Set rsPackaging = rsPackaging_cmd.Execute
rsPackaging_numRows = 0
%>

<%
Dim Packagingnumber
Dim Repeat4__numRows
Dim Repeat4__index

Packagingnumber = 1
Repeat4__numRows = -1
Repeat4__index = 0
rsPackaging_numRows = rsPackaging_numRows + Repeat4__numRows
%>

<%
Dim rsPutUp__MMColParam
rsPutUp__MMColParam = rsStyle.Fields.Item("StyleID").Value
If (Request("MM_EmptyValue") <> "") Then 
  rsPutUp__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim rsPutUp
Dim rsPutUp_cmd
Dim rsPutUp_numRows

Set rsPutUp_cmd = Server.CreateObject ("ADODB.Command")
rsPutUp_cmd.ActiveConnection = MM_VendorVB_STRING
rsPutUp_cmd.CommandText = "SELECT * FROM dbo.Comments_PutUp WHERE StyleID = ? ORDER BY PutUpID ASC" 
rsPutUp_cmd.Prepared = true
rsPutUp_cmd.Parameters.Append rsPutUp_cmd.CreateParameter("param1", 5, 1, -1, rsPutUp__MMColParam) ' adDouble

Set rsPutUp = rsPutUp_cmd.Execute
rsPutUp_numRows = 0
%>

<%
Dim PutUpnumber
Dim Repeat5__numRows
Dim Repeat5__index

PutUpnumber = 1
Repeat5__numRows = -1
Repeat5__index = 0
rsPutUp_numRows = rsPutUp_numRows + Repeat5__numRows
%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml"><!-- InstanceBegin template="/Templates/User.dwt" codeOutsideHTMLIsLocked="false" -->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
<!-- InstanceBeginEditable name="doctitle" -->
<title>Order Sample Comments</title>
<!-- InstanceEndEditable -->
<!-- InstanceBeginEditable name="head" -->
<script src="jquery.ui-1.5.2/jquery-1.2.6.js" type="text/javascript"></script>
<script src="jquery.ui-1.5.2/ui/ui.datepicker.js" type="text/javascript"></script>
<link href="jquery.ui-1.5.2/themes/ui.datepicker.css" rel="stylesheet" type="text/css" />

<script language="javascript" type="text/javascript">
function CommDiv(type) {
var PPDivBlock = document.getElementById("PPAddDiv");
var TOPDivBlock = document.getElementById("TOPAddDiv");
var PackagingDivBlock = document.getElementById("PackagingAddDiv");
var PutUpDivBlock = document.getElementById("PutUpAddDiv");
var PPDivBlock = document.getElementById("PPAddDiv");

var PPStatusDivBlock = document.getElementById("PPStatusRejected");
var TOPStatusDivBlock = document.getElementById("TOPStatusRejected");
var PackagingStatusDivBlock = document.getElementById("PackagingStatusRejected");
var PutUpStatusDivBlock = document.getElementById("PutUpStatusRejected");

if (type == "OnLoad"){
	PPDivBlock.style.display = 'none';
	TOPDivBlock.style.display = 'none';
	PackagingDivBlock.style.display = 'none';
	PutUpDivBlock.style.display = 'none';
	PPStatusDivBlock.style.display = 'none';
	TOPStatusDivBlock.style.display = 'none';
	PackagingStatusDivBlock.style.display = 'none';
	PutUpStatusDivBlock.style.display = 'none';

}
if (type == "bAddPP"){
	PPDivBlock.style.display = 'block';		
	var OldAddButton = document.getElementById("bAddPP");
	var NewAddButton = document.createElement('input');
	var OldCxlButton = document.getElementById("bCxlPP");
	var NewCxlButton = document.createElement('input');
	NewAddButton.type = 'hidden';
	NewAddButton.name = OldAddButton.name;
	NewAddButton.id = OldAddButton.id;
	NewAddButton.value = OldAddButton.value;
	NewAddButton.onclick = OldAddButton.onclick;
	OldAddButton.parentNode.replaceChild(NewAddButton, OldAddButton);
	
	NewCxlButton.type = 'button';
	NewCxlButton.name = OldCxlButton.name;
	NewCxlButton.id = OldCxlButton.id;
	NewCxlButton.value = OldCxlButton.value;
	NewCxlButton.onclick = OldCxlButton.onclick;
	OldCxlButton.parentNode.replaceChild(NewCxlButton, OldCxlButton);
	
}
if (type == "bCxlPP"){
	PPDivBlock.style.display = 'none';
	var OldCxlButton = document.getElementById("bCxlPP");
	var NewCxlButton = document.createElement('input');
	var OldAddButton = document.getElementById("bAddPP");
	var NewAddButton = document.createElement('input');
	NewCxlButton.type = 'hidden';
	NewCxlButton.name = OldCxlButton.name;
	NewCxlButton.id = OldCxlButton.id;
	NewCxlButton.value = OldCxlButton.value;
	NewCxlButton.onclick = OldCxlButton.onclick;
	OldCxlButton.parentNode.replaceChild(NewCxlButton, OldCxlButton);

	NewAddButton.type = 'button';
	NewAddButton.name = OldAddButton.name;
	NewAddButton.id = OldAddButton.id;
	NewAddButton.value = OldAddButton.value;
	NewAddButton.onclick = OldAddButton.onclick;
	OldAddButton.parentNode.replaceChild(NewAddButton, OldAddButton);
}

if (type == "bAddTOP"){
	TOPDivBlock.style.display = 'block';		
	var OldAddButton = document.getElementById("bAddTOP");
	var NewAddButton = document.createElement('input');
	var OldCxlButton = document.getElementById("bCxlTOP");
	var NewCxlButton = document.createElement('input');
	NewAddButton.type = 'hidden';
	NewAddButton.name = OldAddButton.name;
	NewAddButton.id = OldAddButton.id;
	NewAddButton.value = OldAddButton.value;
	NewAddButton.onclick = OldAddButton.onclick;
	OldAddButton.parentNode.replaceChild(NewAddButton, OldAddButton);
	
	NewCxlButton.type = 'button';
	NewCxlButton.name = OldCxlButton.name;
	NewCxlButton.id = OldCxlButton.id;
	NewCxlButton.value = OldCxlButton.value;
	NewCxlButton.onclick = OldCxlButton.onclick;
	OldCxlButton.parentNode.replaceChild(NewCxlButton, OldCxlButton);
	
}
if (type == "bCxlTOP"){
	TOPDivBlock.style.display = 'none';
	var OldCxlButton = document.getElementById("bCxlTOP");
	var NewCxlButton = document.createElement('input');
	var OldAddButton = document.getElementById("bAddTOP");
	var NewAddButton = document.createElement('input');
	NewCxlButton.type = 'hidden';
	NewCxlButton.name = OldCxlButton.name;
	NewCxlButton.id = OldCxlButton.id;
	NewCxlButton.value = OldCxlButton.value;
	NewCxlButton.onclick = OldCxlButton.onclick;
	OldCxlButton.parentNode.replaceChild(NewCxlButton, OldCxlButton);

	NewAddButton.type = 'button';
	NewAddButton.name = OldAddButton.name;
	NewAddButton.id = OldAddButton.id;
	NewAddButton.value = OldAddButton.value;
	NewAddButton.onclick = OldAddButton.onclick;
	OldAddButton.parentNode.replaceChild(NewAddButton, OldAddButton);
}

if (type == "bAddPackaging"){
	PackagingDivBlock.style.display = 'block';		
	var OldAddButton = document.getElementById("bAddPackaging");
	var NewAddButton = document.createElement('input');
	var OldCxlButton = document.getElementById("bCxlPackaging");
	var NewCxlButton = document.createElement('input');
	NewAddButton.type = 'hidden';
	NewAddButton.name = OldAddButton.name;
	NewAddButton.id = OldAddButton.id;
	NewAddButton.value = OldAddButton.value;
	NewAddButton.onclick = OldAddButton.onclick;
	OldAddButton.parentNode.replaceChild(NewAddButton, OldAddButton);
	
	NewCxlButton.type = 'button';
	NewCxlButton.name = OldCxlButton.name;
	NewCxlButton.id = OldCxlButton.id;
	NewCxlButton.value = OldCxlButton.value;
	NewCxlButton.onclick = OldCxlButton.onclick;
	OldCxlButton.parentNode.replaceChild(NewCxlButton, OldCxlButton);
	
}
if (type == "bCxlPackaging"){
	PackagingDivBlock.style.display = 'none';
	var OldCxlButton = document.getElementById("bCxlPackaging");
	var NewCxlButton = document.createElement('input');
	var OldAddButton = document.getElementById("bAddPackaging");
	var NewAddButton = document.createElement('input');
	NewCxlButton.type = 'hidden';
	NewCxlButton.name = OldCxlButton.name;
	NewCxlButton.id = OldCxlButton.id;
	NewCxlButton.value = OldCxlButton.value;
	NewCxlButton.onclick = OldCxlButton.onclick;
	OldCxlButton.parentNode.replaceChild(NewCxlButton, OldCxlButton);

	NewAddButton.type = 'button';
	NewAddButton.name = OldAddButton.name;
	NewAddButton.id = OldAddButton.id;
	NewAddButton.value = OldAddButton.value;
	NewAddButton.onclick = OldAddButton.onclick;
	OldAddButton.parentNode.replaceChild(NewAddButton, OldAddButton);
}

if (type == "bAddPutUp"){
	PutUpDivBlock.style.display = 'block';		
	var OldAddButton = document.getElementById("bAddPutUp");
	var NewAddButton = document.createElement('input');
	var OldCxlButton = document.getElementById("bCxlPutUp");
	var NewCxlButton = document.createElement('input');
	NewAddButton.type = 'hidden';
	NewAddButton.name = OldAddButton.name;
	NewAddButton.id = OldAddButton.id;
	NewAddButton.value = OldAddButton.value;
	NewAddButton.onclick = OldAddButton.onclick;
	OldAddButton.parentNode.replaceChild(NewAddButton, OldAddButton);
	
	NewCxlButton.type = 'button';
	NewCxlButton.name = OldCxlButton.name;
	NewCxlButton.id = OldCxlButton.id;
	NewCxlButton.value = OldCxlButton.value;
	NewCxlButton.onclick = OldCxlButton.onclick;
	OldCxlButton.parentNode.replaceChild(NewCxlButton, OldCxlButton);
	
}
if (type == "bCxlPutUp"){
	PutUpDivBlock.style.display = 'none';
	var OldCxlButton = document.getElementById("bCxlPutUp");
	var NewCxlButton = document.createElement('input');
	var OldAddButton = document.getElementById("bAddPutUp");
	var NewAddButton = document.createElement('input');
	NewCxlButton.type = 'hidden';
	NewCxlButton.name = OldCxlButton.name;
	NewCxlButton.id = OldCxlButton.id;
	NewCxlButton.value = OldCxlButton.value;
	NewCxlButton.onclick = OldCxlButton.onclick;
	OldCxlButton.parentNode.replaceChild(NewCxlButton, OldCxlButton);

	NewAddButton.type = 'button';
	NewAddButton.name = OldAddButton.name;
	NewAddButton.id = OldAddButton.id;
	NewAddButton.value = OldAddButton.value;
	NewAddButton.onclick = OldAddButton.onclick;
	OldAddButton.parentNode.replaceChild(NewAddButton, OldAddButton);
}

}
</script>

<script language="javascript" type="text/javascript">
function StatusChanged(ChangedID, ChangedVal) {
	var PPStatusDivBlock = document.getElementById("PPStatusRejected");
	var TOPStatusDivBlock = document.getElementById("TOPStatusRejected");
	var PackagingStatusDivBlock = document.getElementById("PackagingStatusRejected");
	var PutUpStatusDivBlock = document.getElementById("PutUpStatusRejected");
	
	if (ChangedID == "PPStatus") {
		if (ChangedVal == "Rejected") {
			PPStatusDivBlock.style.display = 'block'; }
		else {
			PPStatusDivBlock.style.display = 'none'; }
	}
	
	else if (ChangedID == "TOPStatus") {
		if (ChangedVal == "Rejected") {
			TOPStatusDivBlock.style.display = 'block'; }
		else {
			TOPStatusDivBlock.style.display = 'none'; }
	}
	
	else if (ChangedID == "PackagingStatus") {
		if (ChangedVal == "Rejected") {
			PackagingStatusDivBlock.style.display = 'block'; }
		else {
			PackagingStatusDivBlock.style.display = 'none'; }
	}
	
	else if (ChangedID == "PutUpStatus") {
		if (ChangedVal == "Rejected") {
			PutUpStatusDivBlock.style.display = 'block'; }
		else {
			PutUpStatusDivBlock.style.display = 'none'; }
	}
	else {
			PPStatusDivBlock.style.display = 'none';
			TOPStatusDivBlock.style.display = 'none';
			PackagingStatusDivBlock.style.display = 'none';
			PutUpStatusDivBlock.style.display = 'none';
	}
}
</script>
<!-- InstanceEndEditable -->
<style type="text/css">
<!--
html {
	overflow:auto;
    height:100%;
}

body {
	font: 100%/1.4 Verdana, Arial, Helvetica, sans-serif;
	background: #42413C;
	margin: 0;
	padding: 0;
	color: #000;
}

/* ~~ Element/tag selectors ~~ */
ul, ol, dl { /* Due to variations between browsers, it's best practices to zero padding and margin on lists. For consistency, you can either specify the amounts you want here, or on the list items (LI, DT, DD) they contain. Remember that what you do here will cascade to the .nav list unless you write a more specific selector. */
	padding: 0;
	margin: 0;
}
h1, h2, h3, h4, h5, h6, p {
	margin-top: 0;	 /* removing the top margin gets around an issue where margins can escape from their containing div. The remaining bottom margin will hold it away from any elements that follow. */
	padding-right: 15px;
	padding-left: 15px; /* adding the padding to the sides of the elements within the divs, instead of the divs themselves, gets rid of any box model math. A nested div with side padding can also be used as an alternate method. */
}
a img { /* this selector removes the default blue border displayed in some browsers around an image when it is surrounded by a link */
	border: none;
}
/* ~~ Styling for your site's links must remain in this order - including the group of selectors that create the hover effect. ~~ */
a:link {
	color: #42413C;
	text-decoration: underline; /* unless you style your links to look extremely unique, it's best to provide underlines for quick visual identification */
}
a:visited {
	color: #6E6C64;
	text-decoration: underline;
}
a:hover, a:active, a:focus { /* this group of selectors will give a keyboard navigator the same hover experience as the person using a mouse. */
	text-decoration: none;
}

/* ~~ this fixed width container surrounds the other divs ~~ */
.container {
	width: 960px;
	background: #FFF;
	margin-left: 31px;
	margin-right: 31px;
	margin-top: 31px;
	margin-bottom: 31px;

	/*margin: 100px; /* the auto value on the sides, coupled with the width, centers the layout */
}

/* ~~ the header is not given a width. It will extend the full width of your layout. It contains an image placeholder that should be replaced with your own linked logo ~~ */
.header {
	background: #ADB96E;
}

/* ~~ This is the layout information. ~~ 

1) Padding is only placed on the top and/or bottom of the div. The elements within this div have padding on their sides. This saves you from any "box model math". Keep in mind, if you add any side padding or border to the div itself, it will be added to the width you define to create the *total* width. You may also choose to remove the padding on the element in the div and place a second div within it with no width and the padding necessary for your design.

*/

.content {

	padding: 10px 0;
	background-image:url(file:///Macintosh HD/Users/jon/Documents/VendorTEST/Back2.jpg);
}

/* ~~ The footer ~~ */
.footer {
	padding: 10px 0;
	background: #BDCA78;
}

/* ~~ miscellaneous float/clear classes ~~ */
.fltrt {  /* this class can be used to float an element right in your page. The floated element must precede the element it should be next to on the page. */
	float: right;
	margin-left: 8px;
}
.fltlft { /* this class can be used to float an element left in your page. The floated element must precede the element it should be next to on the page. */
	float: left;
	margin-right: 8px;
}
.clearfloat { /* this class can be placed on a <br /> or empty div as the final element following the last floated div (within the #container) if the #footer is removed or taken out of the #container */
	clear:both;
	height:0;
	font-size: 1px;
	line-height: 0px;
}
#Blue {
	color: #00F;
}
-->
</style>
<script src="SpryAssets/SpryMenuBar.js" type="text/javascript"></script>
<link href="SpryAssets/SpryMenuBarHorizontal.css" rel="stylesheet" type="text/css" />
<script src="SpryAssets/SpryValidationTextField.js" type="text/javascript"></script>
<link href="SpryAssets/SpryValidationTextField.css" rel="stylesheet" type="text/css" />
<script src="SpryAssets/SpryValidationSelect.js" type="text/javascript"></script>
<link href="SpryAssets/SpryValidationSelect.css" rel="stylesheet" type="text/css" />
</head>

<body>

<div class="container">
  <div class="header">
    <table width="960" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td width="271" rowspan="2"><a href="VendAuth.asp"><img src="AL INC3.jpg" alt="Amiee Lynn, Inc." name="Amiee_Lynn_Logo" width="280" height="152" id="Amiee_Lynn_Logo" style="background: #BDCA78; display:block;" /></a></td>
        <td width="638" height="119" align="right" valign="top">Welcome <span id="Blue"> <%=(Session("VName"))%></span>, <a href="LogOut.asp">Log out</a>&nbsp;   <br />
        Division: <span id="Blue"><a href="Change_Password_AL.asp"> <%=(Session("DefDivName"))%></a></span></td>
      </tr>
      <tr>
        <td valign="bottom"><ul id="MenuBar1" class="MenuBarHorizontal">
          <li><a href="StyleRedir.asp">New Style</a></li>
          <li><a href="SearchAL.asp">Search</a></li>
          <li><a href="#" class="MenuBarItemSubmenu">Sales</a>
            <ul>
<li><a href="Catalog/Catalog_View.asp">Catalogs</a></li>
<li><a href="Top10.asp">Top 10</a></li>
            </ul>
          </li>
          <li><a href="#" class="MenuBarItemSubmenu">Settings</a>
            <ul>
<li><a href="#" class="MenuBarItemSubmenu">Logins</a>
  <ul>
<li><a href="Admin_Vendors.asp">Vendors</a></li>
<li><a href="Admin_ALUsers.asp">Users</a></li>
<li><a href="Admin_ALAdmins.asp">Admins</a></li>
  </ul>
</li>
<li><a href="Admin_Licenses.asp">Licenses</a></li>
<li><a href="Admin_Divisions.asp">Divisions</a></li>
<li><a href="Admin_Colors.asp">Colors</a></li>
<li><a href="Admin_Countries.asp">Countries of Origin</a></li>
<li><a href="Admin_Companies.asp">Customers</a></li>
<li><a href="Contact_Log.asp">Contact Log</a></li>
            </ul>
        </li>
</ul></td>
      </tr>
    </table> 
    <!-- end .header --></div>
  <div class="content">
    <p><!-- InstanceBeginEditable name="EditRegion3" -->
    <h2><center><u>Order Sample Comments</u></center></h2>
    <br />
    <h2><u>VPO Info</u> <input type="button" value="Edit"
onClick="location.href='/SampleCommentsEdit.asp?StyleID=<%=rsStyle.Fields.Item("StyleID").Value%>&VPO=<%=rsStyle__MMColParam%>&Auto=<%=rsStyle__MMColParam2%>';"></h2>
    <p>Style #: <strong><%=(rsStyleNum.Fields.Item("AL_Style").Value)%></strong><br />
       VPO #: <strong><%=(rsStyle.Fields.Item("VPO").Value)%></strong><br />
       Customer: <strong><%= (rsStyle.Fields.Item("Customer").Value)%></strong><br />

<%	Dim DelivDate
	Dim DelivDateSplit
    Dim DelivDateReform
	  
	DelivDate = rsStyle.Fields.Item("Delivery").Value
	if DelivDate <> "" then
	DelivDateSplit = split(DelivDate, "-")
	DelivDateReform = DelivDateSplit(1) & "/" & DelivDateSplit(2) & "/" & DelivDateSplit(0)
	else
	DelivDateReform = ""
	end if
%>    
    
       Delivery: <strong><%=DelivDateReform%></strong><br />
       Season: <strong><%=(rsStyle.Fields.Item("Season").Value)%></strong>
       &nbsp;&nbsp;
       Year: <strong><%=(rsStyle.Fields.Item("Year").Value)%></strong><br />
       Sizing: <strong><%=(rsStyle.Fields.Item("Sizing").Value)%></strong><br />
       Content: <strong><%=(rsStyle.Fields.Item("Content").Value)%></strong><br />
       Colors: <strong><%=(rsStyle.Fields.Item("Colors").Value)%></strong><br />
  </p>
    <br />

<div id="PPDiv">
	<h2><u>PP Comments</u>
	  <input type="button" name="bAddPP" id="bAddPP" value="Add" onclick="CommDiv(this.id)"/>
	  <input type="hidden" name="bCxlPP" id="bCxlPP" value="Cancel" onclick="CommDiv(this.id)"/>
    </h2>  
  <div id="PPAddDiv">
<form ACTION="<%=MM_editAction2%>" METHOD="POST" name="UpdatePP" id="UpdatePP">
<br />
	<p>Date Sent: <span id="sprytextfield3">
    <label for="PPDateSent"></label>
    <input name="PPDateSent" type="text" id="PPDateSent" size="10" maxlength="10" />
<span class="textfieldInvalidFormatMsg">Invalid format.</span></span></p>
		<script type="text/javascript">
		jQuery("#PPDateSent").datepicker();
	  	</script>

    <p>Color: 
      <label for="PPColor"></label>
      <input name="PPColor" type="text" id="PPColor" size="75" maxlength="75" />
    </p>
    <p>Color Comments: 
      <label for="PPColorComm"></label>
      <input name="PPColorComm" type="text" id="PPColorComm" size="75" maxlength="75" />
    </p>
    <p>In-House Comments: 
      <label for="PPIHComm"></label>
      <input name="PPIHComm" type="text" id="PPIHComm" size="75" maxlength="75" />
    </p>
    <p>Customer Comments: 
      <label for="PPCustComm"></label>
      <input name="PPCustComm" type="text" id="PPCustComm" size="75" maxlength="75" />
    </p>
    <p>Fit Comments: 
      <label for="PPFitComm"></label>
      <input name="PPFitComm" type="text" id="PPFitComm" size="75" maxlength="75" />
    </p>
    <p>Status: <span id="spryselect3">
      <label for="PPStatus"></label>
      <select name="PPStatus" id="PPStatus" onchange="StatusChanged(this.id, this.value)">
        <option value="-1">** Please Select a Status **</option>
        <option value="Accepted">Accepted</option>
        <option value="Rejected">Rejected</option>
      </select>
      <span class="selectInvalidMsg">Please select a valid status.</span><span class="selectRequiredMsg">Please select an item.</span></span> </p>
   <div id="PPStatusRejected">
    <p>Status Comments: 
      <label for="PPStatusComm"></label>
      <input name="PPStatusComm" type="text" id="PPStatusComm" size="75" maxlength="75" />
    </p>
   </div>
    <p><input name="InsertPP" type="submit" id="InsertPP" value="Insert PP Comment" /></p>
    <input type="hidden" name="MM_insert2" value="UpdatePP" />
    <input type="hidden" name="MM_recordId2" value="<%= rsStyle.Fields.Item("StyleID").Value %>" />    
</form>
  </div>	    
<br />
<%
	Dim PPDate
	Dim PPDateSplit
    Dim PPDateReform
%>
  <% While ((Repeat2__numRows <> 0) AND (NOT rsPP.EOF)) %>
  		<% If PPnumber <> 1 Then %>
        <br /><br />
        <% End If %> 
  <h3>PP Comment #<%=PPnumber%> <input type="button" value="Edit"
onClick="location.href='/SampleCommentsEdit.asp?PPID=<%=rsPP.Fields.Item("PPID").Value%>&VPO=<%=rsStyle__MMColParam%>&Auto=<%=rsStyle__MMColParam2%>&PPComm=<%=PPnumber%>';"></h3>

<%		  
	PPDate = rsPP.Fields.Item("PPDateSent").Value
	if PPDate <> "" then
	PPDateSplit = split(PPDate, "-")
	PPDateReform = PPDateSplit(1) & "/" & PPDateSplit(2) & "/" & PPDateSplit(0)
	else
	PPDateReform = ""
	end if
%>    

   <p>Date Sent: <strong><%=PPDateReform%></strong><br />
      Color: <strong><%=(rsPP.Fields.Item("PPColor").Value)%></strong><br />
      Color Comments: <strong><%=(rsPP.Fields.Item("PPColorComm").Value)%></strong><br />
      In-House Comments: <strong><%=(rsPP.Fields.Item("PPIHComm").Value)%></strong><br />
      Customer Comments: <strong><%=(rsPP.Fields.Item("PPCustComm").Value)%></strong><br />
      Fit Comments: <strong><%=(rsPP.Fields.Item("PPFitComm").Value)%></strong><br />
      Status: <strong><%=(rsPP.Fields.Item("PPStatus").Value)%></strong><br />
<% if (rsPP.Fields.Item("PPStatusComm").Value <> "") Then %>
      Status Comments: <strong><%=(rsPP.Fields.Item("PPStatusComm").Value)%></strong><br />
<% end if %>      
   </p>
    <% 
  PPnumber=PPnumber+1
  Repeat2__index=Repeat2__index+1
  Repeat2__numRows=Repeat2__numRows-1
  rsPP.MoveNext()
Wend
%>
</p>

</div>

    <br /><br />

<div id="TOPDiv">
	<h2><u>TOP Comments</u>
	  <input type="button" name="bAddTOP" id="bAddTOP" value="Add" onclick="CommDiv(this.id)"/>
	  <input type="hidden" name="bCxlTOP" id="bCxlTOP" value="Cancel" onclick="CommDiv(this.id)"/>
    </h2>
  <div id="TOPAddDiv">
<form ACTION="<%=MM_editAction3%>" METHOD="POST" name="UpdateTOP" id="UpdateTOP">
<br />
	<p>Date Sent: <span id="sprytextfield4">
    <label for="TOPDateSent"></label>
    <input name="TOPDateSent" type="text" id="TOPDateSent" size="10" maxlength="10" />
<span class="textfieldInvalidFormatMsg">Invalid format.</span></span></p>
		<script type="text/javascript">
		jQuery("#TOPDateSent").datepicker();
	  	</script>

    <p>Color: 
      <label for="TOPColor"></label>
      <input name="TOPColor" type="text" id="TOPColor" size="75" maxlength="75" />
    </p>
    <p>Color Comments: 
      <label for="TOPColorComm"></label>
      <input name="TOPColorComm" type="text" id="TOPColorComm" size="75" maxlength="75" />
    </p>
    <p>In-House Comments: 
      <label for="TOPIHComm"></label>
      <input name="TOPIHComm" type="text" id="TOPIHComm" size="75" maxlength="75" />
    </p>
    <p>Customer Comments: 
      <label for="TOPCustComm"></label>
      <input name="TOPCustComm" type="text" id="TOPCustComm" size="75" maxlength="75" />
    </p>
    <p>Fit Comments: 
      <label for="TOPFitComm"></label>
      <input name="TOPFitComm" type="text" id="TOPFitComm" size="75" maxlength="75" />
    </p>
    <p>Status: <span id="spryselect4">
      <label for="TOPStatus"></label>
      <select name="TOPStatus" id="TOPStatus" onchange="StatusChanged(this.id, this.value)">
        <option value="-1">** Please Select a Status **</option>
        <option value="Accepted">Accepted</option>
        <option value="Rejected">Rejected</option>
      </select>
      <span class="selectInvalidMsg">Please select a valid status.</span><span class="selectRequiredMsg">Please select an item.</span></span> </p>
   <div id="TOPStatusRejected">
    <p>Status Comments: 
      <label for="TOPStatusComm"></label>
      <input name="TOPStatusComm" type="text" id="TOPStatusComm" size="75" maxlength="75" />
    </p>
   </div>
    <p><input name="InsertTOP" id="InsertTOP" type="submit" value="Insert TOP Comment" /></p>
    <input type="hidden" name="MM_insert3" value="UpdateTOP" />
    <input type="hidden" name="MM_recordId3" value="<%= rsStyle.Fields.Item("StyleID").Value %>" />    
</form>
  </div>
<br />
<%
	Dim TOPDate
	Dim TOPDateSplit
    Dim TOPDateReform
%>
  <% While ((Repeat3__numRows <> 0) AND (NOT rsTOP.EOF)) %>
  		<% If TOPnumber <> 1 Then %>
        <br /><br />
        <% End If %> 
  <h3>TOP Comment #<%=TOPnumber%> <input type="button" value="Edit"
onClick="location.href='/SampleCommentsEdit.asp?TOPID=<%=rsTOP.Fields.Item("TOPID").Value%>&VPO=<%=rsStyle__MMColParam%>&Auto=<%=rsStyle__MMColParam2%>&TOPComm=<%=TOPnumber%>';"></h3>

<%		  
	TOPDate = rsTOP.Fields.Item("TOPDateSent").Value
	if TOPDate <> "" then
	TOPDateSplit = split(TOPDate, "-")
	TOPDateReform = TOPDateSplit(1) & "/" & TOPDateSplit(2) & "/" & TOPDateSplit(0)
	else
	TOPDateReform = ""
	end if
%>    

   <p>Date Sent: <strong><%=TOPDateReform%></strong><br />
      Color: <strong><%=(rsTOP.Fields.Item("TOPColor").Value)%></strong><br />
      Color Comments: <strong><%=(rsTOP.Fields.Item("TOPColorComm").Value)%></strong><br />
      In-House Comments: <strong><%=(rsTOP.Fields.Item("TOPIHComm").Value)%></strong><br />
      Customer Comments: <strong><%=(rsTOP.Fields.Item("TOPCustComm").Value)%></strong><br />
      Fit Comments: <strong><%=(rsTOP.Fields.Item("TOPFitComm").Value)%></strong><br />
      Status: <strong><%=(rsTOP.Fields.Item("TOPStatus").Value)%></strong><br />
<% if (rsTOP.Fields.Item("TOPStatusComm").Value <> "") Then %>
      Status Comments: <strong><%=(rsTOP.Fields.Item("TOPStatusComm").Value)%></strong><br />
<% end if %>      
   </p>
    <% 
  TOPnumber=TOPnumber+1
  Repeat3__index=Repeat3__index+1
  Repeat3__numRows=Repeat3__numRows-1
  rsTOP.MoveNext()
Wend
%>
</p>

</div>

    <br /><br />

<div id="PackagingDiv">    
	<h2><u>Packaging Comments</u>
	  <input type="button" name="bAddPackaging" id="bAddPackaging" value="Add" onclick="CommDiv(this.id)"/>
	  <input type="hidden" name="bCxlPackaging" id="bCxlPackaging" value="Cancel" onclick="CommDiv(this.id)"/>
    </h2>
  <div id="PackagingAddDiv">
<form ACTION="<%=MM_editAction4%>" METHOD="POST" name="UpdatePackaging" id="UpdatePackaging">

<br />
	<p>Date Sent: <span id="sprytextfield5">
    <label for="PackagingDateSent"></label>
    <input name="PackagingDateSent" type="text" id="PackagingDateSent" size="10" maxlength="10" />
<span class="textfieldInvalidFormatMsg">Invalid format.</span></span></p>
		<script type="text/javascript">
		jQuery("#PackagingDateSent").datepicker();
	  	</script>

    <p>Color: 
      <label for="PackagingColor"></label>
      <input name="PackagingColor" type="text" id="PackagingColor" size="75" maxlength="75" />
    </p>
    <p>Color Comments: 
      <label for="PackagingColorComm"></label>
      <input name="PackagingColorComm" type="text" id="PackagingColorComm" size="75" maxlength="75" />
    </p>
    <p>In-House Comments: 
      <label for="PackagingIHComm"></label>
      <input name="PackagingIHComm" type="text" id="PackagingIHComm" size="75" maxlength="75" />
    </p>
    <p>Customer Comments: 
      <label for="PackagingCustComm"></label>
      <input name="PackagingCustComm" type="text" id="PackagingCustComm" size="75" maxlength="75" />
    </p>
    <p>Fit Comments: 
      <label for="PackagingFitComm"></label>
      <input name="PackagingFitComm" type="text" id="PackagingFitComm" size="75" maxlength="75" />
    </p>
    <p>Status: <span id="spryselect5">
      <label for="PackagingStatus"></label>
      <select name="PackagingStatus" id="PackagingStatus" onchange="StatusChanged(this.id, this.value)">
        <option value="-1">** Please Select a Status **</option>
        <option value="Accepted">Accepted</option>
        <option value="Rejected">Rejected</option>
      </select>
      <span class="selectInvalidMsg">Please select a valid status.</span><span class="selectRequiredMsg">Please select an item.</span></span> </p>
   <div id="PackagingStatusRejected">
    <p>Status Comments: 
      <label for="PackagingStatusComm"></label>
      <input name="PackagingStatusComm" type="text" id="PackagingStatusComm" size="75" maxlength="75" />
    </p>
   </div>
    <p><input name="InsertPackaging" id="InsertPackaging" type="submit" value="Insert Packaging Comment" /></p>
    <input type="hidden" name="MM_insert4" value="UpdatePackaging" />
    <input type="hidden" name="MM_recordId4" value="<%= rsStyle.Fields.Item("StyleID").Value %>" />    

</form>
  </div>
<br />
<%
	Dim PackagingDate
	Dim PackagingDateSplit
    Dim PackagingDateReform
%>
  <% While ((Repeat4__numRows <> 0) AND (NOT rsPackaging.EOF)) %>
  		<% If Packagingnumber <> 1 Then %>
        <br /><br />
        <% End If %> 
  <h3>Packaging Comment #<%=Packagingnumber%> <input type="button" value="Edit"
onClick="location.href='/SampleCommentsEdit.asp?PackagingID=<%=rsPackaging.Fields.Item("PackagingID").Value%>&VPO=<%=rsStyle__MMColParam%>&Auto=<%=rsStyle__MMColParam2%>&PackagingComm=<%=Packagingnumber%>';"></h3>

<%		  
	PackagingDate = rsPackaging.Fields.Item("PackagingDateSent").Value
	if PackagingDate <> "" then
	PackagingDateSplit = split(PackagingDate, "-")
	PackagingDateReform = PackagingDateSplit(1) & "/" & PackagingDateSplit(2) & "/" & PackagingDateSplit(0)
	else
	PackagingDateReform = ""
	end if
%>    

   <p>Date Sent: <strong><%=PackagingDateReform%></strong><br />
      Color: <strong><%=(rsPackaging.Fields.Item("PackagingColor").Value)%></strong><br />
      Color Comments: <strong><%=(rsPackaging.Fields.Item("PackagingColorComm").Value)%></strong><br />
      In-House Comments: <strong><%=(rsPackaging.Fields.Item("PackagingIHComm").Value)%></strong><br />
      Customer Comments: <strong><%=(rsPackaging.Fields.Item("PackagingCustComm").Value)%></strong><br />
      Fit Comments: <strong><%=(rsPackaging.Fields.Item("PackagingFitComm").Value)%></strong><br />
      Status: <strong><%=(rsPackaging.Fields.Item("PackagingStatus").Value)%></strong><br />
<% if (rsPackaging.Fields.Item("PackagingStatusComm").Value <> "") Then %>      
      Status Comments: <strong><%=(rsPackaging.Fields.Item("PackagingStatusComm").Value)%></strong><br />
<% end if %>
   </p>
    <% 
  Packagingnumber=Packagingnumber+1
  Repeat4__index=Repeat4__index+1
  Repeat4__numRows=Repeat4__numRows-1
  rsPackaging.MoveNext()
Wend
%>
</p>

</div>

    <br /><br />

<div id="PutUpDiv">    
	<h2><u>Put-Up Comments</u>
	  <input type="button" name="bAddPutUp" id="bAddPutUp" value="Add" onclick="CommDiv(this.id)"/>
	  <input type="hidden" name="bCxlPutUp" id="bCxlPutUp" value="Cancel" onclick="CommDiv(this.id)"/>
    </h2>
  <div id="PutUpAddDiv">
<form ACTION="<%=MM_editAction5%>" METHOD="POST" name="UpdatePutUp" id="UpdatePutUp">    
<br />
	<p>Date Sent: <span id="sprytextfield6">
    <label for="PutUpDateSent"></label>
    <input name="PutUpDateSent" type="text" id="PutUpDateSent" size="10" maxlength="10" />
<span class="textfieldInvalidFormatMsg">Invalid format.</span></span></p>
		<script type="text/javascript">
		jQuery("#PutUpDateSent").datepicker();
	  	</script>

    <p>Color: 
      <label for="PutUpColor"></label>
      <input name="PutUpColor" type="text" id="PutUpColor" size="75" maxlength="75" />
    </p>
    <p>Color Comments: 
      <label for="PutUpColorComm"></label>
      <input name="PutUpColorComm" type="text" id="PutUpColorComm" size="75" maxlength="75" />
    </p>
    <p>In-House Comments: 
      <label for="PutUpIHComm"></label>
      <input name="PutUpIHComm" type="text" id="PutUpIHComm" size="75" maxlength="75" />
    </p>
    <p>Customer Comments: 
      <label for="PutUpCustComm"></label>
      <input name="PutUpCustComm" type="text" id="PutUpCustComm" size="75" maxlength="75" />
    </p>
    <p>Fit Comments: 
      <label for="PutUpFitComm"></label>
      <input name="PutUpFitComm" type="text" id="PutUpFitComm" size="75" maxlength="75" />
    </p>
    <p>Status: <span id="spryselect6">
      <label for="PutUpStatus"></label>
      <select name="PutUpStatus" id="PutUpStatus" onchange="StatusChanged(this.id, this.value)">
        <option value="-1">** Please Select a Status **</option>
        <option value="Accepted">Accepted</option>
        <option value="Rejected">Rejected</option>
      </select>
      <span class="selectInvalidMsg">Please select a valid status.</span><span class="selectRequiredMsg">Please select an item.</span></span> </p>
   <div id="PutUpStatusRejected">
    <p>Status Comments: 
      <label for="PutUpStatusComm"></label>
      <input name="PutUpStatusComm" type="text" id="PutUpStatusComm" size="75" maxlength="75" />
    </p>
   </div>
    <p><input name="InsertPutUp" id="InsertPutUp" type="submit" value="Insert Put-Up Comment" /></p>
    <input type="hidden" name="MM_insert5" value="UpdatePutUp" />
    <input type="hidden" name="MM_recordId5" value="<%= rsStyle.Fields.Item("StyleID").Value %>" />    

</form>
  </div>
<br />
<%
	Dim PutUpDate
	Dim PutUpDateSplit
    Dim PutUpDateReform
%>
  <% While ((Repeat5__numRows <> 0) AND (NOT rsPutUp.EOF)) %>
  		<% If PutUpnumber <> 1 Then %>
        <br /><br />
        <% End If %> 
  <h3>PutUp Comment #<%=PutUpnumber%> <input type="button" value="Edit"
onClick="location.href='/SampleCommentsEdit.asp?PutUpID=<%=rsPutUp.Fields.Item("PutUpID").Value%>&VPO=<%=rsStyle__MMColParam%>&Auto=<%=rsStyle__MMColParam2%>&PutUpComm=<%=PutUpnumber%>';"></h3>

<%		  
	PutUpDate = rsPutUp.Fields.Item("PutUpDateSent").Value
	if PutUpDate <> "" then
	PutUpDateSplit = split(PutUpDate, "-")
	PutUpDateReform = PutUpDateSplit(1) & "/" & PutUpDateSplit(2) & "/" & PutUpDateSplit(0)
	else
	PutUpDateReform = ""
	end if
%>    

   <p>Date Sent: <strong><%=PutUpDateReform%></strong><br />
      Color: <strong><%=(rsPutUp.Fields.Item("PutUpColor").Value)%></strong><br />
      Color Comments: <strong><%=(rsPutUp.Fields.Item("PutUpColorComm").Value)%></strong><br />
      In-House Comments: <strong><%=(rsPutUp.Fields.Item("PutUpIHComm").Value)%></strong><br />
      Customer Comments: <strong><%=(rsPutUp.Fields.Item("PutUpCustComm").Value)%></strong><br />
      Fit Comments: <strong><%=(rsPutUp.Fields.Item("PutUpFitComm").Value)%></strong><br />
      Status: <strong><%=(rsPutUp.Fields.Item("PutUpStatus").Value)%></strong><br />
<% if (rsPutUp.Fields.Item("PutUpStatusComm").Value <> "") Then %>            
      Status Comments: <strong><%=(rsPutUp.Fields.Item("PutUpStatusComm").Value)%></strong><br />
<% end if %>      
   </p>
    <% 
  PutUpnumber=PutUpnumber+1
  Repeat5__index=Repeat5__index+1
  Repeat5__numRows=Repeat5__numRows-1
  rsPutUp.MoveNext()
Wend
%>
</p>

</div>

    <br />

	<script type="text/javascript">
var sprytextfield1 = new Spry.Widget.ValidationTextField("sprytextfield1");
var sprytextfield2 = new Spry.Widget.ValidationTextField("sprytextfield2", "date", {isRequired:false, format:"mm/dd/yyyy"});
var sprytextfield3 = new Spry.Widget.ValidationTextField("sprytextfield3", "date", {format:"mm/dd/yyyy", isRequired:false});
var sprytextfield4 = new Spry.Widget.ValidationTextField("sprytextfield4", "date", {format:"mm/dd/yyyy", isRequired:false});
var sprytextfield5 = new Spry.Widget.ValidationTextField("sprytextfield5", "date", {format:"mm/dd/yyyy", isRequired:false});
var sprytextfield6 = new Spry.Widget.ValidationTextField("sprytextfield6", "date", {format:"mm/dd/yyyy", isRequired:false});
var spryselect1 = new Spry.Widget.ValidationSelect("spryselect1");
var spryselect2 = new Spry.Widget.ValidationSelect("spryselect2");
var spryselect3 = new Spry.Widget.ValidationSelect("spryselect3", {invalidValue:"-1"});
var spryselect4 = new Spry.Widget.ValidationSelect("spryselect4", {invalidValue:"-1"});
var spryselect5 = new Spry.Widget.ValidationSelect("spryselect5", {invalidValue:"-1"});
var spryselect6 = new Spry.Widget.ValidationSelect("spryselect6", {invalidValue:"-1"});
    </script>
    
	<script language="javascript" type="text/javascript">
window.onload = CommDiv("OnLoad");
	</script>
    
    <!-- InstanceEndEditable -->
    </p>
    <!-- end .content --></div>
  <div class="footer">
    <table width="963" border="0" cellspacing="10" cellpadding="10">
      <tr>
        <td width="546">&nbsp;</td>
        <td width="184" align="right"><a href="Change_Password_AL.asp">My Info</a></td>
        <td width="133" align="right"><a href="Contact_User.asp">Contact Us</a></td>
      </tr>
    </table>
  <!-- end .footer --></div>
  <!-- end .container --></div>
<script type="text/javascript">
var MenuBar1 = new Spry.Widget.MenuBar("MenuBar1", {imgDown:"../SpryAssets/SpryMenuBarDownHover.gif", imgRight:"../SpryAssets/SpryMenuBarRightHover.gif"});
</script>
</body>
<!-- InstanceEnd --></html>
<%
rsStyle.Close()
Set rsStyle = Nothing
%>
<%
rsCustomers.Close()
Set rsCustomers = Nothing
%>
<%
rsPP.Close()
Set rsPP = Nothing
%>
<%
rsTOP.Close()
Set rsTOP = Nothing
%>
<%
rsPackaging.Close()
Set rsPackaging = Nothing
%>
<%
rsPutUp.Close()
Set rsPackaging = Nothing
%>
<%
rsStyleNum.Close()
Set rsStyleNum = Nothing
%>

Open in new window

LVL 3
Jon DeVitoAsked:
Who is Participating?
 
Jason C. LevineNo oneCommented:
There's no Spry validation call on the above code.  Look at lines 1308 to 1312, the only Spry code there is the menu bar.
0
 
Jon DeVitoAuthor Commented:
Thanks Jason, but this code looks the same to me & it works perfectly. I checked a bunch of my pages & they all work also.

Thanks.
Jon
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/VendorVB.asp" -->
<%
Dim MM_editAction
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
  MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If

' boolean to abort record edit
Dim MM_abortEdit
MM_abortEdit = false
%>
<%
' IIf implementation
Function MM_IIf(condition, ifTrue, ifFalse)
  If condition = "" Then
    MM_IIf = ifFalse
  Else
    MM_IIf = ifTrue
  End If
End Function
%>
<%
If (CStr(Request("MM_insert")) = "form1") Then
  If (Not MM_abortEdit) Then
    ' execute the insert
    Dim MM_editCmd
	Dim getDelivery

    Set MM_editCmd = Server.CreateObject ("ADODB.Command")
	getDelivery = Request.Form("Delivery")
    MM_editCmd.ActiveConnection = MM_VendorVB_STRING
    MM_editCmd.CommandText = "INSERT INTO dbo.Comments_Style (Auto, VPO, Customer, Season, [Year], Sizing, Content, Colors, Delivery"
	MM_editCmd.CommandText = MM_editCmd.CommandText & ") VALUES (?, ?, ?, ?, ?, ?, ?, ?, "
	if (Request.Form("Delivery") <> "") Then
	MM_editCmd.CommandText = MM_editCmd.CommandText & "'" & getDelivery & "'"
	else
	MM_editCmd.CommandText = MM_editCmd.CommandText & "NULL"
	end if
	MM_editCmd.CommandText = MM_editCmd.CommandText & ")"
		
    MM_editCmd.Prepared = true
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 5, 1, -1, MM_IIF(Request.Form("Auto"), Request.Form("Auto"), null)) ' adDouble
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 202, 1, 30, Request.Form("VPO")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 202, 1, 30, Request.Form("Customer")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 202, 1, 11, Request.Form("Season")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param5", 5, 1, 4, MM_IIF(Request.Form("Year"), Request.Form("Year"), null)) ' adDouble
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param6", 202, 1, 75, Request.Form("Sizing")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param7", 202, 1, 75, Request.Form("Content")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param8", 202, 1, 75, Request.Form("Colors")) ' adVarWChar
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close

    ' append the query string to the redirect URL
    Dim MM_editRedirectUrl
    MM_editRedirectUrl = "SampleComments.asp?VPO="
	MM_editRedirectUrl = MM_editRedirectUrl + Request.Form("VPO")
    If (Request.QueryString <> "") Then
      If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then
        MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
      Else
        MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
      End If
    End If
    Response.Redirect(MM_editRedirectUrl)
  End If
End If
%>
<%
Dim rsStyle__MMColParam
rsStyle__MMColParam = "1"
If (Request.QueryString("Auto") <> "") Then 
  rsStyle__MMColParam = Request.QueryString("Auto")
End If
%>
<%
Dim rsStyle
Dim rsStyle_cmd
Dim rsStyle_numRows

Set rsStyle_cmd = Server.CreateObject ("ADODB.Command")
rsStyle_cmd.ActiveConnection = MM_VendorVB_STRING
rsStyle_cmd.CommandText = "SELECT AL_Style FROM dbo.Style WHERE Auto = ?" 
rsStyle_cmd.Prepared = true
rsStyle_cmd.Parameters.Append rsStyle_cmd.CreateParameter("param1", 5, 1, -1, rsStyle__MMColParam) ' adDouble

Set rsStyle = rsStyle_cmd.Execute
rsStyle_numRows = 0
%>

<%
Dim rsCustomers__MMColParam
rsCustomers__MMColParam = "1"
If (Request("MM_EmptyValue") <> "") Then 
  rsCustomers__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim rsCustomers
Dim rsCustomers_cmd
Dim rsCustomers_numRows

Set rsCustomers_cmd = Server.CreateObject ("ADODB.Command")
rsCustomers_cmd.ActiveConnection = MM_VendorVB_STRING
rsCustomers_cmd.CommandText = "SELECT * FROM dbo.Companies WHERE ActiveCompany = ? ORDER BY Company ASC" 
rsCustomers_cmd.Prepared = true
rsCustomers_cmd.Parameters.Append rsCustomers_cmd.CreateParameter("param1", 11, 1, -1, rsCustomers__MMColParam) ' adBoolean

Set rsCustomers = rsCustomers_cmd.Execute
rsCustomers_numRows = 0
%>

<%
Dim rsComments__MMColParam
rsComments__MMColParam = "1"
If (Request.QueryString("Auto") <> "") Then 
  rsComments__MMColParam = Request.QueryString("Auto")
End If
%>

<%
Dim rsComments
Dim rsComments_cmd
Dim rsComments_numRows

Set rsComments_cmd = Server.CreateObject ("ADODB.Command")
rsComments_cmd.ActiveConnection = MM_VendorVB_STRING
rsComments_cmd.CommandText = "SELECT VPO FROM dbo.Comments_Style WHERE Auto = ?" 
rsComments_cmd.Prepared = true
rsComments_cmd.Parameters.Append rsComments_cmd.CreateParameter("param1", 5, 1, -1, rsComments__MMColParam) ' adDouble

Set rsComments = rsComments_cmd.Execute
rsComments_numRows = 0
%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml"><!-- InstanceBegin template="/Templates/User.dwt" codeOutsideHTMLIsLocked="false" -->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
<!-- InstanceBeginEditable name="doctitle" -->
<title>Order Sample Comments</title>
<!-- InstanceEndEditable -->
<!-- InstanceBeginEditable name="head" -->
<script src="jquery.ui-1.5.2/jquery-1.2.6.js" type="text/javascript"></script>
<script src="jquery.ui-1.5.2/ui/ui.datepicker.js" type="text/javascript"></script>
<link href="jquery.ui-1.5.2/themes/ui.datepicker.css" rel="stylesheet" type="text/css" />

<!-- InstanceEndEditable -->
<style type="text/css">
<!--
html {
	overflow:auto;
    height:100%;
}

body {
	font: 100%/1.4 Verdana, Arial, Helvetica, sans-serif;
	background: #42413C;
	margin: 0;
	padding: 0;
	color: #000;
}

/* ~~ Element/tag selectors ~~ */
ul, ol, dl { /* Due to variations between browsers, it's best practices to zero padding and margin on lists. For consistency, you can either specify the amounts you want here, or on the list items (LI, DT, DD) they contain. Remember that what you do here will cascade to the .nav list unless you write a more specific selector. */
	padding: 0;
	margin: 0;
}
h1, h2, h3, h4, h5, h6, p {
	margin-top: 0;	 /* removing the top margin gets around an issue where margins can escape from their containing div. The remaining bottom margin will hold it away from any elements that follow. */
	padding-right: 15px;
	padding-left: 15px; /* adding the padding to the sides of the elements within the divs, instead of the divs themselves, gets rid of any box model math. A nested div with side padding can also be used as an alternate method. */
}
a img { /* this selector removes the default blue border displayed in some browsers around an image when it is surrounded by a link */
	border: none;
}
/* ~~ Styling for your site's links must remain in this order - including the group of selectors that create the hover effect. ~~ */
a:link {
	color: #42413C;
	text-decoration: underline; /* unless you style your links to look extremely unique, it's best to provide underlines for quick visual identification */
}
a:visited {
	color: #6E6C64;
	text-decoration: underline;
}
a:hover, a:active, a:focus { /* this group of selectors will give a keyboard navigator the same hover experience as the person using a mouse. */
	text-decoration: none;
}

/* ~~ this fixed width container surrounds the other divs ~~ */
.container {
	width: 960px;
	background: #FFF;
	margin-left: 31px;
	margin-right: 31px;
	margin-top: 31px;
	margin-bottom: 31px;

	/*margin: 100px; /* the auto value on the sides, coupled with the width, centers the layout */
}

/* ~~ the header is not given a width. It will extend the full width of your layout. It contains an image placeholder that should be replaced with your own linked logo ~~ */
.header {
	background: #ADB96E;
}

/* ~~ This is the layout information. ~~ 

1) Padding is only placed on the top and/or bottom of the div. The elements within this div have padding on their sides. This saves you from any "box model math". Keep in mind, if you add any side padding or border to the div itself, it will be added to the width you define to create the *total* width. You may also choose to remove the padding on the element in the div and place a second div within it with no width and the padding necessary for your design.

*/

.content {

	padding: 10px 0;
	background-image:url(file:///Macintosh HD/Users/jon/Documents/VendorTEST/Back2.jpg);
}

/* ~~ The footer ~~ */
.footer {
	padding: 10px 0;
	background: #BDCA78;
}

/* ~~ miscellaneous float/clear classes ~~ */
.fltrt {  /* this class can be used to float an element right in your page. The floated element must precede the element it should be next to on the page. */
	float: right;
	margin-left: 8px;
}
.fltlft { /* this class can be used to float an element left in your page. The floated element must precede the element it should be next to on the page. */
	float: left;
	margin-right: 8px;
}
.clearfloat { /* this class can be placed on a <br /> or empty div as the final element following the last floated div (within the #container) if the #footer is removed or taken out of the #container */
	clear:both;
	height:0;
	font-size: 1px;
	line-height: 0px;
}
#Blue {
	color: #00F;
}
-->
</style>
<script src="SpryAssets/SpryMenuBar.js" type="text/javascript"></script>
<link href="SpryAssets/SpryMenuBarHorizontal.css" rel="stylesheet" type="text/css" />
<script src="SpryAssets/SpryValidationTextField.js" type="text/javascript"></script>
<link href="SpryAssets/SpryValidationTextField.css" rel="stylesheet" type="text/css" />
<script src="SpryAssets/SpryValidationSelect.js" type="text/javascript"></script>
<link href="SpryAssets/SpryValidationSelect.css" rel="stylesheet" type="text/css" />
</head>

<body>

<div class="container">
  <div class="header">
    <table width="960" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td width="271" rowspan="2"><a href="VendAuth.asp"><img src="AL INC3.jpg" alt="Amiee Lynn, Inc." name="Amiee_Lynn_Logo" width="280" height="152" id="Amiee_Lynn_Logo" style="background: #BDCA78; display:block;" /></a></td>
        <td width="638" height="119" align="right" valign="top">Welcome <span id="Blue"> <%=(Session("VName"))%></span>, <a href="LogOut.asp">Log out</a>&nbsp;   <br />
        Division: <span id="Blue"><a href="Change_Password_AL.asp"> <%=(Session("DefDivName"))%></a></span></td>
      </tr>
      <tr>
        <td valign="bottom"><ul id="MenuBar1" class="MenuBarHorizontal">
          <li><a href="StyleRedir.asp">New Style</a></li>
          <li><a href="SearchAL.asp">Search</a></li>
          <li><a href="#" class="MenuBarItemSubmenu">Sales</a>
            <ul>
<li><a href="Catalog/Catalog_View.asp">Catalogs</a></li>
<li><a href="Top10.asp">Top 10</a></li>
            </ul>
          </li>
          <li><a href="#" class="MenuBarItemSubmenu">Settings</a>
            <ul>
<li><a href="#" class="MenuBarItemSubmenu">Logins</a>
  <ul>
<li><a href="Admin_Vendors.asp">Vendors</a></li>
<li><a href="Admin_ALUsers.asp">Users</a></li>
<li><a href="Admin_ALAdmins.asp">Admins</a></li>
  </ul>
</li>
<li><a href="Admin_Licenses.asp">Licenses</a></li>
<li><a href="Admin_Divisions.asp">Divisions</a></li>
<li><a href="Admin_Colors.asp">Colors</a></li>
<li><a href="Admin_Countries.asp">Countries of Origin</a></li>
<li><a href="Admin_Companies.asp">Customers</a></li>
<li><a href="Contact_Log.asp">Contact Log</a></li>
            </ul>
        </li>
</ul></td>
      </tr>
    </table> 
    <!-- end .header --></div>
  <div class="content">
    <p><!-- InstanceBeginEditable name="EditRegion3" -->
<form action="<%=MM_editAction%>" method="post" name="form1" id="form1">
    <h2><center>Order Sample Comments</center></h2>
    <input name="Auto" type="hidden" value="<%=rsStyle__MMColParam%>" />
    <p>Style #: 
      <label for="Style"></label>
      <input name="Style" type="text" id="Style" value="<%=(rsStyle.Fields.Item("AL_Style").Value)%>" size="20" maxlength="20" readonly="readonly" />
    </p>
    <p>VPO #: <span id="sprytextfield2">
      <label for="VPO"></label>
      <input name="VPO" type="text" id="VPO" size="20" maxlength="20" onchange="CheckVPO(this.value)"/>
      <span class="textfieldRequiredMsg">A VPO is required.</span></span> </p>
    <p>Customer: <span id="spryselect3">
      <label for="Customer"></label>
      <select name="Customer" id="Customer">
        <option value="-1">** Please Select a Customer **</option>
        <%
While (NOT rsCustomers.EOF)
%>
        <option value="<%=(rsCustomers.Fields.Item("Company").Value)%>"><%=(rsCustomers.Fields.Item("Company").Value)%></option>
        <%
  rsCustomers.MoveNext()
Wend
If (rsCustomers.CursorType > 0) Then
  rsCustomers.MoveFirst
Else
  rsCustomers.Requery
End If
%>
      </select>
      <span class="selectInvalidMsg">Please select a Customer.</span><span class="selectRequiredMsg">Please select an item.</span></span></p>
    <p>Delivery: <span id="sprytextfield1">
    <label for="Delivery"></label>
    <input name="Delivery" type="text" id="Delivery" size="10" maxlength="10" />
<span class="textfieldInvalidFormatMsg">Invalid format.</span></span></p>

		<script type="text/javascript">
		jQuery("#Delivery").datepicker();
	  	</script>

    <p>Season: <span id="spryselect1">
      <label for="Season"></label>
      <select name="Season" id="Season">
        <option value="-1" selected="selected">** Please Select a Season **</option>
        <option value="All Season">All Season</option>
        <option value="Fall">Fall</option>
        <option value="Spring">Spring</option>
        <option value="Summer">Summer</option>
        <option value="Winter">Winter</option>
      </select>
      <span class="selectInvalidMsg">Please select a Season.</span><span class="selectRequiredMsg">Please select an item.</span></span> &nbsp;&nbsp;&nbsp;
       Year: <span id="spryselect2">
       <label for="Year"></label>
       <select name="Year" id="Year">
         <option value="-1" selected="selected">** Please Select a Year **</option>
         <option value="2011">2011</option>
         <option value="2012">2012</option>
         <option value="2013">2013</option>
         <option value="2014">2014</option>
         <option value="2015">2015</option>
         <option value="2016">2016</option>
         <option value="2017">2017</option>
         <option value="2018">2018</option>
         <option value="2019">2019</option>
         <option value="2020">2020</option>
       </select>
       <span class="selectInvalidMsg">Please select a Year.</span><span class="selectRequiredMsg">Please select an item.</span></span></p>
    <p>Sizing: 
      <label for="Sizing"></label>
      <input name="Sizing" type="text" id="Sizing" size="75" maxlength="75" />
    </p>
    <p>Content: 
      <label for="Content"></label>
      <input name="Content" type="text" id="Content" size="75" maxlength="75" />
    </p>
    <p>Colors: 
      <label for="Colors"></label>
      <input name="Colors" type="text" id="Colors" size="75" maxlength="75" />
    </p>
    <p><input name="NewComment" type="submit" value="Submit" />
  <input type="hidden" name="MM_insert" value="form1" />
</form>
<p>&nbsp;</p>
    <script type="text/javascript">
var sprytextfield1 = new Spry.Widget.ValidationTextField("sprytextfield1", "date", {format:"mm/dd/yyyy", isRequired:false});
var sprytextfield2 = new Spry.Widget.ValidationTextField("sprytextfield2", "none");
var spryselect1 = new Spry.Widget.ValidationSelect("spryselect1", {invalidValue:"-1"});
var spryselect2 = new Spry.Widget.ValidationSelect("spryselect2", {invalidValue:"-1"});
var spryselect3 = new Spry.Widget.ValidationSelect("spryselect3", {invalidValue:"-1"});
    </script>
    <!-- InstanceEndEditable -->
    </p>
    <!-- end .content --></div>
  <div class="footer">
    <table width="963" border="0" cellspacing="10" cellpadding="10">
      <tr>
        <td width="546">&nbsp;</td>
        <td width="184" align="right"><a href="Change_Password_AL.asp">My Info</a></td>
        <td width="133" align="right"><a href="Contact_User.asp">Contact Us</a></td>
      </tr>
    </table>
  <!-- end .footer --></div>
  <!-- end .container --></div>
<script type="text/javascript">
var MenuBar1 = new Spry.Widget.MenuBar("MenuBar1", {imgDown:"../SpryAssets/SpryMenuBarDownHover.gif", imgRight:"../SpryAssets/SpryMenuBarRightHover.gif"});
</script>
</body>
<!-- InstanceEnd --></html>
<%
rsStyle.Close()
Set rsStyle = Nothing
%>
<%
rsCustomers.Close()
Set rsCustomers = Nothing
%>
<%
rsComments.Close()
Set rsComments = Nothing
%>

Open in new window

0
 
Jon DeVitoAuthor Commented:
I think lines 1278-1291 are the validation calls on the first code I posted.

Thanks.
Jon
0
Ultimate Tool Kit for Technology Solution Provider

Broken down into practical pointers and step-by-step instructions, the IT Service Excellence Tool Kit delivers expert advice for technology solution providers. Get your free copy now.

 
Jon DeVitoAuthor Commented:
I figured out the problem, I deleted a few of the form items that used Spry & didn't remove the Spry calls so the Javascript was breaking before it got to the correct ones. Stupid mistake. I'm giving you the points anyway because you were the only one who even tried to help, I appreciate it.

Thanks.
Jon
0
 
Jon DeVitoAuthor Commented:
In case anyone needs more info, in lines 1278-1291 I had calls to:

var sprytextfield1...
var sprytextfield2...
var sprytextfield3...
var spryselect1...
var spryselect2...
var spryselect3...

I removed these fields from the form so they were trying to execute on fields that didn't exist anymore. Removing these lines fixed the problem.

Thanks.
Jon
0
 
Jason C. LevineNo oneCommented:
Thank you, although I didn't deserve the points.  

You do know that you can accept your own posts as solutions, right?
0
 
Jon DeVitoAuthor Commented:
Thanks Jason, I do but I feel that people that take the time to try to help (& not by posting random Google links) even if it just leads me down the right path of what to look at deserve the points in my book.

Thanks again.
Jon
0
 
Jason C. LevineNo oneCommented:
Fair enough.  I try not to do random Google stuff, at least with Dreamweaver.  Non-random Google, maybe.

:)
0
 
Jon DeVitoAuthor Commented:
Lol, I have another thread going on another issue & that's all I seem to get so I was thrilled to get an actual response. Some of the links I got were way off. Thanks again for the help!

Jon
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.