<%
Set istekurl = Request.ServerVariables("QUERY_STRING")
istekbolum = Split(istekurl,"/")

istekbolum2=istekbolum(3)
parcala=split(istekbolum2,"/")
id=QueryFilter(parcala(1))

IF Not IsNumeric(parcala(1)) or parcala(1)="" THEN
	Response.Write "<script>location='"&rs("siteurl")&"';</script>"
	Response.End
END IF

Set post = Baglanti.Execute("Select * from db_tablo where id="&id&"")

if post.eof or post.BOF then
	Response.Write "<script>location='"&rs("siteurl")&"';</script>"
response.end
else
%>