Link to home
Start Free TrialLog in
Avatar of Aleks
AleksFlag for United States of America

asked on

Stored Procedure not inserting value

I have the weirdest case at hand. I have spent a few hours trying to figure it out and I just can't. Here is the scenario.
1) I create a recordset that brings a few records, one of the columns is 'Ordernum', this will be inserted into another table In my database
I tested the recordset and it DOES bring the value of Ordernum, so this is not the issue.

2) I create a Stored Procedure to loop and insert each value from the recordset above into a table. It ALL works great, BUT the value of 'Ordernum' is not being inserted into the table, it should go into field: "OrderNo"

This is where it gets weird. If I try to insert it into a different column. IT WORKS !  so the data is making it, and it would be inserted if not for the fact that it doesn't in the column that it SHOULD be inserted. The type of data is INT.

Here is the code for my SP:

<%while not Process.eof
'execute SP
%>

<%

Dim AddProcesssteps__CaseId
AddProcesssteps__CaseId = "0"
if(Session("CaseIDOpened") <> "") then AddProcesssteps__CaseId = Session("CaseIDOpened")

Dim AddProcesssteps__FirmId
AddProcesssteps__FirmId = "0"
if(Session("FirmId") <> "") then AddProcesssteps__FirmId = Session("FirmId")

Dim AddProcesssteps__ActType
AddProcesssteps__ActType = "0"
if("HISTORY" <> "") then AddProcesssteps__ActType = "HISTORY"

Dim AddProcesssteps__ProcesstepID
AddProcesssteps__ProcesstepID = "0"
if(Process("ProcessstepID") <> "") then AddProcesssteps__ProcesstepID = Process("ProcessstepID")

Dim AddProcesssteps__Processtep
AddProcesssteps__Processtep = "0"
if(Process("Processtep") <> "") then AddProcesssteps__Processtep = Process("Processtep")

Dim AddProcesssteps__responsible
AddProcesssteps__responsible = null
if(Process("Timeframe") <> "") then AddProcesssteps__responsible = Process("Timeframe")

Dim AddProcesssteps__PartyList
AddProcesssteps__PartyList = "0"
if(Process("pstepdescription") <> "") then AddProcesssteps__PartyList = Process("pstepdescription")

Dim AddProcesssteps__Complete
AddProcesssteps__Complete = "0"
if(Process("EmailAlert") <> "") then AddProcesssteps__Complete = Process("EmailAlert")

Dim AddProcesssteps__OrderNo
AddProcesssteps__OrderNo = "0"
if(Process("Ordernum") <> "") then AddProcesssteps__OrderNo = Process("Ordernum")

Dim AddProcesssteps__Visible
AddProcesssteps__Visible = "0"
if("1" <> "") then AddProcesssteps__Visible = "1"

%>

<%

set AddProcesssteps = Server.CreateObject("ADODB.Command")
AddProcesssteps.ActiveConnection = MM_bluedot_STRING
AddProcesssteps.CommandText = "dbo.Addsteptohistory"
AddProcesssteps.CommandType = 4
AddProcesssteps.CommandTimeout = 0
AddProcesssteps.Prepared = true
AddProcesssteps.Parameters.Append AddProcesssteps.CreateParameter("@RETURN_VALUE", 3, 4)
AddProcesssteps.Parameters.Append AddProcesssteps.CreateParameter("@CaseId", 3, 1,4,AddProcesssteps__CaseId)
AddProcesssteps.Parameters.Append AddProcesssteps.CreateParameter("@FirmId", 3, 1,4,AddProcesssteps__FirmId)
AddProcesssteps.Parameters.Append AddProcesssteps.CreateParameter("@ActType", 200, 1,30,AddProcesssteps__ActType)
AddProcesssteps.Parameters.Append AddProcesssteps.CreateParameter("@ProcesstepID", 3, 1,4,AddProcesssteps__ProcesstepID)
AddProcesssteps.Parameters.Append AddProcesssteps.CreateParameter("@Processtep", 200, 1,150,AddProcesssteps__Processtep)
AddProcesssteps.Parameters.Append AddProcesssteps.CreateParameter("@responsible", 3, 1,4,AddProcesssteps__responsible)
AddProcesssteps.Parameters.Append AddProcesssteps.CreateParameter("@PartyList", 200, 1,16000,AddProcesssteps__PartyList)
AddProcesssteps.Parameters.Append AddProcesssteps.CreateParameter("@Complete", 3, 1,1,AddProcesssteps__Complete)
AddProcesssteps.Parameters.Append AddProcesssteps.CreateParameter("@OrderNo", 3, 1,4,AddProcesssteps__OrderNo)
AddProcesssteps.Parameters.Append AddProcesssteps.CreateParameter("@Visible", 3, 1,4,AddProcesssteps__Visible)
AddProcesssteps.Execute()

%>
<%
Process.movenext
wend
%>

Open in new window


Keep in mind, if I insert the value to another column it works fine, but I need to insert it there, no errors, no problems it simply inserts '0'  instead, as if it is not getting any value from the recordset, so it inserts the default. This makes no sense to me but perhaps someone can see something I can't.
Avatar of Aleks
Aleks
Flag of United States of America image

ASKER

A simple example is on line 29, if I chance Process("Timeframe") for Process("Ordernum") then it WILL insert the OrderNo values into that other column, but If I try to insert them into "OrderNo' where it goes nothing gets inserted  :$
SOLUTION
Avatar of lcohan
lcohan
Flag of Canada image

Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial
Avatar of Aleks

ASKER

yes, for each column it is 1,2,3,4,5  respectively. As I said. If I insert it into the 'timeframe' column it does show "1" in the first row, 2 on the second and so on. Its ONLY when I insert it into the column it needs to go into that it inserts the default instead.  Still scratching my head.
ASKER CERTIFIED SOLUTION
Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial
Avatar of Aleks

ASKER

Its not. It insert whatever default value I put in there. Like a '0', then all rows have that as a value, so .. it can insert values in it.
Ill try to insert a value from a different column and see what happens ...
Avatar of Aleks

ASKER

Interesting fact. I changed the value to

Dim AddProcesssteps__OrderNo
AddProcesssteps__OrderNo = "0"
if("1" <> "") then AddProcesssteps__OrderNo = "1"

and it does enter the number '1' for all rows  :$

I also entered:   Process("Timeframe")
instead of "1" and it entered the correct number on each field
Avatar of Aleks

ASKER

This is getting really annoying. This is my page code.

The Process recordset is the one that brings the rows with the order number.  (View attachment)



<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html>

<!--#BlueDot Include files-->
<!--#include file="../../Connections/bluedot.asp" -->
<!--#include file="../../includes/bdot/attysessiontimeoutvb2.asp"-->
<!--#BeginBlock-->

<%

Dim sp_deletesteps__CaseId
sp_deletesteps__CaseId = "0"
if(Request("CaseId") <> "") then sp_deletesteps__CaseId = Request("CaseId")

%>

<%

set sp_deletesteps = Server.CreateObject("ADODB.Command")
sp_deletesteps.ActiveConnection = MM_bluedot_STRING
sp_deletesteps.CommandText = "dbo.BDOTDeleteProcessStepsfromCase"
sp_deletesteps.CommandType = 4
sp_deletesteps.CommandTimeout = 0
sp_deletesteps.Prepared = true
sp_deletesteps.Parameters.Append sp_deletesteps.CreateParameter("@RETURN_VALUE", 3, 4)
sp_deletesteps.Parameters.Append sp_deletesteps.CreateParameter("@CaseId", 3, 1,4,sp_deletesteps__CaseId)
sp_deletesteps.Execute()

%>


<%

Dim DeleteDocuments__CaseId
DeleteDocuments__CaseId = "0"
if(Request("caseid") <> "") then DeleteDocuments__CaseId = Request("caseid")

%>
<%

set DeleteDocuments = Server.CreateObject("ADODB.Command")
DeleteDocuments.ActiveConnection = MM_bluedot_STRING
DeleteDocuments.CommandText = "dbo.BDOTDeleteDocumentsfromCase"
DeleteDocuments.Parameters.Append DeleteDocuments.CreateParameter("@RETURN_VALUE", 3, 4)
DeleteDocuments.Parameters.Append DeleteDocuments.CreateParameter("@CaseId", 3, 1,4,DeleteDocuments__CaseId)
DeleteDocuments.CommandType = 4
DeleteDocuments.CommandTimeout = 0
DeleteDocuments.Prepared = true
DeleteDocuments.Execute()

%>


<%

Dim sp_deleteforms__CaseId
sp_deleteforms__CaseId = "0"
if(Request("CaseId") <> "") then sp_deleteforms__CaseId = Request("CaseId")

%>
<%

set sp_deleteforms = Server.CreateObject("ADODB.Command")
sp_deleteforms.ActiveConnection = MM_bluedot_STRING
sp_deleteforms.CommandText = "dbo.BDOTDeleteFormsfromCase"
sp_deleteforms.CommandType = 4
sp_deleteforms.CommandTimeout = 0
sp_deleteforms.Prepared = true
sp_deleteforms.Parameters.Append sp_deleteforms.CreateParameter("@RETURN_VALUE", 3, 4)
sp_deleteforms.Parameters.Append sp_deleteforms.CreateParameter("@CaseId", 3, 1,4,sp_deleteforms__CaseId)
sp_deleteforms.Execute()

%>

<%
Dim Casejoin__MMColParam
Casejoin__MMColParam = "0"
If (Request.Querystring("caseid") <> "") Then 
  Casejoin__MMColParam = Request.Querystring("caseid")
End If
%>
<%
Dim Casejoin
Dim Casejoin_cmd
Dim Casejoin_numRows

Set Casejoin_cmd = Server.CreateObject ("ADODB.Command")
Casejoin_cmd.ActiveConnection = MM_bluedot_STRING
Casejoin_cmd.CommandText = "SELECT Id, process, Alienid FROM Cases    WHERE ID = ?" 
Casejoin_cmd.Prepared = true
Casejoin_cmd.Parameters.Append Casejoin_cmd.CreateParameter("param1", 5, 1, -1, Casejoin__MMColParam) ' adDouble

Set Casejoin = Casejoin_cmd.Execute
Casejoin_numRows = 0
%>

<%
' *** Set Session Variable to Value of Recordset Field - UltraSessions_124
Session("Processcatalogidtemp") =(Casejoin.Fields.Item("process").Value)
%>
<%
Dim Process__MMColParam
Process__MMColParam = "0"
If (Session("Processcatalogidtemp")   <> "") Then 
  Process__MMColParam = Session("Processcatalogidtemp")  
End If
%>
<%
Dim Process__MMColParam2
Process__MMColParam2 = "0"
If (Session("Firmid") <> "") Then 
  Process__MMColParam2 = Session("Firmid")
End If
%>
<%
Dim Process
Dim Process_cmd
Dim Process_numRows

Set Process_cmd = Server.CreateObject ("ADODB.Command")
Process_cmd.ActiveConnection = MM_bluedot_STRING
Process_cmd.CommandText = "SELECT ProcessstepID ,        Processtep ,        pstepdescription ,        ProcessStep.Ordernum ,        StepsFirmId ,        ProcessTypeId ,        Timeframe ,        EmailAlert FROM dbo.ProcessStep WHERE ProcessTypeId = ? and stepsFirmid = ?" 
Process_cmd.Prepared = true
Process_cmd.Parameters.Append Process_cmd.CreateParameter("param1", 5, 1, -1, Process__MMColParam) ' adDouble
Process_cmd.Parameters.Append Process_cmd.CreateParameter("param2", 5, 1, -1, Process__MMColParam2) ' adDouble

Set Process = Process_cmd.Execute
Process_numRows = 0
%>


<%
Dim Documents__MMColParam
Documents__MMColParam = "0"
If (Session("Processcatalogidtemp") <> "") Then 
  Documents__MMColParam = Session("Processcatalogidtemp")
End If
%>
<%
Dim Documents
Dim Documents_numRows

Set Documents = Server.CreateObject("ADODB.Recordset")
Documents.ActiveConnection = MM_bluedot_STRING
Documents.Source = "SELECT *  FROM dbo.CatalogDocuments  WHERE Processtypeid = " + Replace(Documents__MMColParam, "'", "''") + ""
Documents.CursorType = 0
Documents.CursorLocation = 2
Documents.LockType = 1
Documents.Open()

Documents_numRows = 0
%>




<%
Dim FormsCatalog__MMColParam1
FormsCatalog__MMColParam1 = "0"
If (Session("Processcatalogidtemp") <> "") Then 
  FormsCatalog__MMColParam1 = Session("Processcatalogidtemp")
End If
%>
<%
Dim FormsCatalog
Dim FormsCatalog_cmd
Dim FormsCatalog_numRows

Set FormsCatalog_cmd = Server.CreateObject ("ADODB.Command")
FormsCatalog_cmd.ActiveConnection = MM_bluedot_STRING
FormsCatalog_cmd.CommandText = "SELECT  formscatalog.formcatalogid, formscatalog.firmid, formscatalog.Processtypeid,  formscatalog.FormName, formscatalog.FormDesc,forms.efile, forms.qid FROM dbo.FormsCatalog inner join Forms on forms.formname = formscatalog.formname WHERE Processtypeid = ?" 
FormsCatalog_cmd.Prepared = true
FormsCatalog_cmd.Parameters.Append FormsCatalog_cmd.CreateParameter("param1", 5, 1, -1, FormsCatalog__MMColParam1) ' adDouble

Set FormsCatalog = FormsCatalog_cmd.Execute
FormsCatalog_numRows = 0
%>


<%while not Process.eof
'execute SP
%>

<%

Dim AddProcesssteps__CaseId
AddProcesssteps__CaseId = "0"
if(Request("caseid") <> "") then AddProcesssteps__CaseId = Request("caseid")

Dim AddProcesssteps__FirmId
AddProcesssteps__FirmId = "0"
if(Session("FirmId") <> "") then AddProcesssteps__FirmId = Session("FirmId")

Dim AddProcesssteps__ActType
AddProcesssteps__ActType = "0"
if("HISTORY" <> "") then AddProcesssteps__ActType = "HISTORY"

Dim AddProcesssteps__ProcesstepID
AddProcesssteps__ProcesstepID = "0"
if(Process("ProcessstepID") <> "") then AddProcesssteps__ProcesstepID = Process("ProcessstepID")

Dim AddProcesssteps__Processtep
AddProcesssteps__Processtep = "0"
if(Process("Processtep") <> "") then AddProcesssteps__Processtep = Process("Processtep")

Dim AddProcesssteps__responsible
AddProcesssteps__responsible = null
if(Process("Timeframe") <> "") then AddProcesssteps__responsible = Process("Timeframe")

Dim AddProcesssteps__PartyList
AddProcesssteps__PartyList = "0"
if(Process("pstepdescription") <> "") then AddProcesssteps__PartyList = Process("pstepdescription")

Dim AddProcesssteps__Complete
AddProcesssteps__Complete = "0"
if(Process("EmailAlert") <> "") then AddProcesssteps__Complete = Process("EmailAlert")

Dim AddProcesssteps__OrderNo
AddProcesssteps__OrderNo = "0"
if(Process("Ordernum") <> "") then AddProcesssteps__OrderNo = Process("Ordernum")

Dim AddProcesssteps__Visible
AddProcesssteps__Visible = "0"
if("1" <> "") then AddProcesssteps__Visible = "1"

%>

<%

set AddProcesssteps = Server.CreateObject("ADODB.Command")
AddProcesssteps.ActiveConnection = MM_bluedot_STRING
AddProcesssteps.CommandText = "dbo.Addsteptohistory"
AddProcesssteps.CommandType = 4
AddProcesssteps.CommandTimeout = 0
AddProcesssteps.Prepared = true
AddProcesssteps.Parameters.Append AddProcesssteps.CreateParameter("@RETURN_VALUE", 3, 4)
AddProcesssteps.Parameters.Append AddProcesssteps.CreateParameter("@CaseId", 3, 1,4,AddProcesssteps__CaseId)
AddProcesssteps.Parameters.Append AddProcesssteps.CreateParameter("@FirmId", 3, 1,4,AddProcesssteps__FirmId)
AddProcesssteps.Parameters.Append AddProcesssteps.CreateParameter("@ActType", 200, 1,30,AddProcesssteps__ActType)
AddProcesssteps.Parameters.Append AddProcesssteps.CreateParameter("@ProcesstepID", 3, 1,4,AddProcesssteps__ProcesstepID)
AddProcesssteps.Parameters.Append AddProcesssteps.CreateParameter("@Processtep", 200, 1,150,AddProcesssteps__Processtep)
AddProcesssteps.Parameters.Append AddProcesssteps.CreateParameter("@responsible", 3, 1,4,AddProcesssteps__responsible)
AddProcesssteps.Parameters.Append AddProcesssteps.CreateParameter("@PartyList", 200, 1,16000,AddProcesssteps__PartyList)
AddProcesssteps.Parameters.Append AddProcesssteps.CreateParameter("@Complete", 3, 1,1,AddProcesssteps__Complete)
AddProcesssteps.Parameters.Append AddProcesssteps.CreateParameter("@OrderNo", 3, 1,4,AddProcesssteps__OrderNo)
AddProcesssteps.Parameters.Append AddProcesssteps.CreateParameter("@Visible", 3, 1,4,AddProcesssteps__Visible)
AddProcesssteps.Execute()

%>
<%
Process.movenext
wend
%>



<%while not Documents.eof
'execute SP
%>
<%

Dim AddDocuments__ActDesc
AddDocuments__ActDesc = "0"
if(Documents("Document") <> "") then AddDocuments__ActDesc = Documents("Document")

Dim AddDocuments__CaseId
AddDocuments__CaseId = "0"
if(Request("caseid") <> "") then AddDocuments__CaseId = Request("caseid")

Dim AddDocuments__FirmId
AddDocuments__FirmId = "0"
if(Session("FirmId") <> "") then AddDocuments__FirmId = Session("FirmId")

Dim AddDocuments__ActType
AddDocuments__ActType = "0"
if("DOCUMENT" <> "") then AddDocuments__ActType = "DOCUMENT"

Dim AddDocuments__Docsfrom
AddDocuments__Docsfrom = "0"
if(Documents("Docsfrom") <> "") then AddDocuments__Docsfrom = Documents("Docsfrom")

%>
<%

set AddDocuments = Server.CreateObject("ADODB.Command")
AddDocuments.ActiveConnection = MM_bluedot_STRING
AddDocuments.CommandText = "dbo.AddDocumentstoCase"
AddDocuments.Parameters.Append AddDocuments.CreateParameter("@RETURN_VALUE", 3, 4)
AddDocuments.Parameters.Append AddDocuments.CreateParameter("@ActDesc", 200, 1,255,AddDocuments__ActDesc)
AddDocuments.Parameters.Append AddDocuments.CreateParameter("@CaseId", 3, 1,4,AddDocuments__CaseId)
AddDocuments.Parameters.Append AddDocuments.CreateParameter("@FirmId", 3, 1,4,AddDocuments__FirmId)
AddDocuments.Parameters.Append AddDocuments.CreateParameter("@ActType", 200, 1,10,AddDocuments__ActType)
AddDocuments.Parameters.Append AddDocuments.CreateParameter("@Docsfrom", 200, 1,50,AddDocuments__Docsfrom)
AddDocuments.CommandType = 4
AddDocuments.CommandTimeout = 0
AddDocuments.Prepared = true
AddDocuments.Execute()

%>
<%
Documents.movenext
wend
%>




<%while not FormsCatalog.eof
'execute SP
%>

<%

Dim AddFormstoCase__CaseId
AddFormstoCase__CaseId = "0"
if(Request("caseid")         <> "") then AddFormstoCase__CaseId = Request("caseid")      

Dim AddFormstoCase__FirmId
AddFormstoCase__FirmId = "0"
if(Session("FirmId")        <> "") then AddFormstoCase__FirmId = Session("FirmId")       

Dim AddFormstoCase__fname
AddFormstoCase__fname = "0"
if(FormsCatalog("FormName")        <> "") then AddFormstoCase__fname = FormsCatalog("FormName")       

Dim AddFormstoCase__fdescription
AddFormstoCase__fdescription = "0"
if(FormsCatalog("FormDesc")        <> "") then AddFormstoCase__fdescription = FormsCatalog("FormDesc")       

Dim AddFormstoCase__Qid
AddFormstoCase__Qid = "0"
if(FormsCatalog("Qid")        <> "") then AddFormstoCase__Qid = FormsCatalog("Qid")       

Dim AddFormstoCase__mainuserid
AddFormstoCase__mainuserid = "0"
if(Casejoin("Alienid")       <> "") then AddFormstoCase__mainuserid = Casejoin("Alienid")      

%>
<%

set AddFormstoCase = Server.CreateObject("ADODB.Command")
AddFormstoCase.ActiveConnection = MM_bluedot_STRING
AddFormstoCase.CommandText = "dbo.AddFormstoCase"
AddFormstoCase.Parameters.Append AddFormstoCase.CreateParameter("@RETURN_VALUE", 3, 4)
AddFormstoCase.Parameters.Append AddFormstoCase.CreateParameter("@CaseId", 3, 1,4,AddFormstoCase__CaseId)
AddFormstoCase.Parameters.Append AddFormstoCase.CreateParameter("@FirmId", 3, 1,4,AddFormstoCase__FirmId)
AddFormstoCase.Parameters.Append AddFormstoCase.CreateParameter("@fname", 200, 1,40,AddFormstoCase__fname)
AddFormstoCase.Parameters.Append AddFormstoCase.CreateParameter("@fdescription", 200, 1,255,AddFormstoCase__fdescription)
AddFormstoCase.Parameters.Append AddFormstoCase.CreateParameter("@Qid", 3, 1,4,AddFormstoCase__Qid)
AddFormstoCase.Parameters.Append AddFormstoCase.CreateParameter("@mainuserid", 3, 1,4,AddFormstoCase__mainuserid)
AddFormstoCase.CommandType = 4
AddFormstoCase.CommandTimeout = 0
AddFormstoCase.Prepared = true
AddFormstoCase.Execute()

%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
Process_numRows = Process_numRows + Repeat1__numRows
%>
<%
FormsCatalog.movenext
wend
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>UpdateProcessSteps</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
</body>
</html>
<script language="javascript">
window.location.href="general_basic_index.asp?caseid=<%=(Casejoin.Fields.Item("Id").Value)%>";
</script>

<%
Process.Close()
Set Process = Nothing
%>
<%
Documents.Close()
Set Documents = Nothing
%>
<%
FormsCatalog.Close()
Set FormsCatalog = Nothing
%>
<%
Casejoin.Close()
Set Casejoin = Nothing
%>

<%
' *** Delete A Session Variable - UltraSessions_106
Session("Processcatalogidtemp") = ""
%>

Open in new window


Those are the values being copier over to the table "Activities". The second attachment shows the exact same steps after being copied over but the Order number WILL NOT copy over ... they all show '0' as if no value is being passed over to the SP.

And just in case this is the SP in my database:

procedure [dbo].[Addsteptohistory]
@CaseId int, @FirmId int, @ActType varchar (20), @ProcesstepID int, @Processtep nvarchar(150),@responsible int, @PartyList text, @Complete bit, @OrderNo int, @Visible  int as
INSERT 
   INTO   activities (CaseId, FirmId, ActType, ProcesstepID,Processtep,responsible, PartyList, Complete, OrderNo, BlobId)
   VALUES         (@CaseId, @FirmId, @ActType, @ProcesstepID, @Processtep,@responsible, @PartyList, @Complete, @OrderNo,@Visible)

Open in new window


At this point I am stuck.  Any ideas ?
Capture.PNG
2.PNG
Avatar of Aleks

ASKER

No ideas ?
Avatar of Aleks

ASKER

Due to the lack of ideas Ill close it. Thanks for he try.
Avatar of Aleks

ASKER

No solution was found.