strReturn: " & strReturn & "
" Set xobj = nothing GetHash = Mid(strReturn,InStr(strReturn,"
| " End If If Not objPagingRS.EOF Then for c = 0 to ubound(colList) 'Dim colNo colNo = Val(colList(c)) DisplayByPage = DisplayByPage & " | " & objPagingRs.Fields(colNo).Name & " | " next End If DisplayByPage = DisplayByPage & "|
| " DisplayByPage = DisplayByPage & "" DisplayByPage = DisplayByPage & " | " end if for c = 0 to ubound(colList) 'Dim colNo colNo = Val(colList(c)) If colLink > -1 and colNo = colLink Then DisplayByPage = DisplayByPage & "" DisplayByPage = DisplayByPage & "" DisplayByPage = DisplayByPage & " " & objPagingRs(colNo) & "" DisplayByPage = DisplayByPage & " | " Else DisplayByPage = DisplayByPage & ""
DisplayByPage = DisplayByPage & " " & objPagingRs(colNo) & " " DisplayByPage = DisplayByPage & " | "
End If
next
DisplayByPage = DisplayByPage & "
" End If If Session("Amount") <> Amount Then ErrCnt = ErrCnt + 1 ErrMsg = ErrMsg & "Payment amount from Mobile88 does not match ours" & "
" End If 'response.write "my sign is " & GetSignature(PaymentId,RefNo,Amount,Status) & "
" If GetSignature(PaymentId,RefNo,Amount,Status) <> Signature Then ErrCnt = ErrCnt + 1 ErrMsg = ErrMsg & "Signatrue from Mobile88 does not match ours" End If If ErrCnt = 0 Then SecurePayment = 1 Else Bdy = "There is an unsecured payment for booking " & Session("RefNo") & " with the following errors." & "
" Bdy = Bdy & ErrMsg SendEmail FromEmail,FromEmail,"","","Unsecure Payment - " & Session("RefNo"),Bdy,"" SecurePayment = 0 End If End Function Function SendToPaymexInq(byval MerchantCode, RefNo, Amount) QString="MerchantCode=" & MerchantCode & "&RefNo=" & RefNo & "&Amount=" & Amount URL = "https://www.mobile88.com/epayment/enquiry.asp" strReturn = "" Set xobj = Server.CreateObject ("MSXML2.ServerXMLHTTP") xobj.open "POST", URL, false xobj.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" xobj.send QString strReturn = xobj.responseText Set xobj = nothing SendToPaymexInq = strReturn End Function Function CheckRoomRate(HotelNo, RoomCode, AccoDate) Dim adoRsRT, strSQL, Normal, Rate, IsNormal Set adoRsRT = Server.CreateObject("ADODB.recordset") strSQL = "SELECT * FROM tbHotelRateType WHERE HotelNo = " & HotelNo & " ORDER BY RateTypeNo DESC" adoRsRT.Open strSQL, adoConn IsNormal = true 'response.write "AccoDate=" & AccoDate & "
" Do While Not adoRsRT.EOF 'response.write adoRsRT("RateTypeNo") & "
" 'response.write "PublicHOliday=" & adoRsRT("PublicHoliday") & "
" 'response.write "SchoolHOliday=" & adoRsRT("SchoolHoliday") & "
" 'response.write "Other=" & adoRsRT("Other") & "
" If adoRsRT("PublicHoliday")=0 and adoRsRT("SchoolHoliday")=0 and adoRsRT("Other")=0 and adoRsRT("Friday")=0 and adoRsRT("Saturday")=0 and adoRsRT("Sunday")=0 Then Normal = adoRsRT("RateTypeNo") End If If adoRsRT("Other") = 1 Then ' if other holiday charge other holiday rate 'response.write "Other flag" If IsOtherHoliday(AccoDate,adoRsRT("RateTypeNo")) Then Rate = GetRate(HotelNo,RoomCode,adoRsRT("RateTypeNo")) 'response.write HotelNo & "
" 'response.write adoRsRT("RateTypeNo") & "
" IsNormal = false Exit Do End If End If ' if publicholiday charge publicholiday rate If adoRsRT("PublicHoliday") = 1 Then 'response.write "PublicHoliday flag" If IsHoliday(AccoDate) Then Rate = GetRate(HotelNo,RoomCode,adoRsRT("RateTypeNo")) IsNormal = false Exit Do End If End If If adoRsRT("SchoolHoliday") = 1 Then ' if schoolholiday charge schoolholiday rate 'response.write "SchoolHoliday flag" If IsSchoolHoliday(AccoDate) Then Rate = GetRate(HotelNo,RoomCode,adoRsRT("RateTypeNo")) IsNormal = false Exit Do End If End If If adoRsRT("Friday") = 1 and Weekday(DateValue(AccoDate)) = 6 Then ' if friday 'response.write "Friday
" Rate = GetRate(HotelNo,RoomCode,adoRsRT("RateTypeNo")) IsNormal = false Exit Do End If If adoRsRT("Saturday") = 1 and Weekday(DateValue(AccoDate)) = 7 Then ' if saturday 'response.write "Saturday
" Rate = GetRate(HotelNo,RoomCode,adoRsRT("RateTypeNo")) IsNormal = false Exit Do End If If adoRsRT("Sunday") = 1 and Weekday(DateValue(AccoDate)) = 1 Then ' if sunday 'response.write "Sunday
" Rate = GetRate(HotelNo,RoomCode,adoRsRT("RateTypeNo")) IsNormal = false Exit Do 'Else 'normal 'Rate = GetRate(HotelNo,RoomCode,Normal) 'Exit Do End If adoRsRT.MoveNext Loop adoRsRT.Close If IsNormal Then Rate = GetRate(HotelNo,RoomCode,Normal) End If CheckRoomRate = Rate End Function Function IsHoliday(AccoDate) Dim adoRsHol, strSQL, holiday Set adoRsHol = Server.CreateObject("ADODB.recordset") holiday = false strSQL = "SELECT * FROM tbHoliday WHERE (HolidayDate = '" & MySQLDate(DateValue(AccoDate)) & "' AND PublicHoliday = 1) OR (HolidayDate = '" & MySQLDate(DateValue(AccoDate)) & "' AND EvePublicHoliday=1)" adoRsHol.Open strSQL, adoConn If Not adoRsHol.EOF Then holiday = true End If adoRsHol.Close IsHoliday = holiday End Function Function IsSchoolHoliday(AccoDate) Dim adoRsHol, strSQL, holiday Set adoRsHol = Server.CreateObject("ADODB.recordset") holiday = false strSQL = "SELECT * FROM tbHoliday WHERE HolidayDate = '" & MySQLDate(DateValue(AccoDate)) & "' AND SchoolHoliday = 1" adoRsHol.Open strSQL, adoConn If Not adoRsHol.EOF Then holiday = true End If adoRsHol.Close IsSchoolHoliday = holiday End Function Function IsOtherHoliday(AccoDate, RateTypeNo) Dim adoRsHol, strSQL, holiday Set adoRsHol = Server.CreateObject("ADODB.recordset") holiday = false strSQL = "SELECT * FROM tbHotelRateTypeOther WHERE RateDate = '" & MySQLDate(DateValue(AccoDate)) & "' AND RateTypeNo = " & RateTypeNo adoRsHol.Open strSQL, adoConn 'response.write strSQL & "
" If Not adoRsHol.EOF Then holiday = true End If adoRsHol.Close IsOtherHoliday = holiday End Function Function GetRate(HotelNo,RoomCode,RateTypeNo) Dim adoRsRate, strSQL, rate Set adoRsRate = Server.CreateObject("ADODB.recordset") strSQL = "SELECT * FROM tbHotelRoomRate WHERE HotelNo = " & HotelNo & " AND RoomCode = '" & RoomCode & "' AND RateTypeNo = " & RateTypeNo adoRsRate.Open strSQL, adoConn rate = adoRsRate("Rate") adoRsRate.Close 'response.write strSQL & "
" 'rate = 0 GetRate = rate End Function Function GetRunningNo() Dim adoRs strSQL = "SELECT RunningNo FROM tbOnlinePayment" if adoConn.ConnectionString = "" then adoConn.open mbhDB end if Set adoRs = adoConn.execute(strSQL) PKey = Replace(PKey, "'", "''") If Not adoRs.eof Then If Not IsNull(adoRs.Fields("RunningNo")) Then GetRunningNo = adoRs.Fields("RunningNo") adoRs.Close adoRs.Open "UPDATE tbOnlinePayment SET RunningNo = " & GetRunningNo + 1 , adoConn Else GetRunningNo = -1 End If Else GetRunningNo = -1 End If End Function Function IsUrgentBooking(CheckInDate) 'booking 7 days in advance (incl. sat & sun) is consider as urgent booking If DateDiff("d",Date(),DateValue(CheckInDate)) <= 7 Then IsUrgentBooking = True Else IsUrgentBooking = False End If End Function Function CheckRoomAvailability(HotelNo,RoomCode,AccoDate,NoUnit) Dim adoRs, strSQL Dim Allotment, BookedUnit, HeldUnit, AvailableUnit, BlockedUnit Set adoRs = Server.CreateObject("ADODB.recordset") strSQL = "SELECT Allotment FROM tbHotelRoom WHERE HotelNo = " & HotelNo & " AND RoomCode = '" & RoomCode & "'" adoRs.Open strSQL, adoConn Allotment = CInt(adoRs("Allotment")) adoRs.Close strSQL = "SELECT NoRoom FROM tbHotelBooking WHERE HotelNo = " & HotelNo & " AND RoomCode = '" & RoomCode & "' AND CheckIn <= '" & MySQLDate(AccoDate) & "' AND CheckOut > '" & MySQLDate(AccoDate) & "'" adoRs.Open strSQL, adoConn If Not adoRs.EOF Then BookedUnit = CInt(adoRs("NoRoom")) Else BookedUnit = 0 End If adoRs.Close strSQL = "SELECT SessionId, NoRoom FROM tbHotelRoomHold WHERE HotelNo = " & HotelNo & " AND RoomCode = '" & RoomCode & "' AND AccoDate = '" & MySQLDate(AccoDate) & "'" adoRs.Open strSQL, adoConn If Not adoRs.EOF Then Do While Not adoRs.EOF If CStr(Session("SessionID")) <> CStr(adoRs("SessionId")) Then HeldUnit = HeldUnit + CInt(adoRs("NoRoom")) End If adoRs.MoveNext Loop Else HeldUnit = 0 End If adoRs.Close 'check blocked unit strSQL = "SELECT BlockedUnit FROM tbHotelRoomBlock WHERE HotelNo = " & HotelNo & " AND RoomCode = '" & RoomCode & "' AND FromDate <= '" & MySQLDate(AccoDate) & "' AND ToDate >= '" & MySQLDate(AccoDate) & "'" adoRs.Open strSQL, adoConn If Not adoRs.EOF Then BlockedUnit = adoRs("BlockedUnit") Else BlockedUnit = 0 End If adoRs.Close AvailableUnit = Allotment - BookedUnit - HeldUnit - BlockedUnit If CInt(AvailableUnit) >= CInt(NoUnit) Then CheckRoomAvailability = NoUnit HoldRoom AccoDate Else CheckRoomAvailability = 0 End If End Function Sub UnholdRoom() Dim adoRs, strSQL Set adoRs = Server.CreateObject("ADODB.recordset") strSQL = "DELETE FROM tbHotelRoomHold WHERE TIMEDIFF(NOW(),CreatedDate) > TIME('00:02:00')" adoRs.Open strSQL, adoConn End Sub Sub HoldRoom(AccoDate) Dim adoRs, strSQL, HoldId Set adoRs = Server.CreateObject("ADODB.recordset") HoldId = GetNextNo("HoldId", "tbHotelRoomHold") adoRs.Open "SELECT * FROM tbHotelRoomHold WHERE SessionId = " & Session("SessionId") & " AND HotelNo=" & Session("HotelNo") & " AND RoomCode='" & Session("RoomCode") & "' AND AccoDate='" & MySQLDate(AccoDate) & "'", adoConn If adoRs.EOF Then strSQL = "INSERT INTO tbHotelRoomHold (HoldId,HotelNo,RoomCode,SessionId,CreatedDate,NoRoom,AccoDate) VALUES (" & HoldId & "," & Session("HotelNo") & ",'" & Session("RoomCode") & "'," & Session("SessionID") & ",Now()," & Session("NoUnit") & ",'" & MySQLDate(AccoDate) & "')" Else strSQL = "UPDATE tbHotelRoomHold SET HotelNo=" & Session("HotelNo") & ", RoomCode='" & Session("RoomCode") & "',NoRoom=" & Session("NoUnit") & ",AccoDate='" & MySQLDate(AccoDate) & "' WHERE SessionId=" & Session("SessionId") End If adoRs.Close adoRs.Open strSQL, adoConn 'response.write "HoldId=" & Session("HoldId") 'adoRs.Open strSQL, adoConn End Sub Sub ReleaseHoldedRoom(AccoDate) Dim adoRs, strSQL Set adoRs = Server.CreateObject("ADODB.recordset") strSQL = "DELETE FROM tbHotelRoomHold WHERE SessionId = " & Session("SessionId") & " AND HotelNo=" & Session("HotelNo") & " AND RoomCode='" & Session("RoomCode") & "' AND AccoDate='" & MySQLDate(AccoDate) & "'" adoRs.Open strSQL, adoConn End Sub Function GetMenu() Dim CurPath, ArrCurPath, ArrFolder CurPath = LCase("http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("URL")) ArrCurPath = split(CurPath,LCase(Domainname)) ArrFolder = split(ArrCurPath(1), "/") GetMenu = ArrFolder(1) End Function Function AccessRights(role,hotelno) Dim adoRs, access Set adoRs = Server.CreateObject("ADODB.recordset") adoRs.Open "SELECT * FROM tbUserRole UR INNER JOIN tbRole R ON UR.RoleId=R.RoleId WHERE R." & role & "=1 AND UR.UserId=" & Session("UserId"), memberConn 'response.write "SELECT * FROM tblACUserRole UR INNER JOIN tblACRole R ON UR.RoleId=R.RoleId WHERE R." & role & "=1 AND UR.UserId=" & Session("UserId") If adoRs.EOF Then access = false Else access = true End If adoRs.Close 'if User is hotel and hotelno<>empty, check whether hotelno=user If hotelno<>"" Then adoRs.Open "SELECT * FROM tbUserHotel WHERE UserId=" & Session("UserId") & " AND HotelNo=" & hotelno, adoConn If adoRs.EOF Then access = false Else access = true End If End If 'adoRs.Close AccessRights = access End Function Function GetHotelNo(UserId) Dim adoRs, HotelNo, strSQL Set adoRs = Server.CreateObject("ADODB.recordset") strSQL = "SELECT HotelNo FROM tbUserHotel WHERE UserId=" & UserId 'response.write strSQL adoRs.Open strSQL, adoConn If adoRs.EOF Then HotelNo = 0 Else HotelNo = adoRs("HotelNo") End If 'adoRs.Close GetHotelNo = HotelNo End Function Function IsBlockAll(HotelNo, RoomCode, AccoDate) Dim BlockAll 'check blocked unit strSQL = "SELECT BlockedUnit FROM tbHotelRoomBlock WHERE HotelNo = " & HotelNo & " AND RoomCode = '" & RoomCode & "' AND FromDate <= '" & MySQLDate(AccoDate) & "' AND ToDate >= '" & MySQLDate(AccoDate) & "' AND BlockType='All'" adoRs.Open strSQL, adoConn If Not adoRs.EOF Then BlockAll = true Else BlockAll = false End If adoRs.Close 'response.write "blockall=" & BlockAll IsBlockAll = BlockAll End Function Function GetPaymentMethodId(PaymentMethod) Select Case PaymentMethod Case "ATM" GetPaymentMethodId= 0 Case "Credit Card" GetPaymentMethodId= 2 Case "Maybank" GetPaymentMethodId= 6 Case "Alliance" GetPaymentMethodId= 8 Case "RHB" GetPaymentMethodId= 14 Case "Hong Leong" GetPaymentMethodId= 15 Case "FPX" GetPaymentMethodId= 16 End Select End Function dim ss, ds, ts, qs ss = "one,two,three,four,five,six,seven,eight,nine" ds = "ten,eleven,twelve,thirteen,fourteen,fifteen,sixteen," & _ "seventeen,eighteen,nineteen" ts = "twenty,thirty,forty,fifty,sixty,seventy,eighty,ninety" qs = ",thousand,million,billion" Function nnn2words(iNum) a = split(ss,",") i = iNum mod 10 if i > 0 then s = a(i-1) ii = int(iNum mod 100)\10 if ii = 1 then s = split(ds,",")(i) elseif ((ii>1) and (ii<10)) then s = split(ts,",")(ii-2) & " " & s end if i = (iNum \ 100) mod 10 if i > 0 then s = a(i-1) & " hundred " & s nnn2words = s End Function Function num2words(iNum) i = iNum if i < 0 then b = true: i = i*-1 if i = 0 then s="zero" elseif i <= 2147483647 then a = split(qs,",") for j = 0 to 3 iii = i mod 1000 i = i \ 1000 if iii > 0 then s = nnn2words(iii) & _ " " & a(j) & " " & s next else s = "out of range value" end if if b then s = "negative " & s num2words = trim(s) End Function Function GetEncrypt(byval stringToBeEncrypted) QString="stringToBeEncrypted=" & stringToBeEncrypted & "&RefNo=" & RefNo & "&Amount=" & Amount URL = "http://malaysiabudgethotel.com/AddBook.asmx/HelloWorld" strReturn = "" Set xobj = Server.CreateObject ("MSXML2.ServerXMLHTTP") xobj.open "POST", URL, false xobj.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" xobj.send QString strReturn = xobj.responseText Set xobj = nothing GetEncrypt = strReturn End Function Function GetAdsPacType(ByVal HotelNo) Dim AdsPacType AdsPacType = "" adoConn.Open mbhDB Set adoRs = Server.CreateObject("ADODB.recordset") strSQL = "SELECT AdsPacType FROM tbHotelAdsPac WHERE HotelNo = " & CInt(HotelNo) adoRs.Open strSQL, adoConn If Not adoRs.EOF Then AdsPacType = adoRs("AdsPacType") End If adoConn.Close() GetAdsPacType = AdsPacType End Function %>
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
3D2N Langkawi Romantic Escape A
Other Related Packages<%for h = 0 to ubound(HotelNo) If HotelNo(h) > 0 Then%>
<%=UCase(Hotel(h))%>
|
<% On Error Resume Next adoConn.Open mbhDB Set adoRs = Server.CreateObject("ADODB.recordset") adoRs.Open "SELECT * FROM tbDestination D INNER JOIN tbState S ON D.State=S.StateCode WHERE S.Country='Malaysia' ORDER BY Destination", adoConn %>
<%Select Case LCase(GetMenu()) Case "accommodation" %>
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Home | About Us | FAQ | /tell-your-friends.html','Tell_your_friends');>Tell your friends | Forum | Sitemap | Contact Us | Travel Links | Link Exchange Copyright © 2006 - 2008 Hot Travel Station - MalaysiaBudgetHotel. All Rights Reserved. |
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
