Imports System.Web Imports System.Web.Services Imports System.Web.Services.Protocols <System.Web.Script.Services.ScriptService()> _ <WebService(Namespace:="http://tempuri.org/")> _ <WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _ <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> Public Class Booking Inherits System.Web.Services.WebService <webmethod()> <system.web.script.services.scriptmethod(usehttpget:> ResponseFormat:=Script.Services.ResponseFormat.Json)> _ Public Function MobileBooking(ByVal Pickuplocation As String, ByVal Droplocation As String, ByVal latitude As String) As String Dim conObj As New ConnectionCls Dim clsConObj As New ConnectionCls Dim dts As String Dim ob(2) As Object ob(0) = Pickuplocation ob(1) = Droplocation ob(2) = latitude Try dts =test.DataAccess.ExecuteNonQuery(clsConObj.getConnectionString, "Web_MobileBookingInsert", ob) If dts.ToString = -1 Then Return "Insert Failed" Else Return "Insert Sucessful" End If
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)