<%
'- - - Function : Show Referer Directory - - -
function Dir()
Dir = request.servervariables("HTTP_REFERER")
Pos1 = inStrRev(Dir,"/")
Pos2 = inStrRev(Dir,"/",Pos1-1)
Pos = Pos1 - Pos2
Dir = mid(Dir,Pos2+1,Pos-1)
if inStr(Dir,".") then
Dir = ""
end if
end function
'- - -
%>
<%
'- - - Function : Show Server Name - - -
function DomainName()
Ref = request.servervariables("HTTP_REFERER")
if inStr(Ref,"www.") = 0 then
Pos = inStr(8,Ref,"/")-8
DomainName = mid(Ref,8,Pos)
elseif inStr(8,Ref,"/") <> 0 then
Pos = inStr(8,Ref,"/")-12
DomainName = mid(Ref,12,Pos)
else
DomainName = mid(Ref,12)
end if
end function
'- - -
%>
<%
RefURL = request.servervariables("HTTP_REFERER")
AddRecipient = "support@ehotelbooking.com"
MailTo = "enquiry@" & DomainName()
%>
<%
TableColor = "336699"
TableFrameColor = "99CCFF"
TableWidth = "700"
%>
Reservation Online : White Sand Beach Resort ,Koh Chang hotels & resorts, White Sand Beach (Had Sai Khao),Koh Chang(Ko Chang),Trat (Trad),Thailand Asia by Whitesandbeachresort.net
