admin
05-30-2003, 01:34 PM
Several ways to do this actually. First we'll show the client-side method which requests a server variable:
<%
Strval = Request.ServerVariables("HTTP_USER_AGENT")
If(Instr(1, Strval, "AOL 3", 1) <> 0) Then
Response.Redirect "iepage.asp"
ElseIf(Instr(1, Strval, "MSIE 3", 1) <> 0) Then
Response.Redirect "iepage.asp"
ElseIf(Instr(1, Strval, "MSIE 4", 1) <> 0) Then
Response.Redirect "iepage.asp"
ElseIf(Instr(1, Strval, "MSIE 5", 1) <> 0) Then
Response.Redirect "iepage.asp"
ElseIf(Instr(1, Strval, "Mozilla/4", 1) <> 0) Then
Response.Redirect "netscapepage.asp"
Else
Response.Redirect "netscapepage.asp
End If
%>
Or, the server-side version ...
<%
Set browser = Server.CreateObject("MSWC.BrowserType")
If (browser.Browser="IE") Then
Response.Redirect "iepage.asp"
Else
Response.Redirect "netscapepage.asp"
End If
Set browser = Nothing
%>
<%
Strval = Request.ServerVariables("HTTP_USER_AGENT")
If(Instr(1, Strval, "AOL 3", 1) <> 0) Then
Response.Redirect "iepage.asp"
ElseIf(Instr(1, Strval, "MSIE 3", 1) <> 0) Then
Response.Redirect "iepage.asp"
ElseIf(Instr(1, Strval, "MSIE 4", 1) <> 0) Then
Response.Redirect "iepage.asp"
ElseIf(Instr(1, Strval, "MSIE 5", 1) <> 0) Then
Response.Redirect "iepage.asp"
ElseIf(Instr(1, Strval, "Mozilla/4", 1) <> 0) Then
Response.Redirect "netscapepage.asp"
Else
Response.Redirect "netscapepage.asp
End If
%>
Or, the server-side version ...
<%
Set browser = Server.CreateObject("MSWC.BrowserType")
If (browser.Browser="IE") Then
Response.Redirect "iepage.asp"
Else
Response.Redirect "netscapepage.asp"
End If
Set browser = Nothing
%>