Solved

Submit button not functioning (ASP VBScript)

Posted on 2004-08-09
6
273 Views
Last Modified: 2010-04-25
I have an asp page that was functioning until recently. Now, when i click on the submit button nothing happens. It should execute a number of commands and then redirect the user.

Any ideas? I have a feeling it could just be a missing tag somewhere, but have searched pretty thoroughly.

Anyways, code is below:

********************************************
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/ProbioStockSys.asp" -->
<%
if(Request("Submit") <> "") then
Response.Redirect("finishedprod.asp")
varRecordIDs = Replace(Request("Transfer"), ",", "")
varRecArray = Split(varRecordIDs, " ")
For i = 0 to Ubound(varRecArray)
      %>
      <%' These variables are used to generate the SQL query strings to perform database operations
      if(Request("BatchNo") <> "") then commVariable__varBatchNo = Request("BatchNo")
      if(Request("StockID" & varRecArray(i)) <> "") then commVariable__varStockID = Request("StockID" & varRecArray(i))
      if(Request("CofA" & varRecArray(i)) <> "") then commVariable__varCofA = Request("CofA" & varRecArray(i))
      if(Request("Status" & varRecArray(i)) <> "") then commVariable__varStatus = Request("Status" & varRecArray(i))
      if(Request("Desc" & varRecArray(i)) <> "") then commVariable__varDesc = Request("Desc" & varRecArray(i))
      if(Request("DateIn" & varRecArray(i)) <> "") then commVariable__varDateIn = Request("DateIn" & varRecArray(i))
      if(Request("TranAmount" & varRecArray(i))  <> "") then commVariable__varTranAmount = Request("TranAmount" & varRecArray(i))
      if(Request("BagWeight" & varRecArray(i)) <> "") then commVariable__varBagWeight = Request("BagWeight" & varRecArray(i))
      if(Request("Amount" & varRecArray(i))  <> "") then commVariable__varAmount = Request("Amount" & varRecArray(i))
      if(Request("AmountIn")  <> "") then commVariable__varAmountIn = Request("AmountIn")
      if(Request("Yield")  <> "") then commVariable__varYield = Request("Yield")
      if(Request("ProductName" & varRecArray(i)) <> "") then commVariable__varProductName = Request("ProductName" & varRecArray(i))
      if(Request("Supplier" & varRecArray(i)) <> "") then commVariable__varSupplier = Request("Supplier" & varRecArray(i))
      if(Request("Paperwork" & varRecArray(i)) <> "") then commVariable__varPaperwork = Request("Paperwork" & varRecArray(i))
      if(Request("IncomingSheetNo" & varRecArray(i)) <> "") then commVariable__varIncomingSheetNo = Request("IncomingSheetNo" & varRecArray(i))
      if(Request("Location" & varRecArray(i)) <> "") then commVariable__varLocation = Request("Location" & varRecArray(i))
      %>
      <%
      Dim MatchMovedStockID__currStockID
      MatchMovedStockID__currStockID = "0"
      If (Request("StockID" & varRecArray(i)) <> "") Then
            MatchMovedStockID__currStockID = Request("StockID" & varRecArray(i))
      End If
      %>
      <%
      Dim MatchMovedStockID
      Dim MatchMovedStockID_numRows
      
      Set MatchMovedStockID = Server.CreateObject("ADODB.Recordset")
      MatchMovedStockID.ActiveConnection = MM_ProbioStockSys_STRING
      MatchMovedStockID.Source = "SELECT COUNT(StockID)  FROM PROCESSEDSTOCK  WHERE StockID = " + Replace(MatchMovedStockID__currStockID, "'", "''") + " AND BatchNo = '" + commVariable__varBatchNo + "' "
      MatchMovedStockID.CursorType = 0
      MatchMovedStockID.CursorLocation = 2
      MatchMovedStockID.LockType = 1
      MatchMovedStockID.Open()
      
      MatchMovedStockID_numRows = 0
      %>
      <%
      '********** IF STOCKID HAS NOT YET BEEN MOVED TO PROCESSED STOCK, THEN **************************
      If MatchMovedStockID.Fields.Item("Expr1000").Value = 0 Then
      %>
                  <%' This Command Inserts the entire record from the STOCK table into the PROCESSEDSTOCK table, as it has been processed
                  set commInsertProcessedStock = Server.CreateObject("ADODB.Command")
                  commInsertProcessedStock.ActiveConnection = MM_ProbioStockSys_STRING
                  commInsertProcessedStock.CommandText = "INSERT INTO PROCESSEDSTOCK (StockID,BatchNo,CofA,Status,Description,DateIn,Amount,ProductName,Supplier,Paperwork,IncomingSheetNo,Location)  VALUES (" + Replace(commVariable__varStockID, "'", "''") + ", '" + Replace(commVariable__varBatchNo, "'", "''") + "', " + Replace(commVariable__varCofA, "'", "''") + ",'" + Replace(commVariable__varStatus, "'", "''") + "', '" + Replace(commVariable__varDesc, "'", "''") + "', '" + Replace(commVariable__varDateIn, "'", "''") + "'," + Replace(commVariable__varTranAmount, "'", "''") + ", '" + Replace(commVariable__varProductName, "'", "''") + "', '" + Replace(commVariable__varSupplier, "'", "''") + "', '" + Replace(commVariable__varPaperwork, "'", "''") + "'," + Replace(commVariable__varIncomingSheetNo, "'", "''") + ", '" + Replace(commVariable__varLocation, "'", "''") + "') "
                  commInsertProcessedStock.CommandType = 1
                  commInsertProcessedStock.CommandTimeout = 0
                  commInsertProcessedStock.Prepared = true
                  commInsertProcessedStock.Execute
                  %>
      <%
      Else
      '********** IF STOCKID IN PROCESSEDSTOCK THEN **************************************************************
      %>
                  <%
                  'UPDATE PROCESSEDSTOCK AND FINPRODSTOCK
                  %>
                  <%
                  'find current amount
                  %>
                  <%
                  Dim GetCurrentAmount
                  Dim GetCurrentAmount_numRows
                  
                  Set GetCurrentAmount = Server.CreateObject("ADODB.Recordset")
                  GetCurrentAmount.ActiveConnection = MM_ProbioStockSys_STRING
                  GetCurrentAmount.Source = "SELECT Amount FROM PROCESSEDSTOCK  WHERE StockID = " + Replace(MatchMovedStockID__currStockID, "'", "''")+ " "
                  GetCurrentAmount.CursorType = 0
                  GetCurrentAmount.CursorLocation = 2
                  GetCurrentAmount.LockType = 1
                  GetCurrentAmount.Open()
                  
                  GetCurrentAmount_numRows = 0
                  
                  currStockAmount = GetCurrentAmount.Fields.Item("Amount").Value
                  %>
                  <%
                  
                  'Update PROCESSEDSTOCK amount
                  
                  set commUpdateProcessedStock = Server.CreateObject("ADODB.Command")
                  commUpdateProcessedStock.ActiveConnection = MM_ProbioStockSys_STRING
                  commUpdateProcessedStock.CommandText = "UPDATE PROCESSEDSTOCK SET Amount = " + Replace((currStockAmount + commVariable__varTranAmount), "'", "''") +  " WHERE StockID = " + Replace(commVariable__varStockID, "'", "''") + " AND BatchNo = '" + Replace(commVariable__varBatchNo, "'", "''") + "' "
                  commUpdateProcessedStock.CommandType = 1
                  commUpdateProcessedStock.CommandTimeout = 0
                  commUpdateProcessedStock.Prepared = true
                  commUpdateProcessedStock.Execute()
                  %>
      <%
      End If
      %>
      <%
      '********** ALSO DO
      %>
      <%' This Command Updates the STOCK table to correct the amount of stock still left to be processed
      set commUpdateStock = Server.CreateObject("ADODB.Command")
      commUpdateStock.ActiveConnection = MM_ProbioStockSys_STRING
      commUpdateStock.CommandText = "UPDATE STOCK  SET Amount = " + Replace((commVariable__varAmount - commVariable__varTranAmount), "'", "''") + " WHERE StockID = " + Replace(commVariable__varStockID, "'", "''") + " "
      commUpdateStock.CommandType = 1
      commUpdateStock.CommandTimeout = 0
      commUpdateStock.Prepared = true
      commUpdateStock.Execute()
      %>
      <% 'If Amount (above) is equal to zero, then remove record from STOCK
      ' TO DO !!!!!!!!!!!!!!!
      %>
      <%
Next
%>
<% 'Calculate and set FINISHEDPROD (Batch) amount*******************************
' = currentValue + newYield
Dim CurrentBatchAmount
Dim CurrentBatchAmount_numRows

Set CurrentBatchAmount = Server.CreateObject("ADODB.Recordset")
CurrentBatchAmount.ActiveConnection = MM_ProbioStockSys_STRING
CurrentBatchAmount.Source = "SELECT Amount, AmountIn, Yield FROM FINISHEDPROD  WHERE BatchNo = '" + Replace(commVariable__varBatchNo, "'", "''") + "' "
CurrentBatchAmount.CursorType = 0
CurrentBatchAmount.CursorLocation = 2
CurrentBatchAmount.LockType = 1
CurrentBatchAmount.Open()

CurrentBatchAmount_numRows = 0
%>
<%
varOldBatchAmount = CurrentBatchAmount.Fields.Item("Amount").Value
varOldBatchAmountIn = CurrentBatchAmount.Fields.Item("AmountIn").Value
varOldYield = CurrentBatchAmount.Fields.Item("Yield").Value
varNewBatchAmount = varOldBatchAmount + commVariable__varYield
varNewBatchAmountIn = varOldBatchAmountIn + commVariable__varAmountIn
varNewYield = varOldYield + commVariable__varYield
%>
%>
<%' This Command Updates the FINISHEDPROD table to set the amount of the batch
set commUpdateStock = Server.CreateObject("ADODB.Command")
commUpdateStock.ActiveConnection = MM_ProbioStockSys_STRING
commUpdateStock.CommandText = "UPDATE FINISHEDPROD  SET Amount = " + Replace((varNewBatchAmount), "'", "''") + ", AmountIn = " + Replace((varNewBatchAmountIn), "'", "''") + ", Yield = " + Replace((varNewYield), "'", "''") + " WHERE BatchNo = '" + Replace(commVariable__varBatchNo, "'", "''") + "' "
commUpdateStock.CommandType = 1
commUpdateStock.CommandTimeout = 0
commUpdateStock.Prepared = true
commUpdateStock.Execute()
%>
<%
Response.Redirect("finishedprod.asp")
End If
%>
<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers=""
MM_authFailedURL="loginfail.asp"
MM_grantAccess=false
If Session("MM_Username") <> "" Then
  If (true Or CStr(Session("MM_UserAuthorization"))="") Or _
         (InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then
    MM_grantAccess = true
  End If
End If
If Not MM_grantAccess Then
  MM_qsChar = "?"
  If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&"
  MM_referrer = Request.ServerVariables("URL")
  if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString()
  MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer)
  Response.Redirect(MM_authFailedURL)
End If
%>

<%
Dim AllStock
Dim AllStock_numRows

Set AllStock = Server.CreateObject("ADODB.Recordset")
AllStock.ActiveConnection = MM_ProbioStockSys_STRING
AllStock.Source = "SELECT *  FROM STOCK  WHERE Amount > 0  ORDER BY StockID ASC"
AllStock.CursorType = 0
AllStock.CursorLocation = 2
AllStock.LockType = 1
AllStock.Open()

AllStock_numRows = 0
%>
<%
Dim AllBatchNos
Dim AllBatchNos_numRows

Set AllBatchNos = Server.CreateObject("ADODB.Recordset")
AllBatchNos.ActiveConnection = MM_ProbioStockSys_STRING
AllBatchNos.Source = "SELECT BatchNo FROM FINISHEDPROD ORDER BY BatchNo ASC"
AllBatchNos.CursorType = 0
AllBatchNos.CursorLocation = 2
AllBatchNos.LockType = 1
AllBatchNos.Open()

AllBatchNos_numRows = 0
%>
<%
Dim StockCount
Dim StockCount_numRows

Set StockCount = Server.CreateObject("ADODB.Recordset")
StockCount.ActiveConnection = MM_ProbioStockSys_STRING
StockCount.Source = "SELECT COUNT(StockID)  FROM STOCK"
StockCount.CursorType = 0
StockCount.CursorLocation = 2
StockCount.LockType = 1
StockCount.Open()

StockCount_numRows = 0
%>
<%
Dim CurentStockBatchNo__MMColParam
CurentStockBatchNo__MMColParam = "1"
If (Request.Form("BatchNo") <> "") Then
  CurentStockBatchNo__MMColParam = Request.Form("BatchNo")
End If
%>

<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
AllStock_numRows = AllStock_numRows + Repeat1__numRows
%>
<html>
      <head>
            <title>Probiotec (Australia) Stock Management System</title>
            <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
            <link href="Probio.css" rel="stylesheet" type="text/css">
      </head>
      <body>
            <table width="950" border="0">
                  <tr>
                        <td height="128">
                              <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="950" height="150">
                              <param name="movie" value="Images/Banner.swf">
                              <param name="quality" value="high">
                              <embed src="Images/Banner.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="950" height="150"></embed></object>
                        </td>
                    </tr>
                    <tr>
                        <td width="781" height="52">
                              <table width="950" border="0" cellpadding="2" cellspacing="2">
                                    <tr bgcolor="#009933">
                                          <td> <div align="center"><font face="Arial, Helvetica, sans-serif"><a href="home.asp">HOME</a></font></div></td>
                                          <td> <div align="center"><font face="Arial, Helvetica, sans-serif"><a href="stock.asp">STOCK</a></font></div></td>
                                          <td> <div align="center"><font face="Arial, Helvetica, sans-serif"><a href="stockFinished.asp">ALLOCATE STOCK</a> </font></div></td>
                                    </tr>
                                    <tr bgcolor="#009933">
                                          <td width="24%"> <div align="center"><font face="Arial, Helvetica, sans-serif"><a href="finishedprod.asp">BATCHES</a></font></div></td>
                                          <td width="24%"> <div align="center"><font face="Arial, Helvetica, sans-serif"><a href="customers.asp">CUSTOMERS</a></font></div></td>
                                          <td width="21%"> <div align="center"><font face="Arial, Helvetica, sans-serif"><a href="reports.asp">REPORTS</a></font></div></td>
                                    </tr>
                              </table>
                        </td>
                  </tr>
                  <tr>
                        <td>
                              <table width="100%" border="0" cellpadding="10">
                                    <tr>
                                          <td width="75%">
                                                <p><strong><font face="Arial, Helvetica, sans-serif">ALLOCATE STOCK</font></strong></p>
                                                <p><font face="Arial, Helvetica, sans-serif">To transfer stock to
                                                  the &quot;Finished Product&quot; area, click on the checkbox corresponding
                                                  to the relevant stock details and then click on the &quot;Transfer
                                                  Selected Stock&quot; button.</font></p>
                                                <form name="frmProcessedStock">
                                                        <p>&nbsp;</p>
                                                        <table width="100%" border="0" cellspacing="1" cellpadding="1">
                                                            <tr>
                                                                    <td width="75%">
                                                                        <table width="100%" border="0" cellspacing="2" cellpadding="2">
                                                                                <tr bgcolor="#0099CC">
                                                                                    <td width="18%"><strong><font color="#FFFFFF" size="2" face="Arial, Helvetica, sans-serif">Stock ID:</font></strong></td>
                                                                                    <td width="26%"><strong><font color="#FFFFFF" size="2" face="Arial, Helvetica, sans-serif">Description:</font></strong></td>
                                                                                    <td width="21%"><strong><font color="#FFFFFF" size="2" face="Arial, Helvetica, sans-serif">Amount (kg):</font></strong></td>
                                                                                    <td width="18%"><strong><font color="#FFFFFF" size="2" face="Arial, Helvetica, sans-serif">Amount to Allocate(kg):</font></strong></td>
                                                                                    <td width="17%"><strong><font color="#FFFFFF" size="2" face="Arial, Helvetica, sans-serif">Transfer?</font></strong></td>
                                                                              </tr>
                                                                                <%                          
                                                                              While ((Repeat1__numRows <> 0) AND (NOT AllStock.EOF))
                                                                              
                                                                              varStockID =(AllStock.Fields.Item("StockID").Value) ' Store the current RecordID in a variable
                                                                              %>
                                                                              <tr>
                                                                                    <td height="26"><font size="2" face="Arial, Helvetica, sans-serif">
                                                                                          <input name="StockID<%= varStockID %>" type="text" id="StockID<%= varStockID %>" value="<%=(AllStock.Fields.Item("StockID").Value)%>" size="12" readonly="true">
                                                                                    </font></td>
                                                                                    <td><font size="2" face="Arial, Helvetica, sans-serif">
                                                                                          <input name="Desc<%= varStockID %>" type="text" id="Desc<%= varStockID %>" value="<%=(AllStock.Fields.Item("Description").Value)%>" size="20" readonly="true">
                                                                                    </font></td>
                                                                                    <td><font size="2" face="Arial, Helvetica, sans-serif">
                                                                                          <input name="Amount<%= varStockID %>" type="text" id="Amount<%= varStockID %>3" value="<%=(AllStock.Fields.Item("Amount").Value) %> " size="12" readonly="true">
                                                                                    </font></td>
                                                                                    <td><font size="2" face="Arial, Helvetica, sans-serif">
                                                                                          <input name="TranAmount<%= varStockID %>" type="text" id="TranAmount<%= varStockID %>" value="0" size="12">
                                                                                    </font></td>
                                                                                    <td><div align="center"><font size="2" face="Arial, Helvetica, sans-serif">
                                                                                          <input name="Transfer" type="checkbox" id="Transfer" value="<%= varStockID %>">
                                                                                    </font></div></td>
                                                                              </tr>
                                                                              <tr style="visibility:hidden">
                                                                                    <td><font size="2" face="Arial, Helvetica, sans-serif">
                                                                                          <input name="CofA<%= varStockID %>" type="hidden" id="CofA<%= varStockID %>2" value="<%=(AllStock.Fields.Item("CofA").Value)%>">
                                                                                          <input name="DateIn<%= varStockID %>" type="hidden" id="DateIn<%= varStockID %>2" value="<%=(AllStock.Fields.Item("DateIn").Value)%>">
                                                                                    </font></td>
                                                                                    <td><font size="2" face="Arial, Helvetica, sans-serif">
                                                                                          <input name="Status<%= varStockID %>" type="hidden" id="Status<%= varStockID %>2" value="<%=(AllStock.Fields.Item("Status").Value)%>" size="6">
                                                                                    </font></td>
                                                                                    <td><font size="2" face="Arial, Helvetica, sans-serif">
                                                                                          <input name="Supplier<%= varStockID %>" type="hidden" id="Supplier<%= varStockID %>3" value="<%=(AllStock.Fields.Item("Supplier").Value)%>" size="6">
                                                                                    </font></td>
                                                                                    <td><font size="2" face="Arial, Helvetica, sans-serif">
                                                                                          <input name="ProductName<%= varStockID %>" type="hidden" id="ProductName<%= varStockID %>2" value="<%=(AllStock.Fields.Item("ProductName").Value)%>" size="6">
                                                                                    </font></td>
                                                                                    <td><font size="2" face="Arial, Helvetica, sans-serif">
                                                                                          <input name="Paperwork<%= varStockID %>" type="hidden" id="Paperwork<%= varStockID %>2" value="<%=(AllStock.Fields.Item("Paperwork").Value)%>" size="6">
                                                                                          <input name="IncomingSheetNo<%= varStockID %>" type="hidden" id="IncomingSheetNo<%= varStockID %>2" value="<%=(AllStock.Fields.Item("IncomingSheetNo").Value)%>" size="6">
                                                                                          <input name="Location<%= varStockID %>" type="hidden" id="Location<%= varStockID %>3" value="<%=(AllStock.Fields.Item("Location").Value)%>" size="6">
                                                                                    </font></td>
                                                                              </tr>
                                                                              <%
                                                                              Repeat1__index=Repeat1__index+1
                                                                              Repeat1__numRows=Repeat1__numRows-1
                                                                              AllStock.MoveNext()
                                                                              Wend
                                                                              %>
                                                                        </table>
                                                                  </td>
                                                                    <td width="25%">
                                                                        <table width="100%" border="0" cellspacing="0" cellpadding="0">
                                                                                <tr>
                                                                                    <td width="53%"><div align="center"></div></td>
                                                                                    <td width="47%"><div align="center"> </div></td>
                                                                              </tr>
                                                                              <tr>
                                                                                    <td colspan="2"><div align="center"><font size="2" face="Arial, Helvetica, sans-serif"><strong>
                                                                                          Yield (or expected yield) of this allocation:</strong></font></div>
                                                                                      </td>
                                                                                </tr>
                                                                                <tr>
                                                                                    <td><div align="center"><font size="2" face="Arial, Helvetica, sans-serif">
                                                                                    <input name="Yield" type="text" class="mandatory" id="Yield" value="0" size="8">
                                                                                    </font></div></td>
                                                                                    <td>&nbsp;</td>
                                                                                </tr>
                                                                                <tr>
                                                                                    <td><div align="center"><strong><font size="2" face="Arial, Helvetica, sans-serif">
                                                                                          Total Amount In (kg):</font></strong></div>
                                                                                    </td>
                                                                                    <td><div align="center"><strong><font size="2" face="Arial, Helvetica, sans-serif">
                                                                                          Batch No:</font></strong></div>
                                                                                    </td>
                                                                                </tr>
                                                                                <tr>
                                                                                    <td><div align="center"> <font size="2" face="Arial, Helvetica, sans-serif">
                                                                                          <input name="AmountIn" type="text" class="mandatory" id="AmountIn" value="0" size="8">
                                                                                    </font></div></td>
                                                                                    <td><div align="center"> <font size="2" face="Arial, Helvetica, sans-serif">
                                                                                          <select name="BatchNo" class="mandatory" id="select2">
                                                                                            <%
                                                                                          While (NOT AllBatchNos.EOF)
                                                                                          %>
                                                                                                <option value="<%=(AllBatchNos.Fields.Item("BatchNo").Value)%>" <%If (Not isNull("0")) Then If (CStr(AllBatchNos.Fields.Item("BatchNo").Value) = CStr("0")) Then Response.Write("SELECTED") : Response.Write("")%> ><%=(AllBatchNos.Fields.Item("BatchNo").Value)%></option>
                                                                                                <%
                                                                                                AllBatchNos.MoveNext()
                                                                                                Wend
                                                                                                If (AllBatchNos.CursorType > 0) Then
                                                                                                        AllBatchNos.MoveFirst
                                                                                                Else
                                                                                                      AllBatchNos.Requery
                                                                                                End If
                                                                                                %>
                                                                                          </select>
                                                                                    </font></div></td>
                                                                                </tr>
                                                                        </table>
                                                                  </td>
                                                            </tr>
                                                      </table>
                                                      
              <p>
                <input name="hiddenField" type="text" value="<%=Request(Transfer)%>">
              </p>
                                                      <p>
                                                      <input type="submit" name="Submit" value="Transfer Selected Stock">
                                                      </p>
                                                </form><p>&nbsp;</p></td>
                                                  <td width="25%" bgcolor="#009933">
                                                <p align="center"><a href="addStock.asp">Create Stock record(s)</a></p>
                                                <p align="center"><img src="Images/ArrowTrans.gif" width="33" height="34"></p>
                                                <p align="center"><a href="addBatchNo.asp">Create Batch Number</a></p>
                                                <p align="center"><img src="Images/ArrowTrans.gif" width="33" height="34"></p>
                                                <p align="center"><a href="stockFinished.asp">Allocate Raw Stock to a Batch</a></p>
                                                <p align="center"><img src="Images/ArrowTrans.gif" width="33" height="34"></p>
                                                <p align="center"><a href="confirmBatchPrompt.asp">Confirm/Cancel Batch Details</a></p>
                                                <p align="center"><img src="Images/ArrowTrans.gif" width="33" height="34"></p>
                                                <p align="center"><a href="despatch.asp">Despatch</a></p>
                                                </td>
                                          </tr>
                                    </table>
                              </td>
                        </tr>
                        <tr>
                              <td><p><font face="Arial, Helvetica, sans-serif">This system built and maintained
                                    by <a href="mailto:dusty@probiotec.com.au">Dustin</a>. For all queries,
                                    questions or suggestions please contact me by email.</font></p>                                    
                              </td>
                        </tr>
            </table>
      </body>
</html>
<%
AllStock.Close()
Set AllStock = Nothing
%>
<%
AllBatchNos.Close()
Set AllBatchNos = Nothing
%>
<%
StockCount.Close()
Set StockCount = Nothing
%>
0
Comment
Question by:dflek
  • 3
6 Comments
 
LVL 33

Expert Comment

by:hongjun
Comment Utility
check out this

if(Request("Submit") <> "") then
Response.Redirect("finishedprod.asp")


Perhaps you may wish to remove the
    Response.Redirect("finishedprod.asp")



hongjun
0
 

Author Comment

by:dflek
Comment Utility
Actually, i have already removed that. Sorry! just put it in there to see if the transmit code was being fired at all. I can't get it to even raise an error.

For anyone else reading this -- please DISREGARD the redirect at the top of the page as well as the hidden field containing the value <%=Request(Transfer)%> near the end of the page.

Again, sorry about that.
0
 

Author Comment

by:dflek
Comment Utility
I have found the core of the problem, but unfortunately not the solution. If there are more than 9 records on the screen, the commands won't execute. If there are nine or less records it works fine. Must be the way i'm splitting the values into the array or the way I use the stockID value as the field identifier.

Please help!!
0
 

Author Comment

by:dflek
Comment Utility
Sorted. Didn't have POST set on form, so IE was limiting the length of the query string.

Please close this question.
0
 
LVL 1

Accepted Solution

by:
Computer101 earned 0 total points
Comment Utility
PAQed, with points refunded (250)

Computer101
E-E Admin
0

Featured Post

How your wiki can always stay up-to-date

Quip doubles as a “living” wiki and a project management tool that evolves with your organization. As you finish projects in Quip, the work remains, easily accessible to all team members, new and old.
- Increase transparency
- Onboard new hires faster
- Access from mobile/offline

Join & Write a Comment

For those who don't know, Adobe Dreamweaver is a popular commercial web editor that enables you to design, build and manage complex websites. The editor is a WYSIWYG (What You See Is What You Get) web editor, which means that you can create your web…
Adobe Dreamweaver CS5 is a WYSIWYG web page editor that has advanced HTML, CSS, and Javascript rendering functionality and is probably the most well-known HTML editor available. Much of Dreamweaver's appeal centers around the Design View interfac…
Access reports are powerful and flexible. Learn how to create a query and then a grouped report using the wizard. Modify the report design after the wizard is done to make it look better. There will be another video to explain how to put the final p…
Polish reports in Access so they look terrific. Take yourself to another level. Equations, Back Color, Alternate Back Color. Write easy VBA Code. Tighten space to use less pages. Launch report from a menu, considering criteria only when it is filled…

728 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

10 Experts available now in Live!

Get 1:1 Help Now