<%
DIM CXT(3)
CXT(1) = "Company"
CXT(2) = "Member"
CXT(3) = "Public"

SUB Cal_Start
	Print "<center><TABLE width=95% BORDER=0><TR><TD VALIGN=TOP>"
END SUB
SUB Cal_End
	Print "</TABLE></center>"
END SUB

SUB Cal_Display
	'DXOpen2 "", "ID, Date, TN, Name, Hits, Area, Admin, "
	WHILE r.DoListPage
		Cal_PItem 2, r("ID"), r("DX"), r("TN"), r("Name"), r("Hits"), r("CX"), r("AdminID"), r("LoginID"), r("AVX")
		r.ListNext
	WEND
	r.Close
	'DXClose
	'Print "<br>"
END SUB

SUB Cal_DisplayAll
	'DXOpen2 "", "ID, Date, TN, Name, Hits, Area, Admin, "
	WHILE NOT r.EOF
		Cal_PItem 1, r("ID"), r("DX"), r("TN"), r("Name"), r("Hits"), r("CX"), r("AdminID"), r("LoginID"), r("AVX")
		r.MoveNext
	WEND
	r.Close
	'DXClose
	'Print "<br>"
END SUB

SUB Cal_DisplayTextAll
	WHILE NOT r.EOF
		Cal_PItem 3, r("ID"), r("DX"), r("TN"), r("Name"), r("Hits"), r("CX"), r("AdminID"), r("LoginID"), r("AVX")
		r.MoveNext
	WEND
	r.Close
END SUB

SUB Cal_PItem(AX, ID, DX, TN, Name, Hits, CX, AdminID, Admin, AVX)
	DIM r, img, x, w
	img = ""
	SET r = db.LockRs
	r.OpenRead "SELECT Img FROM CalImages WHERE PID=" & ID & " ORDER BY SX LIMIT 1"
	IF NOT r.EOF THEN
		IF AX = 1 THEN
			SET x = LOADPICTURE(Server.MapPath(CI_Dir & r("Img")))
			w = ROUND(x.Width / 26.4583)
			IF w > 555 THEN	w = INT(ROUND(x.Width / 26.4583) / 2)
			SET x = NOTHING
			img = "<IMG VSPACE=4 width=" & w & " SRC='" & CI_Dir & r("Img") & "' BORDER=0><br>"
		ELSEIF AX = 2 THEN
			img = "<IMG VSPACE=4 SRC='" & CI_Dir & r("Img") & "' BORDER=0><br>"
		END IF
	END IF
	r.Close
	db.UnlockRs r
	Print "<TABLE BORDER=0><TR><TD VALIGN=TOP>"
	Print "<a href='calendarInfo.asp?id=" & X_NToXX(ID) & "'>" & img & "<font size=3><b>" & Name & "</b></FONT></a><br>" & D_DXText(DX) & " " & D_Time24Str(TN) & "<br></TABLE><br>"
	'Print "<IMG SRC='/image/ai" & AVX & ".gif' BORDER=0> <b>" & Admin & "</b><br>"
END SUB

FUNCTION Cal_GetMsg(ID)
	DIM r, s
	s = ""
	SET r = db.LockRs
	r.OpenRead "SELECT Msg FROM CalMsgs WHERE PID=" & ID & " ORDER BY ID"
	WHILE NOT r.EOF
		s = s & r("Msg")
		r.MoveNext
	WEND
	r.Close
	db.UnlockRs r
	Cal_GetMsg = s
END FUNCTION

FUNCTION Cal_ImgInMsg(msg, img, ic)
	DIM i, j, n, s
	IF ic = 0 THEN
		Cal_ImgInMsg = msg
		EXIT FUNCTION
	END IF
	s = "<center><img vspace=6 src='" & img(1) & "' border=0></center>" & msg
	j = INSTR(s, "<br>")
	IF j = 0 THEN	j = 1
	FOR i = 2 TO ic
		n = INSTR(j, s, "<br><br>")
		IF n > 0 THEN
			s = LEFT(s, n - 1) & "<br><br><center><img src='" & img(i) & "' border=0></center>" & MID(s, n + 4)
			j = n + 8
		ELSE
			FOR j = i TO ic
				s = s & "<br><center><img vspace=6 src='" & img(j) & "' border=0></center><br>"
			NEXT
			EXIT FOR
		END IF
	NEXT
	Cal_ImgInMsg = s
END FUNCTION

SUB Cal_Delete(ID)
	DIM r
	db.Execute "UPDATE Calendars SET Name='', AdminID=0 WHERE ID=" & ID
	db.Execute "UPDATE CalMsgs SET PID=0 WHERE PID=" & ID
	db.Execute "UPDATE CalMMsgs SET PID=0, MemberID=0 WHERE PID=" & ID
	'SET File_Sysobj = Server.CreateObject("Scripting.FileSystemObject")
	SET r = db.LockRs
	r.OpenRead "SELECT ID FROM CalImages WHERE PID=" & ID
	WHILE NOT r.EOF
		CI_Delete r("ID")
		'File_Sysobj.DeleteFile Server.MapPath("/image/calendar/" & r("Img")), TRUE
		r.MoveNext
	WEND
	r.Close
	db.UnlockRs r
	db.Execute "UPDATE CalImages SET PID=0 WHERE PID=" & ID
END SUB
%>