|
|
|
|
 |
|
TARANGIRE:
LAKE
MANYARA:
 |
 |
 |
|
 |
 |
|
|
|
|
Lake
Manyara Serena Lodge
|
|
|
Maji
Moto Tented Camp
Kirumu Tented Camp
|
|
|
|
 |
|
|
|
|
NGORONGORE CRATER:
|
|
|
|
|
|
|
|
|
|
Ngorongoro
Serena Safari Lodge
|
|
|
|
|
|
|
|
|
|
|
SERENGETI:
|
|
|
|
|
|
|
|
|
|
|
|
|
Kirawira
Camp
Grumeti River Camp
Klein's Camp
|
|
|
|
|
|
|
|
|
RUAHA NATIONAL PARK:
SELOUS GAME RESERVE:
ZANZIBAR:
|
|
|
|
|
|
|
|
|
|
Emerson
& Green
Breezes Beach Club
Blue Bay Beach Resort
|
|
|
Sultan Palace
(Garden Rooms)
Mnemba Island
Zanzibar Serena Inn |
|
|
|
|
|
|
|
|
KENYA:
|
|
 |
 |
 |
 |
 |
 |
© Tanzania Tourist Board |
<%
Dim CountryCode
Dim AreaCode
CountryCode = "tan"
AreaCode = "Africa"
%>
<%
'Option Explicit
'dim strConnect
''
'strConnect= "Driver={Microsoft Access Driver (*.mdb)};" & "Dbq=D:\newsite\db\asia.mdb;"
''
strConnect= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= D:\www\customers\absoluteasia\newsite\db\asia.mdb;"
'"Dbq=D:\www\customers\absoluteasia\db\asia.mdb;"
%>
<%
'Get Tours For Country
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.strConnect '//this is for dsn-less connections only
'Conn."asia" // this is for dsn connections
strSQL = "SELECT Section_Three,Section_Three_Head FROM country where area = '" & AreaCode & "' and code = '" & CountryCode & "'"
'response.write strSQL
Set rst = Conn.Execute(strSQL)
Do while not rst.eof
if includeCode = "all" then
response.write rst("Section_Three_Head")
end if
response.write rst("Section_Three")
rst.movenext
loop
Set rst = Nothing
Conn.Close
Set Conn = Nothing
%>
|
|
 |
|
