Question

ASP page generates "Response Buffer Limit Exceeded "

Asked by: SamuelClemmons

This page should work and in fact does work on another server. I made some minor name changes in the name of the page but nothing else. There are three other pages two of which get the same error. One of them loads just fine so I know the connection strings are working.

The whole error reads:

Response object error 'ASP 0251 : 80004005'

Response Buffer Limit Exceeded

/pacinet/BilletScanner/BilletScanDefects4_F.asp, line 0

Execution of the ASP page caused the Response Buffer to exceed its configured limit

I did a Google serarch and came up with this which seems promising but this page is hosted on a company server and not IIS on my computer. This is what I found:

If you get the above error when you click on an attachment, the attachment is larger than IIS is configured to allow. Change the AspBufferingLimit setting in Metabase.xml to a larger size. The default value is 4194304, which is about 4 MB. Change this to whatever limit is reasonable for the types of files your users will be attaching.

This change does not require stopping IIS, but to make the Metabase.xml file write-able, you need to go to the IIS control panel, right click the server, select properties, and check off the box that says allow changes to MetaBase configuration while IIS is running.


Is there something like this I need to change on our server? We are using SQL Server 2000. I don't have access to this and will have to ask someone to make the changes for me.

Most of the others talked about selecting too large of a record set or changing the buffer on the IIS which is not really my problem... I think.

Here's the page

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="Connections/LISADATACONNECT.asp" -->
<!--#include file="dim_F.asp" -->
<%' This is the only thing that we need in this page for getting the records from the BillerScanX table
Set BilletScanX_cmd = Server.CreateObject ("ADODB.Command")
BilletScanX_cmd.ActiveConnection = MM_LISADATACONNECT_STRING
BilletScanX_cmd.CommandText = "SELECT TOP 50 BilletID, TagNumber, ScanTo, DateScanned, TagGroup FROM BilletScanX" 
BilletScanX_cmd.Prepared = true
Set rs_BilletScanX = BilletScanX_cmd.Execute
 
Set BilletScanX_DS_cmd = Server.CreateObject("ADODB.Command")
BilletScanX_DS_cmd.ActiveConnection=MM_LISADATACONNECT_STRING
BilletScanX_DS_cmd.Prepared = true
BilletScanX_DS_cmd.commandtext = "SELECT BilletID, TagNumber, ScanTo, DateScanned, TagGroup, TagShift FROM BilletScanX"
Set rs_BilletScanX_DS = BilletScanX_DS_cmd.Execute
 
 
' This gets the values from the form
strTN = trim(Request.Form("TagNumber"))
strON = trim(Request.Form("OperatrName"))
strDS = trim(request.Form("RipDefectTimeDate"))
strRW = trim(Request.Form("RipWidth"))
strD = trim(Request.Form("Delam"))
strMB = trim(Request.Form("M_Blow"))
strUB = trim(Request.Form("U_Blow"))
strRE = trim(Request.Form("RoughEdge"))
strS = trim(Request.Form("Slip"))
strO = trim(Request.Form("Other"))
mmrec = int(Request.Form("MM_recordId"))
' This checks to see if the Form has been passed, if so, then process the form and retrieve it's data
if request.Form("MM_insert")="form1" then 
    Set MM_editCmd = CreateObject ("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_LISADATACONNECT_STRING
    MM_InsertCmd = "insert into RipsawBilletUsage (TagNumber, OperatorName, DateScanned, RipWidth, Delam, M_Blow, U_Blow, RoughEdge, Slip, Other)values(?, ?, ?, ?, ?, ?, ?, ?, ?, ?)"
        'response.Write"strTN - "&strTN&" <br />strON - "&strON&" <br />strRW - "&strRW&" <br />strD - "&strD&" <br />strMB - "&strMB&" <br />strUB - "&strUB&" <br />strRE - "&strRE&" <br />strS - "&strS&" <br />strO - "&strO&" <br />mmrec - "&mmrec&" <br />" 
        'response.End()
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("@TagNumber", 201, 1, 50, strTN) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("@OperatorName", 201, 1, 50, strON) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("@DateScanned", 201, 1, 50, strDS) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("@RipWidth", 201, 1, 50, strRW) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("@Delam", 201, 1, 50, strD) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("@M_Blow", 201, 1, 50, strMB) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("@U_Blow", 201, 1, 50, strUB) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("@RoughEdge", 201, 1, 50, strRE) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("@Slip", 201, 1, 50, strS) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("@Other", 201, 1, 50, strO) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("@RipDefectID", 5, 1, ,mmrec) ' adDouble
    MM_editCmd.CommandText=MM_InsertCmd
    MM_editCmd.Execute
end if
%>
<!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">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Billet Scan Defects</title>
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
	background-color: #FFFFFF;
	background-image: url(images/lightlogo60.gif);
}
.style5 {
	color: #FFFFFF;
	font-weight: bold;
	font-family: Arial, Helvetica, sans-serif;
	font-size: 12px;
}
<%'This is the CSS information for Page: cr3.asp%>
#MainTable{
width:1100px;
border:1px;
background-color:#CCCCCC;
padding:1px; /*cellpadding*/
border-spacing:1px; /*cellspacing*/
}
.tdResults{
text-align:center;
border:1px #999999 dotted;
}
.tdResult{
text-align:left;
border:1px #333333 double;
}
-->
</style>
<script type="text/javascript"> 
if(window.addEventListener){ 
window.addEventListener('load',switchme,false); 
} 
else { 
if(window.attachEvent){ 
window.attachEvent('onload',switchme); 
} 
} 
 
function switchme(){ 
 
df=document.forms[0]; 
 
df[0].onchange=function(){ 
 
switch(this.value) { 
<%
While NOT rs_BilletScanX_DS.EOF
'the df[2] line:35 & 42   this is the form Element Number, For the Fieldname: RipDefectTimeDate   DO NOT CHANGE%>
case '<%=rs_BilletScanX_DS("TagNumber")%>': 
df[2].value='<%=rs_BilletScanX_DS("DateScanned")%>'; 
break; 
 
<%rs_BilletScanX_DS.movenext
wend%>
 
default: 
df[2].value=''; 
break; 
} 
} 
} 
</script> 
</head>
<body>
<form name="form1" method="POST" action="">
 
<table  border="2" cellpadding="2" cellspacing="0" bordercolor="#000000" background="images/lightlogo60.gif" id="BilletDefects">
  <tr bgcolor="#000000">
    <td><span class="style5">Tag Number </span></td>
    <td><span class="style5">Oper. Name</span></td>
	<td><span class="style5">Date Scanned</span></td>
    <td><span class="style5">Rip Width Inch</span></td>
	<td><span class="style5">Rip Width MM</span></td>
    <td><span class="style5">No. of Delams</span></td>
    <td><span class="style5">No.  of M-Blows</span></td>
    <td><span class="style5">No. of U-Blows</span></td>
    <td><span class="style5">  Rough Edges</span></td>
	<td><span class="style5">No. o f Slips</span></td>
    <td><span class="style5">Comments</span></td>
    <td>&nbsp;</td>
  </tr>
  <% 
While ((Repeat1__numRows <> 0) AND (NOT rs_BilletScanX.EOF))
rs_BilletScanX.MoveNext
   Wend
 
%>
  <tr bgcolor="#FFFFFF">
    <td><select name="TagNumber">
<option value="Choose One" selected="selected">Choose One</option>  
<%While NOT rs_BilletScanX.EOF%>
<option value="<%=rs_BilletScanX("TagNumber")%>"><%=rs_BilletScanX("TagNumber")%></option> 
<%rs_BilletScanX.movenext
wend%>
</select> </td>
 
<%
OpName = trim(request.Form("OperatrName"))
%>
<div id="ExtraInfos">Select search option</div> 
 
<td><input type="text" size="10" name="OperatrName" value="<%=Session("OpName")%>"></td>
	<td><input name="RipDefectTimeDate" type="text" size="10"></td>
	<td><input type="text" size="10" name="RipWidth"></td>
	<td><input type="text" size="10" name="RipWidth2"></td>
    <td><input type="text" size="10" name="Delam"></td>
    <td><input type="text" size="10" name="M_Blow"></td>
    <td><input type="text" size="10" name="U_Blow"></td>
    <td><input type="text" size="10" name="RoughEdge"></td>
	<td><input type="text" size="10" name="Slip"></td>
    <td><input type="text" size="10" name="Other"></td>
    <%'I had to move these hidden form elements over here, as they were messing up my Form Count    DO NOT MOVE!!!!!%>
    <td colspan="5" rowspan="2"><span class="style5"></span><span class="style5"></span><span class="style5"></span><span class="style5"></span>
	  <input type="hidden" name="Grade">
	  <input type="hidden" name="Thickness">
	  <input type="hidden" name="Length">
	  <input type="hidden" name="Pieces">	  
	  <input type="hidden" name="shift"></td>
      <%'End of moved 'hidden' form elements  DO NOT MOVE!!!!!!!!!!%>
  </tr>
</table>
  <input type="submit" name="Submit" value="Submit">
  <input type="hidden" name="MM_insert" value="form1">
</form>
<%'Now we need to get all the records that have been inserted%>
<!--#include file="cr3_F.asp"-->
</body>
</html>

                                  
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:

Select allOpen in new window

This Question has been solved and asker verified All Experts Exchange premium technology solutions are available to subscription members.

Subscribe now for full access to Experts Exchange and get

Instant Access to this Solution

  • Plus...
  • 30 Day FREE access, no risk, no obligation
  • Collaborate with the world's top tech experts
  • Unlimited access to our exclusive solution database
  • Never be left without tech help again

Subscribe Now

Asked On
2009-10-15 at 15:03:52ID24816556
Tags

ASP

,

SQL

,

Forms

,

SQL Server 2000

Topics

Active Server Pages (ASP)

,

Windows 2000 Server

Participating Experts
1
Points
500
Comments
27

Trusted by hundreds of thousands everyday for fast, accurate and reliable tech support.

  • "The time we save is the biggest benefit of Experts Exchange to Warner Bros. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange." Mike Kapnisakis, Warner Bros.
  • "Our team likes having a resource that is more secure than just using Google and most experts using this service really know their stuff. It's nice to look here first versus using Google." Dayna Sellner, Lockheed Martin
  • "Anytime that I've been stumped with a problem, 9 out of 10 times Experts Exchange has either the accepted solution or an open discussion of the potential solution to the problem." Kenny Red, eBay Inc.

See what Experts Exchange can do for you.

Got a question?

We've got the answer.

Experts Exchange has been collecting answers to technology questions since 1996…3 million and counting! If you have a question, chances are we already have your answer.

Screenshot of Experts Exchange Knowledgebase

Need individual assistance?

Our experts are ready to help.

If you can't find the exact answer you're looking for, ask our exclusive community of 50,000 experts. You’ll get a personalized answer from a trusted professional.

Screenshot of Experts Exchange Knowledgebase

Want to learn from the best?

Read articles from industry experts.

Thousands of free tech tips, tricks, how-to’s and tutorials are available in our peer reviewed articles section. See for yourself how smart our experts are, no login required.

Screenshot of an Article

Working on a long term project?

Store your work and research.

Save solutions to your questions, answers you’ve discovered through searching plus helpful articles in your personal knowledgebase for easy future access.

Screenshot of Experts Exchange Knowledgebase

Access the answers to your technology questions today.

Subscribe Now

30-day free trial. Register in 60 seconds.

What Makes Experts Exchange Unique?

Members of the expert community talk about why the experience at Experts Exchange is different than what you will find anywhere else.

Trusted by the world's most respected brands.

image of each brand's logo

Faithfully serving IT professionals since 1996.

Experts Exchange Logo

Try it out and discover for yourself.

Subscribe Now

30-day free trial. Register in 60 seconds.

Related Solutions

  1. Exceed and .profile
    I got a problem running Exceed. Whenever I login to the server using Exceed, it doesn't seems to be reading my .profile I have to key in '. .profile' to make it read it. Whereas, if I use a simple telnet client, i login with all my profile settings read eg. alias etc. I'm r...
  2. Exceed
    I'm working on a pc with Exceed. I'm trying to run a window manager on Solaris2.7 and I receive this error: "Workspace Manager: Another window manager is running on screen 0". What's the problem?
  3. Exceed screen problem
    Hi, my exceed screen is disappeared. but it appears in the status bar. Did that means that I did not make complete settings?
  4. StringBuilder returns Capacity Exceeds Maximum Capacity…
    In learning to use StringBuilder, <thanks testn>, I realized many of the shell functions that I use can use this class. However, I am still learning. I am using the shell function FindFirstFile to begin a parsing of a particular directory. I used SHGetSpecialFolder t...
  5. Execution of the ASP page caused the Response Buffer to …
    I am getting this error when the number of records are returning more data.(above 3000 records) Response object, ASP 0251 (0x80004005) Execution of the ASP page caused the Response Buffer to exceed its configured limit. I tried Response.Buffer = False .That made a very ve...

Free Tech Articles

  1. WARNING: 5 Reasons why you should NEVER fix a computer for free.
    It is in our nature to love the puzzle. We are obsessed. The lot of us. We love puzzles. We love the challenge. We thrive on finding the answer. We hate disarray. It bothers us deep in our soul. W...
  2. SCCM OSD Basic troubleshooting
    SCCM 2007 OSD is a fantastic way to deploy operating systems, however, like most things SCCM issues can sometimes be difficult to resolve due to the sheer volume of logs to sift through and the dispe...
  3. Migrate Small Business Server 2003 to Exchange 2010 and Windows 2008 R2
    This guide is intended to provide step by step instructions on how to migrate from Small Business Server 2003 to Windows 2008 R2 with Exchange 2010. For this migration to work you will need the fo...
  4. Create a Win7 Gadget
    This article shows you how to create a simple "Gadget" -- a sort of mini-application supported by Windows 7 and Vista. Gadgets can be dropped anywhere on the desktop to provide instant information, ...
  5. Outlook continually prompting for username and password
    There have been a lot of questions recently regarding Outlook prompting for a username and password whilst using Exchange 2007. There are a few reasons why this would happen and I will try to cover t...
  6. Backup Exchange 2010 Information Store using Windows Backup
    There seems to be quite a lot of confusion around the ability to backup Exchange 2010 using the built in Windows Backup feature. This stems from the omission of this feature prior to Exchange 2007 s...

Cloud Class Webinars

  1. Avoiding Bugs in Microsoft Access
    Alison Balter takes and in-depth look at avoiding bugs in Access. In this webinar you will learn about using the immediate window to debug your applications, invoking the debugger, using breakpoints to troubleshoot, stepping through code, setting the next statement to execute, ...
  2. Top 10 Best New Features in Visio 2010
    Scott Helmers gives live demonstrations of the top 10 new features in Visio 2010. This webinar will teach you how to create compelling diagrams by adding shapes to the page with a single click, linking the shapes in a diagram to data in Excel (or SQL Server, or SharePoint), ...
  3. IT Consultant Business Secrets Revealed
    Michael Munger, Experts Exchange tech pro and IT consultant, pulls back the curtain on his very successful businesses and answers question on every IT consultant and business owner should know about. He shares secrets on what he did to solve the 5 most common problems in IT, ...
  4. Disaster Recovery and Business Continuity
    Quest CTO, Mike Billon, gives an overview of the steps involved in building a dunamic disaster recovery plan. Through case studies and an examination of software/hardware tooles for monitoring and testing, you'll gain a better understandin of where you are, where you want ...
  5. Organize Your Visio Diagrams with Containers and Lists
    Scott Helmers uses cross functional flowcharts, wireframe diagrams, data graphic legends and seating charts to teach you: how to ustilize all three new structured diagram components in Visio 2010, the best practices for organizeing shapes in previous version of Visio, how to organize ...
  6. How to Us Objects, Properties, Events and Methods in Microsoft Access
    Alison Dalter gives an in-depbth look at objects, properties, events and methods in Microsoft Access. In this webinar you will learn about using the object browser, referring to objects, working with properties and methods, working with object variables, understanding the ...

Join the Community

Give a Little. Get a Lot.

Join the community of experts here and help other tech pros by answering question in your area of expertise. You can earn FREE access to all Experts Exchange's premium features and resources.

Join the Community

Answers

 

by: carrzkissPosted on 2009-10-15 at 15:18:39ID: 25585469

Zip up your page Sam.
And attach them here.
Are there any Database changes? If not, then send over the pages
And explain exactly what you are doing to get the error.
As there should not be an error what so ever in these scripts.

Let me know.
Carrzkiss

 

by: SamuelClemmonsPosted on 2009-10-15 at 16:40:30ID: 25585897

Yes there were db changes. I have added some columns to "rs_RipsawBilletUsage" such as "RipWidth2"  right after "RipWidth" and "ScanTo" which is a hidden column at the end of the columns.

I pointed the pages at our connection page which is the "LISADATACONNECT.asp"

I have been trying to zip the files but keep getting that there are extensions in the zip that are not allowed. so I am just going to post them in the code snippet. Sorry about the long page

<%
' FileName="Connection_ado_conn_string.htm"
' Type="ADO" 
' DesigntimeType="ADO"
' HTTP="false"
' Catalog=""
' Schema=""
Dim MM_LISADATACONNECT_STRING
MM_LISADATACONNECT_STRING = "Driver={SQL Server};Server=PWCCORE;Database=LISA_PACWOO;UID=XXXXXX;PWD=XXXXXX"
%>
 
_______________________________________________________________
 
BilletScanDefects4_F.asp follows:
 
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="../Connections/LISADATACONNECT.asp" -->
<!--#include file="dim_F.asp" -->
<%' This is the only thing that we need in this page for getting the records from the BillerScanX table
Set BilletScanX_cmd = Server.CreateObject ("ADODB.Command")
BilletScanX_cmd.ActiveConnection = MM_LISADATACONNECT_STRING
BilletScanX_cmd.CommandText = "SELECT TOP 50 BilletID, TagNumber, ScanTo, DateScanned, TagGroup FROM BilletScanX" 
BilletScanX_cmd.Prepared = true
Set rs_BilletScanX = BilletScanX_cmd.Execute
 
Set BilletScanX_DS_cmd = Server.CreateObject("ADODB.Command")
BilletScanX_DS_cmd.ActiveConnection=MM_LISADATACONNECT_STRING
BilletScanX_DS_cmd.Prepared = true
BilletScanX_DS_cmd.commandtext = "SELECT BilletID, TagNumber, ScanTo, DateScanned, TagGroup, TagShift FROM BilletScanX"
Set rs_BilletScanX_DS = BilletScanX_DS_cmd.Execute
 
 
' This gets the values from the form
strTN = trim(Request.Form("TagNumber"))
strON = trim(Request.Form("OperatrName"))
strDS = trim(request.Form("RipDefectTimeDate"))
strRW = trim(Request.Form("RipWidth"))
strD = trim(Request.Form("Delam"))
strMB = trim(Request.Form("M_Blow"))
strUB = trim(Request.Form("U_Blow"))
strRE = trim(Request.Form("RoughEdge"))
strS = trim(Request.Form("Slip"))
strO = trim(Request.Form("Other"))
mmrec = int(Request.Form("MM_recordId"))
' This checks to see if the Form has been passed, if so, then process the form and retrieve it's data
if request.Form("MM_insert")="form1" then 
    Set MM_editCmd = CreateObject ("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_LISADATACONNECT_STRING
    MM_InsertCmd = "insert into RipsawBilletUsage (TagNumber, OperatorName, DateScanned, RipWidth, Delam, M_Blow, U_Blow, RoughEdge, Slip, Other)values(?, ?, ?, ?, ?, ?, ?, ?, ?, ?)"
        'response.Write"strTN - "&strTN&" <br />strON - "&strON&" <br />strRW - "&strRW&" <br />strD - "&strD&" <br />strMB - "&strMB&" <br />strUB - "&strUB&" <br />strRE - "&strRE&" <br />strS - "&strS&" <br />strO - "&strO&" <br />mmrec - "&mmrec&" <br />" 
        'response.End()
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("@TagNumber", 201, 1, 50, strTN) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("@OperatorName", 201, 1, 50, strON) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("@DateScanned", 201, 1, 50, strDS) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("@RipWidth", 201, 1, 50, strRW) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("@Delam", 201, 1, 50, strD) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("@M_Blow", 201, 1, 50, strMB) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("@U_Blow", 201, 1, 50, strUB) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("@RoughEdge", 201, 1, 50, strRE) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("@Slip", 201, 1, 50, strS) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("@Other", 201, 1, 50, strO) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("@RipDefectID", 5, 1, ,mmrec) ' adDouble
    MM_editCmd.CommandText=MM_InsertCmd
    MM_editCmd.Execute
end if
%>
<!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">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Billet Scan Defects</title>
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
	background-color: #FFFFFF;
	background-image: url(images/lightlogo60.gif);
}
.style5 {
	color: #FFFFFF;
	font-weight: bold;
	font-family: Arial, Helvetica, sans-serif;
	font-size: 12px;
}
<%'This is the CSS information for Page: cr3.asp%>
#MainTable{
width:1100px;
border:1px;
background-color:#CCCCCC;
padding:1px; /*cellpadding*/
border-spacing:1px; /*cellspacing*/
}
.tdResults{
text-align:center;
border:1px #999999 dotted;
}
.tdResult{
text-align:left;
border:1px #333333 double;
}
-->
</style>
<script type="text/javascript"> 
if(window.addEventListener){ 
window.addEventListener('load',switchme,false); 
} 
else { 
if(window.attachEvent){ 
window.attachEvent('onload',switchme); 
} 
} 
 
function switchme(){ 
 
df=document.forms[0]; 
 
df[0].onchange=function(){ 
 
switch(this.value) { 
<%
While NOT rs_BilletScanX_DS.EOF
'the df[2] line:35 & 42   this is the form Element Number, For the Fieldname: RipDefectTimeDate   DO NOT CHANGE%>
case '<%=rs_BilletScanX_DS("TagNumber")%>': 
df[2].value='<%=rs_BilletScanX_DS("DateScanned")%>'; 
break; 
 
<%rs_BilletScanX_DS.movenext
wend%>
 
default: 
df[2].value=''; 
break; 
} 
} 
} 
</script> 
</head>
<body>
<form name="form1" method="POST" action="">
 
<table  border="2" cellpadding="2" cellspacing="0" bordercolor="#000000" background="images/lightlogo60.gif" id="BilletDefects">
  <tr bgcolor="#000000">
    <td><span class="style5">Tag Number </span></td>
    <td><span class="style5">Oper. Name</span></td>
	<td><span class="style5">Date Scanned</span></td>
    <td><span class="style5">Rip Width Inch</span></td>
	<td><span class="style5">Rip Width MM</span></td>
    <td><span class="style5">No. of Delams</span></td>
    <td><span class="style5">No.  of M-Blows</span></td>
    <td><span class="style5">No. of U-Blows</span></td>
    <td><span class="style5">  Rough Edges</span></td>
	<td><span class="style5">No. o f Slips</span></td>
    <td><span class="style5">Comments</span></td>
    <td>&nbsp;</td>
  </tr>
  <% 
While ((Repeat1__numRows <> 0) AND (NOT rs_BilletScanX.EOF))
rs_BilletScanX.MoveNext
   Wend
 
%>
  <tr bgcolor="#FFFFFF">
    <td><select name="TagNumber">
<option value="Choose One" selected="selected">Choose One</option>  
<%While NOT rs_BilletScanX.EOF%>
<option value="<%=rs_BilletScanX("TagNumber")%>"><%=rs_BilletScanX("TagNumber")%></option> 
<%rs_BilletScanX.movenext
wend%>
</select> </td>
 
<%
OpName = trim(request.Form("OperatrName"))
%>
<div id="ExtraInfos">Select search option</div> 
 
<td><input type="text" size="10" name="OperatrName" value="<%=Session("OpName")%>"></td>
	<td><input name="RipDefectTimeDate" type="text" size="10"></td>
	<td><input type="text" size="10" name="RipWidth"></td>
	<td><input type="text" size="10" name="RipWidth2"></td>
    <td><input type="text" size="10" name="Delam"></td>
    <td><input type="text" size="10" name="M_Blow"></td>
    <td><input type="text" size="10" name="U_Blow"></td>
    <td><input type="text" size="10" name="RoughEdge"></td>
	<td><input type="text" size="10" name="Slip"></td>
    <td><input type="text" size="10" name="Other"></td>
    <%'I had to move these hidden form elements over here, as they were messing up my Form Count    DO NOT MOVE!!!!!%>
    <td colspan="5" rowspan="2"><span class="style5"></span><span class="style5"></span><span class="style5"></span><span class="style5"></span>
	  <input type="hidden" name="Grade">
	  <input type="hidden" name="Thickness">
	  <input type="hidden" name="Length">
	  <input type="hidden" name="Pieces">	  
	  <input type="hidden" name="shift"></td>
      <%'End of moved 'hidden' form elements  DO NOT MOVE!!!!!!!!!!%>
  </tr>
</table>
  <input type="submit" name="Submit" value="Submit">
  <input type="hidden" name="MM_insert" value="form1">
</form>
<%'Now we need to get all the records that have been inserted%>
<!--#include file="cr3_F.asp"-->
</body>
</html>
 
________________________________________________
 
cr3_F.asp follows:
 
 
<%
 ' Sam, please, you DO NOT have to use   dbo.RipsawBilletUsage   the dbo. in your Statements, just the TableName is fine.
Set rs_BIRBU_cmd = Server.CreateObject ("ADODB.Command")
rs_BIRBU_cmd.ActiveConnection = MM_LISADATACONNECT_STRING
rs_BIRBU_cmd.CommandText = "SELECT RipDefectID, RipDefectTimeDate, TagNumber, OperatorName, DateScanned, Grade, Thickness, Length, Pieces, Shift, RipWidth, Delam, M_Blow, U_Blow, RoughEdge, Slip, Other FROM RipsawBilletUsage" 
rs_BIRBU_cmd.Prepared = true
 
Set rs_BIRBU = rs_BIRBU_cmd.Execute
rs_BIRBU_numRows = 0
%>
 
<%
 
' I think changing the record set name is confusing me in trying to connect to our database. I will begin to shorten and better name them in the future but if you could this time not change the name it would help. I will better understand it this way.
 
 
' Changed to make short and easier to work with. Try not to have your RecordSet name to long, as it is harder to write out and can make things messy and well, it looks crappy.
' changed:   rs_Billet_Inv_RipsawBilletUsage    to  rs_BIRBU
 
Set rs_BIRBU=CreateObject("ADODB.RecordSet")
'To change the Number of Records to display per page result, you will do it, Change the # 20 to what ever you want it to be.
if request("NumPerPage") <> 0 Then NumPerPage = Int(request("NumPerPage")) Else NumPerPage = 10 end if
' You always want to spell out every Column Name. This take less time to retrieve the records, and is less strain on your server when calling BIG results back when using the wildcard   SELECT * FROM RipsawBilletUsage. DW produces this, even though it is pour programming.
' If you want to get all the Column Names then use Access (or) SQL Server to create a [Query] and click to add every Column Name into the Query, and then Generate the SQL. Then Copy and paste the SQL Select Statement into this area, and IF you are using ONLY ONE table, then you can remember the TableName from each ColumnName to make the Statement smaller and better to manage. As I did here.
sql="SELECT RipDefectID, RipDefectTimeDate, TagNumber, OperatorName, DateScanned, Grade, Thickness, Length, Pieces, Shift, RipWidth, Delam, M_Blow, U_Blow, RoughEdge, Slip, Other FROM RipsawBilletUsage"
 
' This area below to line #35 (cs = 1) is information for the Paging properties, DO NOT Edit these area's If you want to change the name of your RecordSet then you can change its values before, and you are using SQL Server and want to change everything to work with Procedures, then you will change the line #26 to its values.
	 if Request.QueryString("page") = "" Then
    CurrentPage = 1 'We're On the first page
	NumPerPageOf = 1
    Else
    CurrentPage = CInt(Request.QueryString("page"))
	NumPerPageOf = ((CurrentPage * NumPerPage) - NumPerPage) + 1
    End if
    rs_BIRBU.open sql, MM_LISADATACONNECT_STRING,3,3
    Number = rs_BIRBU.RecordCount
    if Not rs_BIRBU.EOF Then
    	rs_BIRBU.MoveFirst
    	rs_BIRBU.PageSize = NumPerPage
    TotalPages = rs_BIRBU.PageCount
    rs_BIRBU.AbsolutePage = CurrentPage
    End if
    ScriptName = request.servervariables("ScriptName")
	cs = 1
	
	
' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
  If (firstItem <> "") Then
    MM_joinChar = "&"
  Else
    MM_joinChar = ""
  End If
End Function	
%>
 
 
<%
    'This is for your Paging, this will show you how much data you have in the table and what page # you are on, and how many pages you have left
    response.write "<br/><br/><hr style=""background-color:#CCCCCC"">Showing page <strong>" & CurrentPage & "</strong> of <strong>" & TotalPages & "</strong>: Total of results: <strong>" & Number & "</strong>"%>
<%'This is the HEADER of your Table, You notice how it is above the ASP WHILE loop, that is to make sure that it only displays 1 time, as it is not needed no more than once.%>
<table id="MainTable">
  <tr>
    <td class="tdResults"><strong>Tag Number </strong></td>
    <td class="tdResults"><strong>Operator Name</strong></td>
    <td class="tdResults"><strong>Date Scanned</strong></td>
    <td class="tdResults"><strong>Rip Width</strong></td>
    <td class="tdResults"><strong>Delam</strong></td>
    <td class="tdResults"><strong>M-Blow </strong></td>
    <td class="tdResults"><strong>U-Blow</strong></td>
    <td class="tdResults"><strong>Rough Edge </strong></td>
    <td class="tdResults"><strong>Slip</strong></td>
    <td class="tdResults"><strong>Other</strong></td> 
  </tr>
         <%' This is going to count your records and return the amount of records that are needed to fill the page. In this case we need to only display [20] records and that is what we are going to get from this count.
	    While Not rs_BIRBU.EOF and Count < rs_BIRBU.PageSize
    count = count + 1
%>
<tr><%'And of course, this is your Records table, as it is held within the WHILE and the WEND, so that it can repeat itself to display all the records that are needed to display, in this case, we are only wanting to show 20 records at a time.%>
      <td class="tdResult"><a href="cr4.asp?<%= Server.HTMLEncode(MM_keepBoth) & MM_joinChar(MM_keepBoth) & "RipDefectID=" & rs_BIRBU("RipDefectID") %>" onClick="window.open('cr4_F.asp?<%= Server.HTMLEncode(MM_keepBoth) & MM_joinChar(MM_keepBoth) & "RipDefectID=" & rs_BIRBU("RipDefectID") %>','popup','width=300,height=375,scrollbars=no,resizable=no,toolbar=no,directories=no,location=no,menubar=no,status=no,left=0,top=0'); return false"><%=rs_BIRBU("TagNumber")%></a></td>
      <td class="tdResult"><%=rs_BIRBU("OperatorName")%></td>
      <td class="tdResult"><%=rs_BIRBU("DateScanned")%></td>
      <td class="tdResult"><%=rs_BIRBU("RipWidth")%></td>
      <td class="tdResult"><%=rs_BIRBU("Delam")%></td>
      <td class="tdResult"><%=rs_BIRBU("M_Blow")%></td>
      <td class="tdResult"><%=rs_BIRBU("U_Blow")%></td>
      <td class="tdResult"><%=rs_BIRBU("RoughEdge")%></td>
      <td class="tdResult"><%=rs_BIRBU("Slip")%></td>
      <td class="tdResult"><%=rs_BIRBU("Other")%></td>
  </tr>
        <%
' Move to the next record in the table and display to the end. In this case, we are displaying to show 20 records at a time.		
    rs_BIRBU.MoveNext
	Wend
	rs_BIRBU.Close ' close the recordset, as it is not longer needed anymore.
	Set rs_BIRBU=Nothing
%>
</table>
<%
    'Creating the paging numbers
    'Display PREV page link, if appropriate
	' DO NOT mess with this area, ONLY if you need to change the QueryString around.
	'Example: ?NumPerPage
	' Lets say that you are doing Queries, then you would change it to suit your Query.
	' Example: ?id="&id&"&amp;NumPerPage
	' As you see in the above Example, i kept the ? and the NumPerPage, and added in my Query inbewteen them.
	' If you do use a Query, then you will need to change every place that it is needed. There are 5 area's
    if Not CurrentPage = 1 Then
    	Response.Write "<A href='" & ScriptName & "?NumPerPage=" & NumPerPage & "&amp;page=" & CurrentPage - 1 & "'><font size=1 face=Verdana><strong>..</strong></font></A>  "
    if CurrentPage > 5 and TotalPages > 10 Then
    Response.write("<A href=" & ScriptName & "?NumPerPage=" & NumPerPage & "&page=1><font size=1 face=Verdana><strong>1</strong></font></A>" & "<font size=1 face=Verdana><strong> ... </strong> </font>" )
    End if
    if TotalPages > 10 Then
    	
    	if CurrentPage > 5 Then
    		if TotalPages > (CurrentPage + 5) Then
    			ini = (CurrentPage - 4)
    			fim = (CurrentPage + 5)
    		Else
    			ini = (TotalPages - 9)
    			fim = TotalPages
    		End if 
    	Else
    		ini = 1
    		fim = 10
    	End if
    	
    else
    ini=1
    fim = TotalPages
    End if
    For a = ini To fim
    if a = Cint(request("page")) Then
    Response.write( "" & a & "  ")
    Else
    Response.write("<A href=" & ScriptName & "?NumPerPage=" & NumPerPage & "&amp;page=" & a &"><font size=1 face=Verdana><strong>" & a & "</strong></font></A>" & "  " )
    End if
    Next
    Else
    	if TotalPages = 1 Then 
    			Response.write ""
    		Else
    			Response.Write "<font face=Verdana color=#FF0000 size=3><strong>1</strong></font>  "
    	End if
    	if TotalPages > 10 Then     'id=161&MWC=Layouts
    	fim = 10
    	Else
    	fim = TotalPages
    	End if
    	For a = 2 To fim
    if a = Cint(request("page")) Then
    Response.write( "<font face=Verdana color=#FF0000 size=3><strong>" & a & "</strong></font>  ")
    Else
    Response.write("<A href=" & ScriptName & "?NumPerPage=" & NumPerPage & "&amp;page=" & a &"><font size=1 face=Verdana><strong>" & a & "</strong></font></A>" & "  " )
    End if
    Next
    End if
    if CurrentPage < TotalPages - 5 and TotalPages > 10 Then
    Response.write("<font size=1 face=Verdana><strong>... </strong></font><A href=" & ScriptName & "?NumPerPage=" & NumPerPage & "&amp;page=" & TotalPages &"><font size=1 face=Verdana><strong>" & TotalPages & "</strong></font></A>" & "  " )
    End if
	
	
 
    'Display NEXT page link, if appropriate
    if Not CurrentPage = TotalPages Then
    	Response.Write "<A href='" & ScriptName & "?NumPerPage=" & NumPerPage & "&amp;page=" & CurrentPage + 1 & "'><font size=1 face=Verdana><strong>..</strong></font></a>"
    Else
    	Response.Write ""
    End if
    %>
 
 
______________________________________
 
cr4_F.asp follows:
 
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="../Connections/LISADATACONNECT.asp" -->
<!--#include file="dim_F.asp" -->
<%
 ' You DO NOT have to have the    dbo.   at the beginning of the name of your Table. This makes it a pain to work with at times, especially when asking for assistance and someone else uses an ACCESS database for the demo, like I am here.
Set rs_RipsawBilletUsage_cmd = Server.CreateObject ("ADODB.Command")
rs_RipsawBilletUsage_cmd.ActiveConnection = MM_LISADATACONNECT_STRING
rs_RipsawBilletUsage_cmd.CommandText = "SELECT RipDefectID, RipDefectTimeDate, TagNumber, OperatorName, DateScanned,Grade, Thickness, Length, Pieces, Shift, RipWidth, Delam, M_Blow, U_Blow, RoughEdge, Slip, Other FROM RipsawBilletUsage" 
rs_RipsawBilletUsage_cmd.Prepared = true
 
Set rs_RipsawBilletUsage = rs_RipsawBilletUsage_cmd.Execute
rs_RipsawBilletUsage_numRows = 0
%>
<%
 
 
 
 
Set rs_RipsawBilletUsage_cmd = CreateObject ("ADODB.Command")
rs_RipsawBilletUsage_cmd.ActiveConnection = MM_LISADATACONNECT_STRING
rs_RipsawBilletUsage_cmd.CommandText = "SELECT RipDefectID, RipDefectTimeDate, TagNumber, OperatorName, DateScanned, Grade, Thickness, Length, Pieces, Shift, RipWidth, Delam, M_Blow, U_Blow, RoughEdge, Slip, Other FROM RipsawBilletUsage  " 
rs_RipsawBilletUsage_cmd.Prepared = true
 
Set rs_RipsawBilletUsage = rs_RipsawBilletUsage_cmd.Execute
rs_RipsawBilletUsage_numRows = 0
%>
<%
 
'======================MINE====================
 
strTN = trim(Request.Form("TagNumber"))
strON = trim(Request.Form("OperatrName"))
strDS = trim(Request.Form("RipDefectTimeDate"))
strRW = trim(Request.Form("RipWidth"))
strD = trim(Request.Form("Delam"))
strMB = trim(Request.Form("M_Blow"))
strUB = trim(Request.Form("U_Blow"))
strRE = trim(Request.Form("RoughEdge"))
strS = trim(Request.Form("Slip"))
strO = trim(Request.Form("Other"))
mmrec = int(Request.Form("MM_recordId"))
 
 
    Set MM_editCmd = CreateObject ("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_LISADATACONNECT_STRING
    MM_UpdateCmd = "UPDATE RipsawBilletUsage SET TagNumber = ?, OperatorName = ?, DateScanned= ?,  RipWidth = ?, Delam = ?, M_Blow = ?, U_Blow = ?, RoughEdge = ?, Slip = ?, Other = ? WHERE RipDefectID = ?"
        'response.Write"strTN - "&strTN&" <br />strON - "&strON&" <br />strRW - "&strRW&" <br />strD - "&strD&" <br />strMB - "&strMB&" <br />strUB - "&strUB&" <br />strRE - "&strRE&" <br />strS - "&strS&" <br />strO - "&strO&" <br />mmrec - "&mmrec&" <br />" 
        'response.End()
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("@TagNumber", 201, 1, 50, strTN) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("@OperatorName", 201, 1, 50, strON) ' adLongVarChar
	MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("@DateScanned", 201, 1, 50, strDS) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("@RipWidth", 201, 1, 50, strRW) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("@Delam", 201, 1, 50, strD) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("@M_Blow", 201, 1, 50, strMB) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("@U_Blow", 201, 1, 50, strUB) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("@RoughEdge", 201, 1, 50, strRE) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("@Slip", 201, 1, 50, strS) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("@Other", 201, 1, 50, strO) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("@RipDefectID", 5, 1, ,mmrec) ' adDouble
    MM_editCmd.CommandText=MM_UpdateCmd
    MM_editCmd.Execute
%>
 
 
 
<%
if request.QueryString("RipDefectID") then
RecID = int(request.QueryString("RipDefectID"))
 
Set rs_RipsawBilletUsage_cmd = Server.CreateObject ("ADODB.Command")
rs_RipsawBilletUsage_cmd.ActiveConnection = MM_LISADATACONNECT_STRING
rs_RipsawBilletUsage_cmd.CommandText = "SELECT RipDefectID, RipDefectTimeDate, TagNumber, OperatorName, DateScanned, Grade, Thickness, Length, Pieces, Shift, RipWidth, Delam, M_Blow, U_Blow, RoughEdge, Slip, Other FROM RipsawBilletUsage WHERE RipDefectID=?" 
rs_RipsawBilletUsage_cmd.Parameters.Append rs_RipsawBilletUsage_cmd.CreateParameter("@RipDefectID", 5, 1, ,RecID) ' adDouble
rs_RipsawBilletUsage_cmd.Prepared = true
Set rs_RipsawBilletUsage = rs_RipsawBilletUsage_cmd.Execute
end if
%>
 
 
 
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>RecordsUpdate</title>
<style type="text/css">
<!--
body {
        background-image: url(images/lightlogo60.gif);
}
a:link {
        color: #0000FF;
}
a:visited {
        color: #FF00FF;
}
a:hover {
        color: #000000;
}
a:active {
        color: #008800;
}
#MainTD{
text-align:left;
background-color:#CCCCCC;
}
.UpdateTD{
text-align:left;
background-color:#CCCCCC;
border:1px #000000 double; 
}
-->
</style>
<script type="text/javascript">
function refreshParent() {
  window.opener.location.href = window.opener.location.href;
 
  if (window.opener.progressWindow)
		
 {
    window.opener.progressWindow.close()
  }
  window.close();
}
 
</script>
</head>
 
<body>
<form id="form1" method="post" action="">
  <table id="MainTD">
  <tr>
   <td class="UpdateTD">Tag Number</td>
   <td class="UpdateTD"><%=rs_RipsawBilletUsage("TagNumber")%>
     <input type="hidden" name="TagNumber" value="<%=rs_RipsawBilletUsage("TagNumber")%>" /></td>
  </tr>
  <tr>
   <td class="UpdateTD">Operator Name</td>
<td class="UpdateTD"><input type="text" name="OperatrName" value="<%=rs_RipsawBilletUsage("OperatorName")%>" /></td>
  </tr>
  <tr>
   <td class="UpdateTD">Date Scanned</td>
<td class="UpdateTD"><input type="text" name="RipDefectTimeDate" value="<%=rs_RipsawBilletUsage("DateScanned")%>" /></td>
  </tr>
  <tr>
   <td class="UpdateTD">RipWidth</td>
        <td class="UpdateTD"><input type="text" size="10" name="RipWidth" value="<%=rs_RipsawBilletUsage("RipWidth")%>" /></td>
  </tr>
  <tr>
   <td class="UpdateTD">Delam</td>
  <td class="UpdateTD"><input type="text" size="10" name="Delam" value="<%=rs_RipsawBilletUsage("Delam")%>" /></td>
  </tr>
  <tr>
   <td class="UpdateTD">M_Blow</td>
       <td class="UpdateTD"><input type="text" size="10" name="M_Blow" value="<%=rs_RipsawBilletUsage("M_Blow")%>" /></td>
  </tr>
  <tr>
   <td class="UpdateTD">U_Blow</td>
       <td class="UpdateTD"><input name="U_Blow" type="text" value="<%=rs_RipsawBilletUsage("U_Blow")%>" size="10" /></td>
  </tr>
  <tr>
   <td class="UpdateTD">RoughEdge</td>
      <td class="UpdateTD"><input name="RoughEdge" type="text" value="<%=rs_RipsawBilletUsage("RoughEdge")%>" size="10" /></td>
  </tr>
  <tr>
   <td class="UpdateTD">Slip</td>
        <td class="UpdateTD"><input name="Slip" type="text" value="<%=rs_RipsawBilletUsage("Slip")%>" size="10" values="" /></td>
  </tr>
  <tr>
   <td class="UpdateTD">Other</td>
       <td class="UpdateTD"><input type="text" size="10" name="Other" value="<%=rs_RipsawBilletUsage("Other")%>" /></td>
  </tr>
  </table>
      <td align="right"> </td>
      <td><input type="submit" value="Update record" /></td>
    </tr>
  </table>
  <input type="hidden" name="MM_update" value="form1" />
  <input type="hidden" name="MM_recordId" value="<%= rs_RipsawBilletUsage("RipDefectID") %>" />
</form>
 <a href="BilletScanDefects4_F.asp" onclick="refreshParent()"><font face="Arial, Helvetica, sans-serif" size="3">Close</font></a>
</body>
</html>
<%
rs_RipsawBilletUsage.Close()
Set rs_RipsawBilletUsage = Nothing
%>
 
_______________________________________
 
dim_F.asp follows:
 
 
<%
Dim rs_BIRBU
Dim rs_BIRBU_cmd
Dim rs_BIRBU_numRows
Dim rs_RipsawBilletUsage
Dim rs_RipsawBilletUsage_cmd
Dim rs_RipsawBilletUsage_numRows
%>
                                              
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:
191:
192:
193:
194:
195:
196:
197:
198:
199:
200:
201:
202:
203:
204:
205:
206:
207:
208:
209:
210:
211:
212:
213:
214:
215:
216:
217:
218:
219:
220:
221:
222:
223:
224:
225:
226:
227:
228:
229:
230:
231:
232:
233:
234:
235:
236:
237:
238:
239:
240:
241:
242:
243:
244:
245:
246:
247:
248:
249:
250:
251:
252:
253:
254:
255:
256:
257:
258:
259:
260:
261:
262:
263:
264:
265:
266:
267:
268:
269:
270:
271:
272:
273:
274:
275:
276:
277:
278:
279:
280:
281:
282:
283:
284:
285:
286:
287:
288:
289:
290:
291:
292:
293:
294:
295:
296:
297:
298:
299:
300:
301:
302:
303:
304:
305:
306:
307:
308:
309:
310:
311:
312:
313:
314:
315:
316:
317:
318:
319:
320:
321:
322:
323:
324:
325:
326:
327:
328:
329:
330:
331:
332:
333:
334:
335:
336:
337:
338:
339:
340:
341:
342:
343:
344:
345:
346:
347:
348:
349:
350:
351:
352:
353:
354:
355:
356:
357:
358:
359:
360:
361:
362:
363:
364:
365:
366:
367:
368:
369:
370:
371:
372:
373:
374:
375:
376:
377:
378:
379:
380:
381:
382:
383:
384:
385:
386:
387:
388:
389:
390:
391:
392:
393:
394:
395:
396:
397:
398:
399:
400:
401:
402:
403:
404:
405:
406:
407:
408:
409:
410:
411:
412:
413:
414:
415:
416:
417:
418:
419:
420:
421:
422:
423:
424:
425:
426:
427:
428:
429:
430:
431:
432:
433:
434:
435:
436:
437:
438:
439:
440:
441:
442:
443:
444:
445:
446:
447:
448:
449:
450:
451:
452:
453:
454:
455:
456:
457:
458:
459:
460:
461:
462:
463:
464:
465:
466:
467:
468:
469:
470:
471:
472:
473:
474:
475:
476:
477:
478:
479:
480:
481:
482:
483:
484:
485:
486:
487:
488:
489:
490:
491:
492:
493:
494:
495:
496:
497:
498:
499:
500:
501:
502:
503:
504:
505:
506:
507:
508:
509:
510:
511:
512:
513:
514:
515:
516:
517:
518:
519:
520:
521:
522:
523:
524:
525:
526:
527:
528:
529:
530:
531:
532:
533:
534:
535:
536:
537:
538:
539:
540:
541:
542:
543:
544:
545:
546:
547:
548:
549:
550:
551:
552:
553:
554:
555:
556:
557:
558:
559:
560:
561:
562:
563:
564:
565:
566:
567:
568:
569:
570:
571:
572:
573:
574:
575:
576:
577:
578:
579:
580:
581:
582:
583:
584:
585:
586:
587:
588:

Select allOpen in new window

 

by: SamuelClemmonsPosted on 2009-10-15 at 17:12:21ID: 25586044

carrzkiss,

If it is a matter of adding the new code for the new columns I can do that. This did not seem to matter in the dw code. It still allowed data to be submitted and the pages still loaded and everything worked.

 

by: carrzkissPosted on 2009-10-15 at 17:14:19ID: 25586050

when you zip up files. do the files like so:
BilletScanDefects4_F.asp.txt  <=  see the end, as   .txt


-------------------
The pages run fine.
You are going to have to explain to me what you are doing to cause this issue to happen.

 

by: SamuelClemmonsPosted on 2009-10-15 at 18:11:01ID: 25586288

I don't quite know what to say to that, but here goes... I have opened the pages from your file. Loaded them into dw. I then changed their names slightly changed the file links to the other pages to reflect their new names.

Made the changes in the connection page to point to the correct page with the db connection string. I then sent the pages to the server after having saved them on my computer.

Then I typed the page name into the address bar which generated the error that I gave earlier.

This is the error I get when trying to load "cr4_F.asp

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC SQL Server Driver][SQL Server]Invalid column name 'DateScanned'.

/pacinet/BilletScanner/cr4_F.asp, line 11

This it the error I get when I try to load cr3_F.asp

ADODB.Command error '800a0bb9'

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

/pacinet/BilletScanner/cr3_F.asp, line 4

dim_F.asp loads just fine of course there is nothing to see but it does load

I see how to load the zip file now thank you I will do it next time.

 

by: carrzkissPosted on 2009-10-15 at 18:22:29ID: 25586349

OK.
The page loads from:  BilletScanDefects4_F.asp

cr4_F.asp = DateScanned = Is the name that is in the database, so, you need to make sure that it is correct in your database.

cr3_F.asp = Arguments are of the wrong type
Make sure that your connection string is correct.
======================================
rs_BIRBU_cmd.ActiveConnection = MM_LISADATACONNECT_STRING
======================================
----------------
The only other way is for you to send me over the address to the site
And I will take a look at it there, other than that, I have no idea what it is
That you are doing over there, I as well as any one else that attempts to assist
Can only do what they can see in here.

If you want to send me over a link, send it to my email located in my profile

 

by: SamuelClemmonsPosted on 2009-10-15 at 18:48:48ID: 25586446

The website is internal so I can't do that. I will address what you have pointed out. However I found this old version of "BilletScanDefects4.asp" This page loads just fine. There is no table or form in it but maybe you can see something.

The other thing is that the record set "rs_BIRBU" shows up in the "Bindings" panel of dw. On the other pages the record sets do not show up in the "Bindings" panel of dw. I know you said that they don't because of the way you do your code. But I have noted that when they do show up the page has no problem loading up.

I am going to call it a day now. I will pick this up tomorrow. I will be coming in earlier around 08:00 AM PST. I will address your suggestions then. I have to close up now.

Have a good night.

 

by: carrzkissPosted on 2009-10-15 at 19:19:03ID: 25586539

How are you testing your pages?
Are you running them from within' DW or something?
I do not understand what it is that you are doing, I am very confused as to your issue?
If the page will run for me, and run on the Server that I upload to, then it SHOULD run for your as well.
So, you are doing something over there that is causing a conflict with the pages.

Draw me a Family Tree of how you have these pages down.
Starting with this:
(Tell me how your extra pages connect to these pages, and what they do in reference to these pages?)

Carrzkiss


 
LISADATACONNECT.asp   ==>Connection
    dim_F.asp ==> DIM page
        BilletScanDefects4_F.asp  ==>Holding page for Tables and Paging System
          cr3_F.asp  ==> Paging System
               cr4_F.asp ==> Update/Edit page
                                              
1:
2:
3:
4:
5:
6:
7:

Select allOpen in new window

 

by: SamuelClemmonsPosted on 2009-10-16 at 08:33:08ID: 25590488

No I am not running them from within DW.

LISADATACONNECT.asp   ==>Connection:  This page is the connection page that most of my projects connect to. It is in it's own folder. I simply add the connection string to whatever page I am working on and point it to LISADATACONNECT.asp I generally do not have problems with this page. This page is also in a folder called "BilletScanner" that folder is in turn in a root folder called "PACINET".

All of the other pages are in the folder called "BilletScanner".

The page "dim_F.asp" being in the same folder is referenced by the other pages in the manner that you designed them.

"BilletScanDefects4_F.asp" Is the page users see to select a defective unit grade it in the first form and pass it to the second form where it will stay. This page is also in the same folder "BilletScanner"

The page "cr3_F.asp" is also in the folder "BilletScanner" as is "cr4_F.asp".

I don't think I am correctly answering you question. Is this what you wanted to know??

Also in the past pages you developed for me I could not see the record sets in the DW bindings tab and I thought that I had to connect the record set to the site by going through the record set creation process which placed DW code into your code.

Once I had done this the pages began working for me. It was using your paging system and update page. Then I had to make some requested changes to the pages and that is when you saw the DW code from my adding the DW record set which was just duplication of your record sets.

Does this make any sense to you??






 

by: carrzkissPosted on 2009-10-16 at 11:39:44ID: 25592135

My code is not for DW.
If you are putting DW code back into the code that I produced for you
Then you are defending the purpose of the entire"Learning how" thing here.

If you can just forget about worring about DW recognizing the code within the page, and move on, you might be able to get something done here.

The pages, there is nothing wrong with them, they work, there is nothing at all wrong with the way they are designed.

And if you tell me that allowing DW to bind with the pages is the only way that they will work, then you have a problem there.

You keep changing the names of your pages, everytime that I turn around, they are named something else.

As you can tell, they work for me, and I use DW as well, and DW has absolutely nothing at all to do with the ASP/SQL Coding of this site.
So, please stop allow DW to generate RS's for you ok?

Connect to the pages from another computer and see what happens?

 

by: SamuelClemmonsPosted on 2009-10-16 at 12:38:13ID: 25592607

I have done nothing to these pages at all and I will not change them.

I got these same errors when I tried these pages prior to changing the names slightly.

I just thought this info about DW might help you solve the problem.

I just tried it on another computer and I get the very same errors.

 

by: carrzkissPosted on 2009-10-16 at 12:46:48ID: 25592693

When you run it, (From the first page)
BilletScanDefects4_F.asp
What is the error that you are getting right now?

 

by: SamuelClemmonsPosted on 2009-10-16 at 13:45:51ID: 25593175

This is the error and it is the same error I was getting before I changed the name to BilletScanDefects4_F.asp from BilletScanDefects4.asp

Response object error 'ASP 0251 : 80004005'

Response Buffer Limit Exceeded

/pacinet/BilletScanner/BilletScanDefects4_F.asp, line 0

Execution of the ASP page caused the Response Buffer to exceed its configured limit.

 

by: SamuelClemmonsPosted on 2009-10-16 at 13:47:58ID: 25593195

carrzkiss,

I am leaving for the weekend now. I hope you have a good weekend. Talk to you on Monday.

 

by: carrzkissPosted on 2009-10-16 at 17:59:17ID: 25594367

You seem to have some issues over there with your Web Services IIS
http://support.microsoft.com/kb/925764
Read up on it and see what you can do with it.

Carrzkiss

 

by: SamuelClemmonsPosted on 2009-10-17 at 08:51:48ID: 25596205

Carrzkiss,

I was looking at that in another web site but we don't run the site on IIS we use SQL Server 2000 unless I don't understand. When I get in on Monday I will have my boss look at that because I don't have the credentials for that. Thank you for the link to microsoft I am going to look at it now.

 

by: SamuelClemmonsPosted on 2009-10-17 at 08:58:06ID: 25596227

Carrzkiss,

That has got to be the problem. I want to award you the points now but I also want to post the answer as well. If I award the points can I come back later and post the exact answer to this problem? I  want anyone else who has this issue to be able to see the answer.

 

by: carrzkissPosted on 2009-10-17 at 09:40:58ID: 25596404

IIS = Internet Information Services.
This you have to have in order to run websites under Windows OS.
So. Have your tech guys take a look at your error and the article in the
Link that I provided and have them to fix the IIS issue.
Then get back with me once this is completed.

By the way.
SQL Server 2000 - Database
IIS - Internet Information Services = Web Sites

Have a good weekend, taking my son to spend his 16th Birthday Money.
Carrzkiss (His name is the first part of my Username here, and our favorite band is the 2nd part of the name. )

 

by: SamuelClemmonsPosted on 2009-10-17 at 11:17:10ID: 25596809

Carrzkiss,

Thanks for the feedback. I am self taught on many things IT most of what I've learned has been on EE. So my knowledge is full of pot holes. I have installed IIS on many computers and configured them for different websites but there is still much I don't understand.

I was wondering about your username. Have fun with your kid it won't last long. My son is now 28 and I don't see him too much anymore he his a research chemist for pharmaceutical company on the east coast. I myself am pretty much a retard. His intelligence must have come from his mother or the mailman. Anyway I am very happy for him and proud of him.

I will be contacting you via email soon. Really looking forward to you new web site.

 

by: SamuelClemmonsPosted on 2009-10-19 at 12:43:30ID: 25608292

Carrzkiss,

I have been trying some adjustments to the page concerning the buffer response. Here is an error that I am now getting. I am not going to get much help on this issue so how about I award the points and repost a new question on the buffer response issue??

Microsoft VBScript runtime error '800a01c3'

Object not a collection: 'Response.Buffer'

/pacinet/BilletScanner/BilletScanDefects4_F.asp, line 2

Here is the page now. Note line 2 and line 192

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Response.Buffer [=false]%>
<!--#include file="../Connections/LISADATACONNECT.asp" -->
<!--#include file="dim_F.asp" -->
<%' This is the only thing that we need in this page for getting the records from the BillerScanX table
Set BilletScanX_cmd = Server.CreateObject ("ADODB.Command")
BilletScanX_cmd.ActiveConnection = MM_LISADATACONNECT_STRING
BilletScanX_cmd.CommandText = "SELECT TOP 50 BilletID, TagNumber, ScanTo, DateScanned, TagGroup FROM BilletScanX" 
BilletScanX_cmd.Prepared = true
Set rs_BilletScanX = BilletScanX_cmd.Execute
 
Set BilletScanX_DS_cmd = Server.CreateObject("ADODB.Command")
BilletScanX_DS_cmd.ActiveConnection=MM_LISADATACONNECT_STRING
BilletScanX_DS_cmd.Prepared = true
BilletScanX_DS_cmd.commandtext = "SELECT BilletID, TagNumber, ScanTo, DateScanned, TagGroup, TagShift FROM BilletScanX"
Set rs_BilletScanX_DS = BilletScanX_DS_cmd.Execute
 
 
' This gets the values from the form
strTN = trim(Request.Form("TagNumber"))
strON = trim(Request.Form("OperatrName"))
strDS = trim(request.Form("RipDefectTimeDate"))
strRW = trim(Request.Form("RipWidth"))
strD = trim(Request.Form("Delam"))
strMB = trim(Request.Form("M_Blow"))
strUB = trim(Request.Form("U_Blow"))
strRE = trim(Request.Form("RoughEdge"))
strS = trim(Request.Form("Slip"))
strO = trim(Request.Form("Other"))
mmrec = int(Request.Form("MM_recordId"))
' This checks to see if the Form has been passed, if so, then process the form and retrieve it's data
if request.Form("MM_insert")="form1" then 
    Set MM_editCmd = CreateObject ("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_LISADATACONNECT_STRING
    MM_InsertCmd = "insert into RipsawBilletUsage (TagNumber, OperatorName, DateScanned, RipWidth, Delam, M_Blow, U_Blow, RoughEdge, Slip, Other)values(?, ?, ?, ?, ?, ?, ?, ?, ?, ?)"
        'response.Write"strTN - "&strTN&" <br />strON - "&strON&" <br />strRW - "&strRW&" <br />strD - "&strD&" <br />strMB - "&strMB&" <br />strUB - "&strUB&" <br />strRE - "&strRE&" <br />strS - "&strS&" <br />strO - "&strO&" <br />mmrec - "&mmrec&" <br />" 
        'response.End()
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("@TagNumber", 201, 1, 50, strTN) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("@OperatorName", 201, 1, 50, strON) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("@DateScanned", 201, 1, 50, strDS) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("@RipWidth", 201, 1, 50, strRW) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("@Delam", 201, 1, 50, strD) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("@M_Blow", 201, 1, 50, strMB) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("@U_Blow", 201, 1, 50, strUB) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("@RoughEdge", 201, 1, 50, strRE) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("@Slip", 201, 1, 50, strS) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("@Other", 201, 1, 50, strO) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("@RipDefectID", 5, 1, ,mmrec) ' adDouble
    MM_editCmd.CommandText=MM_InsertCmd
    MM_editCmd.Execute
end if
%>
<!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">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Billet Scan Defects</title>
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
	background-color: #FFFFFF;
	background-image: url(images/lightlogo60.gif);
}
.style5 {
	color: #FFFFFF;
	font-weight: bold;
	font-family: Arial, Helvetica, sans-serif;
	font-size: 12px;
}
<%'This is the CSS information for Page: cr3.asp%>
#MainTable{
width:1100px;
border:1px;
background-color:#CCCCCC;
padding:1px; /*cellpadding*/
border-spacing:1px; /*cellspacing*/
}
.tdResults{
text-align:center;
border:1px #999999 dotted;
}
.tdResult{
text-align:left;
border:1px #333333 double;
}
-->
</style>
<script type="text/javascript"> 
if(window.addEventListener){ 
window.addEventListener('load',switchme,false); 
} 
else { 
if(window.attachEvent){ 
window.attachEvent('onload',switchme); 
} 
} 
 
function switchme(){ 
 
df=document.forms[0]; 
 
df[0].onchange=function(){ 
 
switch(this.value) { 
<%
While NOT rs_BilletScanX_DS.EOF
'the df[2] line:35 & 42   this is the form Element Number, For the Fieldname: RipDefectTimeDate   DO NOT CHANGE%>
case '<%=rs_BilletScanX_DS("TagNumber")%>': 
df[2].value='<%=rs_BilletScanX_DS("DateScanned")%>'; 
break; 
 
<%rs_BilletScanX_DS.movenext
wend%>
 
default: 
df[2].value=''; 
break; 
} 
} 
} 
</script> 
</head>
<body>
<form name="form1" method="POST" action="">
 
<table  border="2" cellpadding="2" cellspacing="0" bordercolor="#000000" background="images/lightlogo60.gif" id="BilletDefects">
  <tr bgcolor="#000000">
    <td><span class="style5">Tag Number </span></td>
    <td><span class="style5">Oper. Name</span></td>
	<td><span class="style5">Date Scanned</span></td>
    <td><span class="style5">Rip Width Inch</span></td>
	<td><span class="style5">Rip Width MM</span></td>
    <td><span class="style5">No. of Delams</span></td>
    <td><span class="style5">No.  of M-Blows</span></td>
    <td><span class="style5">No. of U-Blows</span></td>
    <td><span class="style5">  Rough Edges</span></td>
	<td><span class="style5">No. o f Slips</span></td>
    <td><span class="style5">Comments</span></td>
    <td>&nbsp;</td>
  </tr>
  <% 
While ((Repeat1__numRows <> 0) AND (NOT rs_BilletScanX.EOF))
rs_BilletScanX.MoveNext
   Wend
 
%>
  <tr bgcolor="#FFFFFF">
    <td><select name="TagNumber">
<option value="Choose One" selected="selected">Choose One</option>  
<%While NOT rs_BilletScanX.EOF%>
<option value="<%=rs_BilletScanX("TagNumber")%>"><%=rs_BilletScanX("TagNumber")%></option> 
<%rs_BilletScanX.movenext
wend%>
</select> </td>
 
<%
OpName = trim(request.Form("OperatrName"))
%>
<div id="ExtraInfos">Select search option</div> 
 
<td><input type="text" size="10" name="OperatrName" value="<%=Session("OpName")%>"></td>
	<td><input name="RipDefectTimeDate" type="text" size="10"></td>
	<td><input type="text" size="10" name="RipWidth"></td>
	<td><input type="text" size="10" name="RipWidth2"></td>
    <td><input type="text" size="10" name="Delam"></td>
    <td><input type="text" size="10" name="M_Blow"></td>
    <td><input type="text" size="10" name="U_Blow"></td>
    <td><input type="text" size="10" name="RoughEdge"></td>
	<td><input type="text" size="10" name="Slip"></td>
    <td><input type="text" size="10" name="Other"></td>
    <%'I had to move these hidden form elements over here, as they were messing up my Form Count    DO NOT MOVE!!!!!%>
    <td colspan="5" rowspan="2"><span class="style5"></span><span class="style5"></span><span class="style5"></span><span class="style5"></span>
	  <input type="hidden" name="Grade">
	  <input type="hidden" name="Thickness">
	  <input type="hidden" name="Length">
	  <input type="hidden" name="Pieces">	  
	  <input type="hidden" name="shift"></td>
      <%'End of moved 'hidden' form elements  DO NOT MOVE!!!!!!!!!!%>
  </tr>
</table>
  <input type="submit" name="Submit" value="Submit">
  <input type="hidden" name="MM_insert" value="form1">
</form>
<%
Response.Flush
%>
<%'Now we need to get all the records that have been inserted%>
<!--#include file="cr3_F.asp"-->
</body>
</html>
                                              
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:
191:
192:
193:
194:

Select allOpen in new window

 

by: SamuelClemmonsPosted on 2009-10-19 at 12:45:08ID: 25608304

Sorry that should have been line 188 - 190 but I am sure you see that

 

by: SamuelClemmonsPosted on 2009-10-19 at 13:38:50ID: 25608789

This configuration of the page loaded the background image but not the forms.

Note lines: 2 - 4 & 191 - 193

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Response.Buffer=false
%>
 
<!--#include file="../Connections/LISADATACONNECT.asp" -->
<!--#include file="dim_F.asp" -->
<%' This is the only thing that we need in this page for getting the records from the BillerScanX table
Set BilletScanX_cmd = Server.CreateObject ("ADODB.Command")
BilletScanX_cmd.ActiveConnection = MM_LISADATACONNECT_STRING
BilletScanX_cmd.CommandText = "SELECT TOP 50 BilletID, TagNumber, ScanTo, DateScanned, TagGroup FROM BilletScanX" 
BilletScanX_cmd.Prepared = true
Set rs_BilletScanX = BilletScanX_cmd.Execute
 
Set BilletScanX_DS_cmd = Server.CreateObject("ADODB.Command")
BilletScanX_DS_cmd.ActiveConnection=MM_LISADATACONNECT_STRING
BilletScanX_DS_cmd.Prepared = true
BilletScanX_DS_cmd.commandtext = "SELECT BilletID, TagNumber, ScanTo, DateScanned, TagGroup, TagShift FROM BilletScanX"
Set rs_BilletScanX_DS = BilletScanX_DS_cmd.Execute
 
 
' This gets the values from the form
strTN = trim(Request.Form("TagNumber"))
strON = trim(Request.Form("OperatrName"))
strDS = trim(request.Form("RipDefectTimeDate"))
strRW = trim(Request.Form("RipWidth"))
strD = trim(Request.Form("Delam"))
strMB = trim(Request.Form("M_Blow"))
strUB = trim(Request.Form("U_Blow"))
strRE = trim(Request.Form("RoughEdge"))
strS = trim(Request.Form("Slip"))
strO = trim(Request.Form("Other"))
mmrec = int(Request.Form("MM_recordId"))
' This checks to see if the Form has been passed, if so, then process the form and retrieve it's data
if request.Form("MM_insert")="form1" then 
    Set MM_editCmd = CreateObject ("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_LISADATACONNECT_STRING
    MM_InsertCmd = "insert into RipsawBilletUsage (TagNumber, OperatorName, DateScanned, RipWidth, Delam, M_Blow, U_Blow, RoughEdge, Slip, Other)values(?, ?, ?, ?, ?, ?, ?, ?, ?, ?)"
        'response.Write"strTN - "&strTN&" <br />strON - "&strON&" <br />strRW - "&strRW&" <br />strD - "&strD&" <br />strMB - "&strMB&" <br />strUB - "&strUB&" <br />strRE - "&strRE&" <br />strS - "&strS&" <br />strO - "&strO&" <br />mmrec - "&mmrec&" <br />" 
        'response.End()
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("@TagNumber", 201, 1, 50, strTN) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("@OperatorName", 201, 1, 50, strON) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("@DateScanned", 201, 1, 50, strDS) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("@RipWidth", 201, 1, 50, strRW) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("@Delam", 201, 1, 50, strD) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("@M_Blow", 201, 1, 50, strMB) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("@U_Blow", 201, 1, 50, strUB) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("@RoughEdge", 201, 1, 50, strRE) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("@Slip", 201, 1, 50, strS) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("@Other", 201, 1, 50, strO) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("@RipDefectID", 5, 1, ,mmrec) ' adDouble
    MM_editCmd.CommandText=MM_InsertCmd
    MM_editCmd.Execute
end if
%>
<!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">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Billet Scan Defects</title>
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
	background-color: #FFFFFF;
	background-image: url(images/lightlogo60.gif);
}
.style5 {
	color: #FFFFFF;
	font-weight: bold;
	font-family: Arial, Helvetica, sans-serif;
	font-size: 12px;
}
<%'This is the CSS information for Page: cr3.asp%>
#MainTable{
width:1100px;
border:1px;
background-color:#CCCCCC;
padding:1px; /*cellpadding*/
border-spacing:1px; /*cellspacing*/
}
.tdResults{
text-align:center;
border:1px #999999 dotted;
}
.tdResult{
text-align:left;
border:1px #333333 double;
}
-->
</style>
<script type="text/javascript"> 
if(window.addEventListener){ 
window.addEventListener('load',switchme,false); 
} 
else { 
if(window.attachEvent){ 
window.attachEvent('onload',switchme); 
} 
} 
 
function switchme(){ 
 
df=document.forms[0]; 
 
df[0].onchange=function(){ 
 
switch(this.value) { 
<%
While NOT rs_BilletScanX_DS.EOF
'the df[2] line:35 & 42   this is the form Element Number, For the Fieldname: RipDefectTimeDate   DO NOT CHANGE%>
case '<%=rs_BilletScanX_DS("TagNumber")%>': 
df[2].value='<%=rs_BilletScanX_DS("DateScanned")%>'; 
break; 
 
<%rs_BilletScanX_DS.movenext
wend%>
 
default: 
df[2].value=''; 
break; 
} 
} 
} 
</script> 
</head>
<body>
<form name="form1" method="POST" action="">
 
<table  border="2" cellpadding="2" cellspacing="0" bordercolor="#000000" background="images/lightlogo60.gif" id="BilletDefects">
  <tr bgcolor="#000000">
    <td><span class="style5">Tag Number </span></td>
    <td><span class="style5">Oper. Name</span></td>
	<td><span class="style5">Date Scanned</span></td>
    <td><span class="style5">Rip Width Inch</span></td>
	<td><span class="style5">Rip Width MM</span></td>
    <td><span class="style5">No. of Delams</span></td>
    <td><span class="style5">No.  of M-Blows</span></td>
    <td><span class="style5">No. of U-Blows</span></td>
    <td><span class="style5">  Rough Edges</span></td>
	<td><span class="style5">No. o f Slips</span></td>
    <td><span class="style5">Comments</span></td>
    <td>&nbsp;</td>
  </tr>
  <% 
While ((Repeat1__numRows <> 0) AND (NOT rs_BilletScanX.EOF))
rs_BilletScanX.MoveNext
   Wend
 
%>
  <tr bgcolor="#FFFFFF">
    <td><select name="TagNumber">
<option value="Choose One" selected="selected">Choose One</option>  
<%While NOT rs_BilletScanX.EOF%>
<option value="<%=rs_BilletScanX("TagNumber")%>"><%=rs_BilletScanX("TagNumber")%></option> 
<%rs_BilletScanX.movenext
wend%>
</select> </td>
 
<%
OpName = trim(request.Form("OperatrName"))
%>
<div id="ExtraInfos">Select search option</div> 
 
<td><input type="text" size="10" name="OperatrName" value="<%=Session("OpName")%>"></td>
	<td><input name="RipDefectTimeDate" type="text" size="10"></td>
	<td><input type="text" size="10" name="RipWidth"></td>
	<td><input type="text" size="10" name="RipWidth2"></td>
    <td><input type="text" size="10" name="Delam"></td>
    <td><input type="text" size="10" name="M_Blow"></td>
    <td><input type="text" size="10" name="U_Blow"></td>
    <td><input type="text" size="10" name="RoughEdge"></td>
	<td><input type="text" size="10" name="Slip"></td>
    <td><input type="text" size="10" name="Other"></td>
    <%'I had to move these hidden form elements over here, as they were messing up my Form Count    DO NOT MOVE!!!!!%>
    <td colspan="5" rowspan="2"><span class="style5"></span><span class="style5"></span><span class="style5"></span><span class="style5"></span>
	  <input type="hidden" name="Grade">
	  <input type="hidden" name="Thickness">
	  <input type="hidden" name="Length">
	  <input type="hidden" name="Pieces">	  
	  <input type="hidden" name="shift"></td>
      <%'End of moved 'hidden' form elements  DO NOT MOVE!!!!!!!!!!%>
  </tr>
</table>
  <input type="submit" name="Submit" value="Submit">
  <input type="hidden" name="MM_insert" value="form1">
</form>
<%
Response.Clear
%>
 
<%'Now we need to get all the records that have been inserted%>
<!--#include file="cr3_F.asp"-->
</body>
</html>
                                              
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:
191:
192:
193:
194:
195:
196:
197:
198:

Select allOpen in new window

 

by: SamuelClemmonsPosted on 2009-10-19 at 14:08:58ID: 25609077

I found this on the link you gave me and I want to try it except that I don't know how to undo it. I tried dividing 64 into 67108864 and I get 1048576. This number doesnt make sense to me. I don't know how to undo this and don't want to try it until I know how to return it to its orignial setting. Here are the instructions:

To increase the buffering limit, follow these steps:
1.      Click Start, click Run, type cmd, and then click OK.
2.      Type the following command, and then press ENTER:
cd /d %systemdrive%\inetpub\adminscripts
3.      Type the following command, and then press ENTER:
cscript.exe adsutil.vbs SET w3svc/aspbufferinglimit LimitSize
Note LimitSize represents the buffering limit size in bytes. For example, the number 67108864 sets the buffering limit size to 64 MB.
To confirm that the buffer limit is set correctly, follow these steps:
1.      Click Start, click Run, type cmd, and then click OK.
2.      Type the following command, and then press ENTER:
cd /d %systemdrive%\inetpub\adminscripts
3.      Type the following command, and then press ENTER:
cscript.exe adsutil.vbs GET w3svc/aspbufferinglimit

How would you undo this???

 

by: carrzkissPosted on 2009-10-19 at 16:48:35ID: 25609934

I honestly do not have a clue here on this one Sam.
I am not running IIS6 and there for cannot collaborate on this issue with you.
I strongly suggest that you leave this open
And then open another Question here: EE / IIS
I would do a subject of:
IIS6 - Response Buffer Limit Exceeded

And then explain your situation, add a link to here
http://www.experts-exchange.com/Q_24816556.html
And tell the people that attend to come in and look over this issue
And hopefully someone will be able to assist you in getting this resolved.

-----
The only thing that I know is that I can run your code under our Server that we host our sites on and do not have an issue with it, and it is runnin Win2k3 / IIS6
So. I am at a complete loss at to why you are experiancing this issue.

Good Luck Same.
Carrzkiss

 

by: carrzkissPosted on 2009-10-19 at 16:49:47ID: 25609942

Sam, You are running IIS6? Or what version?
Which ever version that you are running is the version that you want to put in your Subject linke.
IIS? - Response Buffer Limit Exceeded
(Replace the ? with the version you have)

 

by: SamuelClemmonsPosted on 2009-10-19 at 17:50:26ID: 25610192

carrzkiss,

Thanks for you input and help. I will do as you suggest.

 

by: SamuelClemmonsPosted on 2009-10-22 at 10:04:56ID: 31641894

Thanks again,

Sam

20120131-EE-VQP-002

3 Ways to Join

30-Day Free Trial

The Experts

98% positive feedback on 31,087 answers since March 2000. angeliii is a Microsoft Most Valuable Professional for his work with MS SQL Server & Develoment.

He has also proven his knowledge of Visual Basic Programming, PHP Scripting and Oracle Databases.

The Experts

97% positive feedback on 10,752 answers since July 2000. lrmoore has more than 18 years experience in the networking industry.

The six-time Mircosoft MVPs specialties include firewalls, virtual private networking, and network management.

Testimonials

"...and excellent source for support... Kind of like having your very own IT dept." Electriciansnet

Testimonials

"I was apprehensive at signing up at first. However... it has already made my life as an IT administrator much easier." JaCrews

Testimonials

"WOW! You guys have great, active, and knowledgeable people on here." moore50

Business Clients

Business Clients

In the Press

"If you’ve got a question... Experts Exchange can supply an answer.”

In the Press

"...an invaluable aid for both IT professionals and those who require tech support."

In the Press

"where IT professionals provide quick answers on just about any topic"

Business Account Plans

Loading Advertisement...