<%
%>
<!--#include file="include/dbcommon.asp"-->
<%
asp_header "Expires: Thu, 01 Jan 1970 00:00:01 GMT"
asp_include "include/courses_variables.asp",false
doAssignmentByRef mode,postvalue("mode")
asp_include "include/xtempl.asp",false
Set xt = (CreateClass("Xtempl",0,Empty,Empty,Empty,Empty,Empty,Empty,Empty))
recordsCounter = 0
doAssignmentByRef mastertable,postvalue("mastertable")
if not IsEqual(mastertable,"") then
	setArrElement Session,CSmartStr(strTableName) & "_mastertable",mastertable
	i = 1
	do while not IsEmpty(GetRequestValue(Request,"masterkey" & CSmartStr(i)))
		setArrElement Session,(CSmartStr(strTableName) & "_masterkey") & CSmartStr(i),GetRequestValue(Request,"masterkey" & CSmartStr(i))
		i = CSmartDbl(i)+1
	loop
	if not IsEmpty(Session((CSmartStr(strTableName) & "_masterkey") & CSmartStr(i))) then
		asp_unsetElement Session,(CSmartStr(strTableName) & "_masterkey") & CSmartStr(i)
	end if
else
	doAssignment mastertable,Session(CSmartStr(strTableName) & "_mastertable")
end if
if IsEqual(mastertable,"customer") then
	where = ""
	where = CSmartStr(where) & ((CSmartStr(GetFullFieldName("CourseID","")) & "=") & CSmartStr(make_db_value("CourseID",Session(CSmartStr(strTableName) & "_masterkey1"),"","","")))
end if
doAssignmentByRef str,SecuritySQL("Search","")
if bValue(asp_strlen(str)) then
	where = CSmartStr(where) & (" and " & CSmartStr(str))
end if
doAssignmentByRef strSQL,gSQLWhere(where,"")
strSQL = CSmartStr(strSQL) & (" " & CSmartStr(gstrOrderBy))
doAssignmentByRef rowcount,gSQLRowCount(where,"")
xt.assign_p2 "row_count",rowcount
if bValue(rowcount) then
	xt.assign_p2 "details_data",true
	doAssignmentByRef rs,db_query(strSQL,conn)

	display_count = 10
	if IsEqual(mode,"inline") then
		display_count = CSmartDbl(display_count)*2
	end if
	if IsLess(CSmartDbl(display_count)+2,rowcount) then
		xt.assign_p2 "display_first",true
		xt.assign_p2 "display_count",display_count
	else
		doAssignment display_count,rowcount
	end if
	Set rowinfo = (CreateDictionary())
	do while bValue(doAssignmentByRef(data,db_fetch_array(rs))) and IsLess(recordsCounter,display_count)
		recordsCounter = CSmartDbl(recordsCounter)+1
		Set row = (CreateDictionary())
		keylink = ""
		keylink = CSmartStr(keylink) & ("&key1=" & CSmartStr(htmlspecialchars(asp_rawurlencode(ArrayElement(data,"CourseID")))))

		value = ""
		doAssignmentByRef value,ProcessLargeText(GetData(data,"CourseID",""),"field=CourseID" & CSmartStr(keylink),"",MODE_PRINT,"")
		setArrElement row,"CourseID_value",value
		value = ""
		doAssignmentByRef value,ProcessLargeText(GetData(data,"CourseTitle",""),"field=CourseTitle" & CSmartStr(keylink),"",MODE_PRINT,"")
		setArrElement row,"CourseTitle_value",value
		value = ""
		doAssignmentByRef value,ProcessLargeText(GetData(data,"CEUCredit","Number"),"field=CEUCredit" & CSmartStr(keylink),"",MODE_PRINT,"")
		setArrElement row,"CEUCredit_value",value
		value = ""
		doAssignmentByRef value,ProcessLargeText(GetData(data,"Location",""),"field=Location" & CSmartStr(keylink),"",MODE_PRINT,"")
		setArrElement row,"Location_value",value
		value = ""
		doAssignmentByRef value,ProcessLargeText(GetData(data,"CourseDates",""),"field=CourseDates" & CSmartStr(keylink),"",MODE_PRINT,"")
		setArrElement row,"CourseDates_value",value
		value = ""
		doAssignmentByRef value,ProcessLargeText(GetData(data,"DurationInDays",""),"field=DurationInDays" & CSmartStr(keylink),"",MODE_PRINT,"")
		setArrElement row,"DurationInDays_value",value
		value = ""
		doAssignmentByRef value,ProcessLargeText(GetData(data,"Tuitionfees","Number"),"field=Tuitionfees" & CSmartStr(keylink),"",MODE_PRINT,"")
		setArrElement row,"Tuitionfees_value",value
		setArrElement rowinfo,asp_count(rowinfo),row
	loop
	xt.assign_loopsection_p2 "details_row",rowinfo
end if
xt.display_p1 "courses_detailspreview.htm"
if not IsEqual(mode,"inline") then
	ResponseWrite "counterSeparator" & CSmartStr(postvalue("counter"))
end if
%>