<% '**** Module: Registration '**** Page: default.asp '**** Author: Stephen Takakuwa '**** Date: July 6, 1998 '**** Description: This is the first page a user is forced to. '**** It can be reached from NA. Many pages bounce users poking around to this page. '**** It contains links to login.asp. '**** This page will pass along login information to login.asp. '**** Revisions: %> <% Set smarty = openDB() '****this is a check for someone with an active session if Session("sessionID")<>"" then closeDB(smarty) Response.Redirect "myHomePage.asp" end if '**** check for cookie userName = Request.Cookies("SmartConf")("USER_NAME") md9Password = Request.Cookies("SmartConf")("MD5_PASSWORD") javaChat = Request.Cookies("SmartConf")("JAVA_CHAT") if userName = "" then '**** no cookie closeDB(smarty) Response.Redirect "login.asp?FormMode=through" '******CHANGE FOR EMAIL LOGIN***********' else '**** initial stuff with some kind of cookie. sqlstr = "SELECT * FROM PERSONAL_INFO WHERE USERNAME='"&userName&"'" Set record = smarty.Execute(sqlstr) If record.EOF Then record.close closeDB(smarty) Set record = Nothing Response.Redirect "login.asp?FormMode=bounce" '**** found cookie, but no record Else closeDB(smarty) Response.Redirect "login.asp?FormMode=pass" '**** cookie and record there End If end if %>