<% rs.Close sql = "" %>

Visa... Startsidan: Köpes§ Säljes§ Bytes§ FAQ§ Skapa ny... Annons§ Visa/ändra... Mina annonser§ Mina uppgifter§ Maila prylsajten: Besökare: Totalt: <% Set rs = Server.CreateObject("ADODB.RecordSet") sql = "SELECT * FROM statistik" rs.Open sql, Connect, 3, 3 %> <%=rs("totalt")%> Idag: <%=rs("idag")%> Just nu: <%response.write(Application("visitors"))%>	Välkommen till Prylsajten.nu - sajten med helt gratis annonsering. <% if Request.Querystring("val") = "buy" Then %> Annonser - Köpes. <% Elseif Request.Querystring("val") = "sell" Then %> Annonser - Säljes <% Elseif Request.Querystring("val") = "change" Then %> Annonser - Bytes <% End if %> Sök efter Bilar Antikt & Samlarobjekt Bilstereo Bostäder Båtar Cyklar Datorer & tillbehör Djur & Tillbehör Hobby Hus- och Släpvagnar Kläder Leksaker & Barnartiklar Mc & Mopeder Musik, Film och Litteratur Musikinstrument Möbler & inredning Telefoner Trädgård TV-Spel & Tillbehör Verktyg & Maskiner Övrig Elektronik Övriga fordon Övrigt i Hela Sverige Blekinge Dalarna Gotland Gävleborg Halland Jämtland Jönköping Kalmar Kronoberg Norrbotten Skåne Stockholm Södermanland Uppsala Värmland Västerbotten Västernorrland Västmanland Västra Götaland Örebro Östergötland ( Tomt fält = allt ) <% if Request.Querystring("val") = "buy" Then %> Dom 10 senast inlagda Köpesannonserna <% Set rs = Server.CreateObject("ADODB.RecordSet") sql = "SELECT TOP 10 * FROM annonser WHERE typ = 1 order by id DESC" rs.Open sql, Connect, 3, 3 %> <% Do until rs.Eof %> <% rs.MoveNext if rs.Eof Then Exit DO End if %> <% rs.MoveNext Loop %> Datum Rubrik Plats <%=rs("datum")%> <% if rs("bild")> "" Then %><% End if %> ')"><%=rs("rubrik")%> <%=rs("lan")%> <%=rs("datum")%> <% if rs("bild")> "" Then %><% End if %> ')"><%=rs("rubrik")%> <%=rs("lan")%> <% Elseif Request.Querystring("val") = "sell" Then %> Dom 10 senast inlagda Säljesannonserna <% Set rs = Server.CreateObject("ADODB.RecordSet") sql = "SELECT TOP 10 * FROM annonser WHERE typ = 2 order by id DESC" rs.Open sql, Connect, 3, 3 %> <% Do until rs.Eof %> <% rs.MoveNext if rs.Eof Then Exit DO End if %> <% rs.MoveNext Loop %> Datum Rubrik Plats <%=rs("datum")%> <% if rs("bild")> "" Then %><% End if %> ')"><%=rs("rubrik")%> <%=rs("lan")%> <%=rs("datum")%> <% if rs("bild")> "" Then %><% End if %> ')"><%=rs("rubrik")%> <%=rs("lan")%> <% Elseif Request.Querystring("val") = "change" Then %> Dom 10 senast inlagda Bytesannonserna <% Set rs = Server.CreateObject("ADODB.RecordSet") sql = "SELECT TOP 10 * FROM annonser WHERE typ = 3 order by id DESC" rs.Open sql, Connect, 3, 3 %> <% Do until rs.Eof %> <% rs.MoveNext if rs.Eof Then Exit DO End if %> <% rs.MoveNext Loop %> Datum Rubrik Plats <%=rs("datum")%> <% if rs("bild")> "" Then %><% End if %> ')"><%=rs("rubrik")%> <%=rs("lan")%> <%=rs("datum")%> <% if rs("bild")> "" Then %><% End if %> ')"><%=rs("rubrik")%> <%=rs("lan")%> <% End if %> Info Prylsajten kommer ständigt att uppdateras med nya funktioner. Har du något bra förslag på en funktion eller tjänst så tveka inte att maila info@prylsajten.nu.	Vill du också presentera ditt företag eller din sajt på prylsajten.nu? kontakta då info@prylsajten.nu
	© 2002 PRYLSAJTEN.NU