Merhaba arkadaşlar, bu sitemi aylardır uğraşıyorum ama yapamıyorum. Lütfen bi el atında yapalım. İsterseniz özelden cevap verin lütfen.

Sitemdeki seolu link : http://siteadi.com/u/178/urun-adi.htm

Olması istediğim link: http://siteadi.com/u178,urun-adi.htm

Yapmak istiyorum ama bir türlü yapamadım.

404.asp
<%
Dim istekurl
Dim istekbolum
urun="u"
Set istekurl = Request.ServerVariables("QUERY_STRING")
istekbolum = Split(istekurl,"/")

Elseif Lcase(istekbolum("3")) = urun Then
Server.Execute("urun.asp")
<%Else%>

<%End if %>

Default.asp
<%=""& siteurl &"/u/" & rec("id") & "/" & cevir(Lcase(rec("adi"))) &".htm"%><%end if%>

urun.asp
<%
id=QueryFilter(Request.QueryString("id"))
%>

<%
ID=request("ID")
If Not Isnumeric(ID) Or Len(ID)=0 Then
response.Redirect(""&siteurl&"")
End If%>

<% Set urun = Server.CreateObjecT("ADODB.RecordSet")
rSQL = "Select * FROM Urunler where id="&id
urun.open rSQL,baglanti,3,3 %><% Else %><%
Set istekurl = Request.ServerVariables("QUERY_STRING")
istekbolum = Split(istekurl,"/")
Gelendir=istekbolum(4)
Parcala=Split(Gelendir,"-")
id=QueryFilter(Parcala(0))
If id="" OR Isnumeric(id)=False Then Response.Redirect(""&siteurl&"")
%>