<%Set siteayar= Server.CreateObject("ADODB.RecordSet") siteayarsql= "SELECT * FROM t_site_ayar" siteayar.open siteayarsql,Connection,1,3 Set meta= Server.CreateObject("ADODB.RecordSet") SQLset= "Select * from t_site_meta_tag where dil='"&session("lang")&"'" meta.open SQLset,Connection,1,3 dim turs turs = siteayar("makstur") dim para para = siteayar("parabirim") FUNCTION ayyaz(ay) Dim aylar(12) aylar(1) = cevir2("ocak") aylar(2) = cevir2("subat") aylar(3) = cevir2("mart") aylar(4) = cevir2("nisan") aylar(5) = cevir2("mayis") aylar(6) = cevir2("haziran") aylar(7) = cevir2("temmuz") aylar(8) = cevir2("agustos") aylar(9) = cevir2("eylul") aylar(10) = cevir2("ekim") aylar(11) = cevir2("kasim") aylar(12) = cevir2("aralik") ayyaz = aylar(ay) end function %> <%=meta("baslik")%> name=author> " name=description> " name=keywords> <% function cevir(ne) Set langdb= Server.CreateObject("ADODB.RecordSet") langsql= "SELECT * FROM t_site_languages where lankod = '" &ne& "'" langdb.open langsql,Connection,1,3 if langdb.eof then response.Write ne else cevir = langdb(""&lang&"") response.Write cevir end if end function function cevir2(ne) Set langdb= Server.CreateObject("ADODB.RecordSet") langsql= "SELECT * FROM t_site_languages where lankod = '" &ne& "'" langdb.open langsql,Connection,1,3 if langdb.eof then response.Write ne else cevir2 = langdb(""&lang&"") end if end function %> <% Set ustlogo= Server.CreateObject("ADODB.RecordSet") ustlogosql= "SELECT * FROM t_site_ust_resim order by newid()" ustlogo.open ustlogosql,Connection,1,3 %>
">
  <%if session("lang") = "fr" then%><%else%><%end if%> <%SQLf = "Select * FROM t_langs where aktif = 1 " Set flag = Server.CreateObject("ADODB.RecordSet") flag.open SQLf,Connection,1,3%> <%do while not flag.eof%> <%flag.movenext loop%>
">_flag.gif" alt="Türkçe" width="30" height="21" />
 
  <%cevir("butuntur")%>
<%Set guzergah= Server.CreateObject("ADODB.RecordSet") guzergahsql= "SELECT * FROM t_aktiviteler order by id" guzergah.open guzergahsql,Connection,1,3 for i = 0 to guzergah.recordcount if guzergah.eof then exit for %> <%guzergah.movenext next%>
" class="tourlist"><%=guzergah("adi_"&lang)%>
 
   <%cevir("otellerimiz")%>
<%Set oteller= Server.CreateObject("ADODB.RecordSet") otellersql= "SELECT * FROM t_oteller where dil ='"&lang&"'" oteller.open otellersql,Connection,1,3 do while not oteller.eof %> <%oteller.movenext loop%>
" ><%=oteller("oteladi")%>
 
  <%cevir("g_digerhizmet")%>
<%if lang= "fr" then%><%else%><%end if%><%cevir("g_arabakirala")%>
<%if lang= "fr" then%><%else%><%end if%><%cevir("g_oteller")%>
<%if lang= "fr" then%><%else%><%end if%><%cevir("g_tkiralara")%>
<%cevir("g_katalog")%>
<%cevir("g_isortak")%>
<%cevir("g_onlineyard")%>
<%cevir("g_link")%>
 
<%cevir("g_anasayfa")%><%cevir("g_sozleseme")%>
© Kirkit Voyage Tous droits réservés ,
www.kirkit.com | www.karballahotel.com | www.kirkitpension.com |  www.hisaronuhotel.com