G
GTN170777
help, I'm trying to access a stored procedure The stored procedure works fine
when run from the server) the code is below -
CREATE PROCEDURE updatepricing
@siteid INT,
@siteid2 INT,
@siteid3 INT,
@siteid4 INT,
@siteid5 INT,
@siteid6 INT,
@siteid7 INT,
@siteid8 INT,
@7dayrate DECIMAL(7,2),
@14dayrate DECIMAL(7,2),
@21dayrate DECIMAL(7,2),
@28dayrate DECIMAL(7,2),
@reguseractive CHAR(1),
@reguser5active CHAR(1),
@reguser10active CHAR(1),
@multiuseractive CHAR(1),
@reguserrate DECIMAL(7,2),
@reguser5rate DECIMAL(7,2),
@reguser10rate DECIMAL(7,2),
@multiuserrate DECIMAL(7,2)
AS
UPDATE dbo.JBAccountType
SET JBATPrice = @7dayrate
WHERE JBATSiteID = @siteid and JBATValue = '7'
UPDATE dbo.JBAccountType
SET JBATPrice = @14dayrate
WHERE JBATSiteID = @siteid2 and JBATValue = '14'
UPDATE dbo.JBAccountType
SET JBATPrice = @21dayrate
WHERE JBATSiteID = @siteid3 and JBATValue = '21'
UPDATE dbo.JBAccountType
SET JBATPrice = @28dayrate
WHERE JBATSiteID = @siteid4 and JBATValue = '28'
UPDATE dbo.JBAccountType
SET JBATPrice = @reguserrate, JBATActive = @reguseractive
WHERE JBATSiteID = @siteid5 and JBATValue = 'reguser'
UPDATE dbo.JBAccountType
SET JBATPrice = @reguser5rate, JBATActive = @reguser5active
WHERE JBATSiteID = @siteid6 and JBATValue = 'reguser5'
UPDATE dbo.JBAccountType
SET JBATPrice = @reguser10rate, JBATActive = @reguser10active
WHERE JBATSiteID = @siteid7 and JBATValue = 'reguser10'
UPDATE dbo.JBAccountType
SET JBATPrice = @multiuserrate, JBATActive = @multiuseractive
WHERE JBATSiteID = @siteid8 and JBATValue = 'multiuser'
GO
However when i try and run this from an ASP page with the following code --
<%
Dim updatepricingCommand__siteid
updatepricingCommand__siteid = "0"
if(Session("SITEID") <> "") then updatepricingCommand__siteid =
Session("SITEID")
Dim updatepricingCommand__siteid2
updatepricingCommand__siteid2 = "0"
if(Session("SITEID") <> "") then updatepricingCommand__siteid2 =
Session("SITEID")
Dim updatepricingCommand__siteid3
updatepricingCommand__siteid3 = "0"
if(Session("SITEID") <> "") then updatepricingCommand__siteid3 =
Session("SITEID")
Dim updatepricingCommand__siteid4
updatepricingCommand__siteid4 = "0"
if(Session("SITEID") <> "") then updatepricingCommand__siteid4 =
Session("SITEID")
Dim updatepricingCommand__siteid5
updatepricingCommand__siteid5 = "0"
if(Session("SITEID") <> "") then updatepricingCommand__siteid5 =
Session("SITEID")
Dim updatepricingCommand__siteid6
updatepricingCommand__siteid6 = "0"
if(Session("SITEID") <> "") then updatepricingCommand__siteid6 =
Session("SITEID")
Dim updatepricingCommand__siteid7
updatepricingCommand__siteid7 = "0"
if(Session("SITEID") <> "") then updatepricingCommand__siteid7 =
Session("SITEID")
Dim updatepricingCommand__siteid8
updatepricingCommand__siteid8 = "0"
if(Session("SITEID") <> "") then updatepricingCommand__siteid8 =
Session("SITEID")
Dim updatepricingCommand__7dayrate
updatepricingCommand__7dayrate = "0"
if(Request.QueryString("day7") <> "") then updatepricingCommand__7dayrate =
Request.QueryString("day7")
Dim updatepricingCommand__14dayrate
updatepricingCommand__14dayrate = "0"
if(Request.QueryString("day14") <> "") then updatepricingCommand__14dayrate
= Request.QueryString("day14")
Dim updatepricingCommand__21dayrate
updatepricingCommand__21dayrate = "0"
if(Request.QueryString("day21") <> "") then updatepricingCommand__21dayrate
= Request.QueryString("day21")
Dim updatepricingCommand__28dayrate
updatepricingCommand__28dayrate = "0"
if(Request.QueryString("day28") <> "") then updatepricingCommand__28dayrate
= Request.QueryString("day28")
Dim updatepricingCommand__reguseractive
updatepricingCommand__reguseractive = "n"
if(Request.QueryString("ru") <> "") then updatepricingCommand__reguseractive
= Request.QueryString("ru")
Dim updatepricingCommand__reguser5active
updatepricingCommand__reguser5active = "n"
if(Request.QueryString("ru5") <> "") then
updatepricingCommand__reguser5active = Request.QueryString("ru5")
Dim updatepricingCommand__reguser10active
updatepricingCommand__reguser10active = "n"
if(Request.QueryString("ru10") <> "") then
updatepricingCommand__reguser10active = Request.QueryString("ru10")
Dim updatepricingCommand__multiuseractive
updatepricingCommand__multiuseractive = "n"
if(Request.QueryString("mu") <> "") then
updatepricingCommand__multiuseractive = Request.QueryString("mu")
Dim updatepricingCommand__reguserrate
updatepricingCommand__reguserrate = "0"
if(Request.QueryString("rusercharge") <> "") then
updatepricingCommand__reguserrate = Request.QueryString("rusercharge")
Dim updatepricingCommand__reguser5rate
updatepricingCommand__reguser5rate = "0"
if(Request.QueryString("ruser5charge") <> "") then
updatepricingCommand__reguser5rate = Request.QueryString("ruser5charge")
Dim updatepricingCommand__reguser10rate
updatepricingCommand__reguser10rate = "0"
if(Request.QueryString("ruser10charge") <> "") then
updatepricingCommand__reguser10rate = Request.QueryString("ruser10charge")
Dim updatepricingCommand__multiuserrate
updatepricingCommand__multiuserrate = "0"
if(Request.QueryString("musercharge") <> "") then
updatepricingCommand__multiuserrate = Request.QueryString("musercharge")
%>
<%
set updatepricingcommand = Server.CreateObject("ADODB.Command")
updatepricingcommand.ActiveConnection = MM_recruta2_STRING
updatepricingcommand.CommandText = "dbo.updatepricing"
updatepricingcommand.CommandType = 4
updatepricingcommand.CommandTimeout = 0
updatepricingcommand.Prepared = true
updatepricingcommand.Parameters.Append
updatepricingcommand.CreateParameter("@RETURN_VALUE", 3, 4)
updatepricingcommand.Parameters.Append
updatepricingcommand.CreateParameter("@siteid", 3,
1,5,updatepricingcommand__siteid)
updatepricingcommand.Parameters.Append
updatepricingcommand.CreateParameter("@siteid2", 3,
1,5,updatepricingcommand__siteid2)
updatepricingcommand.Parameters.Append
updatepricingcommand.CreateParameter("@siteid3", 3,
1,5,updatepricingcommand__siteid3)
updatepricingcommand.Parameters.Append
updatepricingcommand.CreateParameter("@siteid4", 3,
1,5,updatepricingcommand__siteid4)
updatepricingcommand.Parameters.Append
updatepricingcommand.CreateParameter("@siteid5", 3,
1,5,updatepricingcommand__siteid5)
updatepricingcommand.Parameters.Append
updatepricingcommand.CreateParameter("@siteid6", 3,
1,5,updatepricingcommand__siteid6)
updatepricingcommand.Parameters.Append
updatepricingcommand.CreateParameter("@siteid7", 3,
1,5,updatepricingcommand__siteid7)
updatepricingcommand.Parameters.Append
updatepricingcommand.CreateParameter("@siteid8", 3,
1,5,updatepricingcommand__siteid8)
updatepricingcommand.Parameters.Append
updatepricingcommand.CreateParameter("@7dayrate", 14,
1,7,2,updatepricingcommand__7dayrate)
updatepricingcommand.Parameters.Append
updatepricingcommand.CreateParameter("@14dayrate", 14,
1,7,2,updatepricingcommand__14dayrate)
updatepricingcommand.Parameters.Append
updatepricingcommand.CreateParameter("@21dayrate", 14,
1,7,2,updatepricingcommand__21dayrate)
updatepricingcommand.Parameters.Append
updatepricingcommand.CreateParameter("@28dayrate", 14,
1,7,2,updatepricingcommand__28dayrate)
updatepricingcommand.Parameters.Append
updatepricingcommand.CreateParameter("@reguseractive", 129,
1,1,updatepricingcommand__reguseractive)
updatepricingcommand.Parameters.Append
updatepricingcommand.CreateParameter("@reguser5active", 129,
1,1,updatepricingcommand__reguser5active)
updatepricingcommand.Parameters.Append
updatepricingcommand.CreateParameter("@reguser10active", 129,
1,1,updatepricingcommand__reguser10active)
updatepricingcommand.Parameters.Append
updatepricingcommand.CreateParameter("@multiuseractive", 129,
1,1,updatepricingcommand__multiuseractive)
updatepricingcommand.Parameters.Append
updatepricingcommand.CreateParameter("@reguserrate", 14,
1,7,2,updatepricingcommand__reguserrate)
updatepricingcommand.Parameters.Append
updatepricingcommand.CreateParameter("@reguser5rate", 14,
1,7,2,updatepricingcommand__reguser5rate)
updatepricingcommand.Parameters.Append
updatepricingcommand.CreateParameter("@reguser10rate", 14,
1,7,2,updatepricingcommand__reguser10rate)
updatepricingcommand.Parameters.Append
updatepricingcommand.CreateParameter("@multiuserrate", 14,
1,7,2,updatepricingcommand__multiuserrate)
updatepricingcommand.Execute()
%>
I get the following error --
Microsoft OLE DB Provider for SQL Server error '80004005'
The precision is invalid.
/admin/afterreviewupdatepricing.asp, line 115
I think this has something to do with the decimal values??? but an really
stuck...
Appreciate any help you can give..
Thanks
when run from the server) the code is below -
CREATE PROCEDURE updatepricing
@siteid INT,
@siteid2 INT,
@siteid3 INT,
@siteid4 INT,
@siteid5 INT,
@siteid6 INT,
@siteid7 INT,
@siteid8 INT,
@7dayrate DECIMAL(7,2),
@14dayrate DECIMAL(7,2),
@21dayrate DECIMAL(7,2),
@28dayrate DECIMAL(7,2),
@reguseractive CHAR(1),
@reguser5active CHAR(1),
@reguser10active CHAR(1),
@multiuseractive CHAR(1),
@reguserrate DECIMAL(7,2),
@reguser5rate DECIMAL(7,2),
@reguser10rate DECIMAL(7,2),
@multiuserrate DECIMAL(7,2)
AS
UPDATE dbo.JBAccountType
SET JBATPrice = @7dayrate
WHERE JBATSiteID = @siteid and JBATValue = '7'
UPDATE dbo.JBAccountType
SET JBATPrice = @14dayrate
WHERE JBATSiteID = @siteid2 and JBATValue = '14'
UPDATE dbo.JBAccountType
SET JBATPrice = @21dayrate
WHERE JBATSiteID = @siteid3 and JBATValue = '21'
UPDATE dbo.JBAccountType
SET JBATPrice = @28dayrate
WHERE JBATSiteID = @siteid4 and JBATValue = '28'
UPDATE dbo.JBAccountType
SET JBATPrice = @reguserrate, JBATActive = @reguseractive
WHERE JBATSiteID = @siteid5 and JBATValue = 'reguser'
UPDATE dbo.JBAccountType
SET JBATPrice = @reguser5rate, JBATActive = @reguser5active
WHERE JBATSiteID = @siteid6 and JBATValue = 'reguser5'
UPDATE dbo.JBAccountType
SET JBATPrice = @reguser10rate, JBATActive = @reguser10active
WHERE JBATSiteID = @siteid7 and JBATValue = 'reguser10'
UPDATE dbo.JBAccountType
SET JBATPrice = @multiuserrate, JBATActive = @multiuseractive
WHERE JBATSiteID = @siteid8 and JBATValue = 'multiuser'
GO
However when i try and run this from an ASP page with the following code --
<%
Dim updatepricingCommand__siteid
updatepricingCommand__siteid = "0"
if(Session("SITEID") <> "") then updatepricingCommand__siteid =
Session("SITEID")
Dim updatepricingCommand__siteid2
updatepricingCommand__siteid2 = "0"
if(Session("SITEID") <> "") then updatepricingCommand__siteid2 =
Session("SITEID")
Dim updatepricingCommand__siteid3
updatepricingCommand__siteid3 = "0"
if(Session("SITEID") <> "") then updatepricingCommand__siteid3 =
Session("SITEID")
Dim updatepricingCommand__siteid4
updatepricingCommand__siteid4 = "0"
if(Session("SITEID") <> "") then updatepricingCommand__siteid4 =
Session("SITEID")
Dim updatepricingCommand__siteid5
updatepricingCommand__siteid5 = "0"
if(Session("SITEID") <> "") then updatepricingCommand__siteid5 =
Session("SITEID")
Dim updatepricingCommand__siteid6
updatepricingCommand__siteid6 = "0"
if(Session("SITEID") <> "") then updatepricingCommand__siteid6 =
Session("SITEID")
Dim updatepricingCommand__siteid7
updatepricingCommand__siteid7 = "0"
if(Session("SITEID") <> "") then updatepricingCommand__siteid7 =
Session("SITEID")
Dim updatepricingCommand__siteid8
updatepricingCommand__siteid8 = "0"
if(Session("SITEID") <> "") then updatepricingCommand__siteid8 =
Session("SITEID")
Dim updatepricingCommand__7dayrate
updatepricingCommand__7dayrate = "0"
if(Request.QueryString("day7") <> "") then updatepricingCommand__7dayrate =
Request.QueryString("day7")
Dim updatepricingCommand__14dayrate
updatepricingCommand__14dayrate = "0"
if(Request.QueryString("day14") <> "") then updatepricingCommand__14dayrate
= Request.QueryString("day14")
Dim updatepricingCommand__21dayrate
updatepricingCommand__21dayrate = "0"
if(Request.QueryString("day21") <> "") then updatepricingCommand__21dayrate
= Request.QueryString("day21")
Dim updatepricingCommand__28dayrate
updatepricingCommand__28dayrate = "0"
if(Request.QueryString("day28") <> "") then updatepricingCommand__28dayrate
= Request.QueryString("day28")
Dim updatepricingCommand__reguseractive
updatepricingCommand__reguseractive = "n"
if(Request.QueryString("ru") <> "") then updatepricingCommand__reguseractive
= Request.QueryString("ru")
Dim updatepricingCommand__reguser5active
updatepricingCommand__reguser5active = "n"
if(Request.QueryString("ru5") <> "") then
updatepricingCommand__reguser5active = Request.QueryString("ru5")
Dim updatepricingCommand__reguser10active
updatepricingCommand__reguser10active = "n"
if(Request.QueryString("ru10") <> "") then
updatepricingCommand__reguser10active = Request.QueryString("ru10")
Dim updatepricingCommand__multiuseractive
updatepricingCommand__multiuseractive = "n"
if(Request.QueryString("mu") <> "") then
updatepricingCommand__multiuseractive = Request.QueryString("mu")
Dim updatepricingCommand__reguserrate
updatepricingCommand__reguserrate = "0"
if(Request.QueryString("rusercharge") <> "") then
updatepricingCommand__reguserrate = Request.QueryString("rusercharge")
Dim updatepricingCommand__reguser5rate
updatepricingCommand__reguser5rate = "0"
if(Request.QueryString("ruser5charge") <> "") then
updatepricingCommand__reguser5rate = Request.QueryString("ruser5charge")
Dim updatepricingCommand__reguser10rate
updatepricingCommand__reguser10rate = "0"
if(Request.QueryString("ruser10charge") <> "") then
updatepricingCommand__reguser10rate = Request.QueryString("ruser10charge")
Dim updatepricingCommand__multiuserrate
updatepricingCommand__multiuserrate = "0"
if(Request.QueryString("musercharge") <> "") then
updatepricingCommand__multiuserrate = Request.QueryString("musercharge")
%>
<%
set updatepricingcommand = Server.CreateObject("ADODB.Command")
updatepricingcommand.ActiveConnection = MM_recruta2_STRING
updatepricingcommand.CommandText = "dbo.updatepricing"
updatepricingcommand.CommandType = 4
updatepricingcommand.CommandTimeout = 0
updatepricingcommand.Prepared = true
updatepricingcommand.Parameters.Append
updatepricingcommand.CreateParameter("@RETURN_VALUE", 3, 4)
updatepricingcommand.Parameters.Append
updatepricingcommand.CreateParameter("@siteid", 3,
1,5,updatepricingcommand__siteid)
updatepricingcommand.Parameters.Append
updatepricingcommand.CreateParameter("@siteid2", 3,
1,5,updatepricingcommand__siteid2)
updatepricingcommand.Parameters.Append
updatepricingcommand.CreateParameter("@siteid3", 3,
1,5,updatepricingcommand__siteid3)
updatepricingcommand.Parameters.Append
updatepricingcommand.CreateParameter("@siteid4", 3,
1,5,updatepricingcommand__siteid4)
updatepricingcommand.Parameters.Append
updatepricingcommand.CreateParameter("@siteid5", 3,
1,5,updatepricingcommand__siteid5)
updatepricingcommand.Parameters.Append
updatepricingcommand.CreateParameter("@siteid6", 3,
1,5,updatepricingcommand__siteid6)
updatepricingcommand.Parameters.Append
updatepricingcommand.CreateParameter("@siteid7", 3,
1,5,updatepricingcommand__siteid7)
updatepricingcommand.Parameters.Append
updatepricingcommand.CreateParameter("@siteid8", 3,
1,5,updatepricingcommand__siteid8)
updatepricingcommand.Parameters.Append
updatepricingcommand.CreateParameter("@7dayrate", 14,
1,7,2,updatepricingcommand__7dayrate)
updatepricingcommand.Parameters.Append
updatepricingcommand.CreateParameter("@14dayrate", 14,
1,7,2,updatepricingcommand__14dayrate)
updatepricingcommand.Parameters.Append
updatepricingcommand.CreateParameter("@21dayrate", 14,
1,7,2,updatepricingcommand__21dayrate)
updatepricingcommand.Parameters.Append
updatepricingcommand.CreateParameter("@28dayrate", 14,
1,7,2,updatepricingcommand__28dayrate)
updatepricingcommand.Parameters.Append
updatepricingcommand.CreateParameter("@reguseractive", 129,
1,1,updatepricingcommand__reguseractive)
updatepricingcommand.Parameters.Append
updatepricingcommand.CreateParameter("@reguser5active", 129,
1,1,updatepricingcommand__reguser5active)
updatepricingcommand.Parameters.Append
updatepricingcommand.CreateParameter("@reguser10active", 129,
1,1,updatepricingcommand__reguser10active)
updatepricingcommand.Parameters.Append
updatepricingcommand.CreateParameter("@multiuseractive", 129,
1,1,updatepricingcommand__multiuseractive)
updatepricingcommand.Parameters.Append
updatepricingcommand.CreateParameter("@reguserrate", 14,
1,7,2,updatepricingcommand__reguserrate)
updatepricingcommand.Parameters.Append
updatepricingcommand.CreateParameter("@reguser5rate", 14,
1,7,2,updatepricingcommand__reguser5rate)
updatepricingcommand.Parameters.Append
updatepricingcommand.CreateParameter("@reguser10rate", 14,
1,7,2,updatepricingcommand__reguser10rate)
updatepricingcommand.Parameters.Append
updatepricingcommand.CreateParameter("@multiuserrate", 14,
1,7,2,updatepricingcommand__multiuserrate)
updatepricingcommand.Execute()
%>
I get the following error --
Microsoft OLE DB Provider for SQL Server error '80004005'
The precision is invalid.
/admin/afterreviewupdatepricing.asp, line 115
I think this has something to do with the decimal values??? but an really
stuck...
Appreciate any help you can give..
Thanks