Upload Edilen Dosyayı Text kutusunda göstermek

Merhaba
İstediğim gibi Upload Script'i bulamadım. Şöyle ; Mesela haber ekliyoruz ve "Resim" kısmındada Text kutusu var ve yanındada Resim Yükle Diye bir link verdiğimizi düşünün.Neyse upload yapıyorum fakat Text kutusuna elimle upload ettiğim linki girmek zorunda kalıyorum.Ben istiyorumki yüklenen dosyanın linki otomatik olarak text kutusuna yerleşsin ondan sonra devam edim haber eklemeye.
Çok acil gerekli beceremedim böyle bir kod verirseniz sevinirim.
Saygılarımla.

benim kullandıgım kodu vereyim sana..

<%resim=Request.QueryString("resim") %>

			<script language="JavaScript">
function check_frm(){
	if (document.resim.cilem.value == ""){
		alert ("Lütfen Yüklemek İstediğiniz Resmi Seçiniz.");
		document.resim.cilem.focus();
		return false;  
	 }    
    }
  </script>


			<font color="#669900" face="Verdana" style="font-size: 8pt">Lütfen Yüklenecek Resmi Seçin</font><FORM ENCTYPE="multipart/form-data" ACTION="yonetimresimyukle.asp" METHOD="POST" onSubmit="return check_frm()" name="resim">
<input type="file" name="cilem" size="33" id="label" style="font-family: Tahoma; font-size: 8pt; border: 1px solid #CCCCCC">&nbsp;<input type=submit  value=Yükle name="submit" style="font-family: Tahoma; font-size: 10px; border-style: ridge; border-width: 1px"></form>  
</FORM></p>	<form method="POST" action="urunkayit.asp" name="kontrol">
<input type="hidden" name="resim" value="<%=resim%>"></form>

yonetimresimyukle.asp içeriği :

<% resim   = request("resim")%> 
<% 
dim upload 
dim count 
dim aciklama 
Set Upload = Server.CreateObject("Persits.Upload") 
Upload.OverwriteFiles = false ' bkz : Açiklama1
Upload.SetMaxSize 50000000, True 
Upload.Save 
on error resume next 
Count = Upload.SaveToMemory  
dim DUzn 'DosyaUzantisi 
dim SunucuYeri 
dim YuklenecekDosya 
dim File     
resim=upload.form("resim")
Set File = Upload.Files(1) 
  
      If File.ImageType = "UNKNOWN" Then  
          Response.Write "<meta http-equiv='refresh' content='0;URL=urunekle.asp?resim=" & File.FileName & "'><script>alert('Sadece JPG, GIf ve PNG Formatlý Dosyalar Yükleyebilirsiniz !!!');</script>"   
          File.Delete  
          Response.End  

     ElseIf File.ImageWidth > 7500 Then  
          Response.Write "<meta http-equiv='refresh' content='0;URL=urunekle.asp?resim=" & File.FileName & "'><script>alert('Resim Geniþliði Çok Fazla Lütfen Geniþliði En Fazla 300 Piksel Olacak þekilde Düzenleyin !!!');</script>"  
          File.Delete  
          Response.End  

     ElseIf File.ImageHeight > 7500 Then  
          Response.Write "<meta http-equiv='refresh' content='0;URL=urunekle.asp?resim=" & File.FileName & "'><script>alert('Resim Yüksekliði Çok Fazla Lütfen Yüksekliði En Fazla 300 Piksel Olacak þekilde Düzenleyin !!!');</script>"
          File.Delete  
          Response.End  

     ElseIf File.Size > 250000000 Then  
          Response.Write "<meta http-equiv='refresh' content='0;URL=urunekle.asp?resim=" & File.FileName & "'><script>alert('Resim Boyutu Çok Fazla Lütfen Boyutu En Fazla En Fazla 250 Kb Olacak þekilde Düzenleyin !!!');</script>"
          File.Delete  
          Response.End  

     Else 
     End if
SunucuYeri = Server.MapPath("../resim\")&"\"  
DUzn = UCase(Right(File.ExtractFileName, 4)) 

dim YuklenenDosyaninIsmi 
dim sql 
YuklenecekDosya = SunucuYeri & File.FileName  
File.SaveAs YuklenecekDosya 
YuklenenDosyaninIsmi = File.FileName 
response.write("<meta http-equiv='refresh' content='0;URL=urunekle.asp?resim=" & File.FileName & "'><script>alert('Resim Baþarýyla Yüklendi!!!');</script>")
'Açiklama 1: 
'yüklenecek dosya ile ayni isimde bir dosya varsa 
'false = üzerine yazilmaz dosyaismi(1) biçiminde yazar 
'true  = üzerine yazar 
%>

Hocam teşekkürler ama istediğim gibi değil yada ben beceremedim , bunda popup olarak açılan bir pencere ve yükledikten sonra popup kapanıp resim adresi text kutusuna yerleşicek istediğim şekilde yardımcı olmanız mümkünmü :S