Sub sil(aa,bb)
		dim songit
		if UBound(Split(document.url,"?"))>0 then 
		songit=Split(document.url,"?")(1)
		else
		songit="QQ"
		end if
		songit = Replace(songit,"&","[")
		songit = Replace(songit,"=",")")
		
	dim tt
	tt=MsgBox ("Bu " +aa+" silinecek. Bu işlemi yapmak istiyor musunuz ?.",VBSystemModal+vbYesNo,"Dikkat")
	if tt = vbYes  then
	if aa ="Kayıt" then 
	location.href = "MasterPage.aspx?Page=Active&SubPage=DeleteAdvertisement&AdvertisementID="+bb+"&gelinen="+songit
	end if
	if aa="Haber" then 
	location.href = "MasterPage.aspx?Page=Admin&SubPage=DeleteNews&NewsID="+bb+"&gelinen="+songit
	end if 
	if aa="Fuar" then 
	location.href = "MasterPage.aspx?Page=Admin&SubPage=DeleteFairs&FairID="+bb+"&gelinen="+songit
	end if 
	if aa="İhale" then
	location.href = "MasterPage.aspx?Page=Admin&SubPage=Deleteiha&IHAID="+bb+"&gelinen="+songit
	end if
	if aa="Firma" then 
	location.href = "MasterPage.aspx?Page=Admin&SubPage=DeleteUser&UserID="+bb+"&gelinen="+songit
	end if
	if aa="Bülten" then 
	location.href = "MasterPage.aspx?Page=Admin&SubPage=DeleteBulltein&ID="+bb+"&gelinen="+songit
	end if
	if aa="Kurum" then 
	location.href = "MasterPage.aspx?Page=Admin&SubPage=DeleteCorporation&ID="+bb+"&gelinen="+songit
	end if
	if aa="Statik Sayfa" then 
	location.href = "MasterPage.aspx?Page=Admin&SubPage=DeleteLeftSide&ID="+bb+"&gelinen="+songit
	end if
	if aa="Anket" then 
	location.href = "MasterPage.aspx?Page=Admin&SubPage=DeleteAnket&ID="+bb+"&gelinen="+songit
	end if
	if aa="Rehber" then 
	location.href = "MasterPage.aspx?Page=Admin&SubPage=DeleteCompsReh&ID="+bb+"&gelinen="+songit
	end if
	if aa="Ürün" then 
	location.href = "MasterPage.aspx?Page=Admin&SubPage=DeleteProductReh&RID="+bb+"&gelinen="+songit
	end if
	end if 
end Sub
Sub sonraki(aa,bb)
if Len(document.all.item(aa).value)=2 then document.all.item(bb).focus()
end Sub
sub cagir()


end sub