Web Service not working in Production Server

<%@ WebService Language="VB" Class="WebService" %>
 
Imports System.Web
Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.Data
Imports System.Data.Common
Imports System.Data.SqlClient
 
 
' To allow this Web Service to be called from script, using ASP.NET AJAX, uncomment the following line.
' <System.Web.Script.Services.ScriptService()> _
<WebService(Namespace := "http://tempuri.org/")> _
<WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _  
Public Class WebService
    Inherits System.Web.Services.WebService 
    
    <WebMethod()> _
    Public Function ReceiveQuoteRequest(ByVal ProductID As Integer, ByVal Quantity As Integer) As String
        Dim Quote_Number As Integer
        Quote_Number = CreateQuote(ProductID, Quantity)
        Return Quote_Number
    End Function
    
    
    Public Function SendQuoteTotal(ByVal QuoteID As Integer) As Integer
        
        Dim Total As Integer
        
        Dim DBConnection As SqlConnection = New SqlConnection(ConfigurationManager.ConnectionStrings("ECT481").ConnectionString)
        Dim Command As SqlCommand
        Dim DataReader As SqlDataReader
        
       
 
        Command = New SqlCommand("GetQuote", DBConnection)
        Command.CommandType = CommandType.StoredProcedure
        Command.Parameters.AddWithValue("@QuoteID", QuoteID)
 
        DBConnection.Open()
        DataReader = Command.ExecuteReader()
 
 
        If DataReader.HasRows Then
 
            While DataReader.Read
 
                Total = DataReader("Total")
               
               
            End While
        
        Else
            Total = 0
        End If
 
        
        
        DBConnection.Close()
        
        Return Total
    End Function
    
    
    
    
    'Function to Create Quote
    Private Function CreateQuote(ByVal ProductID As Integer, ByVal Quantity As Integer) As String
    
        Dim DBConnection As SqlConnection = New SqlConnection(ConfigurationManager.ConnectionStrings("ECT481").ConnectionString)
        
        Dim Quote_Number As Integer
        Dim Product_Cost As Integer = GetProductCost(ProductID)
        Dim Total As Integer = Quantity * Product_Cost
        
        
        Dim Command As SqlCommand = New SqlCommand("Create_Quote", DBConnection)
        Command.CommandType = CommandType.StoredProcedure
 
        Command.Parameters.AddWithValue("@Product_ID", ProductID)
        Command.Parameters.AddWithValue("@Total", Total)
        
 
        Command.Parameters.Add(New SqlParameter("@Quote_Number", Data.SqlDbType.Int, 4))
        Command.Parameters("@Quote_Number").Direction = ParameterDirection.Output
 
        DBConnection.Open()
        Command.ExecuteNonQuery()
 
        Quote_Number = Command.Parameters.Item("@Quote_Number").Value
        DBConnection.Close()
 
        
        Return Quote_Number
    End Function
    
        
    'Function to get Product Cost by Product ID
    Private Function GetProductCost(ByVal ProductID As Integer) As Integer
    
        Dim DBConnection As SqlConnection = New SqlConnection(ConfigurationManager.ConnectionStrings("ECT481").ConnectionString)
        Dim Command As SqlCommand
        Dim DataReader As SqlDataReader
        
        Dim Product_Cost As Integer
 
        Command = New SqlCommand("GetProductCost", DBConnection)
        Command.CommandType = CommandType.StoredProcedure
        Command.Parameters.AddWithValue("@ProductID", ProductID)
 
        DBConnection.Open()
        DataReader = Command.ExecuteReader()
 
 
        If DataReader.HasRows Then
 
            While DataReader.Read
 
                Product_Cost = DataReader("Price")
               
            End While
        End If
 
        DBConnection.Close()
        
        Return Product_Cost
        
        
    End Function
        
End Class

Select allOpen in new window