<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% rss("WasAgent") = "" rss.update dim rsA strq = "select * from tclients where pk_tclients = " & rss("USERID") rs.open strq,conn,3,3 if rs.recordcount = 0 then response.Redirect("login.asp") end if if rss("userid") = 0 then response.redirect("login.asp") else if request("a") = "L" then rss("userid") = 0 rss.update Response.Redirect("index.asp") end if if request("a") = "NADV" then if request.form("seladvtype") = 1 then response.redirect("uploadcar.asp?a=N") if request.form("seladvtype") = 2 then response.redirect("uploadbike.asp?a=N") if request.form("seladvtype") = 3 then response.redirect("uploadScooter.asp?a=N") if request.form("seladvtype") = 4 then response.redirect("uploadVan.asp?a=N") if request.form("seladvtype") = 5 then response.redirect("uploadMotorhome.asp?a=N") if request.form("seladvtype") = 8 then response.redirect("uploadCaravan.asp?a=N") if request.form("seladvtype") = 14 then response.redirect("uploadGen.asp?a=N") end if if request("a") = "hold" then strq = "update tAdverts set fk_status = 2 where pk_tadverts = " & request("pk") conn.execute(strq) response.redirect("myaccount.asp?a=D&q=" & request("q")) end if if request("a") = "delete" then strq = "delete * from tAdverts where pk_tadverts = " & request("pk") conn.execute(strq) response.redirect("myaccount.asp?a=D&q=" & request("q")) end if if request("a") = "live" then strq = "update tAdverts set fk_status = 1 where pk_tadverts = " & request("pk") conn.execute(strq) response.redirect("myaccount.asp?a=D&q=" & request("q")) end if set rsAT = server.createobject("adodb.recordset") strq = "SELECT lAdvType.* FROM lAdvType " strq = strq & " WHERE fk_Live = 1" strq = strq & " ORDER BY lAdvType.Description" rsAT.open strq,conn,3,3 strq = "SELECT tAdverts.*, lStatus.Description AS status, lAdvType.Description AS Type" strq = strq & " FROM lAdvType INNER JOIN (lStatus INNER JOIN tAdverts ON lStatus.pk_lStatus = tAdverts.fk_Status) ON lAdvType.pk_lAdvtype = tAdverts.fk_AdvType" strq = strq & " where fk_client = " & rss("userid") set rsA = server.createobject("adodb.recordset") rsA.open strq,conn,3,3 intAdvCount = rsa.recordcount if request("q") = "H" then strq = strq & " and fk_status = 2" else strq = strq & " and fk_status = 1" end if set rsA = server.createobject("adodb.recordset") rsA.open strq,conn,3,3 end if %> traderuk - My Account <%If rsu("paidamount") > 0 then %> <%if request("a") = "D" then%>
My Account # <%= right("00000" & rsu("pk_tclients"),5)%> <%= rsu("Fname")& " " & rsu("lname")%>Log Out )
<% if rs("fK_AccType") = 8 then %>
<%end if%> <%if rs("fk_acctype") = 1 then%>
<%end if%>
<% if rs("fK_AccType") = 1 then %>
<%end if%> <% if rs("fK_AccType") = 3 then %>
<%end if%> <% if rs("fK_AccType") = 8 then %>
<%end if%> <% if rs("fK_AccType") = 9 then %>
<%end if%> <% if rs("fK_AccType") = 10 then %>
<%end if%>
<%if rsu("PaidAmount") = 25 and intadvcount <> 0 then %>

<%else%>
">

ADD A NEW CLASSIFIED ADVERT
  

<%end if%>
<%if rsa.recordcount <> 0 then%>
ADD REF: # TYPE CREATED AMENDED STATUS ADVERT DETAILS      
<%rsa.movefirst%> <%do while not rsa.eof%> <%rsa.movenext%> <%loop%>
<%Response.Write right("00000" & rsa("pk_tadverts"),5)%> <%Response.Write rsa("type")%> <%Response.Write rsa("datecreated")%> <%Response.Write rsa("lastupdate")%> <%Response.Write rsa("status")%> <%if rsa("photocount") > 0 and rsa("advexpire") < date() then %> * <%end if%> <%if rsa("fk_advtype") = 1 then%> <%Response.Write rsa("header") %> <%end if%> <%if rsa("fk_advtype") = 2 then%> <%Response.Write rsa("header") %> <%end if%> <%if rsa("fk_advtype") = 3 then%> <%Response.Write rsa("header") %> <%end if%> <%if rsa("fk_advtype") = 4 then%> <%Response.Write rsa("header") %> <%end if%> <%if rsa("fk_advtype") = 5 then%> <%Response.Write rsa("header") %> <%end if%> <%if rsa("fk_advtype") = 8 then%> <%Response.Write rsa("header") %> <%end if%> <%if rsa("fk_advtype") = 14 then%> <%Response.Write rsa("header") %> <%end if%> > <%if rsa("fk_status") = 1 then%> HOLD <%else%> LIVE <%end if%> <%if request("q") = "H" then%> <%else%> <%if rsa("fk_advtype") = 1 then%> EDIT <%end if%> <%if rsa("fk_advtype") = 2 then%> EDIT <%end if%> <%if rsa("fk_advtype") = 3 then%> EDIT <%end if%> <%if rsa("fk_advtype") = 4 then%> EDIT <%end if%> <%if rsa("fk_advtype") = 5 then%> EDIT <%end if%> <%if rsa("fk_advtype") = 8 then%> EDIT <%end if%> <%if rsa("fk_advtype") = 14 then%> EDIT <%end if%> <%end if%> <%if rsa("fk_status") = 1 then%> DELETE <%end if%>

 

 

 

 

<%else%> <%end if 'recordcount%> <%End if ' action = Display%> <%else%>
My Account # <%= right("00000" & rsu("pk_tclients"),5)%> <%= rsu("Fname")& " " & rsu("lname")%>



SORRY YOUR ACCOUNT IS NOT ACTIVE

To activate your account please pay the required amount

<%if rsu("fk_acctype") = 11 then%>

Log Out )

<%else%>

Log Out )

<%end if%>
<%end if%>