Merhaba arkadaşlar uzun süredir takıldıgım bir konu deli etcek beni
404 sef mantıgını yapmak istiyorum internetten birkaç kod buldum ama sayfa sureklı bulunamadı hatası verıyor.
404.asp sayfası <%
Dim adresurl
Dim secilialan
alan1="kategori"
alan2="urun"
alan3="anasayfa"
On error Resume Next
Set adresurl = Request.ServerVariables("QUERY_STRING")
secilialan = Split(adresurl,"/")
If Lcase(secilialan("3")) = alan1 Then
Server.Execute("kategori.asp")
Elseif Lcase(secilialan("3")) = alan2 Then
Server.Execute("urun.asp")
Elseif Lcase(secilialan("3")) = alan3 Then
Server.Execute("default.asp")
%>
<% Else%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
<title>404 - Sayfa Bulunamadı.</title>
<style type="text/css">
<!--
body,td,th { font-family: Arial, Helvetica, sans-serif; font-size: 11px; color: #999; }
body { background-color: #fff; margin: 0px; }
#error { text-align:center; width:300px; margin:0px auto; padding-top:150px; }
.number { font-size:60px; color:#999999; }
.dark { color:#000; }
a:link { color: #FF6600; text-decoration: underline; }
a:visited { text-decoration: underline; color: #FF6600; }
a:hover { text-decoration: none; color: #FF9900; }
a:active { text-decoration: underline; color: #FF9900; }
-->
</style></head>
<body>
<div id="error">HATA<br />
<span class="number">404</span><br />
<span class="dark"><font size="3">Üzgünüz, Sayfa Bulunamadı.</font></span><p><span class="style3">
<font size="2">Lütfen Url adresini kontrol ediniz.</font></span></p>
<p><span class="style3">.</span></div>
</body>
</html>
<%End if%>Kategori.asp sayfası <%
id = Request.QueryString("id")
Set title = Server.CreateObject("adodb.recordset")
sql=("select * from kategori where id="& id &" ")
title.open sql , baglanti , 1,3
%>
<a href="urun/<%=title("id")%>-<%=cevir(title("ad"))%>.html">bu şekilde de link yapım var ama hata verıyor 404 hatası , nerede hata yapıyorum