Forum Moderators: open
I've got a few million "ghost" pages that use this technique and it works quite well.
<%
Dim strRefer
strRefer = lcase(Request.ServerVariables("QUERY_STRING"))
if instr(1, strRefer, "/exmaple1/") then
Response.Status = "200 OK"
Server.Transfer("/example2/file.asp")
elseif instr(1, strRefer, "/example3/") then
Response.Status = "200 OK"
Server.Transfer("/example3/file.asp")
elseif instr(1, strRefer, "/example3/") then
Response.Status = "200 OK"
Server.Transfer("/example4/file.asp")
else
Server.Transfer("/error.asp")
end if
%>