<%
p = request.servervariables("URL")
q = request.servervariables("Query_String")
%>
|
Tell A Friend
|
 |
| Home | About Us | Bali Hotel Reservation | Bali Classifieds | Bali Villa Reservation | Bali Article | Bali Property | Bali Dances | Bali Taksu |
|
Bali Community | Bali List of Temple | Guest Book | Bali Beyond | Bali Art Painting | Bali Diving | Shopping | Bali Water Sports |
|
Bali Spa and Tallaso | Bali Places of Interest | Bali Special Events | Bali Culture | Bali Beaches | Bali History |
|
Bali Resources | Bali Hosting Specialist | What's In Bali | Bali Golf | Bali Calendar of Event |
|
<%
dim rsMP,sqlMP,sFolderSpec
dim maxMP,l
Set adoCon = CreateObject("ADODB.Connection")
sMapPath = Server.MapPath("\")
sMapPath = Mid(sMapPath, 1, InStrRev(sMapPath,"\")-1) & "\db\links.mdb;" & _
"Persist Security Info=False;"
adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sMapPath
Set rsMP = Server.CreateObject("ADODB.Recordset")
sqlMP = "SELECT MAX(page) FROM link_partner"
rsMP.Open sqlMP,adoCon
MaxMP = rsMP(0)
rsMP.Close
adoCon.Close
%>
<%Sub ShowFolderList(folderspec)
Dim fs, f, f1, fc, s, temp
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folderspec)
Set fc = f.Files
l = 1
For Each f1 in fc
if instr(f1.Name, "link") and (l < MaxMP) then
l = l + 1
s = " "& l & " "
response.write s
end if
Next
End Sub
%>
|
|
|
| Denpasar Government Tourism |
| Dinas Pariwisata Kota Denpasar |
|
|
|
Presented By : BaliVision.com
|
|
Jl. Kesari 32 Sanur 80228 Bali Indonesia, Phone +62-361-289534 (hunting), Fax +62-361-282601
|
|
<%
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set Fileindex = objFSO.GetFile("c:/domains/balivision.com/db/kurs.mdb")
LU = FileIndex.DateLastModified
LA = FileIndex.DateLastAccessed
%>
Copyright © 1998 BaliVision.Com, Inc. All Rights Reserved. Integrated Marketing Information's, page design by Bali Vision Team Work.
Last Update <%=LU%>, Last Access <%=LA%>,
Best viewed with Internet Explorer
|
|
|
|
|
|
