<%= arrCOMMON(58) %>

<% OPTION EXPLICIT %> <%Dim MODE, PASSWORD, USERNAME, MESSAGE, SQL, RS, LOGOUT, bDONE, ID, NAME, ACTIVE, _ EDITOR, UPLOAD, EXPIN, SINCE, REMU ' ' ' MultiCalendars Version 3.0 ' ' Copyright © 2002-2005 Expinion.net ' ' ' LOGOUT = APO(Request.QueryString("logout")) MODE = APO(Request.Form("mode")) REMU = APO(Request.Form("remu")) IF LOGOUT = "True" Then Session.Abandon END IF IF MODE = "login" THEN USERNAME = FixINJBUG(Trim(Request.Form("username"))) PASSWORD = FixINJBUG(Trim(Request.Form("password"))) Call CHECK_INPUT() IF MESSAGE = "" THEN Call OPEN_DB() SQL = "SELECT ID, fldNAME, fldACTIVE, fldEDITOR, fldUPLOAD, fldEXP_IN, fldSINCE FROM mc_tbl_calendar WHERE (fldUSERNAME ='" & USERNAME & "') AND (fldPASSWORD='" & PASSWORD & "')" Set RS = MyConn.Execute(SQL) IF NOT RS.EOF THEN ID = trim(RS("ID")) NAME = trim(RS("fldNAME")) ACTIVE = trim(RS("fldACTIVE")) EDITOR = trim(RS("fldEDITOR")) UPLOAD = trim(RS("fldUPLOAD")) EXPIN = trim(RS("fldEXP_IN")) SINCE = trim(RS("fldSINCE")) EXPIN = FormatNumber(((CDate(SINCE)+Cdbl(EXPIN)) - Date),0) IF ACTIVE = "1" THEN IF EXPIN > 0 THEN Session.Timeout = 20 Session("C_ID") = ID Session("C_NAME") = NAME Session("C_EDIT") = EDITOR Session("C_UPLOAD") = UPLOAD Session("C_LOGIN") = "True" bDONE = True ELSE MESSAGE = MESSAGE & "

" & arrERROR(26) END IF ELSE MESSAGE = MESSAGE & "

" & arrERROR(27) END IF ELSE MESSAGE = MESSAGE & "

" & arrERROR(28) END IF RS.Close Set RS = Nothing MyConn.Close Set MyConn = Nothing IF bDONE = True Then IF REMU = "1" THEN Response.cookies("MC30_USERNAME_M").Expires = Date + 25 Response.Cookies("MC30_USERNAME_M") = USERNAME ELSE Response.cookies("MC30_USERNAME_M").Expires = Date + 25 Response.Cookies("MC30_USERNAME_M") = "" END IF Response.Redirect "calendar.asp" Response.End End If END IF END IF PRIVATE SUB CHECK_INPUT() IF (Len(USERNAME) = 0) OR (IsNull(USERNAME)) THEN MESSAGE = MESSAGE & "

" & arrERROR(29) IF (Len(PASSWORD) = 0) OR (IsNull(PASSWORD)) THEN MESSAGE = MESSAGE & "

" & arrERROR(30) END SUB %> <%= arrCOMMON(58) %> <% IF NOT MESSAGE = "" THEN %> <% Response.end %> <% End If %>