<%
Dim connection,userid,password,mess,conn,CONFIRMPSW,catid
dim fname,lname,email,bannerurl,homepage,idx,usr,suspend
dim strSQL,RS,credits,hosted,displayed
call opendb(conn)
catid=-1
catid=ltrim(" " & Request.form("CATID"))
if catid = "" then
catid="0"
end if
%>
Blues Harp Classified
The
Blues Harp Classified
Add
a new Classified Ad
<%
if catid <> "-1" then
%>
<%
if catid = "0" then
strSQL = "SELECT * from ADS,CATS,USR WHERE USR.USERKEY=ADS.USRID and ADS.CATID=CATS.CATID order by adate desc"
else
strSQL = "SELECT * from ADS,CATS,USR WHERE USR.USERKEY=ADS.USRID and ADS.CATID=CATS.CATID and CATS.catid = "
strSQL= strSQL & catid & " order by adate desc"
end if
Set RS = Conn.Execute(strSQL)
if not rs.eof then
rs.movefirst
end if
idx=0
while not rs.eof
fname=trim(RS.fields("FNAME").value & " ")
lname=trim(RS.fields("LNAME").value & " ")
email=trim(RS.fields("EMAIL").value)
img=trim(RS.fields("IMG").value)
homepage=trim(RS.fields("homepage").value)
Shortdesc=trim(RS.fields("Shortdesc").value)
ad=trim(RS.fields("ad").value)
adate=RS.fields("adate").value
if ucase(left(homepage,7))<>"HTTP://" then
homepage="HTTP://" & homepage
end if
%>
Name: <%=FNAME%> <%=LNAME%>
Email: <%=EMAIL%>
Website: <%=homepage%>
Date: <%=adate%> |
Category: <%=Shortdesc%>
<%=ad%>
<%
if len(img)>5 then
%>
<%
end if
%>
|
<%
idx=idx+1
rs.movenext
wend
%>
<%
end if ' if catid >=0
set rs=nothing
set conn=nothing
%>