'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Function:    	GetDateFormat				'
'Arguments:     Date you want to format			'
'Description:   Formats the date to the following format'
'			Month, Date Year		'
'LastModified:  8/18/99                                 '
'Developer:     Joey Holt                               '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Function GetDateFormat(dat)

	'Declare local variables
	dim strLastDate, arrLastDate

	strLastDate = dat

	'Format date
	strLastDate = FORMATDATETIME(strLastDate, vbLongDate)
	arrLastDate =  Split(strLastDate, ",")
	strLastDate = arrLastDate(1) & "," & arrLastDate(2)

	'Return
	GetDateFormat = strLastDate

End Function

Dim td
td = "<td valign=""top"" align=""left"" class=""printInfo"">"
spacer = "<td><img src=""images/pixel.gif"" width=""15"" height=""15"" /></td>"

document.write "<table border=""0"" cellpadding=""0"" cellspacing=""0"">"
document.write "<tr>" & td & "<b>Title</b></td>"
document.write spacer
document.write td & document.title & "</td></tr>"

document.write "<tr>" & td & "<b>Page</b></td>"
document.write spacer
document.write td & window.location.href & "</td></tr>"
document.write "</table>"