Variable uses an Automation type not supported in VBScript
/newbackoffice/includes/bookingwebfunction.asp, line 76
หาวิธีแก้มาหลายวันแล้วครับ
Function getBookingStatus(statid)
GetBookingStatusName_value = ""
Sql = "SELECT BookingStatusName FROM bookingstatus WHERE BookingStatusID = "&statid <--line76
Set RsStat = Server.CreateObject("Adodb.RecordSet")
RsStat.Open Sql, Conn, 1, 3
If Not RsStat.Eof Then
GetBookingStatusName_value = RsStat("BookingStatusName")
End If
getBookingStatus = GetBookingStatusName_value
End Function