<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% seiteT=Session("seitetext") seiteT="AG12_37" %> <% Dim rs_reise Dim rs_reise_numRows Set rs_reise = Server.CreateObject("ADODB.Recordset") rs_reise.ActiveConnection = MM_mysql_data_STRING rs_reise.Source = "SELECT seite, t_bezeichnung,inhalt,description, keywords, anzeigen FROM in_reisetext WHERE anzeigen=1 AND seite ='"&seiteT&"'" rs_reise.CursorType = 0 rs_reise.CursorLocation = 3 rs_reise.LockType = 1 rs_reise.Open() rs_reise_numRows = 0 %> <% Dim rs_freiplatz Dim rs_freiplatz_numRows Set rs_freiplatz = Server.CreateObject("ADODB.Recordset") rs_freiplatz.ActiveConnection = MM_mysql_data_STRING rs_freiplatz.Source = "select * FROM bogl_reisedatum, bogl_reisen WHERE bogl_reisedatum.seite=bogl_reisen.seite and bogl_reisen.katalog not like '%I%' AND bogl_reisedatum.anfdat >= NOW() and bogl_reisedatum.azHW ='1' and bogl_reisedatum.anzeigen <>'99' and bogl_reisen.HW ='1' order by bogl_reisedatum.anfdat" rs_freiplatz.CursorType = 0 rs_freiplatz.CursorLocation = 3 rs_freiplatz.LockType = 1 rs_freiplatz.Open() rs_freiplatz_numRows = 0 %> <% 'info=Session("query") Response.Write(info) katalog="S08" skat="100" '100=Übersicht, 200=Reiseseite ueberschrift_2="Suchergebnis" For intZeile = 0 to 10 if (arrHeadHW(intZeile,1))=seiteT then ueberschrift_2=arrHeadHW(intZeile,0) only="1" end if Next %> <% Dim Repeat10__numRows Dim Repeat10__index Repeat10__numRows = 6 Repeat10__index = 0 rs_freiplatz_numRows = rs_freiplatz_numRows + Repeat10__numRows %> <% katalog="S12" skat="100" '100=Übersicht, 200=Reiseseite scode="" 'Navigationscode kon ser wir mehr 'ueberschrift="Natours 2011" 'ueberschrift_2="Suchergebnis" headerbg="../12css/hg_head2.jpg" seiteN="such2013" sText="hundewandern.de" land=" Eine Marke von " landregion=" Natours Reisen " %>

<% if (only="") then %><%=rs_region_total%> <% end if %><%= ueberschrift_2 %><% if (only="") then %><%If (rs_region_total>1) Then %>se<% End If%><% End If %> <%= headertext %>


<% If Not rs_reise.EOF Or Not rs_reise.BOF Then %>
<%=(rs_reise.Fields.Item("inhalt").Value)%>
<% End If %>

Reisen Aktuell

<% While ((Repeat10__numRows <> 0) AND (NOT rs_freiplatz.EOF)) %> <% seite=(rs_freiplatz.Fields.Item("seite").Value) %> <% db_anfdat=(rs_freiplatz.Fields.Item("anfdat").Value) az1=Year(db_anfdat) az2=month(db_anfdat) az3=DAY(db_anfdat) reisebeginn=az1&"-"&az2&"-"&az3 db_enddat=(rs_freiplatz.Fields.Item("enddat").Value) ez1=Year(db_enddat) ez2=month(db_enddat) ez3=DAY(db_enddat) reiseende=ez1&"-"&ez2&"-"&ez3 va_va_id=(rs_freiplatz.Fields.Item("veranstalter_id").Value) db_TNmax=(rs_freiplatz.Fields.Item("TNmax").Value) if (db_TNmax>"") then va_TN_max=db_TNmax 'TN_max end if db_TNist=(rs_freiplatz.Fields.Item("TNist").Value) if (db_TNist>"") then va_TN_ist=db_TNist 'TN_ist end if va_TN_ges=va_TN_max-va_TN_ist va_ampb="../css/ampelg.png" 'Bild va_ampt="ausreichend freie Plätze vorhanden" 'Text if (va_va_id="100") then 'Natours Reise if (va_TN_ges < 5) then va_ampb="../css/ampely.png" 'Bild va_ampt="es könnte eng werden" 'Text va_ampc="N(4 FP)" 'Text end if if (va_TN_ges <= 0) then va_ampb="../css/ampelr.png" 'Bild va_ampt="Sie kommen leider zu spät" 'Text va_ampc="N(0 FP)" 'Text end if else 'PVA va_ampb="../css/ampely.png" 'Bild va_ampt="es könnte eng werden" 'Text va_ampc="PVA(4 FP)" 'Text if (va_TN_ges <= 0) then va_ampb="../css/ampelr.png" 'Bild va_ampt="Sie kommen leider zu spät" 'Text va_ampc="PVA(0 FP)" 'Text end if end if %> <% va_TN_ist="0" %> <% Repeat10__index=Repeat10__index+1 Repeat10__numRows=Repeat10__numRows-1 rs_freiplatz.MoveNext() Wend %>
ab <%=az3%>.<%=az2%>.<%=az1%>
<%'= va_ampc %><%= va_ampt %>
<% 'Response.Write(seiteT) %> <% rs_reise.Close() Set rs_reise = Nothing %>