<%
' Quick Code: <!-- #include file="../Modules/common_functions/common_functions.asp" -->

 
function StripSpecialCharacters(strIn)
	
	dim strTemp
	strTemp = strIn
	
	for x = 129 to 255
		strTemp = replace(strTemp, chr(x), "&#" & x & ";")
	next
	
	strTemp = replace(strTemp, "'", "&#39;")
	
	StripSpecialCharacters = strTemp
	
End function

function RSC(strIn)

	dim strOut
	strOut = strIn
	
	For i = 192 to 255
		strOut = Replace(strOut, chr(i), "&#"&i&";")
	Next
	
	'For i = 7600 to 7900
	'	strOut = Replace(strOut, chr(i), "&#"&i&";")
	'Next
	
	RSC = strOut
	
End function

function StripSpecialCharacters_RSS(sIn)
	
	dim strTemp
	strTemp = sIn
	
	for x = 129 to 255
	
		if x = 146 then
		strTemp = replace(strTemp, chr(x), "&#39;")
		else
		strTemp = replace(strTemp, chr(x), "")
		end if
	
	Next
	
	strTemp = replace(strTemp, "&", "&amp;")
	strTemp = replace(strTemp, chr(34), "&#34;")
	strTemp = replace(strTemp, "'", "&#39;")
	strTemp = replace(strTemp, "<", "&#60;")
	strTemp = replace(strTemp, ">", "&#62;")
	
	StripSpecialCharacters_RSS = strTemp
	
End function

function StripSpecialCharacters_Flash(sIn)
	
	dim strTemp
	strTemp = sIn
	
	for x = 129 to 255
	
		if x = 146 then
		strTemp = replace(strTemp, chr(x), "'")
		else
		strTemp = replace(strTemp, chr(x), "")
		end if
	
	Next
	
	strTemp = replace(strTemp, "&", "&")
	strTemp = replace(strTemp, chr(34), "&#34;")
	strTemp = replace(strTemp, "'", "'")
	strTemp = replace(strTemp, "<", "%3C")
	strTemp = replace(strTemp, ">", "%3F")
	
	StripSpecialCharacters_Flash = strTemp
	
End function

' request(
function request_clean(data_field)
	request_clean = StripSpecialCharacters(request(data_field))
end function

' request.form(
function request_form_clean(data_field)
	request_form_clean = StripSpecialCharacters(request.form(data_field))
end function

' request.querystring(
function request_querystring_clean(data_field)
	request_querystring_clean = StripSpecialCharacters(Request.QueryString(data_field))
end function

'request.cookies(
function request_cookies_clean(data_field)
	request_cookies_clean = StripSpecialCharacters(request.cookies(data_field))
end function

'request.servervariables(
function request_servervariables_clean(data_field)
	request_servervariables_clean = StripSpecialCharacters(request.servervariables(data_field))
end function

'StripHTML
Function StripHTML( strText )
	if strText <> "" or strText <> NULL then
		StrText = cStr(StrText)
		Dim RegEx
		Set RegEx = New RegExp
		RegEx.Pattern = "<[^>]*>"
		RegEx.Global = True
		if strText <> "" then StripHTML = RegEx.Replace(strText, "") else StripHTML = ""
	end if
End Function

Function RSSASCII(sIn)
	
	dim strTemp
	strTemp = sIn
	
	strTemp = replace(strTemp, "&rsquo;", "'")
	strTemp = replace(strTemp, "&lsquo;", "'")
	strTemp = replace(strTemp, "&rdquo;", chr(34))
	strTemp = replace(strTemp, "&ldquo;", chr(34))

	
	RSSASCII = strTemp
	
End Function

'lpad
Function lpad(arg,lambai,padchr)
Dim goloop
Dim cntloop
cntloop = 1
goloop = lambai - Len(Trim(arg))
Do While (cntloop <= goloop)
   arg = padchr & Trim(arg)
   cntloop = cntloop + 1
Loop
lpad = arg
End Function

function ereg(strOriginalString, strPattern, varIgnoreCase)
	' Function matches pattern, returns true or false
	' varIgnoreCase must be TRUE (match is case insensitive) or FALSE (match is case sensitive)
	dim objRegExp : set objRegExp = new RegExp
	with objRegExp
		.Pattern = strPattern
		.IgnoreCase = varIgnoreCase
		.Global = True
	end with
	ereg = objRegExp.test(strOriginalString)
	set objRegExp = nothing
end function

function ereg_replace(strOriginalString, strPattern, strReplacement, varIgnoreCase)
	' Function replaces pattern with replacement
	' varIgnoreCase must be TRUE (match is case insensitive) or FALSE (match is case sensitive)
	dim objRegExp : set objRegExp = new RegExp
	with objRegExp
		.Pattern = strPattern
		.IgnoreCase = varIgnoreCase
		.Global = True
	end with
	ereg_replace = objRegExp.replace(strOriginalString, strReplacement)
	set objRegExp = nothing
end function

'THIS FUNCTION IS FOR THE DATE/TIME FORMAT FUNCTION. PLEASE IGNORE UNTIL IT BREAKS SOMETHING
Function GetDateSuffix(iDate)
	Select Case iDate
		case 1, 21, 31
			GetDateSuffix = "st"
		case 2, 22
			GetDateSuffix = "ed"
		case 3, 23
			GetDateSuffix = "rd"
		case 4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,24,25,26,27,28,29,30
			GetDateSuffix = "th"
	End Select
End Function
'THIS FUNCTION IS FOR THE DATE/TIME FORMAT FUNCTION. PLEASE IGNORE UNTIL IT BREAKS SOMETHING
Function GetDaysInMonth(iMonth, iYear)
	Select Case iMonth
		Case 1, 3, 5, 7, 8, 10, 12
			GetDaysInMonth = 31
		Case 4, 6, 9, 11
			GetDaysInMonth = 30
		Case 2
			If IsDate("February 29, " & iYear) Then
				GetDaysInMonth = 29
			Else
				GetDaysInMonth = 28
			End If
	End Select
End Function
'DATE AND TIME FORMATTING FUNCTION. WORKS LIKE PHPS DATE() FOR MORE INFORMATION PLEASE SEE http://us.php.net/date
'NOT ALL FORMATTING FLAGS ARE PORTED OVER YET HOWEVER ANYTHING YOU WILL PROBABLY NEED IS HERE
Function FormatDate(forstr, tdstr)
dim ia, d, shd, j, l, shs, w, z, shf, m, shm, n, t, shl, shy, y, a, sha, g, shg, h, i, s, u, newstr

if isdate(tdstr) then
hours = hour(tdstr)

length = len(forstr)
for ia = 1 to length
tmpstr = mid(forstr,ia,1)
dim regex
set regex = new RegExp
regex.pattern = "[A-Za-z]"
if tmpstr = "\" then
ia = ia+1
newstr = newstr&mid(forstr,ia,1)
end if
if regex.test(tmpstr) then 
	Select Case tmpstr
		case "d"
			d = lpad(day(tdstr),2,"0")
			newstr = newstr&d
		case "D"
			ShD = weekdayname(weekday(tdstr),True)
			newstr = newstr&ShD
		case "j"
			j = day(tdstr)
			newstr = newstr&j
		case "l"
			l = weekdayname(weekday(tdstr))
			newstr = newstr&l
		case "S"
			ShS = GetDateSuffix(day(tdstr))
			newstr = newstr&ShS
		case "w"
			w = weekday(tdstr)
			newstr = newstr&w
		case "z"
			z = DatePart("y",tdstr)
			newstr = newstr&z
		case "F"
			ShF = monthname(month(tdstr))
			newstr = newstr&ShF
		case "m"
			m = lpad(month(tdstr),2,"0")
			newstr = newstr&m
		case "M"
			ShM = monthname(month(tdstr),True)
			newstr = newstr&ShM
		case "n"
			n = month(tdstr)
			newstr = newstr&n
		case "t"
			t = GetDaysInMonth(month(tdstr), year(tdstr))
			newstr = newstr&t
		case "L"
			if IsDate("02/29/"&ShY) then ShL=1 else ShL=0
			newstr = newstr&ShL
		case "Y"
			ShY = year(tdstr)
			newstr = newstr&ShY
		case "y"
			y = right(year(tdstr),2)
			newstr = newstr&y
		case "a"
			if hours < 12 then a = "am" else a = "pm" 
			newstr = newstr&a
		case "A"
			if hours < 12 then ShA = "AM" else ShA = "PM" 
			newstr = newstr&ShA
		case "g"
			if hours < 12 then g = hours else g = hours - 12
			if g = 0 then g = 12
			newstr = newstr&g
		case "G"
			ShG = hour(tdstr)
			newstr = newstr&ShG
		case "h"
			if hours < 12 then h = hours else h = hours - 12
			if h = 0 then h = 12
			h = lpad(h,2,"0")
			newstr = newstr&h
		case "H"
			ShH = lpad(hour(tdstr),2,"0")
			newstr = newstr&ShH
		case "i"
			i = lpad(minute(tdstr),2,"0")
			newstr = newstr&i
		case "s"
			s = lpad(second(tdstr),2,"0")
			newstr = newstr&s
		case "u"
			newstr = newstr&u
		case else
			newstr = newster&tmpstr
	end select
elseif tmpstr <> "\" then newstr = newstr&tmpstr
end if
next
FormatDate = CStr(newstr)
else
FormatDate = FALSE
end if
end function

' --- COUNT RECORDS IN SQL STATEMENT
Function SQLCount(SQL, Column)

	CountSQL = "SELECT Count(a." & Column & ") FROM (" & SQL & ") a"
	if isobject(objConn) then
		set objCount = objConn.Execute(CountSQL)
	elseif isobject(objAeonConn) then
		set objCount = objAeonConn.Execute(CountSQL)
	end if
	if objCount.EOF then
		SQLCount = 0
	else
		SQLCount = objCount(0)
	end if

End Function

' --- LIMIT AND OFFEST REPLACEMENT FUNCTION FOR MSSQL
Function LimitOffset(SQL, Limit, Offset, SortColumns, SortOrders)

	' SET DEFAULTS
	OffsetOrder = "ORDER BY "
	LimitOrder = "ORDER BY "
	CorrectOrder = "ORDER BY "
	Limit = Cint(Limit)
	'response.write Limit&"<br>"
	Offset = Cint(Offset)

	' VERIFY VARIABLES
	Columns = split(SortColumns, ",")
	Orders = split(SortOrders, ",")
	If Ubound(Columns) <> Ubound(Orders) then
		LimitOffset = SQL
	End If

	' CREATE ORDER BY SQL FOR OFFSET
	For i = 0 to Ubound(Columns)
		If Columns(i) <> "" Then
			If i > 0 then
				OffsetOrder = OffsetOrder & "AND "
			End If
			if trim(ucase(Orders(i))) = "ASC" then
				Order = "ASC"
			else
				Order = "DESC"
			end if
			OffsetOrder = OffsetOrder & "a." & trim(Columns(i)) & " " & Order
		End If
	Next

	' CREATE ORDER BY SQL FOR CORRECTING
	For i = 0 to Ubound(Columns)
		If Columns(i) <> "" Then
			If i > 0 then
				CorrectOrder = CorrectOrder & "AND "
			End If
			if trim(ucase(Orders(i))) = "ASC" then
				Order = "ASC"
			else
				Order = "DESC"
			end if
			CorrectOrder = CorrectOrder & "c." & trim(Columns(i)) & " " & Order
		End If
	Next

	' CREATE ORDER BY SQL FOR LIMIT
	For i = 0 to Ubound(Columns)
		If Columns(i) <> "" Then
			If i > 0 then
				LimitOrder = LimitOrder & "AND "
			End If
			if trim(ucase(Orders(i))) = "ASC" then
				Order = "DESC"
			else
				Order = "ASC"
			end if
			LimitOrder = LimitOrder & "b." & trim(Columns(i)) & " " & Order
		End If
	Next

	' MICROSOFT SQL DOES NOT HAVE AN OFFSET COMMAND SO WE TRICK IT BY ADDING THE LIMIT ONTO THE OFFSET AND DOING SOME MAGIC
	FullOffset = Limit+Offset

	' IF THE CORRECTED OFFSET IS LARGER THAN THE NUMBER OF ITEMS IN THE FULL QUERY THAN CORRECT THE LIMIT AND OFFSET
	'response.write SQL
	'response.write Columns(0)
	Count = SQLCount(SQL, Columns(0))
	If Count <= 0 Then
		'response.write "wha?"
		Limit = 0
		FullOffset = 0
	ElseIf Count < FullOffset Then
		'response.write Count&"<br>"
		Limit = Count - Offset
		FullOffset = Count
	Else
		Limit = Limit
		FullOffset = FullOffset
	End If
	
	'response.write Limit
	
	If Limit < 0 Then
		Limit = 0
	End If

	' GRAB BOTH THE OFFSET PLUS THE NEXT LIMIT SET
	OffsetSQL = "SELECT TOP " & FullOffset & " a.* FROM (" & SQL & ") a " & OffsetOrder

	' REVERSE THE SET AND GRAB THE TOP RESULTS TO PROVIDE THE OFFSET AND LIMIT SET
	LimitSQL = "SELECT TOP " & Limit & " b.* FROM (" & OffsetSQL & ") b " & LimitOrder

	' REVERSE THE SET AGAIN TO RESET TO THE ORIGINAL ORDER
	SQL = "SELECT c.* FROM (" & LimitSQL & ") c " & CorrectOrder

	LimitOffset = SQL

End Function

Function StrCleaner(StrIn)
	dim TempStr
	if NOT isnull(StrIn) then
		TempStr = StrIn
		TempStr = ereg_replace(TempStr,"[^\x20-\x7e]","",true)
		TempStr = ereg_replace(TempStr,"&","&amp;",true)
		TempStr = ereg_replace(TempStr,"'","&apos;",true)
		TempStr = ereg_replace(TempStr,"""","&quot;",true)
		TempStr = ereg_replace(TempStr,"<","&lt;",true)
		TempStr = ereg_replace(TempStr,"<","&gt;",true)
		StrCleaner = TempStr
	else
		StrCleaner = null
	end if
End Function

Function DecToBin(intDec,intLength)
	dim strResult
	dim intTemp
	dim intTempLen
	while intDec > 0
		if intDec mod 2 then
			strResult = "1"+strResult
		else
			strResult = "0"+strResult
		end if
		intDec = int(intDec/2)
	wend 
	if len(strResult) < intLength then
		while len(strResult) < intLength
			strResult = "0"+strResult
		wend
	end if
	DecToBin= strResult
	
end function

Function URLDecode(sConvert)
    Dim aSplit
    Dim sOutput
    Dim I
    If IsNull(sConvert) Then
       URLDecode = ""
       Exit Function
    End If
	
    ' convert all pluses to spaces
    sOutput = REPLACE(sConvert, "+", " ")
	
    ' next convert %hexdigits to the character
    aSplit = Split(sOutput, "%")
	
    If IsArray(aSplit) Then
      sOutput = aSplit(0)
      For I = 0 to UBound(aSplit) - 1
        sOutput = sOutput & _
          Chr("&H" & Left(aSplit(i + 1), 2)) &_
          Right(aSplit(i + 1), Len(aSplit(i + 1)) - 2)
      Next
    End If
	
    URLDecode = sOutput
End Function
function gmap(subjectString)
	if subjectString <> "" then
		dim gpatternArr(1)
		dim greplaceArr
		gpatternArr(0) = "\[gmap\](http://maps.google.com/.*?)\[/gmap\]"
		gpatternArr(1) = "\[gcal\](http://www.google.com/calendar/embed?.*?)\[/gcal\]"
		
		'response.write subjectString
		'gmap
		Set myRegExp = New RegExp
		myRegExp.IgnoreCase = True
		myRegExp.Global = True
		myRegExp.Pattern = "\[gmap\](http://maps.google.com/.*?)\[/gmap\]"
		Set myMatches = myRegExp.Execute(subjectString)
		
		
		For i=0 to myMatches.Count-1
			replaceCode = "<div><iframe width=""425"" height=""350"" frameborder=""0"" scrolling=""no"" marginheight=""0"" marginwidth=""0"" src="""&myMatches(i).Submatches(0)&"&output=embed""></iframe><br /><small><a href="""&myMatches(i).Submatches(0)&""" style=""color:#0000FF;text-align:left"">View Larger Map</a></small></div>"
			Set myRegExp2 = New RegExp
			myRegExp2.IgnoreCase = True
			myRegExp2.Global = false
			myRegExp2.Pattern = "\[gmap\](http://maps.google.com/.*?)\[/gmap\]"
			subjectString = myRegExp2.replace(subjectString,replaceCode)
		Next
		'gcal
		Set myRegExp = New RegExp
		myRegExp.IgnoreCase = True
		myRegExp.Global = True
		myRegExp.Pattern =  "\[gcal\](http://www.google.com/calendar/embed?.*?)\[/gcal\]"
		Set myMatches = myRegExp.Execute(subjectString)
		
		
		For i=0 to myMatches.Count-1
			replaceCode = "<div><iframe width=""425"" height=""350"" frameborder=""0"" scrolling=""no"" marginheight=""0"" marginwidth=""0"" src="""&myMatches(i).Submatches(0)&""" ></iframe><br /></div>"
			Set myRegExp2 = New RegExp
			myRegExp2.IgnoreCase = True
			myRegExp2.Global = false
			myRegExp2.Pattern =  "\[gcal\](http://www.google.com/calendar/embed?.*?)\[/gcal\]"
			subjectString = myRegExp2.replace(subjectString,replaceCode)
		Next
		'gspread
		Set myRegExp = New RegExp
		myRegExp.IgnoreCase = True
		myRegExp.Global = True
		myRegExp.Pattern =  "\[gspread\](http://spreadsheets.google.com.*?)\[/gspread\]"
		Set myMatches = myRegExp.Execute(subjectString)
		
		
		For i=0 to myMatches.Count-1
			replaceCode = "<div><iframe width=""425"" height=""350"" frameborder=""0"" scrolling=""no"" marginheight=""0"" marginwidth=""0"" src="""&myMatches(i).Submatches(0)&""" ></iframe><br /></div>"
			Set myRegExp2 = New RegExp
			myRegExp2.IgnoreCase = True
			myRegExp2.Global = false
			myRegExp2.Pattern =  "\[gspread\](http://spreadsheets.google.com.*?)\[/gspread\]"
			subjectString = myRegExp2.replace(subjectString,replaceCode)
		Next
		
		'gdoc
		Set myRegExp = New RegExp
		myRegExp.IgnoreCase = True
		myRegExp.Global = True
		myRegExp.Pattern =  "\[gdoc\](http://docs.google.com/.*?)\[/gdoc\]"
		Set myMatches = myRegExp.Execute(subjectString)
		
		
		For i=0 to myMatches.Count-1
			replaceCode = "<div><iframe width=""425"" height=""350"" frameborder=""0"" marginheight=""0"" marginwidth=""0"" src="""&myMatches(i).Submatches(0)&""" ></iframe><br /></div>"
			Set myRegExp2 = New RegExp
			myRegExp2.IgnoreCase = True
			myRegExp2.Global = false
			myRegExp2.Pattern =  "\[gdoc\](http://docs.google.com/.*?)\[/gdoc\]"
			subjectString = myRegExp2.replace(subjectString,replaceCode)
		Next
			
		'gpresentation
		Set myRegExp = New RegExp
		myRegExp.IgnoreCase = True
		myRegExp.Global = True
		myRegExp.Pattern =  "\[gpresentation\](http://docs.google.com/EmbedSlideshow.*?)\[/gpresentation\]"
		Set myMatches = myRegExp.Execute(subjectString)
		
		
		For i=0 to myMatches.Count-1
			replaceCode = "<div><iframe width=""425"" height=""350"" frameborder=""0"" marginheight=""0"" marginwidth=""0"" src="""&myMatches(i).Submatches(0)&""" ></iframe><br /></div>"
			Set myRegExp2 = New RegExp
			myRegExp2.IgnoreCase = True
			myRegExp2.Global = false
			myRegExp2.Pattern = "\[gpresentation\](http://docs.google.com/EmbedSlideshow.*?)\[/gpresentation\]"
			subjectString = myRegExp2.replace(subjectString,replaceCode)
		Next
		
		'gform
		Set myRegExp = New RegExp
		myRegExp.IgnoreCase = True
		myRegExp.Global = True
		myRegExp.Pattern =  "\[gform\](http.?://spreadsheets.google.com/embeddedform.*?)\[/gform\]"
		Set myMatches = myRegExp.Execute(subjectString)
		
		
		For i=0 to myMatches.Count-1
			replaceCode = "<div><iframe width=""500"" height=""350"" frameborder=""0"" marginheight=""0"" marginwidth=""0"" src="""&myMatches(i).Submatches(0)&""" >Loading...</iframe><br /></div>"
			Set myRegExp2 = New RegExp
			myRegExp2.IgnoreCase = True
			myRegExp2.Global = false
			myRegExp2.Pattern = "\[gform\](http.?://spreadsheets.google.com/embeddedform.*?)\[/gform\]"
			subjectString = myRegExp2.replace(subjectString,replaceCode)
		Next	
			
			
			
		gmap = subjectString
	else
		gmap = subjectString
	end if
end function


function gmapClean(subjectString)
	if subjectString <> "" then
		'Prepare a regular expression object
		replaceCode = ""
		Set myRegExp2 = New RegExp
		myRegExp2.IgnoreCase = True
		myRegExp2.Global = true
		myRegExp2.Pattern = "\[gmap\].*?\[/gmap\]"
		subjectString = myRegExp2.replace(subjectString,replaceCode)
		
		replaceCode = ""
		Set myRegExp2 = New RegExp
		myRegExp2.IgnoreCase = True
		myRegExp2.Global = true
		myRegExp2.Pattern = "\[gcal\].*?\[/gcal\]"
		subjectString = myRegExp2.replace(subjectString,replaceCode)
		
		replaceCode = ""
		Set myRegExp2 = New RegExp
		myRegExp2.IgnoreCase = True
		myRegExp2.Global = true
		myRegExp2.Pattern = "\[gspread\].*?\[/gspread\]"
		subjectString = myRegExp2.replace(subjectString,replaceCode)
		
		replaceCode = ""
		Set myRegExp2 = New RegExp
		myRegExp2.IgnoreCase = True
		myRegExp2.Global = true
		myRegExp2.Pattern = "\[gdoc\].*?\[/gdoc\]"
		subjectString = myRegExp2.replace(subjectString,replaceCode)
		
		replaceCode = ""
		Set myRegExp2 = New RegExp
		myRegExp2.IgnoreCase = True
		myRegExp2.Global = true
		myRegExp2.Pattern = "\[gpresentation\].*?\[/gpresentation\]"
		subjectString = myRegExp2.replace(subjectString,replaceCode)
		
		replaceCode = ""
		Set myRegExp2 = New RegExp
		myRegExp2.IgnoreCase = True
		myRegExp2.Global = true
		myRegExp2.Pattern = "\[gform\].*?\[/gform\]"
		subjectString = myRegExp2.replace(subjectString,replaceCode)
	end if
	gmapClean = subjectString
end function
%>

<%
strBaseURL = "http://www.schedel-gardens.org"
strAcctFolder = "schedel"
strAcctDesc = "Schedel Arboretum & Gardens"

vCopyright = "&copy; 2005 Schedel Arboretum & Gardens"

strMainEmail = "webmaster@wgte.org"

vMainTable = "schedel"

Set objConn = Server.CreateObject("ADODB.Connection")
'objConn.open = "Provider=sqloledb;Data Source=XXX.XXX.XXX.XXX;Initial Catalog=external;User Id=user;Password=password;"
dim ConnectionString
ConnectionString="Driver={SQL Server}; Server=schedel.db.4828165.hostedresource.com; Database=schedel; Uid=schedel; Pwd=David123;"'"Provider=sqloledb;Password=David123;Persist Security Info=True;User ID=schedel;Initial Catalog=schedel;Data Source=schedel.db.4828165.hostedresource.com"

objConn.open ConnectionString '"Provider=sqloledb;Data Source=schedel.db.4828165.hostedresource.com;Initial Catalog=schedel;User Id=schedel;Password=David123;"
'"Driver={SQL Server}; Server=schedel.db.4828165.hostedresource.com; Database=schedel; Uid=schedel; Pwd=David123;"
pagename = request.servervariables("script_name")
arr_dirs = Split(pagename,"/",-1,1)
vSubject = arr_dirs(UBound(arr_dirs)-1)
%>


<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

<html>
<head>
<title><%=strAcctDesc%></title>
<LINK REL="StyleSheet" HREF="../style/styles.css" type="text/css">
<script language="JavaScript" src="includes/masterpop.js"></script>
<style type="text/css">
<!--
body {  margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; left: 0px; top: 0px; clip: rect(   ); width: 780px; background-color: #E8D7B6; background-image:  url(<%=strBaseURL%>/schedel/images/maintmpltbckgrnd.gif); background-repeat: repeat-y}

.hrdash {height:1px; border-top:1px dashed #cece9c; border-left:0 none; border-right:0 none; border-bottom:0 none; margin:1em 0; padding:0;}
-->
</style>

<script language="javascript">
<!--
 
img1 = new Image();     img1.src = "<%=strBaseURL%>/schedel/images/AUMBa.gif";
img1_on = new Image();     img1_on.src = "<%=strBaseURL%>/schedel/images/AUMBb.gif";

img2 = new Image();     img2.src = "<%=strBaseURL%>/schedel/images/NUMBa.gif";
img2_on = new Image();     img2_on.src = "<%=strBaseURL%>/schedel/images/NUMBb.gif";

img3 = new Image();     img3.src = "<%=strBaseURL%>/schedel/images/IMBa.gif";
img3_on = new Image();     img3_on.src = "<%=strBaseURL%>/schedel/images/IMBb.gif";

img4 = new Image();     img4.src = "<%=strBaseURL%>/schedel/images/MMBa.gif"; 
img4_on = new Image();     img4_on.src = "<%=strBaseURL%>/schedel/images/MMBb.gif";

img5 = new Image();     img5.src = "<%=strBaseURL%>/schedel/images/SEMBa.gif";
img5_on = new Image();     img5_on.src = "<%=strBaseURL%>/schedel/images/SEMBb.gif";

img6 = new Image();     img6.src = "<%=strBaseURL%>/schedel/images/OGMBa.gif";
img6_on = new Image();     img6_on.src = "<%=strBaseURL%>/schedel/images/OGMBb.gif";

img7 = new Image();     img7.src = "<%=strBaseURL%>/schedel/images/RSMBa.gif";
img7_on = new Image();     img7_on.src = "<%=strBaseURL%>/schedel/images/RSMBb.gif";

function SwapOut1() {
document.about.src = img1_on.src;
}
function SwapBack1() {
document.about.src = img1.src;
}

function SwapOut2() {
document.news.src = img2_on.src;
}
function SwapBack2() {
document.news.src = img2.src;
}

function SwapOut3() {
document.info.src = img3_on.src;
}
function SwapBack3() {
document.info.src = img3.src;
}

function SwapOut4() {
document.membership.src = img4_on.src;
}
function SwapBack4() {
document.membership.src = img4.src;
}

function SwapOut5() {
document.events.src = img5_on.src;
}
function SwapBack5() {
document.events.src = img5.src;
}

function SwapOut6() {
document.thanks.src = img6_on.src;
}
function SwapBack6() {
document.thanks.src = img6.src;
}

function SwapOut7() {
document.links.src = img7_on.src;
}
function SwapBack7() {
document.links.src = img7.src;
}


//-->
</script>

<script language="JavaScript" type="text/javascript">
<!--
function PopWindow() { 
	window.open('http://www.schedel-gardens.org/sculpture.html','newwin71273','width=450,height=450,menubar=no,scrollbars=yes,toolbar=no,location=no,directories=no,resizable=yes,top=100,left=100'); 
}
//-->
</script>

</head>

<BODY bgColor=#e8d7b6 leftMargin=0 topMargin=0 marginheight="0" marginwidth="0">

<TABLE cellSpacing=0 cellPadding=0 width=653 border=0 valign="top">
<TBODY>
<TR>
<TD vAlign=top noWrap align=left width=125 height=29><IMG height=29 alt="top left bar" hspace=0 src="<%=strBaseURL%>/schedel/images/schedel.jpg" width=125 align=top border=0></TD>
<TD vAlign=top width=389 height=8></TD>
<TD vAlign=top align=left width=258 height=98 rowSpan=2><IMG height=98 alt=pics hspace=0 src="<%=strBaseURL%>/schedel/images/pics1a.jpg" width=257 align=top border=0></TD>
</TR>
<TR>
<TD vAlign=top align=left colSpan=2 height=8><IMG height=69 alt="Baba Dioum quote" hspace=0 src="<%=strBaseURL%>/schedel/images/quote1.gif" width=513 align=top border=0></TD>
</TR>
<TR>
<TD vAlign=top width=125 background="<%=strBaseURL%>/schedel/images/schedelbr.jpg" align=right>
<div style="font-size:80px;">&nbsp;</div>

<table width="125" border="0" cellspacing="0" cellpadding="0">

<tr align="right">
<td>
<a href="<%=strBaseURL%>/schedel/about/" onmouseover="SwapOut1();" onmouseout="SwapBack1();">
<img src="<%=strBaseURL%>/schedel/images/AUMBa.gif" name="about" width="125" height="17" border="0" alt=""></a>
<% curcat = "about" %>
<%

If curcat = strSubject then

SQL = "SELECT * FROM "&vMainTable&" WHERE (subject = '"&strSubject&"') AND (keyref <> '') AND (status = 'ON') ORDER BY rank"
set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open SQL,objConn,adOpenKeySet
if objRS.EOF then
else
%>


	


    <table width="122" cellpadding="3" cellspacing="1" border="0">
	<%
	Do While not objRS.EOF
%>
	
    <tr bgcolor="" onClick="document.location.href='main.asp?id=poetry'" onmouseover="this.style.backgroundColor='#ffffff'"; onmouseout=";this.style.backgroundColor='';return true;">
    <td valign="center" align="right">
       <p class="menulinks">
       <a href="display.asp?id=<%=objRS("id")%>&subj=<%=strSubject%>" class="linkSubnav" style="color:#583c31;">
       <b><%=objRS("title")%></b>
       </a>
       </p>
      </td>							
    </tr>
	
	<%
		objRS.MoveNext
	Loop
%>
	
	</table>
     <div style="font-size:4pt;">&nbsp;</div>
	 	
	<%
	set objRS = nothing
end if

end if

%>
</td>
</tr>

<tr align="right">
<td>
<a href="<%=strBaseURL%>/schedel/newsroom/" onmouseover="SwapOut2();" onmouseout="SwapBack2();">
<img src="<%=strBaseURL%>/schedel/images/NUMBa.gif" name="news" width="125" height="17" border="0" alt=""></a>
<% curcat = "newsroom" %>
<%

If curcat = strSubject then

SQL = "SELECT * FROM "&vMainTable&" WHERE (subject = '"&strSubject&"') AND (keyref <> '') AND (status = 'ON') ORDER BY rank"
set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open SQL,objConn,adOpenKeySet
if objRS.EOF then
else
%>


	


    <table width="122" cellpadding="3" cellspacing="1" border="0">
	<%
	Do While not objRS.EOF
%>
	
    <tr bgcolor="" onClick="document.location.href='main.asp?id=poetry'" onmouseover="this.style.backgroundColor='#ffffff'"; onmouseout=";this.style.backgroundColor='';return true;">
    <td valign="center" align="right">
       <p class="menulinks">
       <a href="display.asp?id=<%=objRS("id")%>&subj=<%=strSubject%>" class="linkSubnav" style="color:#583c31;">
       <b><%=objRS("title")%></b>
       </a>
       </p>
      </td>							
    </tr>
	
	<%
		objRS.MoveNext
	Loop
%>
	
	</table>
     <div style="font-size:4pt;">&nbsp;</div>
	 	
	<%
	set objRS = nothing
end if

end if

%>
</td>
</tr>

<tr align="right">
<td>
<a href="<%=strBaseURL%>/schedel/info/" onmouseover="SwapOut3();" onmouseout="SwapBack3();">
<img src="<%=strBaseURL%>/schedel/images/IMBa.gif" name="info" width="125" height="17" border="0" alt=""></a>
<% curcat = "info" %>
<%

If curcat = strSubject then

SQL = "SELECT * FROM "&vMainTable&" WHERE (subject = '"&strSubject&"') AND (keyref <> '') AND (status = 'ON') ORDER BY rank"
set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open SQL,objConn,adOpenKeySet
if objRS.EOF then
else
%>


	


    <table width="122" cellpadding="3" cellspacing="1" border="0">
	<%
	Do While not objRS.EOF
%>
	
    <tr bgcolor="" onClick="document.location.href='main.asp?id=poetry'" onmouseover="this.style.backgroundColor='#ffffff'"; onmouseout=";this.style.backgroundColor='';return true;">
    <td valign="center" align="right">
       <p class="menulinks">
       <a href="display.asp?id=<%=objRS("id")%>&subj=<%=strSubject%>" class="linkSubnav" style="color:#583c31;">
       <b><%=objRS("title")%></b>
       </a>
       </p>
      </td>							
    </tr>
	
	<%
		objRS.MoveNext
	Loop
%>
	
	</table>
     <div style="font-size:4pt;">&nbsp;</div>
	 	
	<%
	set objRS = nothing
end if

end if

%>
</td>
</tr>

<tr align="right">
<td>
<a href="<%=strBaseURL%>/schedel/membership/" onmouseover="SwapOut4();" onmouseout="SwapBack4();">
<img src="<%=strBaseURL%>/schedel/images/MMBa.gif" name="membership" width="125" height="17" border="0" alt=""></a>
<% curcat = "membership" %>
<%

If curcat = strSubject then

SQL = "SELECT * FROM "&vMainTable&" WHERE (subject = '"&strSubject&"') AND (keyref <> '') AND (status = 'ON') ORDER BY rank"
set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open SQL,objConn,adOpenKeySet
if objRS.EOF then
else
%>


	


    <table width="122" cellpadding="3" cellspacing="1" border="0">
	<%
	Do While not objRS.EOF
%>
	
    <tr bgcolor="" onClick="document.location.href='main.asp?id=poetry'" onmouseover="this.style.backgroundColor='#ffffff'"; onmouseout=";this.style.backgroundColor='';return true;">
    <td valign="center" align="right">
       <p class="menulinks">
       <a href="display.asp?id=<%=objRS("id")%>&subj=<%=strSubject%>" class="linkSubnav" style="color:#583c31;">
       <b><%=objRS("title")%></b>
       </a>
       </p>
      </td>							
    </tr>
	
	<%
		objRS.MoveNext
	Loop
%>
	
	</table>
     <div style="font-size:4pt;">&nbsp;</div>
	 	
	<%
	set objRS = nothing
end if

end if

%>
</td>
</tr>

<tr align="right">
<td>
<a href="<%=strBaseURL%>/schedel/events/" onmouseover="SwapOut5();" onmouseout="SwapBack5();">
<img src="<%=strBaseURL%>/schedel/images/SEMBa.gif" name="events" width="125" height="17" border="0" alt=""></a>
<% curcat = "events" %>
<%

If curcat = strSubject then

SQL = "SELECT * FROM "&vMainTable&" WHERE (subject = '"&strSubject&"') AND (keyref <> '') AND (status = 'ON') ORDER BY rank"
set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open SQL,objConn,adOpenKeySet
if objRS.EOF then
else
%>


	


    <table width="122" cellpadding="3" cellspacing="1" border="0">
	<%
	Do While not objRS.EOF
%>
	
    <tr bgcolor="" onClick="document.location.href='main.asp?id=poetry'" onmouseover="this.style.backgroundColor='#ffffff'"; onmouseout=";this.style.backgroundColor='';return true;">
    <td valign="center" align="right">
       <p class="menulinks">
       <a href="display.asp?id=<%=objRS("id")%>&subj=<%=strSubject%>" class="linkSubnav" style="color:#583c31;">
       <b><%=objRS("title")%></b>
       </a>
       </p>
      </td>							
    </tr>
	
	<%
		objRS.MoveNext
	Loop
%>
	
	</table>
     <div style="font-size:4pt;">&nbsp;</div>
	 	
	<%
	set objRS = nothing
end if

end if

%>
</td>
</tr>

<tr align="right">
<td>
<a href="<%=strBaseURL%>/schedel/thanks/" onmouseover="SwapOut6();" onmouseout="SwapBack6();">
<img src="<%=strBaseURL%>/schedel/images/OGMBa.gif" name="thanks" width="125" height="17" border="0" alt=""></a>
<% curcat = "thanks" %>
<%

If curcat = strSubject then

SQL = "SELECT * FROM "&vMainTable&" WHERE (subject = '"&strSubject&"') AND (keyref <> '') AND (status = 'ON') ORDER BY rank"
set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open SQL,objConn,adOpenKeySet
if objRS.EOF then
else
%>


	


    <table width="122" cellpadding="3" cellspacing="1" border="0">
	<%
	Do While not objRS.EOF
%>
	
    <tr bgcolor="" onClick="document.location.href='main.asp?id=poetry'" onmouseover="this.style.backgroundColor='#ffffff'"; onmouseout=";this.style.backgroundColor='';return true;">
    <td valign="center" align="right">
       <p class="menulinks">
       <a href="display.asp?id=<%=objRS("id")%>&subj=<%=strSubject%>" class="linkSubnav" style="color:#583c31;">
       <b><%=objRS("title")%></b>
       </a>
       </p>
      </td>							
    </tr>
	
	<%
		objRS.MoveNext
	Loop
%>
	
	</table>
     <div style="font-size:4pt;">&nbsp;</div>
	 	
	<%
	set objRS = nothing
end if

end if

%>
</td>
</tr>

<tr align="right">
<td>
<a href="<%=strBaseURL%>/schedel/links/" onmouseover="SwapOut7();" onmouseout="SwapBack7();">
<img src="<%=strBaseURL%>/schedel/images/RSMBa.gif" name="links" width="125" height="17" border="0" alt=""></a>
<% curcat = "links" %>
<%

If curcat = strSubject then

SQL = "SELECT * FROM "&vMainTable&" WHERE (subject = '"&strSubject&"') AND (keyref <> '') AND (status = 'ON') ORDER BY rank"
set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open SQL,objConn,adOpenKeySet
if objRS.EOF then
else
%>


	


    <table width="122" cellpadding="3" cellspacing="1" border="0">
	<%
	Do While not objRS.EOF
%>
	
    <tr bgcolor="" onClick="document.location.href='main.asp?id=poetry'" onmouseover="this.style.backgroundColor='#ffffff'"; onmouseout=";this.style.backgroundColor='';return true;">
    <td valign="center" align="right">
       <p class="menulinks">
       <a href="display.asp?id=<%=objRS("id")%>&subj=<%=strSubject%>" class="linkSubnav" style="color:#583c31;">
       <b><%=objRS("title")%></b>
       </a>
       </p>
      </td>							
    </tr>
	
	<%
		objRS.MoveNext
	Loop
%>
	
	</table>
     <div style="font-size:4pt;">&nbsp;</div>
	 	
	<%
	set objRS = nothing
end if

end if

%>
</td>
</tr>

<% If curSub = "photos" then %>
<tr align="right">
<td class="bodytext">
<% curcat = "photos" %>
      <table width="122" cellpadding="3" cellspacing="1" border="0">
	  <tr>
	   <td valign="center" align="right">
       <hr class="hrdash2" style="margin:0;">
       <b>Gallery Pages</b>&nbsp;
	   <div style="font-size:6;">&nbsp;</div>	   
	   </td>
	  </tr>
	  </table>
<%

If curcat = strSubject then

SQL = "SELECT * FROM "&vMainTable&" WHERE (subject = '"&strSubject&"') AND (keyref <> '') AND (status = 'ON') ORDER BY rank"
set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open SQL,objConn,adOpenKeySet
if objRS.EOF then
else
%>


	


    <table width="122" cellpadding="3" cellspacing="1" border="0">
	<%
	Do While not objRS.EOF
%>
	
    <tr bgcolor="" onClick="document.location.href='main.asp?id=poetry'" onmouseover="this.style.backgroundColor='#ffffff'"; onmouseout=";this.style.backgroundColor='';return true;">
    <td valign="center" align="right">
       <p class="menulinks">
       <a href="display.asp?id=<%=objRS("id")%>&subj=<%=strSubject%>" class="linkSubnav" style="color:#583c31;">
       <b><%=objRS("title")%></b>
       </a>
       </p>
      </td>							
    </tr>
	
	<%
		objRS.MoveNext
	Loop
%>
	
	</table>
     <div style="font-size:4pt;">&nbsp;</div>
	 	
	<%
	set objRS = nothing
end if

end if

%>
</td>
</tr>
<% End If %>

</table>