<%

'1 Click DB copyright 1997-2002 David Kawliche, AccessHelp.net

'1 Click DB technology is protected by national and international
'laws and treaties.  Never use, distribute, or redistribute
'any software and/or source code in violation of its licensing.

'Use of this software and/or source code is strictly at your own risk.
'All warranties are specifically disclaimed except as required by law.

'IMPORTANT : THIS CODE USES PASS-THROUGH SECURITY !
'
'To enforce application security, set logins and permissions
'for all web server and database users as appropriate.

'For more information see : http://1ClickDB.com
        
'**Start Encode**

%>
<!--#INCLUDE FILE=ocdFreeInit.asp-->
<!--#INCLUDE FILE=ocdFunctions.asp-->
<!--#INCLUDE FILE=ocdGrid.asp-->
<%
dim headerwritten, QS, objGrid
headerwritten = False
if UCase(request.querystring("ocdGRIDMODE_A")) <> "PROCESS" AND UCase(request.querystring("ocdGRIDMODE_A")) <> "EXPORT" THen 
	'immediately call + flush header if not a redirect or download
	Call Writeheader("")
	response.flush
	headerwritten = True
End if
set objGrid = New ocdGrid
objGrid.GridID = "A"
objGrid.Debug = ocdDebug
objGrid.SQLConnect = ndnscSQLConnect
objGrid.SQLUser = ndnscSQLUser
objGrid.SQLPass = ndnscSQLPass
objGrid.SaferSQLServer = False
objGrid.AllowMultiDelete = False
objGrid.ADORecordsetTimeout = ocdDBTimeout
objGrid.ADOComputeTimeout  = ocdComputeTimeout
objGrid.SQLSelect = Request.Querystring("sqlselect" & "_" & objGrid.GridID)
objGrid.SQLFrom = Replace(Request.Querystring("sqlfrom" & "_" & objGrid.GridID),";","")
objGrid.SQLGroupBy = Request.Querystring("sqlgroupby" & "_" & objGrid.GridID)
objGrid.SQLHaving = Request.Querystring("sqlhaving" & "_" & objGrid.GridID)
if not ocdReadOnly then
	objGrid.AllowDelete = True
	objGrid.AllowAdd = True
	objGrid.AllowEdit = True
Else
	objGrid.AllowDelete = False
	objGrid.AllowAdd = False
	objGrid.AllowEdit = False
end if
objGrid.HTMLGridButtons = "first|<IMG SRC=""GridBtnFirst.gif"" ALT=""First"" BORDER=""0"" WIDTH=""26"" HEIGHT=""26"">;;prev|<IMG SRC=""GridBtnPrev.gif"" ALT=""Previous"" BORDER=""0"" WIDTH=""26"" HEIGHT=""26"">;;paging|button;;next|<IMG SRC=""GridBtnNext.gif"" BORDER=""0"" ALT=""Next"" WIDTH=""26"" HEIGHT=""26"">;;last|<IMG SRC=""GridBtnLast.gif"" BORDER=""0"" ALT=""Last"" WIDTH=""26"" HEIGHT=""26"">;;new|<IMG SRC=""GridBtnNew.gif"" ALT=""New"" BORDER=""0"" WIDTH=""26"" HEIGHT=""26"">;;search|<IMG SRC=""GridBtnSearch.gif"" ALT=""Search Records"" BORDER=""0"" WIDTH=""26"" HEIGHT=""26"">;;drilldown|<IMG SRC=""GridBtnDrillDown.gif"" ALT=""Drill Down"" BORDER=""0"" WIDTH=""26"" HEIGHT=""26"">;;reset|<IMG SRC=""GridBtnReset.gif"" ALT=""Reset"" BORDER=""0"" WIDTH=""26"" HEIGHT=""26"">;;print|<IMG SRC=""GridBtnPrint.gif"" WIDTH=26 HEIGHT=26 BORDER=0 ALT=""Print"">;;excel|<IMG SRC=""GridBtnExcel.gif"" BORDER=""0"" ALT=""Export to Excel"" WIDTH=""26"" HEIGHT=""26"">;;xml|<IMG SRC=""GridBtnXML.gif"" BORDER=""0"" ALT=""Export to XML"" WIDTH=""26"" HEIGHT=""26"">" 'custom|<INPUT TYPE=""Image"" objGrid.HTMLEditLink = "<IMG SRC=""GridLnkEdit.gif"" border=""0"" HEIGHT=""12"" WIDTH=""12"" ALT=""Edit"">"
objGrid.HTMLEditLink = "<IMG SRC=GridLnkEdit.gif border=0 HEIGHT=12 WIDTH=12 ALT=""Edit"">"
objGrid.HTMLDeleteLink = "<IMG SRC=GridLnkDelete.gif border=0 HEIGHT=12 WIDTH=12 ALT=""Delete"">"
objGrid.HTMLDetailLink = "<IMG SRC=GridLnkDetail.gif border=0 HEIGHT=12 WIDTH=12 ALT=""Detail"">"
objGrid.HTMLSortASCLink = "<IMG SRC=""GridLnkASC.gif"" BORDER=""0"" ALT=""Sort Ascending"" WIDTH=""11"" HEIGHT=""11"">"
objGrid.HTMLSortDESCLink = "<IMG SRC=""GridLnkDESC.gif"" BORDER=""0"" ALT=""Sort Descending"" WIDTH=""11"" HEIGHT=""11"">"
objGrid.HTMLFilterLink = "<IMG SRC=""GridLnkFilter.gif"" BORDER=""0"" ALT=""Filter on This Field"" WIDTH=""11"" HEIGHT=""11"">"
objGrid.HTMLTrueValue = "<IMG SRC=GridValTrue.gif BORDER=FALSE ALT=True>"
objGrid.HTMLFalseValue = "<IMG SRC=GridValFalse.gif BORDER=FALSE ALT=False>"
objGrid.SearchMultiSort = ocdMultipleFieldSort
objGrid.SearchDefaultTextCompare = ocdDefaultTextCompare
objGrid.SearchCheckAll = ocdShowCheckedSearchFields
objGrid.ExportForceDownload = ocdForceExportDownload
objGrid.SQLPageSizeDefault = ocdPageSizeDefault
if ocdUseCustomEditPages Then
	objGrid.FormEdit = Replace(Replace(objGrid.SQLFrom," ","_"),"/","_") & "_Edit.asp"
Else
	objGrid.FormEdit = "FreeEdit.asp"
End if
objGrid.Open
if ocdGridHighlightSelected and UCASE(objGrid.GridMode) = "BROWSE" Then
objGrid.HTMLAttribGridEven = ("class=""GridEven"" ")
objGrid.HTMLAttribGridOdd = ("class=""GridOdd"" ")
End if
if Cint(objGrid.SQLPageSize) = 1 Then
	objGrid.HTMLGridVertical = True
End if
if err.number <> 0 then 
	if not headerwritten Then
		call writeheader("")
	End if
		call writefooter("")
End if
'Display individual grid elements depending on grid mode
'Valid Modes are SEARCH, BROWSE, and FILTER
Select Case UCase(objGrid.GridMode)
	Case "EXPORT"
		objGrid.HTMLExportStart = "<HTML><HEAD><TITLE>1 Click DB Export</title>"
		if UCASE(Request.Querystring("ocdExportFormat_" & objGRID.GridID)) = "PRINT" Then
		objGrid.HTMLExportStart = objGrid.HTMLExportStart & ("<LINK rel=stylesheet type=""text/css"" href=""ocdStyleSheetExport.css""></head>")
		objGrid.HTMLExportStart = objGrid.HTMLExportStart & ("<BODY onload=""javascript:window.print();"">")
		Else
			objGrid.HTMLExportStart = objGrid.HTMLExportStart & ("<BODY"">")
		End if
		objGrid.HTMLExportEnd = "</BODY></HTML>"
		objGrid.Display("GRID")
		response.end
	Case "SEARCH" '
		Response.write ("<SPAN CLASS=Information>Set Criteria for ")
		Response.write (server.htmlencode(objGrid.SQLFrom))
		Response.write ("</SPAN>")
		objGrid.Display("SEARCH")
	Case "BROWSE" 'Table View of Selected Records
		response.write  ("<SPAN CLASS=Information>" ) 
		Response.write trim(Server.HTMLEncode(objGrid.SQLText)) 
		Response.write ( "</span>")
		response.write "<P>"
		objGrid.Display("Buttons") 
		response.flush
		objGrid.Display("Grid") 
		objGrid.Display("Keyword")
		if UCase(objGrid.GRIDMODE) = "BROWSE" Then
			if UCase(objGrid.GRIDMODE) = "BROWSE" Then
				If request.querystring("sqlwhere_" & objGrid.GRIDID) <> "" Then
					Response.write ("<SPAN CLASS=FieldName>Criteria:</SPAN> <SPAN CLASS=Information>")
					Response.write Server.HTMLEncode(Request.Querystring("sqlwhere_" &objGrid.GridID)) 
					Response.write ("</SPAN>&nbsp;&nbsp;<A HREF=""" & ocdPageName   & "?sqlwhere_" & objGrid.GridID & "=")
					for each QS in Request.Querystring
						If  UCASE(QS) <> "OCDACTION_" & objGrid.GridID AND UCASE(QS) <> "SQLWHERE_" & objGrid.GridID Then
							Response.write  ("&amp;" & QS  & "=" & Server.URLEncode(Request.Querystring(QS)))
						End if
					next
					Response.write ("""><IMG SRC=GridLnkNoFilter.gif BORDER=0 WIDTH=12 HEIGHT=12 ALT=""Remove Criteria""></A><P>")
				end if
				If Request.Querystring("sqlorderby_" & objGrid.GridID) <> "" Then
					Response.write ("<SPAN CLASS=FieldName>Order&nbsp;By:</SPAN> <SPAN CLASS=Information>" )
					Response.write Server.HTMLEncode(Request.Querystring("sqlorderby" & "_" & objGrid.GridID)) 
					Response.write ("</SPAN>&nbsp;&nbsp;<A HREF=""" & ocdPageName  & "?sqlorderby" & "_" & objGrid.GridID & "=")
					for each QS in Request.Querystring
						If  UCASE(QS) <> "OCDACTION" & "_" & objGrid.GridID AND UCASE(QS) <> "SQLORDERBY" & "_" & objGrid.GridID Then
							Response.write ("&amp;" & QS  & "=" & Server.URLEncode(Request.Querystring(QS)))
						End if
					next
					Response.write ("""><IMG SRC=GridLnkNoSort.gif WIDTH=12 HEIGHT=12 border=0 ALT=""Remove Order By""></A><P>")
				end if
			End if
		End if
	Case "FILTER" 'Single Field Search
		Response.write "<SPAN CLASS=Information>Set Filter</SPAN>"
		objGrid.Display("Filter")
End Select
'end custom asp or HTML (not for use with Quick display )
set objGrid = nothing
call writefooter("")
%>