|
<%
Set textedit_conn = Server.Createobject("ADODB.Connection")
textedit_conn.Provider = Application("DB_Provider")
textedit_conn.Properties("data source")= Application("linkek_DB")
textedit_conn.Open
Set textedit_eur_RS = Server.CreateObject("ADODB.RecordSet")
cat=42
dim country
country=""
textedit_eur_RS.Source = "SELECT l.*,o.orszag FROM linkek l left join Orszagok o on (o.orsz_id=l.orsz) WHERE l.aktiv=true and l.cat='"& cat &"' order by o.orszag,l.title"
textedit_eur_RS.ActiveConnection = textedit_conn
textedit_eur_RS.Open
%>
<%
I = 0
Do While (Not textedit_eur_RS.EOF)
I=I+1
if (country<>textedit_eur_RS("orszag")) then
country=textedit_eur_RS("orszag")
%>
|
<% =textedit_eur_RS("orszag") %>
|
<%
end if
%>
| " target="_blank" class="links"><%=textedit_eur_RS("title")%> |
<%=textedit_eur_RS("descr")%> |
|
<%
textedit_eur_RS.MoveNext
Loop
%>
<%
textedit_eur_RS.Close
%>
|
|
| |
Szállodák elhelyezkedése Budapesten |
|
|
|
| |
Hasznos Budapesti weboldalak |
|
|
|
|