HO-CIRED

<% sFileName = "News.asp" sAction = GetParam("FormAction") sForm = GetParam("FormName") Select Case sForm Case "Detail" DetailAction(sAction) end select %> HO-CIRED

<% header%>

<% menu%>

News

<% Sadrzaj_prikaz %>

<% '******************************************************************************** Sub Sadrzaj_Prikaz() Dim sWhere sWhere = "" sOrder = "" sSQL = "" ' Build ORDER statement sOrder = " order by i.Red Desc" iSort = GetParam("FormResults_Sorting") iSorted = GetParam("FormResults_Sorted") sDirection = "" sSortParams = "" if not IsEmpty(iSort) then if iSort = iSorted then form_sorting = "" sDirection = " DESC" sSortParams = "FormResults_Sorting=" & iSort & "&FormResults_Sorted=" & iSort & "&" else form_sorting = iSort sDirection = " ASC" sSortParams = "FormResults_Sorting=" & iSort & "&FormResults_Sorted=" & "&" end if if iSort = 1 then sOrder = " order by i.item_id" & sDirection if IsNull(sOrder) then sDirection = "" end if %> <% sWhere = "" ' Build WHERE statement pTitle = GetParam("Title") if not isEmpty(pTitle) then HasParam = true sWhere = sWhere & "i.Title like '%" & replace(pTitle, "'", "''") & "%'" end if pcategory_id = GetParam("category_id") if IsNumeric(pcategory_id) and not isEmpty(pcategory_id) then pcategory_id = CLng(pcategory_id) else pcategory_id = Empty if not isEmpty(pcategory_id) then if not (sWhere = "") then sWhere = sWhere & " and " HasParam = true sWhere = sWhere & "i.category_id=" & pcategory_id end if if HasParam then sWhere = " AND (" & sWhere & ")" ' Build full SQL statement sSQL = "select i.Title as i_Title, " & _ "i.category_id as i_category_id, " & _ "i.SDesc as i_SDesc, " & _ "i.Dan as i_Dan, " & _ "i.Mjesec as i_Mjesec, " & _ "i.Godina as i_Godina, " & _ "i.item_id as i_item_id, " & _ "i.LDesc as i_LDesc, " & _ "i.Red as i_Red, " & _ "i.LinkENG as i_LinkENG " & _ " from Novosti i, Kategorije c" & _ " where c.category_id=i.category_id " sSQL = sSQL & sWhere & sOrder ' Select current page iPage = GetParam("FormResults_Page") if IsEmpty(iPage) then iPage = 1 ' Open recordset openrs rs, sSQL if rs.eof then ' Recordset is empty fldcategory_id = GetValue(rs, "c_Naziv") %> <% else iCounter = 0 while not rs.eof and iCounter < (iPage-1)*100 rs.movenext iCounter = iCounter + 1 wend iCounter = 0 end if ' Show main table based on recordset while not rs.EOF and iCounter < 100 fldTitle = GetValue(rs, "i_Title") fldSDesc = GetValue(rs, "i_SDesc") fldDan = GetValue(rs, "i_Dan") fldMjesec = GetValue(rs, "i_Mjesec") fldGodina = GetValue(rs, "i_Godina") fldLDesc = GetValue(rs, "i_LDesc") fldLinkENG = GetValue(rs, "i_LinkENG") fldRed = GetValue(rs, "i_Red") %> <% rs.MoveNext iCounter = iCounter + 1 wend %> <% if not rs.EOF or not iPage=1 then %>

Under construction
<%=ToHTML(fldDan)%>.<%=ToHTML(fldMjesec)%>.<%=ToHTML(fldGodina)%>. <%=fldTitle%>

	Click here



<% end if %> <% ' Handle scroller if not rs.EOF or not iPage=1 then if iPage = 1 then scroller_prev = "" else prev_page = iPage - 1 scroller_prev = "" end if %> <%=scroller_prev%>Prethodna stranica <% if not IsNull(scroller_prev) then response.write "" response.write " [ "&iPage&" ] " if rs.EOF then scroller_next = "" else next_page = iPage + 1 scroller_next = "" end if %> <%=scroller_next%>Slijedeća stranica <% if not IsNull(scroller_next) then response.write("") end if set rs = nothing %>

<% end sub %>