<%Set istekurl = Request.ServerVariables("QUERY_STRING")
istekbolum = Split(istekurl,"/")
istekbolum2=istekbolum(3)
parcala=split(istekbolum2,"-")
yazar=parcala(1)
IDno=parcala(2)
if yazar="" then
Response.Redirect("/hatalisayfa")
end if
db_yol ="" & vtyolu & "/"& vtadi &""
Set veri= Server.CreateObject("ADODB.Connection")
veri.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.mappath(db_yol & ".mdb")
yazar=postkontrol(yazar)
set kose =veri.executE("select top 1 * from yazar where id="&yazar)
id = postkontrol(IDno)
if id ="" then
sql ="select top 1 * from yazi where yid="&yazar&" order by id desc"
else
sql = "select top 1 * from yazi where id="&id
end if
set yazi=veri.executE(sql)
if not yazi.eof then
id = yazi("id")
%>
<%if yazar="" then
response.Write("Yazar Silinmiş veya Kayıtlı Değil...")
else
response.Write(yazi("baslik"))
response.Write(" - ")
yazar_bul(yazi("yid"))
end if %> | <%=siteadi%>
