<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> Michael A. Campion - Purdue Krannert
<% ScriptName = Request.ServerVariables("script_name") ScriptName = Right(ScriptName, Len(ScriptName) - InStrRev(ScriptName, "/")) ScriptName = Left(ScriptName, InStrRev(ScriptName, ".") - 1) if Request.ServerVariables("QUERY_STRING") <> "" then ScriptQuery = "?" & Request.ServerVariables("QUERY_STRING") else ScriptQuery = "" end if Response.Status="301 Moved Permanently" Response.AddHeader "Location", ScriptName+".php"+ScriptQuery %> [Skip to Content]

Michael A. Campion

This is the Web site for Professor Campion. For more information - click one of the menu links at the right.