asp de seo problemi

<%
Dim adresurl
Dim secilialan
On error Resume Next
Set adresurl = Request.ServerVariables("QUERY_STRING")
secilialan = Split(adresurl,"-")
if Lcase(secilialan("5")) = habergoster Then
Server.execute("habergosterseo.asp")
%>
<%else%>
<%response.redirect("default.asp")%>
<%end if%>

<b>&nbsp;<a href="habergoster.asp?id=<%=rec("id")%>&<%=seo(rec ("konu"))%>" title="<%=rec("konu")%>"><%=rec("konu")%></a></b><br>&nbsp;<%=rec("aciklama")%></td>

<b>&nbsp;<a href="<%="haber-" & rec("id") & "-" & filtre(rec("konu")) & ".html"%>" title="<%=rec("konu")%>"><%=rec("konu")%></a></b><br>&nbsp;<%=rec("aciklama")%></td>