<%sub ad(strid)
dim tempstr,hrs,hsql
tempstr=""
hsql="select id,AdName,AdType,PicPath,PicType,PicWidth,PicHeight,AdLink from adSite where id="&strid&"order by id desc"
set hrs=conn.execute(hsql)
if not (hrs.eof and hrs.bof) then
if hrs("PicType")=1 then
tempstr=""
else
if hrs("adlink")<>"" then
tempstr=tempstr+""
tempstr=tempstr+""
else
tempstr=tempstr+""
end if
end if
end if
hrs.close
set hrs=nothing
response.Write(tempstr)
end sub
%>
