%@ Language=VBScript %>
<%
set conn=server.CreateObject("adodb.connection")
Conn.open "dsn=friendly"
set rs=server.CreateObject("adodb.recordset")
rs.ActiveConnection=conn
rs.Open "select * from category where name<>'' order by seder"
Function Splittt(MyString, Num)
Spl = left(Mystring, Num)
Length = Trim(Mystring)
if len(MyString) > 0 then
If (len(length) <= Num) then
Splittt = Spl
Else
Splittt = Replace(Spl, Spl,Spl & "..." )
End If
else
Splittt = Spl
end if
End Function
%>
Sind On line 24 Stunden am Tag! Sprechen Sie persoenlich mit Ihrem „Friendly“ Experten. Fragen Sie alles ueber Hotels, Attraktionen, Touren, Tauchen…und wir helfen Ihnen Ihren Urlaub hier in Eilat von zu Hause aus zu planen.
Klicken Sie auf das Hotel oder die Herberge Ihrer Wahl fuer mehr Information