[2 days left] What’s wrong with your cloud strategy? Learn why multicloud solutions matter with Nimble Storage.Register Now

x
?
Solved

Submit button not functioning (ASP VBScript)

Posted on 2004-08-09
6
Medium Priority
?
281 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
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 3
6 Comments
 
LVL 33

Expert Comment

by:hongjun
ID: 11758957
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
ID: 11759020
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
ID: 11771738
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
ID: 11862335
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
ID: 12268018
PAQed, with points refunded (250)

Computer101
E-E Admin
0

Featured Post

What’s Wrong with Your Cloud Strategy ?

Even as many CIOs are embracing a cloud-first strategy, the reality is that moving to the cloud is a lengthy process and the end-state is likely to be a blend of multiple clouds—public and private. Learn why multicloud solutions matter in this webinar by Nimble Storage.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

I still run into .cgi files every now and then. In some instances, I actually prefer the simplicity of a .cgi script to other options. Since I use DreamWeaver extensively, what I needed was a way to open .cgi scripts in Dreamweaver. And I wanted to …
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…
Video by: ITPro.TV
In this episode Don builds upon the troubleshooting techniques by demonstrating how to properly monitor a vSphere deployment to detect problems before they occur. He begins the show using tools found within the vSphere suite as ends the show demonst…
This is my first video review of Microsoft Bookings, I will be doing a part two with a bit more information, but wanted to get this out to you folks.

649 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