<% @LANGUAGE = VBScript %>
<%
Dim cn, RS
Set cn = CreateObject("ADODB.Connection")
Set RS = CreateObject("ADODB.Recordset")
SETLocale("de")
' Connection zur Datenbank aufbauen
cn.ConnectionString = "DRIVER={MySQL ODBC 5.2w Driver};SERVER=127.0.0.1;Database=camping;User=root;Password = geloja;OPTION=3"
cn.Open
anzahl = 0
z1 = -1
z2 = -1
z3 = -1
%>
<html>
<head><link rel="SHORTCUT ICON" href="../favicon.ico">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<title>Inhalt</title>
<base target="Hauptframe">
<meta http-equiv="Content-Type"
content="text/html; charset=iso-8859-1">
<style type="text/css">
<FONT face="verdana, helvetica" size=2>
<!--
body { background-color:#FFFFDE; font-family:verdana, helvetica; color:black }
h1 { font-size:8pt; font-weight:bold; margin:0 }
p { margin:0 }
DIV { margin-left:16px }
.Outline { font-size:8pt; color:black; text-decoration:none }
.Topic { font-size:8pt; color:black; text-decoration:none }
Input { font-family:Marlett; font-size:8pt; cursor:hand }
//-->
</style>
<script LANGUAGE="JavaScript">
<!--
var img1, img2, img3;
img1 = new Image();
img1.src = "http://forum.jswelt.de/images/arbeitsgruppe.gif";
img2 = new Image();
img2.src = "http://forum.jswelt.de/images/arbeitsgruppe.gif";
img3 = new Image();
img3.src = "http://forum.jswelt.de/images/arbeitsgruppe.gif";
var nav = 0;
if(navigator.appName=="Netscape") nav=1;
function Zeige(x) {
if(document.getElementsByTagName("DIV")[x].style.display=="none") {
document.getElementsByTagName("DIV")[x].style.display="";
document.getElementsByTagName("p")[x].firstChild.src=img2.src;
if(nav==1) document.getElementsByTagName("input")[x].value="Schließen";
}
else {
document.getElementsByTagName("DIV")[x].style.display="none";
document.getElementsByTagName("p")[x].firstChild.src=img1.src;
}
}
//-->
</script>
<style fprolloverstyle>A:hover {color: #000000; font-weight: bold}
</style>
</head>
<body bgcolor="#00FF00"><FONT face="verdana, helvetica" size=1><font color="#FF0000">
<%
SET RS = cn.Execute("SELECT * FROM Laender ORDER BY LandDE ASC")
WHILE NOT RS.EOF
LandDE = RS("LandDE")
anzahl=anzahl + 1
z1 = z1 +1
%>
</font>
<p><img SRC="http://forum.jswelt.de/images/arbeitsgruppe.gif"><a class="Outline" href="javascript:Zeige(<%response.write(z1)%>)" target="_self"><%response.write(LandDE)%></a></p>
<DIV style="display:None">
<font size="1">
<%
SET RS1 = cn.Execute("SELECT * FROM Laender WHERE LandDE='" & LandDE & "' ORDER BY Bundesland ASC")
WHILE NOT RS1.EOF
Bundesland = RS1("Bundesland")
z2 = z2 + 1
%>
<img SRC="http://forum.jswelt.de/images/pc.gif"><a class="Outline" href="javascript:Zeig(<%response.write(z2)%>)" target="_self"><%response.write(Bundesland)%></a></p>
<DIV style="display:None">
<font size="1">
<%
SET RS2 = cn.Execute("SELECT * FROM Laender WHERE Bundesland='" & Bundesland & "' ORDER BY Name ASC")
WHILE NOT RS2.EOF
Bundesland = RS1("Bundesland")
%>
<img SRC="http://forum.jswelt.de/images/pc.gif"><a class="Topic" target="_self"><%response.write(Region)%></a></p>
<%
RS2.MoveNext
WEND
RS2.Close
%>
</DIV>
<%
RS1.MoveNext
WEND
RS1.Close
%>
</DIV>
<%
RS.MoveNext
WEND
RS.Close
cn.close
%>
</BODY>
</html>
