Ok här komer den:
<%@ LANGUAGE="VBScript" %>
<!--#include file="ADOVBS.inc"-->
<!--#include file="IASUtil.asp"-->
<%
Kat_Id = Request("Kat_Id")
typ = Replace(Request("typ"), "'", "''")
Set Databas = Server.CreateObject("ADODB.Connection") 'Skapar kopplings objektet
MdbFilePath = Server.MapPath("radannons.mdb") 'Specifierar sökvägen till databasen
Databas.Open "Driver={Microsoft Access Driver (\*.mdb)}; DBQ=" & MdbFilePath & ";" 'Öppnar databasen
SQL = "Select \* from Annonser"
Set RS = databas.Execute(SQL)
SQLStmt = "SELECT \*, Format$(\[datum\],'yyyy/mm/dd') AS formdatum FROM Kategorier,Annonser "
SQLStmt = SQLStmt & "WHERE Kategorier.Kat_Id = " & Kat_Id & " "
SQLStmt = SQLStmt & "AND Annonser.Kategori_Id = " & Kat_Id & " "
SQLStmt = SQLStmt & "AND Annonser.Typ = '" & typ & "' "
SQLStmt = SQLStmt & "ORDER BY Annonser.Id DESC "
SQLStmt = SQLStmt & "ORDER BY datum DESC"
%>
<HTML>
<HEAD>
<TITLE>Kolla inlagda annonser</TITLE>
<style type="text/css">
<!--
select { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 8pt}
input { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 8pt}
-->
</style>
<script language="JavaScript">
<!--
function check()
{
if(event.button == 2)
{
alert("Tyvärr! Du kan inte sno dessa bilder!");
}
}
// -->
</script>
</HEAD>
<BODY onmousedown="check()" BACKGROUND="images/bakbla.gif" BGCOLOR="#FFFFFF" VLINK="#9C9C9C">
<form action="index.asp" method="post">
<TABLE BORDER=0 cellpadding="2" cellspacing="0" WIDTH="520">
<tr><TD WIDTH="10"> </TD><th align="right">Kategori:</th>
<td colspan="2">
<SELECT NAME="category">
<FONT SIZE="2">
<OPTION>Alla</OPTION>
\<OPTION\>Ormar säljes\</OPTION\>
\<OPTION\>Ormar köpes\</OPTION\>
\<OPTION\>Ödlor säljes\</OPTION\>
\<OPTION\>Ödlor köpes\</OPTION\>
\<OPTION\>Sköldpaddor säljes\</OPTION\>
\<OPTION\>Sköldpaddor köpes\</OPTION\>
\<OPTION\>Krokodiler säljes\</OPTION\>
\<OPTION\>Krokodiler köpes\</OPTION\>
\<OPTION\>Tillbehör säljes\</OPTION\>
\<OPTION\>Tillbehör köpes\</OPTION\>
\<OPTION\>Groddjur köpes\</OPTION\>
\<OPTION\>Groddjur säljes\</OPTION\>
</FONT>
</SELECT>
</td>
<th align="right">Region:</th>
<td>
<SELECT NAME="region">
<FONT SIZE="2">
<OPTION>Alla</OPTION>
\<OPTION\>Blekinge\</OPTION\>
\<OPTION\>Bohuslän\</OPTION\>
\<OPTION\>Dalarna\</OPTION\>
\<OPTION\>Gotland\</OPTION\>
\<OPTION\>Gävleborg\</OPTION\>
\<OPTION\>Halland\</OPTION\>
\<OPTION\>Jämtland\</OPTION\>
\<OPTION\>Jönköping\</OPTION\>
\<OPTION\>Kalmar\</OPTION\>
\<OPTION\>Kronoberg\</OPTION\>
\<OPTION\>Norrbotten\</OPTION\>
\<OPTION\>Skaraborg\</OPTION\>
\<OPTION\>Skåne\</OPTION\>
\<OPTION\>Stockholm\</OPTION\>
\<OPTION\>Södermanland\</OPTION\>
\<OPTION\>Uppsala\</OPTION\>
\<OPTION\>Värmland\</OPTION\>
\<OPTION\>Västerbotten\</OPTION\>
\<OPTION\>Västernorrland\</OPTION\>
\<OPTION\>Västmanland\</OPTION\>
\<OPTION\>Älvsborg\</OPTION\>
\<OPTION\>Örebro\</OPTION\>
\<OPTION\>Östergötland\</OPTION\>
\<OPTION\>Danmark\</OPTION\>
\<OPTION\>Norge\</OPTION\>
\<OPTION\>Finland\</OPTION\>
</FONT>
</SELECT>
</td>
<td align="center"><FONT SIZE="2"><INPUT TYPE="submit" VALUE="Sök"></FONT></td></tr>
</table>
</form>
<table border="0" width="600">
<tr>
\<p\>\<%
CurrentRecord = 0
Do While CheckRS(RS)%\> \</p\>
\<TABLE\>
<tr>
<TD> </TD>
<td WIDTH="160"><font size="2"><a href="annons.asp?id=<%= RS("id") %>"><%= RS("rubrik") %></a></font></td>
<td WIDTH="130"><font size="2"><%=rs("Namn")%></font></td>
<td WIDTH="100"><font size="2"><%=rs("Ort")%></font></td>
<td WIDTH="140"><font size="1" COLOR="#9C9C9C"><%=rs("Datum")%></font></td></tr>
\</table\>
\<p\>\<% RS.MoveNext
CurrentRecord = CurrentRecord + 1
Loop
%> </p>
<p align="center"> <br>
<% If CurrentRecord = 0 Then %> <strong><font face="Verdana">Tyvärr finns det inga annonser<br>
i den här kategorin.</font></strong><% End If %></p>
<p align="center"> </p>
<p> </p>
<p> </td>
</tr>
</table>
</body>
</html>
