<html>
<head>
<meta http-equiv="Content-Language" content="da">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Basket-Kort.dk - opkøb og bytte</title>
<META NAME="author" CONTENT="
www.basket-kort.dk"> <META NAME="Description" CONTENT="Danmarks største basketkortmarket med købog bytte for private">
<META NAME="Keywords" CONTENT="brugt, køb, salg, bytte, handel, sælges, købes, handelsplads, søges, tilbydes, byttes">
<META NAME="Robots" CONTENT="ALL">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<LINK REL="shortcut icon" HREF="
http://www.basket-kort.dk/basket.ico"></head><body topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0">
<%
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db.mdb")
%>
<table border="0" width="823" id="table1" style="background-image: url('bg.jpg'); background-repeat: no-repeat" height="866">
<tr>
<td height="149" width="230" valign="top"> </td>
<td height="149" width="583" colspan="2" valign="top">
</td>
</tr>
<tr>
<td height="38" width="230"> </td>
<td height="38" width="92"> </td>
<td height="38" width="487">
<font face="Arial" size="2"><b><font color="#FFFFFF">
Menu: menu_hoejre.asp er erstattet så du kan skrive her</font></b></font></td>
</tr>
<tr>
<td height="42" width="230" valign="bottom"> </td>
<td height="42" width="583" colspan="2" valign="bottom">
<br>
<p align="center">
<% if request.querystring("menu") = "" then %>
<img border="0" src="logo/intetlogo.jpg" height="44">
<% end if %>
<% if request.querystring("menu") <> "" and request.querystring("sub") = "" then %>
<%
sql = "SELECT * FROM menu WHERE menu = '" & request.querystring("menu") & "' and billede <> ''"
set rs = Conn.Execute(sql)
%>
<%
if rs.EOF or rs.BOF then%>
<img border="0" src="logo/intetlogo.jpg" height="44">
<%else%>
<img border="0" src="logo/<%=rs("billede")%>" height="44"><%
end if
%>
<% end if %>
<% if request.querystring("menunavn") <> "" and request.querystring("sub") <> "" then %>
<%
sql = "SELECT * FROM menu WHERE menunavn = '" & request.querystring("menunavn") & "' and subnavn = '" & request.querystring("sub") & "' and billede <> ''"
set rs = Conn.Execute(sql)
%>
<%
if rs.EOF or rs.BOF then%>
<img border="0" src="logo/intetlogo.jpg" height="44">
<%else%>
<img border="0" src="logo/<%=rs("billede")%>" height="44"><%
end if
%>
<% end if %>
</td>
</tr>
<tr>
<td height="531" width="230" valign="top">
<table border="0" width="193" id="table3">
<br>
<tr><td height="56">
<br>
<b><font face="Arial" size="2"><span style="text-decoration: none">
<font color="#000000"><a href="default.asp">
<span style="text-decoration: none"><font color="#000000">Forside</font></span></a></font></span><a href="default.asp"><span style="text-decoration: none"><font color="#000000">n</font></span></a><br>
</font></b><br>
<font face="Arial">
<span style="text-decoration: none; font-weight: 700">
<font size="2" color="#000000">
<a href="default.asp?menu=1" style="text-decoration: none">
<font color="#000000">Nyheder</font></a></font></span><font size="2"><br>
</font></font></td></tr><%
sql = "SELECT DISTINCT menunavn, menu FROM menu"
Set rs = Conn.Execute(sql)
Do While Not rs.EOF
%>
<tr><td>
<a href="default.asp?menu=<% =rs("menu") %>" style="text-decoration: none">
<span style="text-decoration: none; font-weight: 700">
<font size="2" color="#000000"><font face="Arial"><% =rs("menunavn") %></font></font></span></a><font face="Arial" size="2">
</font>
</td></tr>
<%
If rs("menu") = request.querystring("menu") Then
sql2 = "SELECT DISTINCT subnavn, menu, menunavn FROM menu WHERE menu = '" & request.querystring("menu") & "' order by subnavn asc"
set rs2 = Conn.Execute(sql2)
Do While Not rs2.EOF
%>
<tr><td>
<font face="Arial"><font size="2"> - </font> <a href="default.asp?menu=<%=rs2("menu")%>&menunavn=<%=rs("menunavn")%>&sub=<%=rs2("subnavn")%>" style="text-decoration: none">
<b>
<font size="2" color="#000000"><%=rs2("subnavn")%></font></b></a><font size="2">
</font></font>
</td></tr>
<%
rs2.MoveNext
Loop
End If
rs.MoveNext
Loop
%>
</table></td>
<td height="531" width="583" colspan="2" align="center" valign="top">
<font face="Arial" size="2">
<% if request.querystring("menu") = "1" then %>
Disse kort er max 20 dage gamle
<%
Server.Execute("nyheder.asp")
end if
%>
<% if request.querystring("menu") = "" and request.querystring("sub") = "" and request.querystring("id") = "" then %>
Her kan du skrive din nyhed
<%
Server.Execute("rotering.asp")
end if
%>
<% if request.querystring("sub") <> "" and request.querystring("id") = "" then %>
<%
Server.Execute("listing.asp")
end if
%>
<% if request.querystring("id") <> "" then %>
<%
Server.Execute("vis.asp")
end if
%>
</font>
</td>
</tr>
<tr>
<td width="813" colspan="3">
<p align="center"><font face="Arial" size="2">bund.asp er erstattet af
en html, denne.<br>
Copyright Basket-Kort.dk</a>
</font></td>
</tr>
</table>
</body>
</html>
