Server Error in '/' Application.

---

 Line 72:         ''05/01/2010 added to display tour price and supplement price Line 73:         conn.open() Line 74:         Dim objCmdTSupplements As SqlCommand Line 75:         Dim dtTsupplements As New DataTable Line 76:         Dim drTSupp As SqlDataReader

 Line 74:         Dim objCmdTSupplements As SqlCommand Line 75:         Dim dtTsupplements As New DataTable Line 76:         Dim drTSupp As SqlDataReader Line 77:         Dim strSuppSQL As String Line 78:         '// A US version of today's date is required for getting the records which have tourstartdate >= Today 

 Line 75:         Dim dtTsupplements As New DataTable Line 76:         Dim drTSupp As SqlDataReader Line 77:         Dim strSuppSQL As String Line 78:         '// A US version of today's date is required for getting the records which have tourstartdate >= Today  Line 79:         Dim strcurrentculture As String = Convert.ToString(System.Threading.Thread.CurrentThread.CurrentCulture)

 Line 159:        ''05/01/2010 added to display tour price and supplement price Line 160:        conn.open() Line 161:        Dim objCmdTSupplements As SqlCommand Line 162:        Dim dtTsupplements As New DataTable Line 163:        Dim drTSupp As SqlDataReader

 Line 161:        Dim objCmdTSupplements As SqlCommand Line 162:        Dim dtTsupplements As New DataTable Line 163:        Dim drTSupp As SqlDataReader Line 164:        Dim strSuppSQL As String Line 165:        '// A US version of today's date is required for getting the records which have tourstartdate >= Today 

 Line 162:        Dim dtTsupplements As New DataTable Line 163:        Dim drTSupp As SqlDataReader Line 164:        Dim strSuppSQL As String Line 165:        '// A US version of today's date is required for getting the records which have tourstartdate >= Today  Line 166:        Dim strcurrentculture As String = Convert.ToString(System.Threading.Thread.CurrentThread.CurrentCulture)

 Line 246:        ''05/01/2010 added to display tour price and supplement price Line 247:        conn.open() Line 248:        Dim objCmdTSupplements As SqlCommand Line 249:        Dim dtTsupplements As New DataTable Line 250:        Dim drTSupp As SqlDataReader

 Line 248:        Dim objCmdTSupplements As SqlCommand Line 249:        Dim dtTsupplements As New DataTable Line 250:        Dim drTSupp As SqlDataReader Line 251:        Dim strSuppSQL As String Line 252:        '// A US version of today's date is required for getting the records which have tourstartdate >= Today 

 Line 249:        Dim dtTsupplements As New DataTable Line 250:        Dim drTSupp As SqlDataReader Line 251:        Dim strSuppSQL As String Line 252:        '// A US version of today's date is required for getting the records which have tourstartdate >= Today  Line 253:        Dim strcurrentculture As String = Convert.ToString(System.Threading.Thread.CurrentThread.CurrentCulture)

 Line 333:        ''05/01/2010 added to display tour price and supplement price Line 334:        conn.open() Line 335:        Dim objCmdTSupplements As SqlCommand Line 336:        Dim dtTsupplements As New DataTable Line 337:        Dim drTSupp As SqlDataReader

 Line 335:        Dim objCmdTSupplements As SqlCommand Line 336:        Dim dtTsupplements As New DataTable Line 337:        Dim drTSupp As SqlDataReader Line 338:        Dim strSuppSQL As String Line 339:        '// A US version of today's date is required for getting the records which have tourstartdate >= Today 

 Line 336:        Dim dtTsupplements As New DataTable Line 337:        Dim drTSupp As SqlDataReader Line 338:        Dim strSuppSQL As String Line 339:        '// A US version of today's date is required for getting the records which have tourstartdate >= Today  Line 340:        Dim strcurrentculture As String = Convert.ToString(System.Threading.Thread.CurrentThread.CurrentCulture)

 Line 421:        ''05/01/2010 added to display tour price and supplement price Line 422:        conn.open() Line 423:        Dim objCmdTSupplements As SqlCommand Line 424:        Dim dtTsupplements As New DataTable Line 425:        Dim drTSupp As SqlDataReader

 Line 423:        Dim objCmdTSupplements As SqlCommand Line 424:        Dim dtTsupplements As New DataTable Line 425:        Dim drTSupp As SqlDataReader Line 426:        Dim strSuppSQL As String Line 427:        '// A US version of today's date is required for getting the records which have tourstartdate >= Today 

 Line 424:        Dim dtTsupplements As New DataTable Line 425:        Dim drTSupp As SqlDataReader Line 426:        Dim strSuppSQL As String Line 427:        '// A US version of today's date is required for getting the records which have tourstartdate >= Today  Line 428:        Dim strcurrentculture As String = Convert.ToString(System.Threading.Thread.CurrentThread.CurrentCulture)

 Line 510:        ''05/01/2010 added to display tour price and supplement price Line 511:        conn.open() Line 512:        Dim objCmdTSupplements As SqlCommand Line 513:        Dim dtTsupplements As New DataTable Line 514:        Dim drTSupp As SqlDataReader

 Line 512:        Dim objCmdTSupplements As SqlCommand Line 513:        Dim dtTsupplements As New DataTable Line 514:        Dim drTSupp As SqlDataReader Line 515:        Dim strSuppSQL As String Line 516:        '// A US version of today's date is required for getting the records which have tourstartdate >= Today 

 Line 513:        Dim dtTsupplements As New DataTable Line 514:        Dim drTSupp As SqlDataReader Line 515:        Dim strSuppSQL As String Line 516:        '// A US version of today's date is required for getting the records which have tourstartdate >= Today  Line 517:        Dim strcurrentculture As String = Convert.ToString(System.Threading.Thread.CurrentThread.CurrentCulture)

 Line 598:        ''05/01/2010 added to display tour price and supplement price Line 599:        conn.open() Line 600:        Dim objCmdTSupplements As SqlCommand Line 601:        Dim dtTsupplements As New DataTable Line 602:        Dim drTSupp As SqlDataReader

 Line 600:        Dim objCmdTSupplements As SqlCommand Line 601:        Dim dtTsupplements As New DataTable Line 602:        Dim drTSupp As SqlDataReader Line 603:        Dim strSuppSQL As String Line 604:        '// A US version of today's date is required for getting the records which have tourstartdate >= Today 

 Line 601:        Dim dtTsupplements As New DataTable Line 602:        Dim drTSupp As SqlDataReader Line 603:        Dim strSuppSQL As String Line 604:        '// A US version of today's date is required for getting the records which have tourstartdate >= Today  Line 605:        Dim strcurrentculture As String = Convert.ToString(System.Threading.Thread.CurrentThread.CurrentCulture)

 Line 152: Line 153:            row = dtTourPrice.NewRow() Line 154:            row("TourName") = strTourName Line 155:            row("TourCode") = strTourCode Line 156:            row("CurrencySymbol") = strCurrSymbol

 Line 641: Line 642:            row = dtTourPrice.NewRow() Line 643:            row("TourName") = strTourName Line 644:            row("TourCode") = strTourCode Line 645:            row("CurrencySymbol") = strCurrSymbol

 Line 677:    End Function Line 678: Line 679:    Public Shared Function GetUserCurrency(ByVal strToReturn, ByVal strIP) Line 680: Line 681:        '--------------------------------------------------------------------------------------

 Line 677:    End Function Line 678: Line 679:    Public Shared Function GetUserCurrency(ByVal strToReturn, ByVal strIP) Line 680: Line 681:        '--------------------------------------------------------------------------------------

 Line 677:    End Function Line 678: Line 679:    Public Shared Function GetUserCurrency(ByVal strToReturn, ByVal strIP) Line 680: Line 681:        '--------------------------------------------------------------------------------------

 Line 690: Line 691:        'Dim objcountrycode As New com.webmastermafia.tools.GeoIPChecker Line 692:        Dim IPNum Line 693:        IPNum = ConvertIPAddressToNumber(strIP) Line 694:        Dim conn As New System.Data.SqlClient.SqlConnection(ConfigurationManager.ConnectionStrings("TravelObjectsDB").ConnectionString)

 Line 911: Line 912:        conn.open() Line 913:        Dim objCmdTSupplements As SqlCommand Line 914:        Dim dtTsupplements As New DataTable Line 915:        Dim drTSupp As SqlDataReader

 Line 913:        Dim objCmdTSupplements As SqlCommand Line 914:        Dim dtTsupplements As New DataTable Line 915:        Dim drTSupp As SqlDataReader Line 916:        Dim strSuppSQL As String Line 917:        '// A US version of today's date is required for getting the records which have tourstartdate >= Today 

 Line 914:        Dim dtTsupplements As New DataTable Line 915:        Dim drTSupp As SqlDataReader Line 916:        Dim strSuppSQL As String Line 917:        '// A US version of today's date is required for getting the records which have tourstartdate >= Today  Line 918:        Dim strcurrentculture As String = Convert.ToString(System.Threading.Thread.CurrentThread.CurrentCulture)

 Line 980:            Dim DiscountValue As Integer Line 981:            Dim strSQL1 As String Line 982:            Dim ds1 Line 983:            ds1 = New DataSet() Line 984:

 Line 245:    End Function Line 246: Line 247:    Public Shared Function AddPayment(ByVal BID, ByVal PaymentType, ByVal Amount, ByVal Currency, ByVal CardType, ByVal strWordpayRefNo) As Boolean Line 248: Line 249:        Dim objSqlTransaction As SqlTransaction = Nothing

 Line 245:    End Function Line 246: Line 247:    Public Shared Function AddPayment(ByVal BID, ByVal PaymentType, ByVal Amount, ByVal Currency, ByVal CardType, ByVal strWordpayRefNo) As Boolean Line 248: Line 249:        Dim objSqlTransaction As SqlTransaction = Nothing

 Line 245:    End Function Line 246: Line 247:    Public Shared Function AddPayment(ByVal BID, ByVal PaymentType, ByVal Amount, ByVal Currency, ByVal CardType, ByVal strWordpayRefNo) As Boolean Line 248: Line 249:        Dim objSqlTransaction As SqlTransaction = Nothing

 Line 245:    End Function Line 246: Line 247:    Public Shared Function AddPayment(ByVal BID, ByVal PaymentType, ByVal Amount, ByVal Currency, ByVal CardType, ByVal strWordpayRefNo) As Boolean Line 248: Line 249:        Dim objSqlTransaction As SqlTransaction = Nothing

 Line 245:    End Function Line 246: Line 247:    Public Shared Function AddPayment(ByVal BID, ByVal PaymentType, ByVal Amount, ByVal Currency, ByVal CardType, ByVal strWordpayRefNo) As Boolean Line 248: Line 249:        Dim objSqlTransaction As SqlTransaction = Nothing

 Line 245:    End Function Line 246: Line 247:    Public Shared Function AddPayment(ByVal BID, ByVal PaymentType, ByVal Amount, ByVal Currency, ByVal CardType, ByVal strWordpayRefNo) As Boolean Line 248: Line 249:        Dim objSqlTransaction As SqlTransaction = Nothing

 Line 72:         ''05/01/2010 added to display tour price and supplement price Line 73:         conn.open() Line 74:         Dim objCmdTSupplements As SqlCommand Line 75:         Dim dtTsupplements As New DataTable Line 76:         Dim drTSupp As SqlDataReader

 Line 74:         Dim objCmdTSupplements As SqlCommand Line 75:         Dim dtTsupplements As New DataTable Line 76:         Dim drTSupp As SqlDataReader Line 77:         Dim strSuppSQL As String Line 78:         '// A US version of today's date is required for getting the records which have tourstartdate >= Today 

 Line 75:         Dim dtTsupplements As New DataTable Line 76:         Dim drTSupp As SqlDataReader Line 77:         Dim strSuppSQL As String Line 78:         '// A US version of today's date is required for getting the records which have tourstartdate >= Today  Line 79:         Dim datUSDate As String = Now.ToString("d", New System.Globalization.CultureInfo("en-US"))

 Line 504:        ''05/01/2010 added to display tour price and supplement price Line 505:        conn.open() Line 506:        Dim objCmdTSupplements As SqlCommand Line 507:        Dim dtTsupplements As New DataTable Line 508:        Dim drTSupp As SqlDataReader

 Line 506:        Dim objCmdTSupplements As SqlCommand Line 507:        Dim dtTsupplements As New DataTable Line 508:        Dim drTSupp As SqlDataReader Line 509:        Dim strSuppSQL As String Line 510:        '// A US version of today's date is required for getting the records which have tourstartdate >= Today 

 Line 507:        Dim dtTsupplements As New DataTable Line 508:        Dim drTSupp As SqlDataReader Line 509:        Dim strSuppSQL As String Line 510:        '// A US version of today's date is required for getting the records which have tourstartdate >= Today  Line 511:        Dim strcurrentculture As String = Convert.ToString(System.Threading.Thread.CurrentThread.CurrentCulture)

 Line 574:            Dim DiscountValue As Integer Line 575:            Dim strSQL1 As String Line 576:            Dim ds1 Line 577:            ds1 = New DataSet() Line 578:

 Line 666:        ''05/01/2010 added to display tour price and supplement price Line 667:        conn.open() Line 668:        Dim objCmdTSupplements As SqlCommand Line 669:        Dim dtTsupplements As New DataTable Line 670:        Dim drTSupp As SqlDataReader

 Line 668:        Dim objCmdTSupplements As SqlCommand Line 669:        Dim dtTsupplements As New DataTable Line 670:        Dim drTSupp As SqlDataReader Line 671:        Dim strSuppSQL As String Line 672:        '// A US version of today's date is required for getting the records which have tourstartdate >= Today 

 Line 669:        Dim dtTsupplements As New DataTable Line 670:        Dim drTSupp As SqlDataReader Line 671:        Dim strSuppSQL As String Line 672:        '// A US version of today's date is required for getting the records which have tourstartdate >= Today  Line 673:        Dim strcurrentculture As String = Convert.ToString(System.Threading.Thread.CurrentThread.CurrentCulture)

 Line 808:        conn.open() Line 809:        objConn.open() Line 810:        Dim objCmdTSupplements As SqlCommand Line 811:        Dim dtTsupplements As New DataTable Line 812:        Dim drTSupp As SqlDataReader

 Line 810:        Dim objCmdTSupplements As SqlCommand Line 811:        Dim dtTsupplements As New DataTable Line 812:        Dim drTSupp As SqlDataReader Line 813:        Dim strSuppSQL As String Line 814:        '// A US version of today's date is required for getting the records which have tourstartdate >= Today 

 Line 811:        Dim dtTsupplements As New DataTable Line 812:        Dim drTSupp As SqlDataReader Line 813:        Dim strSuppSQL As String Line 814:        '// A US version of today's date is required for getting the records which have tourstartdate >= Today  Line 815:        Dim strcurrentculture As String = Convert.ToString(System.Threading.Thread.CurrentThread.CurrentCulture)

 Line 856:        For Each drSupp As DataRow In dtTourPrice.rows Line 857:            ''Add Supplementprice if isMandatory =1  Line 858:            Dim StrSuppliprice, intCounter, SuppPriceAdult Line 859: Line 860:            Strsuppliprice = "select tblTour.TID AS TourID,tbltourmulticurrencyprices.currid,isnull(tblsupplementprice.ad1,0)as supplementprice,tblsupplementprice.currid as supplementCurrID ," & _

 Line 856:        For Each drSupp As DataRow In dtTourPrice.rows Line 857:            ''Add Supplementprice if isMandatory =1  Line 858:            Dim StrSuppliprice, intCounter, SuppPriceAdult Line 859: Line 860:            Strsuppliprice = "select tblTour.TID AS TourID,tbltourmulticurrencyprices.currid,isnull(tblsupplementprice.ad1,0)as supplementprice,tblsupplementprice.currid as supplementCurrID ," & _

 Line 856:        For Each drSupp As DataRow In dtTourPrice.rows Line 857:            ''Add Supplementprice if isMandatory =1  Line 858:            Dim StrSuppliprice, intCounter, SuppPriceAdult Line 859: Line 860:            Strsuppliprice = "select tblTour.TID AS TourID,tbltourmulticurrencyprices.currid,isnull(tblsupplementprice.ad1,0)as supplementprice,tblsupplementprice.currid as supplementCurrID ," & _

 c:\windows\system32\inetsrv> "C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\vbc.exe" /t:library /utf8output /R:"C:\WINDOWS\assembly\GAC_MSIL\System.ServiceModel\3.0.0.0__b77a5c561934e089\System.ServiceModel.dll" /R:"C:\WINDOWS\assembly\GAC_MSIL\System\2.0.0.0__b77a5c561934e089\System.dll" /R:"C:\WINDOWS\assembly\GAC_MSIL\System.WorkflowServices\3.5.0.0__31bf3856ad364e35\System.WorkflowServices.dll" /R:"C:\WINDOWS\assembly\GAC_MSIL\System.Web.Mobile\2.0.0.0__b03f5f7f11d50a3a\System.Web.Mobile.dll" /R:"C:\WINDOWS\assembly\GAC_MSIL\System.IdentityModel\3.0.0.0__b77a5c561934e089\System.IdentityModel.dll" /R:"C:\WINDOWS\assembly\GAC_MSIL\System.Configuration\2.0.0.0__b03f5f7f11d50a3a\System.Configuration.dll" /R:"C:\WINDOWS\assembly\GAC_32\System.Web\2.0.0.0__b03f5f7f11d50a3a\System.Web.dll" /R:"C:\WINDOWS\assembly\GAC_MSIL\System.ServiceModel.Web\3.5.0.0__31bf3856ad364e35\System.ServiceModel.Web.dll" /R:"C:\WINDOWS\assembly\GAC_32\System.Data\2.0.0.0__b77a5c561934e089\System.Data.dll" /R:"C:\WINDOWS\assembly\GAC_32\System.EnterpriseServices\2.0.0.0__b03f5f7f11d50a3a\System.EnterpriseServices.dll" /R:"C:\WINDOWS\assembly\GAC_MSIL\System.Drawing\2.0.0.0__b03f5f7f11d50a3a\System.Drawing.dll" /R:"C:\WINDOWS\assembly\GAC_MSIL\System.Web.Services\2.0.0.0__b03f5f7f11d50a3a\System.Web.Services.dll" /R:"C:\WINDOWS\assembly\GAC_MSIL\System.Runtime.Serialization\3.0.0.0__b77a5c561934e089\System.Runtime.Serialization.dll" /R:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\ce817a98\bb2a60d0\assembly\dl3\b22cb8f5\a0f3c50d_c8e4cb01\HBI.Acacia.Webservice.DLL" /R:"C:\WINDOWS\assembly\GAC_MSIL\System.Xml\2.0.0.0__b77a5c561934e089\System.Xml.dll" /out:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\ce817a98\bb2a60d0\App_Code.aoasecwl.dll" /debug- /define:_MYTYPE=\"Web\" /imports:Microsoft.VisualBasic,System,System.Collections,System.Collections.Specialized,System.Configuration,System.Text,System.Text.RegularExpressions,System.Web,System.Web.Caching,System.Web.SessionState,System.Web.Security,System.Web.Profile,System.Web.UI,System.Web.UI.WebControls,System.Web.UI.WebControls.WebParts,System.Web.UI.HtmlControls  "C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\ce817a98\bb2a60d0\App_Code.aoasecwl.0.vb" "C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\ce817a98\bb2a60d0\App_Code.aoasecwl.9.vb" "C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\ce817a98\bb2a60d0\App_Code.aoasecwl.4.vb" "C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\ce817a98\bb2a60d0\App_Code.aoasecwl.2.vb" "C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\ce817a98\bb2a60d0\App_Code.aoasecwl.13.vb" "C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\ce817a98\bb2a60d0\App_Code.aoasecwl.12.vb" "C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\ce817a98\bb2a60d0\App_Code.aoasecwl.11.vb" "C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\ce817a98\bb2a60d0\App_Code.aoasecwl.10.vb" "C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\ce817a98\bb2a60d0\App_Code.aoasecwl.16.vb" "C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\ce817a98\bb2a60d0\App_Code.aoasecwl.1.vb" "C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\ce817a98\bb2a60d0\App_Code.aoasecwl.6.vb" "C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\ce817a98\bb2a60d0\App_Code.aoasecwl.3.vb" "C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\ce817a98\bb2a60d0\App_Code.aoasecwl.8.vb" "C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\ce817a98\bb2a60d0\App_Code.aoasecwl.5.vb" "C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\ce817a98\bb2a60d0\App_Code.aoasecwl.15.vb" "C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\ce817a98\bb2a60d0\App_Code.aoasecwl.14.vb" "C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\ce817a98\bb2a60d0\App_Code.aoasecwl.7.vb" Microsoft (R) Visual Basic Compiler version 8.0.50727.1433 for Microsoft (R) .NET Framework version 2.0.50727.1433 Copyright (c) Microsoft Corporation.  All rights reserved. D:\inetpub\ACACIA_HBI_Webservice\App_Code\Acacia.vb(74) : warning BC42024: Unused local variable: 'objCmdTSupplements'.         Dim objCmdTSupplements As SqlCommand             ~~~~~~~~~~~~~~~~~~               D:\inetpub\ACACIA_HBI_Webservice\App_Code\Acacia.vb(76) : warning BC42024: Unused local variable: 'drTSupp'.         Dim drTSupp As SqlDataReader             ~~~~~~~                  D:\inetpub\ACACIA_HBI_Webservice\App_Code\Acacia.vb(77) : warning BC42024: Unused local variable: 'strSuppSQL'.         Dim strSuppSQL As String             ~~~~~~~~~~           D:\inetpub\ACACIA_HBI_Webservice\App_Code\Acacia.vb(161) : warning BC42024: Unused local variable: 'objCmdTSupplements'.         Dim objCmdTSupplements As SqlCommand             ~~~~~~~~~~~~~~~~~~               D:\inetpub\ACACIA_HBI_Webservice\App_Code\Acacia.vb(163) : warning BC42024: Unused local variable: 'drTSupp'.         Dim drTSupp As SqlDataReader             ~~~~~~~                  D:\inetpub\ACACIA_HBI_Webservice\App_Code\Acacia.vb(164) : warning BC42024: Unused local variable: 'strSuppSQL'.         Dim strSuppSQL As String             ~~~~~~~~~~           D:\inetpub\ACACIA_HBI_Webservice\App_Code\Acacia.vb(248) : warning BC42024: Unused local variable: 'objCmdTSupplements'.         Dim objCmdTSupplements As SqlCommand             ~~~~~~~~~~~~~~~~~~               D:\inetpub\ACACIA_HBI_Webservice\App_Code\Acacia.vb(250) : warning BC42024: Unused local variable: 'drTSupp'.         Dim drTSupp As SqlDataReader             ~~~~~~~                  D:\inetpub\ACACIA_HBI_Webservice\App_Code\Acacia.vb(251) : warning BC42024: Unused local variable: 'strSuppSQL'.         Dim strSuppSQL As String             ~~~~~~~~~~           D:\inetpub\ACACIA_HBI_Webservice\App_Code\Acacia.vb(335) : warning BC42024: Unused local variable: 'objCmdTSupplements'.         Dim objCmdTSupplements As SqlCommand             ~~~~~~~~~~~~~~~~~~               D:\inetpub\ACACIA_HBI_Webservice\App_Code\Acacia.vb(337) : warning BC42024: Unused local variable: 'drTSupp'.         Dim drTSupp As SqlDataReader             ~~~~~~~                  D:\inetpub\ACACIA_HBI_Webservice\App_Code\Acacia.vb(338) : warning BC42024: Unused local variable: 'strSuppSQL'.         Dim strSuppSQL As String             ~~~~~~~~~~           D:\inetpub\ACACIA_HBI_Webservice\App_Code\Acacia.vb(423) : warning BC42024: Unused local variable: 'objCmdTSupplements'.         Dim objCmdTSupplements As SqlCommand             ~~~~~~~~~~~~~~~~~~               D:\inetpub\ACACIA_HBI_Webservice\App_Code\Acacia.vb(425) : warning BC42024: Unused local variable: 'drTSupp'.         Dim drTSupp As SqlDataReader             ~~~~~~~                  D:\inetpub\ACACIA_HBI_Webservice\App_Code\Acacia.vb(426) : warning BC42024: Unused local variable: 'strSuppSQL'.         Dim strSuppSQL As String             ~~~~~~~~~~           D:\inetpub\ACACIA_HBI_Webservice\App_Code\Acacia.vb(512) : warning BC42024: Unused local variable: 'objCmdTSupplements'.         Dim objCmdTSupplements As SqlCommand             ~~~~~~~~~~~~~~~~~~               D:\inetpub\ACACIA_HBI_Webservice\App_Code\Acacia.vb(514) : warning BC42024: Unused local variable: 'drTSupp'.         Dim drTSupp As SqlDataReader             ~~~~~~~                  D:\inetpub\ACACIA_HBI_Webservice\App_Code\Acacia.vb(515) : warning BC42024: Unused local variable: 'strSuppSQL'.         Dim strSuppSQL As String             ~~~~~~~~~~           D:\inetpub\ACACIA_HBI_Webservice\App_Code\Acacia.vb(600) : warning BC42024: Unused local variable: 'objCmdTSupplements'.         Dim objCmdTSupplements As SqlCommand             ~~~~~~~~~~~~~~~~~~               D:\inetpub\ACACIA_HBI_Webservice\App_Code\Acacia.vb(602) : warning BC42024: Unused local variable: 'drTSupp'.         Dim drTSupp As SqlDataReader             ~~~~~~~                  D:\inetpub\ACACIA_HBI_Webservice\App_Code\Acacia.vb(603) : warning BC42024: Unused local variable: 'strSuppSQL'.         Dim strSuppSQL As String             ~~~~~~~~~~           D:\inetpub\ACACIA_HBI_Webservice\App_Code\AcaciaAfricaNew.vb(154) : warning BC42104: Variable 'strTourName' is used before it has been assigned a value. A null reference exception could result at runtime.             row("TourName") = strTourName                               ~~~~~~~~~~~ D:\inetpub\ACACIA_HBI_Webservice\App_Code\AcaciaAfricaNew.vb(643) : warning BC42104: Variable 'strTourName' is used before it has been assigned a value. A null reference exception could result at runtime.             row("TourName") = strTourName                               ~~~~~~~~~~~ D:\inetpub\ACACIA_HBI_Webservice\App_Code\AcaciaAfricaNew.vb(679) : warning BC42021: Function without an 'As' clause; return type of Object assumed.     Public Shared Function GetUserCurrency(ByVal strToReturn, ByVal strIP)                            ~~~~~~~~~~~~~~~                                 D:\inetpub\ACACIA_HBI_Webservice\App_Code\AcaciaAfricaNew.vb(679) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.     Public Shared Function GetUserCurrency(ByVal strToReturn, ByVal strIP)                                                  ~~~~~~~~~~~               D:\inetpub\ACACIA_HBI_Webservice\App_Code\AcaciaAfricaNew.vb(679) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.     Public Shared Function GetUserCurrency(ByVal strToReturn, ByVal strIP)                                                                     ~~~~~  D:\inetpub\ACACIA_HBI_Webservice\App_Code\AcaciaAfricaNew.vb(692) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.         Dim IPNum             ~~~~~ D:\inetpub\ACACIA_HBI_Webservice\App_Code\AcaciaAfricaNew.vb(913) : warning BC42024: Unused local variable: 'objCmdTSupplements'.         Dim objCmdTSupplements As SqlCommand             ~~~~~~~~~~~~~~~~~~               D:\inetpub\ACACIA_HBI_Webservice\App_Code\AcaciaAfricaNew.vb(915) : warning BC42024: Unused local variable: 'drTSupp'.         Dim drTSupp As SqlDataReader             ~~~~~~~                  D:\inetpub\ACACIA_HBI_Webservice\App_Code\AcaciaAfricaNew.vb(916) : warning BC42024: Unused local variable: 'strSuppSQL'.         Dim strSuppSQL As String             ~~~~~~~~~~           D:\inetpub\ACACIA_HBI_Webservice\App_Code\AcaciaAfricaNew.vb(982) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.             Dim ds1                 ~~~ D:\inetpub\ACACIA_HBI_Webservice\App_Code\AcaciaAfricaNew.vb(1163) : error BC30451: Name 'adapter1' is not declared.         adapter1 = Nothing         ~~~~~~~~           D:\inetpub\ACACIA_HBI_Webservice\App_Code\Booking.vb(247) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.     Public Shared Function AddPayment(ByVal BID, ByVal PaymentType, ByVal Amount, ByVal Currency, ByVal CardType, ByVal strWordpayRefNo) As Boolean                                             ~~~                                                                                                     D:\inetpub\ACACIA_HBI_Webservice\App_Code\Booking.vb(247) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.     Public Shared Function AddPayment(ByVal BID, ByVal PaymentType, ByVal Amount, ByVal Currency, ByVal CardType, ByVal strWordpayRefNo) As Boolean                                                        ~~~~~~~~~~~                                                                                  D:\inetpub\ACACIA_HBI_Webservice\App_Code\Booking.vb(247) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.     Public Shared Function AddPayment(ByVal BID, ByVal PaymentType, ByVal Amount, ByVal Currency, ByVal CardType, ByVal strWordpayRefNo) As Boolean                                                                           ~~~~~~                                                                    D:\inetpub\ACACIA_HBI_Webservice\App_Code\Booking.vb(247) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.     Public Shared Function AddPayment(ByVal BID, ByVal PaymentType, ByVal Amount, ByVal Currency, ByVal CardType, ByVal strWordpayRefNo) As Boolean                                                                                         ~~~~~~~~                                                    D:\inetpub\ACACIA_HBI_Webservice\App_Code\Booking.vb(247) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.     Public Shared Function AddPayment(ByVal BID, ByVal PaymentType, ByVal Amount, ByVal Currency, ByVal CardType, ByVal strWordpayRefNo) As Boolean                                                                                                         ~~~~~~~~                                    D:\inetpub\ACACIA_HBI_Webservice\App_Code\Booking.vb(247) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.     Public Shared Function AddPayment(ByVal BID, ByVal PaymentType, ByVal Amount, ByVal Currency, ByVal CardType, ByVal strWordpayRefNo) As Boolean                                                                                                                         ~~~~~~~~~~~~~~~             D:\inetpub\ACACIA_HBI_Webservice\App_Code\Goway.vb(74) : warning BC42024: Unused local variable: 'objCmdTSupplements'.         Dim objCmdTSupplements As SqlCommand             ~~~~~~~~~~~~~~~~~~               D:\inetpub\ACACIA_HBI_Webservice\App_Code\Goway.vb(76) : warning BC42024: Unused local variable: 'drTSupp'.         Dim drTSupp As SqlDataReader             ~~~~~~~                  D:\inetpub\ACACIA_HBI_Webservice\App_Code\Goway.vb(77) : warning BC42024: Unused local variable: 'strSuppSQL'.         Dim strSuppSQL As String             ~~~~~~~~~~           D:\inetpub\ACACIA_HBI_Webservice\App_Code\Tour.vb(506) : warning BC42024: Unused local variable: 'objCmdTSupplements'.         Dim objCmdTSupplements As SqlCommand             ~~~~~~~~~~~~~~~~~~               D:\inetpub\ACACIA_HBI_Webservice\App_Code\Tour.vb(508) : warning BC42024: Unused local variable: 'drTSupp'.         Dim drTSupp As SqlDataReader             ~~~~~~~                  D:\inetpub\ACACIA_HBI_Webservice\App_Code\Tour.vb(509) : warning BC42024: Unused local variable: 'strSuppSQL'.         Dim strSuppSQL As String             ~~~~~~~~~~           D:\inetpub\ACACIA_HBI_Webservice\App_Code\Tour.vb(576) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.             Dim ds1                 ~~~ D:\inetpub\ACACIA_HBI_Webservice\App_Code\Tour.vb(668) : warning BC42024: Unused local variable: 'objCmdTSupplements'.         Dim objCmdTSupplements As SqlCommand             ~~~~~~~~~~~~~~~~~~               D:\inetpub\ACACIA_HBI_Webservice\App_Code\Tour.vb(670) : warning BC42024: Unused local variable: 'drTSupp'.         Dim drTSupp As SqlDataReader             ~~~~~~~                  D:\inetpub\ACACIA_HBI_Webservice\App_Code\Tour.vb(671) : warning BC42024: Unused local variable: 'strSuppSQL'.         Dim strSuppSQL As String             ~~~~~~~~~~           D:\inetpub\ACACIA_HBI_Webservice\App_Code\Tour.vb(810) : warning BC42024: Unused local variable: 'objCmdTSupplements'.         Dim objCmdTSupplements As SqlCommand             ~~~~~~~~~~~~~~~~~~               D:\inetpub\ACACIA_HBI_Webservice\App_Code\Tour.vb(812) : warning BC42024: Unused local variable: 'drTSupp'.         Dim drTSupp As SqlDataReader             ~~~~~~~                  D:\inetpub\ACACIA_HBI_Webservice\App_Code\Tour.vb(813) : warning BC42024: Unused local variable: 'strSuppSQL'.         Dim strSuppSQL As String             ~~~~~~~~~~           D:\inetpub\ACACIA_HBI_Webservice\App_Code\Tour.vb(858) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.             Dim StrSuppliprice, intCounter, SuppPriceAdult                 ~~~~~~~~~~~~~~                             D:\inetpub\ACACIA_HBI_Webservice\App_Code\Tour.vb(858) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.             Dim StrSuppliprice, intCounter, SuppPriceAdult                                 ~~~~~~~~~~                 D:\inetpub\ACACIA_HBI_Webservice\App_Code\Tour.vb(858) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.             Dim StrSuppliprice, intCounter, SuppPriceAdult                                             ~~~~~~~~~~~~~~ 

 Line 1:    Imports System.Web.ConfigurationLine 2:    Imports System.DataLine 3:    Imports System.Data.SqlClientLine 4:    Line 5:    Public Class AcaciaLine 6:    Line 7:    Public Shared Function GetTourInfo(ByVal strTourCode As String) As System.Data.DataSetLine 8:            Dim conn As New System.Data.SqlClient.SqlConnection(ConfigurationManager.ConnectionStrings("TravelObjectsDB").ConnectionString)Line 9:            Dim ds As New DataSet()Line 10:           Dim adapter As New SqlClient.SqlDataAdapter()Line 11:           Dim strSQL As StringLine 12:   Line 13:   		strSQL = "SELECT TourMasterCode AS TourCode, TourMasterName AS TourName, TourMasterProduct AS Product, TourMasterDescription As [Description], TourMasterDuration AS Duration, " & _Line 14:   				"TourStartLocation, TourEndLocation, TMItineraryPdf AS Dossier, TMMap AS TourMap, TourMasterIncluded As Included, TourMasterNotIncluded As NotIncluded, TMMisc, MapImageURL, " & _Line 15:   				"(SELECT tblUDFValues.UDFValue FROM tblUDFRoot INNER JOIN tblUDFValues ON tblUDFValues.UDFID = tblUDFRoot.UDFID WHERE (UDFName LIKE 'Image1') AND (UDFGroup='T') AND (tblUDFValues.UDFSourceID = tblTourMaster.TMID)) AS Image1, " & _Line 16:   				"(SELECT tblUDFValues.UDFValue FROM tblUDFRoot INNER JOIN tblUDFValues ON tblUDFValues.UDFID = tblUDFRoot.UDFID WHERE (UDFName LIKE 'Image2') AND (UDFGroup='T') AND (tblUDFValues.UDFSourceID = tblTourMaster.TMID)) AS Image2 " & _Line 17:   				"FROM tblTourMaster WHERE TourMasterCode LIKE '" & strTourCode & "'"Line 18:   Line 19:           adapter.SelectCommand = New System.Data.SqlClient.SqlCommand(strSQL, conn)Line 20:           adapter.Fill(ds, "TourInfo")Line 21:           Return dsLine 22:           conn.Close()Line 23:       End FunctionLine 24:   Line 25:    Public Shared Function GetTourAdditionalInfo(ByVal strTourCode As String) As Syste --.



Acacia-africa.com  ~  
Site Info  
Whois  
Trace Route  
RBL Check