<% Button = Request.form("Button") PropId = Request.form("PropId") %> Travel Site
<%If PropId = "" then%> <%Else End If%> <%If PropId = "" then ET = Request.Querystring("ET") refProvinces = Provinces NumEstablishments = "" %> <%If NumEstablishments <> "0" and NumEstablishments <> "" Then s= "s" If NumEstablishments = "1" then s="" End If If ET = "Guest house" Then Th = "" Else Th = "" End If %> <%=Th%>Guest house<%=s%>
<%=NumEstablishments%><%=Thb%> <%End If NumEstablishments = "" %> <%If NumEstablishments <> "0" and NumEstablishments <> "" Then s= "s" If NumEstablishments = "1" then s="" End If If ET = "Lodge" Then Th = "
" Else Th = "" End If %> <%=Th%>Lodge<%=s%>
<%=NumEstablishments%>
<%=Th%> <%End If NumEstablishments = ""%> <%If NumEstablishments <> "0" and NumEstablishments <> "" Then If ET = "Self-Catering" Then Th = "" Else Th = "" End If %> <%=Th%>Self-Catering
<%=NumEstablishments%>
<%=Thb%> <%End If NumEstablishments = ""%> <%If NumEstablishments <> "0" and NumEstablishments <> "" Then s= "s" If NumEstablishments = "1" then s="" End If If ET = "Backpacker Hostel" Then Th = "
" Else Th = "" End If %> <%=Th%>Backpacker Hostel<%=s%>
<%=NumEstablishments%>
<%=Th%> <%End If NumEstablishments = ""%> <%If NumEstablishments <> "0" and NumEstablishments <> "" Then s= "'s" If NumEstablishments = "1" then s="" End If If ET = "Bed and Breakfast" Then Th = "" Else Th = "" End If %> <%=Th%>B&B<%=s%>
<%=NumEstablishments%>
<%=Th%> <%End If NumEstablishments = ""%> <%If NumEstablishments <> "0" and NumEstablishments <> "" Then s= "s" If NumEstablishments = "1" then s="" End If If ET = "Boutique Hotel" Then Th = "" Else Th = "" End If %> <%=Th%>Boutique Hotel<%=s%>
<%=NumEstablishments%>
<%=Th%> <%End If NumEstablishments = ""%> <%If NumEstablishments <> "0" and NumEstablishments <> "" Then s= "s" If NumEstablishments = "1" then s="" End If If ET = "Hotel" Then Th = "" Else Th = "" End If %> <%=Th%>Hotel<%=s%>
<%=NumEstablishments%>
<%=Th%> <%End If NumEstablishments = ""%> <%If NumEstablishments <> "0" and NumEstablishments <> "" Then s= "s" If NumEstablishments = "1" then s="" End If If ET = "Nature Reserve" Then Th = "" Else Th = "" End If %> <%=Th%>Nature Reserve<%=s%>
<%=NumEstablishments%>
<%=Th%> <%End If NumEstablishments = ""%> <%If NumEstablishments <> "0" and NumEstablishments <> "" Then s= "s" If NumEstablishments = "1" then s="" End If If ET = "Private Home" Then Th = "" Else Th = "" End If %> <%=Th%>Private Home<%=s%>
<%=NumEstablishments%>
<%=Th%> <%End If NumEstablishments = ""%> <%If NumEstablishments <> "0" and NumEstablishments <> "" Then s= "s" If NumEstablishments = "1" then s="" End If If ET = "Resort" Then Th = "" Else Th = "" End If %> <%=Th%>Resort<%=s%>
<%=NumEstablishments%>
<%=Th%> <%End If NumEstablishments = ""%> <%If NumEstablishments <> "0" and NumEstablishments <> "" Then s= "s" If NumEstablishments = "1" then s="" End If If ET = "Safari Lodge" Then Th = "" Else Th = "" End If %> <%=Th%>Safari Lodge<%=s%>
<%=NumEstablishments%>
<%=Th%> <%End If%>
" Thb = "" Thb = "" Thb = "" Thb = "" Thb = "" Thb = "" Thb = "" Thb = "" Thb = "" Thb = "" Thb = "" Thb = "" Thb = "" Thb = "" Thb = "" Thb = "" Thb = "" Thb = "" Thb = "" Thb = "" Thb = "" Thb = "
.
<%Else End If%>
<%If Button <> "" Then%>
<%Else If PropId = "" then%> <%Else%> <%End If%><%End If%>
<%If PropId = "" then%> <%Else End If%>

Join The Visit Africa Web site
All accommodation establishments are welcome. We market you on the internet on a commission basis only.