arkadaşlar kod aşşağıda resim2 sadece çektiğim sitede images/resim.jpg yi kaydeedbiliyor benim istediğim ise [media]http://www.siteadresi.com/images/resim.jpg[/media] olması.ama bi türlü sayfa adresini başına ekleyip database kaydedemiyorum .lütfen yardımcı olun ...bilen kimse yokmu

Basla4 = InStr(1,strhtml, "<div id=""detay_foto"" style=""float:left; display:inline; width:300px; height:200px; margin-top:14px; margin-left:13px;""> " , 1) + Len("<div id=""detay_foto"" style=""float:left; display:inline; width:300px; height:200px; margin-top:14px; margin-left:13px;"">")
Bitir4 = InStr(Basla4, strhtml, "<div id=""detay_bas"" style=""float:left; width:420px; height:25px; margin-top:8px; margin-left:5px;"">" , 1) - Basla4
resim = Mid(strhtml, Basla4, Bitir4)

Basla5 = InStr(1,resim, "<div id=""detay_foto"" style=""float:left; display:inline; width:300px; height:200px; margin-top:14px; margin-left:13px;""><img src=""" , 1) + Len("<div id=""detay_foto"" style=""float:left; display:inline; width:300px; height:200px; margin-top:14px; margin-left:13px;""><img src=""")
Bitir5 = InStr(Basla5, resim, """ width=" , 1) - Basla5
resim2 = Mid(resim, Basla5, Bitir5)
title=cevir(title)
haber=cevir(haber)
onmetin=cevir(onmetin)
resim2=cevir(resim2)

set rs=server.CreateObject("adodb.recordset")
sorgu="select * from tblhaberler where url='"&strURL&"'"
rs.open sorgu,strcon,1,3
if rs.eof then
SQL = "SELECT * FROM tblHaberler"
kdGenel.Open SQL, strCon, 1, 3
kdGenel.AddNew
kdGenel("baslik") = title
kdGenel("ozet") = onmetin
kdGenel("editor") = 1
kdGenel("haber") = haber
kdGenel("yorum") = true
kdGenel("onemli") = true
kdGenel("durum") = true
kdGenel("onay") = true
kdGenel("manset")= true
kdGenel("resim") = resim2
kdGenel("kucuk_resim") = resim2
kdGenel("kategori") = 13
kdGenel("tarih") = Now()
kdGenel("url")= strURL
kdGenel.Update
kdGenel.close