帮忙合写一个asp代码

第一个是玉名识别代码

<%
if instr(Request.ServerVariables("SERVER_NAME"),"www.xxx.com")>0 then
response.redirect "/index.asp"
elseif instr(Request.ServerVariables("SERVER_NAME"),"wap.xxx.com")>0 then
response.redirect "wap.asp"
elseif instr(Request.ServerVariables("SERVER_NAME"),"bbs.xxx.com")>0 then
response.redirect "bbs"
end if
%>

第二个是自动识别WEB和WAP代码
<%
Option Explicit
dim enterurl
if instr(Request.ServerVariables("http_accept"),"wap")>0 then
enterurl="wap" '网站WAP地址

else
enterurl="wapmo" '网站WEB地址

end if
Response.Redirect(enterurl)
%>

现在我想把两个代码写成一个文件

高手帮帮忙

<%
Option Explicit

if instr(Request.ServerVariables("SERVER_NAME"),"www.xxx.com")>0 then
response.redirect "/index.asp"

if instr(Request.ServerVariables("SERVER_NAME"),"wap.xxx.com")>0 then
response.redirect "wap.asp"
elseif instr(Request.ServerVariables("SERVER_NAME"),"bbs.xxx.com")>0 then
response.redirect "/bbs"
else
end if

else

dim enterurl
if instr(Request.ServerVariables("http_accept"),"wap")>0 then
enterurl="wap" '网站WAP地址
else
enterurl="wapmo" '网站WEB地址
end if
Response.Redirect enterurl

end if
%>

这样就可以了呀!