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> </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&"&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 & "&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 & "&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 & "&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 & "&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 & "&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:
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