404.asp
<%
Function cevir(metin)
metin = Replace(metin,"ş","s")
metin = Replace(metin,"Ş","s")
metin = Replace(metin,".","")
metin = Replace(metin,",","")
metin = Replace(metin,"-","")
metin = Replace(metin," ","-")
metin = Replace(metin,"!","")
metin = Replace(metin,"(","")
metin = Replace(metin,")","")
metin = Replace(metin,"'","")
metin = Replace(metin,"ğ","g")
metin = Replace(metin,"Ğ","g")
metin = Replace(metin,"İ","i")
metin = Replace(metin,"ı","i")
metin = Replace(metin,"ç","c")
metin = Replace(metin,"Ç","c")
metin = Replace(metin,"ö","o")
metin = Replace(metin,"Ö","o")
metin = Replace(metin,"ü","u")
metin = Replace(metin,"Ü","u")
metin = Replace (metin ,"`","")
metin = Replace (metin ,"=","")
metin = Replace (metin ,"&","")
metin = Replace (metin ,"%","")
metin = Replace (metin ,"!","")
metin = Replace (metin ,"#","")
metin = Replace (metin ,"<","")
metin = Replace (metin ,">","")
metin = Replace (metin ,"*","")
metin = Replace (metin ,"And","")
metin = Replace (metin ,"'","")
metin = Replace (metin ,"Chr(34)","")
metin = Replace (metin ,"Chr(39)","")
cevir = metin
End Function
%>
<span style="font-weight: 700"><font face="Verdana" style="font-size: 8pt">#Haberler</font></span></font><br><hr>
<%
Set data= Server.CreateObject("adodb.connection")
data.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db.mdb")
%>
<%
strURL = Request.ServerVariables("QUERY_STRING")&"//"
secici = split(strURL,"/")
siteadresi = secici(2)
serino = secici(3)
serino=split(serino,"-")
stt=cevir(serino(0))
set hbr = Server.CreateObject("ADODB.RecordSet")
SQL_hbr = "SELECT * FROM tbl_haber ORDER BY hbr_id"
hbr.open sql_hbr,data,1,3
do while not hbr.eof
%>
<font face="Verdana" style="font-size: 9pt">
<a href="/<%=hbr("hbr_id")%>-<%=cevir(lcase(hbr("hbr_adi")))%>.html">
<span style="text-decoration: none; font-weight: 700"><font color="#336600"><%=hbr("hbr_id")%> - <%=hbr("hbr_adi")%></font></span></a></font><br>
<%
hbr.movenext
loop
%>
<%
If not stt="" then
hbr_id = Request.QueryString("hbr_id")
set hbrd = Server.CreateObject("ADODB.RecordSet")
SQL_hbrd = "SELECT * FROM tbl_haber WHERE hbr_id = " & stt& ""
hbrd.open sql_hbrd,data,1,3
%>
<hr>
<head>
<meta name="description" content="<%=left(hbrd("hbr_detay"),200)%>">
<title>
<%=left(hbrd("hbr_adi"),80)%> - SiteAdi.com</title>
</head>
<font color="#CC0000" face="Verdana" style="font-size: 8pt"><b>Haber Id : </b></font>
<font color="#808080"><b><font face="Verdana" style="font-size: 8pt"><%=hbrd("hbr_id")%></font><br>
</b></font>
<font color="#CC0000" face="Verdana" style="font-size: 8pt"><b>Haber Adı : </b></font>
<b><font color="#808080"><font face="Verdana"><span style="font-size: 8pt"><%=hbrd("hbr_adi")%></span></font><span style="font-size: 8pt"><br>
</span></font><font color="#CC0000" face="Verdana" style="font-size: 8pt">Haber Detay : </font>
</b>
<font face="Verdana" style="font-size: 8pt; font-weight: 700" color="#808080"><%=hbrd("hbr_detay")%></font>
<%
else
%>
<br><br><font face="Verdana" style="font-size: 8pt; font-weight: 700">Safya Bulunamadı Maalesef (: ( 3sn İçerisinde Geri Yönlendirileceksiniz ;) )
</font>
<%
Response.Write "<meta http-equiv=""Refresh"" content=""3;URL=http://" & siteadresi & "/1-hatali-sayfa.html"">"
%><%
end if
data.close
%>localde hiç sorunsuz çalışıyor anlamadım gitti 
