Asp 404 Link Yapımı Yardım

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1254"%>
<%
Response.CharSet = "iso-8859-9"
server.ScriptTimeout=1440
Session.Codepage = 1254
Session.Timeout=1440
Session.LCID = 1055 
on error resume next
Set dbbb = Server.CreateObject("Adodb.Connection")
	strSQLServerName = "SQLveritabanıserverın" 'Holds the name of the SQL Server (This is the name/location or IP address of the SQL Server)
	strSQLDBUserName = "SQLkullanıcıadın" 'Holds the user name (for SQL Server Authentication)
	strSQLDBPassword = "SQLşifren" 'Holds the password (for SQL Server Authentication)
	strSQLDBName = "hermarka_notebook"  
	strCon = "Server=" & strSQLServerName & ";User ID=" & strSQLDBUserName & ";Password=" & strSQLDBPassword & ";Database=" & strSQLDBName & ";"
	strCon = "Provider=SQLOLEDB;Connection Timeout=90;" & strCon
	dbbb.connectionstring = strCon
	dbbb.Open
webpage="404;http://www.siteadi.com:80/"
webpage2="404;http://siteadi.com:80/"
webb=""
strURL = Request.ServerVariables("QUERY_STRING")
'Response.Write(strURL)
'response.End()
strURL=replace(strURL,webpage,"")
strURL=replace(strURL,webpage2,"")
if instr(strURL,"?")>0 then
bol=split(strURL,"?")
strURL=bol(0)
end if
'strURL=replace(strURL,"/","")
if right(strURL,1)="/" then
response.Redirect("http://www.siteadi.com/" & left(strURL,len(strURL)-1) & ".html")
else
ctrl=split(strURL,"/")
if ubound(ctrl)>0 then response.Redirect("http://www.siteadi.com/" & ctrl(1))
end if
'Response.Write(strURL)
set rslinkler = Server.CreateObject("adodb.recordset")
sql="select * from [index] where baslik='" & strURL & "'"
rslinkler.open sql,dbbb,1,3
adet=rslinkler.recordcount
if rslinkler.recordcount>0 then
link="" & rslinkler("link")
end if
rslinkler.close
set rslinkler= nothing
dbbb.Close
Set dbbb = Nothing

if adet>0 then
bol=split(link,"?")
sayfaadi=bol(0)
if ubound(bol)>0 then
strquery="" & bol(1)
	if strquery<>"" then
	querys=split(strquery,"&")
	for i=0 to ubound(querys)
	bol1=split(querys(i),"=")
	queryname=bol1(0)
	queryvalue=bol1(1)
	session(queryname)=queryvalue
	set bol1 = nothing
	next
	end if
end if
server.Transfer(webb & sayfaadi)
else
server.Transfer("index.asp")
end if

if Err.Number>0 then
Response.Write("Web sayfası görüntülenemiyor...<br>Hata Kodu : " & err.number & "<br>Hata Açıklaması : " & Err.Description)
end if
%>