Bu sorguları nasıl birleştirebilirim ?

merhaba aşağıda iki adet sorgu var bunları nasıl birleştirerek tek sorgu yapabilirim. not : ilk sorgu sadece sitenin titlesini çekiyor

sorgu 1

<%
if request("id") <> "" then
set rs = baglan.execute("SELECT BASLIK,ID FROM DOWNLOAD where ID="&int(request("id")))
if not rs.eof then
baslik=rs("BASLIK")
else
baslik=""
end if
end if
%>

bu sorgu sadece title kısmını cekiyor ama acıklamayıda cekip belli bir kısmını yazdırmaya kalkınca içinden html kodlar cıkıyor <p></p> vs.. gibi

2ci sorgu

<%
                set bolumler = baglan.execute("SELECT TUR FROM BOLUMLER WHERE ID="&tara(request("kid")))
                Set rs = Server.Createobject("ADODB.Recordset")
                sql = "SELECT * FROM DOWNLOAD WHERE BOLUM="& tara(request("kid")) &" ORDER BY ID DESC"
                rs.open sql, baglan, 1, 3
                sayfa   = tara(request("sayfa"))
                if sayfa = "" then sayfa=0
                kac     = 10
                if request("sayfa")<>0 then rs.move sayfa*kac
                iceriksay =  rs.recordcount
                for t=1 to kac
                if rs.eof then exit for
                aciklama = left(rs("ACIKLAMA"),60)
                aciklama = replace(aciklama,vbnewline,"")
                aciklama = replace(aciklama,"<br>","")
                aciklama = replace(aciklama,"&lt;","<")
                aciklama = replace(aciklama,"&gt;",">")
            %>

bu sorguda kategori icerik başlığı ve acıklamayı cekiyor bunları html kodları ayıtlayarak tek sorguda nasıl birleştirebiliriz ? yardımcı olacak olanlara şimdiden teşekkürler

biraz daha açarmısın örnekli anlıyamadım

Soru gayet açık hocam ben bu iki sorgu yerine tek sorgu kullanak istiyorum bunu nasıl yapabilirim. ?

yardım edebilecek yokmu arkadaşlar ?

ahmetsolmaz1@hotmail.com ekle

HTML kodlarını temizletmek mi istiyorsun bende anlayamadım. Birde ne için tek sorgu yapıcaksın?

merhaba tolgasen hocamızın verdiği kodlarla bir yere kadar gidebildik
title ve description u veritabanından cekerken araya karışmış olan bazı asci ve html kodlar bulunmakta
title ve description db den aldığım sorgu aşağıdaki gibidir sorguda sorun yok ama html kodları ve asci karakterleri temizlemem lazım

title ve description db den aldığım sorgu:
buda tolgasen hocamızın verdiği temizleme fonksiyonu:

bunu ben ayarlar.asp ye inculude ettim ve yukardaki sorguyu <%=temiz(aciklama)%> şeklinde sayfaya yazdırdım yukardaki sorgu cıktısı şu şekilde

görüldüğü gibi yazıda asci karakterler ve html kodlar bulunmakta bunları nasıltemizleriz yardım edecek arkadaşa şimdiden teşekkürler

<%
if request("id") <> "" then
set rs = baglan.execute("SELECT BASLIK,ACIKLAMA,ID FROM DOWNLOAD where ID="&int(request("id")))
if not rs.eof then
baslik=rs("BASLIK")
aciklama = left(rs("aciklama"),130)
else
end if
end if
%>

Şu kodu;

<%
if request("id") <> "" then
set rs = baglan.execute("SELECT BASLIK,ACIKLAMA,ID FROM DOWNLOAD where ID="&int(request("id")))
if not rs.eof then
baslik=rs("BASLIK")
aciklama = left(rs("aciklama"),130)
aciklama = Replace(aciklama, "&uuml;", "ü")
else
end if
end if
%>

Bununla değiştirin.

hocam sizinde bildiğiniz gibi daha değişik karakterler cıkıcak diğer arkadaş bunu
bu kodlarla cözmüştü bu kodları replaceye nasıl ekleriz ?