asp de seo

<%
Set data = Server.CreateObject("ADODB.Connection")
data.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db.mdb"))


strURL = Request.ServerVariables("QUERY_STRING")&"//"
secici = split(strURL,"/")

sayfaadi = secici(2)
' burada adreste 2 / (slashdan) sonraki isimi belirledik yani web sitemizin ismini belirletik çünkü yönlendirme için gerekli olacaktýr.

sayfaadi = secici(3)
' burada adreste 3 / (slashdan) sonraki isimi belirledik

serino = secici(4)
' burada adreste 4 / (slashdan) sonraki isimi belirledik yani id yi belirlemiþ olduk


If sayfaadi="haberler" then

'************************************************* *******
' eðer sayfaadi haberler ise yapýlacak iþlemler baþlýyor
'************************************************* *******

set hbr = Server.CreateObject("ADODB.RecordSet")
SQL_hbr = "SELECT * FROM tbl_haber ORDER BY hbr_id DESC"
hbr.open sql_hbr,data,1,3
do while not hbr.eof
%>
<a href="/haberdetay/<%=hbr("hbr_id")%>"> <%=hbr("hbr_adi")%> - <%=hbr("hbr_detay")%></a><br>
<%
hbr.movenext
loop

'************************************************* *******
' eðer sayfaadi haberler ise yapýlacak iþlemler bitti
'************************************************* *******
%><%

ElseIf sayfaadi="haberdetay" then

'************************************************* *******
' eðer sayfaadi haberdetay ise yapýlacak iþlemler baþlýyor
'************************************************* *******

hbr_id = Request.QueryString("hbr_id")
set hbrd = Server.CreateObject("ADODB.RecordSet")
SQL_hbrd = "SELECT * FROM tbl_haber WHERE hbr_id = " & serino& ""
hbrd.open sql_hbrd,data,1,3
%>


---<%=hbrd("hbr_id")%><br>
--<%=hbrd("hbr_adi")%><br>
-<%=hbrd("hbr_detay")%>

<%
'************************************************* *******
' eðer sayfaadi haberdetay ise yapýlacak iþlemler bitti
'************************************************* *******
%>


<%
ElseIf sayfaadi="uyeler" then

'************************************************* *******
' eðer sayfaadi uyeler ise yapýlacak iþlemler baþlýyor
'************************************************* *******

set uye = Server.CreateObject("ADODB.RecordSet")
SQL_uye = "SELECT * FROM tbl_uye ORDER BY uye_id DESC"
uye.open sql_uye,data,1,3
do while not uye.eof
%>
<a href="/uyedetay/<%=uye("uye_id")%>"> <%=uye("uye_adi")%> - <%=uye("uye_detay")%></a><br>
<%
uye.movenext
loop

'************************************************* *******
' eðer sayfaadi uyeler ise yapýlacak iþlemler bitti
'************************************************* *******

%><%
ElseIf sayfaadi="uyedetay" then

'************************************************* *******
' eðer sayfaadi uyedetay ise yapýlacak iþlemler baþlýyor
'************************************************* *******

uye_id = Request.QueryString("uye_id")
set uyed = Server.CreateObject("ADODB.RecordSet")
SQL_uyed = "SELECT * FROM tbl_uye WHERE uye_id = " & serino& ""
uyed.open sql_uyed,data,1,3
%>
---<%=uyed("uye_id")%><br>
--<%=uyed("uye_adi")%><br>
-<%=uyed("uye_detay")%><%
'************************************************* *******
' eðer sayfaadi uyedetay ise yapýlacak iþlemler bitti
'************************************************* *******
%><% else %>

böle bir sayfa yok
isterseniz burada ana sayfaya yönlendirme yapabilirsiniz
aynen þuan yaptýðýmýz gibi
3 saniye sonra ana sayfaya yönleneceksiniz
burada local host yerine web siteniz ismini yazmanýz gerekmektedir.
aksi takdirde yönlenme iþlemi oðru gerçekleþmeyecektir.
<meta http-equiv="refresh" content="3;URL=http://localhost/index.asp">
<%end if%>

<%
site="http://www.siteadi.com"
%>

<%=site%>/<%=haber("ID")%>.html

<%
set adres = Request.ServerVariables("QUERY_STRING")
bolum = split(adres,"/")
id=bolum(3)
id=split(id,".html")
idd=id(0)
%>

sql="select * from haberler where id="&idd