<% If Not Request.QueryString("error") = "" Then ErrorCode = "&error=" & Request.QueryString("error") End If %> <% If Session("SbNuUserGood") = True Then Set RSMem = Server.CreateObject("ADODB.Recordset") Mem = "SELECT * FROM tblMember WHERE ID = " & Session("SbNuUserID") & " " RSMem.Open Mem, Connect, adOpenStatic, adLockOptimistic End If Set RSMainCat = Server.CreateObject("ADODB.Recordset") MainCat = "SELECT Name, ID, Ordning FROM tblClassCat WHERE IsNull(SubCatID) = True AND Deleted = False GROUP BY Name, ID, Ordning ORDER BY Ordning, Name, ID " RSMainCat.Open MainCat, Connect, adOpenStatic, adLockOptimistic %> Ny Annons!

Här kan Du lägga in en ny Köpes-/Säljesannons!
Annonserna ligger aktiva i 45 dagar.
Vill Du förlänga tiden, får Du gå in och redigera annonsen...
...då sätts 45 nya dagar.

OBS!! Skivbaren.nu förbehåller sig rätten att redigera/radera opassande annonser! OBS!!

Typ: checked<% End If %>>Köpes   checked<% End If %>>Säljes
Kategori:
Rubrik: Rubrik...<% Else %><% =Request.QueryString("rubrik") %><% End If %>">

Beskrivning (max 300 tecken):

tecken kvar...

Pris: <% =Request.QueryString("pris") %><% End If %>">

Lösenord (För att kunna redigera/radera annonsen):
<% =Request.QueryString("pass") %><% End If %>">

Ditt namn: <% If Session("SbNuUserGood") = True Then %><% =RSMem("Name") %><% End If %><% Else %><% =Request.QueryString("namn") %><% End If %>">
Ev. E-post: <% If Session("SbNuUserGood") = True Then %><% =RSMem("EMail") %><% End If %><% Else %><% =Request.QueryString("epost") %><% End If %>">

Skriv in de två orden nedan, separerade med ett mellanslag...