<%@ CodePage = 1254 LCID = 1055 %> <% Response.expires = 0 Response.expiresabsolute = Now() - 1 Response.addHeader "pragma", "no-cache" Response.addHeader "cache-control", "private" Response.addHeader "cache-control", "no-cache" Response.addHeader "cache-control", "no-store" Response.CacheControl = "no-cache" %> <% If Not IsLoggedIn Then Response.Redirect "login.asp" %> <% ' Initialize common variables x_id = Null: ox_id = Null: z_id = Null x_ust_yazi = Null: ox_ust_yazi = Null: z_ust_yazi = Null x_resim = Null: ox_resim = Null: z_resim = Null fs_x_resim = 0: fn_x_resim = "": ct_x_resim = "" wd_x_resim = 0: ht_x_resim = 0: a_x_resim = "" x_alt_yazi = Null: ox_alt_yazi = Null: z_alt_yazi = Null x_yan_yazi = Null: ox_yan_yazi = Null: z_yan_yazi = Null x_resimsol = Null: ox_resimsol = Null: z_resimsol = Null x_resim_boy = Null: ox_resim_boy = Null: z_resim_boy = Null x_resim_en = Null: ox_resim_en = Null: z_resim_en = Null %> <% nStartRec = 0 nStopRec = 0 nTotalRecs = 0 nRecCount = 0 nRecActual = 0 sDbWhereMaster = "" sDbWhereDetail = "" sSrchAdvanced = "" psearch = "" psearchtype = "" sSrchBasic = "" sSrchWhere = "" sDbWhere = "" sOrderBy = "" sSqlMaster = "" nDisplayRecs = 20 nRecRange = 10 ' Open connection to the database Set conn = Server.CreateObject("ADODB.Connection") conn.Open xDb_Conn_Str ' Handle Reset Command ResetCmd() ' Build Filter condition sDbWhere = "" If sDbWhereDetail <> "" Then If sDbWhere <> "" Then sDbWhere = sDbWhere & " AND " sDbWhere = sDbWhere & "(" & sDbWhereDetail & ")" End If If sSrchWhere <> "" Then If sDbWhere <> "" Then sDbWhere = sDbWhere & " AND " sDbWhere = sDbWhere & "(" & sSrchWhere & ")" End If ' Set Up Sorting Order sOrderBy = "" SetUpSortOrder() ' Set up SQL sSql = ewBuildSql(ewSqlSelect, ewSqlWhere, ewSqlGroupBy, ewSqlHaving, ewSqlOrderBy, sDbWhere, sOrderBy) 'Response.Write sSql ' Uncomment to show SQL for debugging %> <% ' Set up Record Set Set rs = Server.CreateObject("ADODB.Recordset") rs.CursorLocation = 3 rs.Open sSql, conn, 1, 2 nTotalRecs = rs.RecordCount If nDisplayRecs <= 0 Then ' Display All Records nDisplayRecs = nTotalRecs End If nStartRec = 1 SetUpStartRec() ' Set Up Start Record Position %>

TABLO: halklailiskiler

<% If Session(ewSessionMessage) <> "" Then %>

<%= Session(ewSessionMessage) %>

<% Session(ewSessionMessage) = "" ' Clear message End If %> <% If nTotalRecs > 0 Then %>

<% ' Avoid starting record > total records If CLng(nStartRec) > CLng(nTotalRecs) Then nStartRec = nTotalRecs End If ' Set the last record to display nStopRec = nStartRec + nDisplayRecs - 1 ' Move to first record directly for performance reason nRecCount = nStartRec - 1 If Not rs.Eof Then rs.MoveFirst rs.Move nStartRec - 1 End If nRecActual = 0 Do While (Not rs.Eof) And (nRecCount < nStopRec) nRecCount = nRecCount + 1 If CLng(nRecCount) >= CLng(nStartRec) Then nRecActual = nRecActual + 1 ' Set row color sItemRowClass = " class=""ewTableRow""" sListTrJs = " onmouseover='ew_mouseover(this);' onmouseout='ew_mouseout(this);' onclick='ew_click(this);'" ' Display alternate color for rows If nRecCount Mod 2 <> 1 Then sItemRowClass = " class=""ewTableAltRow""" End If x_id = rs("id") x_ust_yazi = rs("ust_yazi") x_resim = rs("resim") x_alt_yazi = rs("alt_yazi") x_yan_yazi = rs("yan_yazi") x_resimsol = rs("resimsol") x_resim_boy = rs("resim_boy") x_resim_en = rs("resim_en") %> <%=sListTrJs%>> <% End If rs.MoveNext Loop %>

">Resim Üstünde Yazı<% If Session(ewSessionTblSort & "_x_ust_yazi") = "ASC" Then %><% ElseIf Session(ewSessionTblSort & "_x_ust_yazi") = "DESC" Then %><% End If %>	">Resim<% If Session(ewSessionTblSort & "_x_resim") = "ASC" Then %><% ElseIf Session(ewSessionTblSort & "_x_resim") = "DESC" Then %><% End If %>	">Resim Altında Yazı<% If Session(ewSessionTblSort & "_x_alt_yazi") = "ASC" Then %><% ElseIf Session(ewSessionTblSort & "_x_alt_yazi") = "DESC" Then %><% End If %>	">Yazı<% If Session(ewSessionTblSort & "_x_yan_yazi") = "ASC" Then %><% ElseIf Session(ewSessionTblSort & "_x_yan_yazi") = "DESC" Then %><% End If %>	">Resim Nerde Olsun?<% If Session(ewSessionTblSort & "_x_resimsol") = "ASC" Then %><% ElseIf Session(ewSessionTblSort & "_x_resimsol") = "DESC" Then %><% End If %>	">Resim Genişlik<% If Session(ewSessionTblSort & "_x_resim_boy") = "ASC" Then %><% ElseIf Session(ewSessionTblSort & "_x_resim_boy") = "DESC" Then %><% End If %>	">Resim Yükseklik<% If Session(ewSessionTblSort & "_x_resim_en") = "ASC" Then %><% ElseIf Session(ewSessionTblSort & "_x_resim_en") = "DESC" Then %><% End If %>
<%= Replace(x_ust_yazi&"", vbLf, " ") %>	<% If Not IsNull(x_resim) Then %> <% End If %>	<%= Replace(x_alt_yazi&"", vbLf, " ") %>	<%= Replace(x_yan_yazi&"", vbLf, " ") %>	<% If x_resimsol = True Then sTmp = "Sol" Else sTmp = "Sağ" End If ox_resimsol = x_resimsol ' Backup Original Value x_resimsol = sTmp %> <% Response.Write x_resimsol %> <% x_resimsol = ox_resimsol ' Restore Original Value %>	<% Response.Write x_resim_boy %>	<% Response.Write x_resim_en %>	">Değiştir	">Kopy	">Sil

<% End If %> <% ' Close recordset and connection rs.Close Set rs = Nothing conn.Close Set conn = Nothing %>

<% If nTotalRecs > 0 Then rsEof = (nTotalRecs < (nStartRec + nDisplayRecs)) PrevStart = nStartRec - nDisplayRecs If PrevStart < 1 Then PrevStart = 1 NextStart = nStartRec + nDisplayRecs If NextStart > nTotalRecs Then NextStart = nStartRec LastStart = ((nTotalRecs-1)\nDisplayRecs)*nDisplayRecs+1 %> <% If CLng(nStartRec)=1 Then %> <% Else %> <% End If %> <% If CLng(PrevStart) = CLng(nStartRec) Then %> <% Else %> <% End If %> <% If CLng(NextStart) = CLng(nStartRec) Then %> <% Else %> <% End If %> <% If CLng(LastStart) = CLng(nStartRec) Then %> <% Else %> <% End If %>

Sayfa

of <%=(nTotalRecs-1)\nDisplayRecs+1%>

<% If CLng(nStartRec) > CLng(nTotalRecs) Then nStartRec = nTotalRecs nStopRec = nStartRec + nDisplayRecs - 1 nRecCount = nTotalRecs - 1 If rsEOF Then nRecCount = nTotalRecs If nStopRec > nRecCount Then nStopRec = nRecCount %> Records <%= nStartRec %> to <%= nStopRec %> of <%= nTotalRecs %> <% Else %> <% If sSrchWhere = "0=101" Then %> <% Else %> Kayıt Bulunmadı <% End If %> <% End If %>

<% '------------------------------------------------------------------------------- ' Function ResetSearch ' - Clear all search parameters ' Sub ResetSearch() ' Clear search where sSrchWhere = "" Session(ewSessionTblSearchWhere) = sSrchWhere ' Clear advanced search parameters Session(ewSessionTblBasicSrch) = "" Session(ewSessionTblBasicSrchType) = "" End Sub '------------------------------------------------------------------------------- ' Function RestoreSearch ' - Restore all search parameters ' Sub RestoreSearch() ' Restore advanced search settings psearch = Session(ewSessionTblBasicSrch) psearchtype = Session(ewSessionTblBasicSrchType) End Sub '------------------------------------------------------------------------------- ' Function SetUpSortOrder ' - Set up Sort parameters based on Sort Links clicked ' - Variables setup: sOrderBy, Session(TblOrderBy), Session(Tbl_Field_Sort) Sub SetUpSortOrder() Dim sOrder, sSortField, sLastSort, sThisSort Dim bCtrl ' Check for an Order parameter If Request.QueryString("order").Count > 0 Then sOrder = Request.QueryString("order") ' Field [ust_yazi] If sOrder = "ust_yazi" Then sSortField = "[ust_yazi]" sLastSort = Session(ewSessionTblSort & "_x_ust_yazi") If sLastSort = "ASC" Then sThisSort = "DESC" Else sThisSort = "ASC" Session(ewSessionTblSort & "_x_ust_yazi") = sThisSort Else If Session(ewSessionTblSort & "_x_ust_yazi") <> "" Then Session(ewSessionTblSort & "_x_ust_yazi") = "" End If ' Field [resim] If sOrder = "resim" Then sSortField = "[resim]" sLastSort = Session(ewSessionTblSort & "_x_resim") If sLastSort = "ASC" Then sThisSort = "DESC" Else sThisSort = "ASC" Session(ewSessionTblSort & "_x_resim") = sThisSort Else If Session(ewSessionTblSort & "_x_resim") <> "" Then Session(ewSessionTblSort & "_x_resim") = "" End If ' Field [alt_yazi] If sOrder = "alt_yazi" Then sSortField = "[alt_yazi]" sLastSort = Session(ewSessionTblSort & "_x_alt_yazi") If sLastSort = "ASC" Then sThisSort = "DESC" Else sThisSort = "ASC" Session(ewSessionTblSort & "_x_alt_yazi") = sThisSort Else If Session(ewSessionTblSort & "_x_alt_yazi") <> "" Then Session(ewSessionTblSort & "_x_alt_yazi") = "" End If ' Field [yan_yazi] If sOrder = "yan_yazi" Then sSortField = "[yan_yazi]" sLastSort = Session(ewSessionTblSort & "_x_yan_yazi") If sLastSort = "ASC" Then sThisSort = "DESC" Else sThisSort = "ASC" Session(ewSessionTblSort & "_x_yan_yazi") = sThisSort Else If Session(ewSessionTblSort & "_x_yan_yazi") <> "" Then Session(ewSessionTblSort & "_x_yan_yazi") = "" End If ' Field [resimsol] If sOrder = "resimsol" Then sSortField = "[resimsol]" sLastSort = Session(ewSessionTblSort & "_x_resimsol") If sLastSort = "ASC" Then sThisSort = "DESC" Else sThisSort = "ASC" Session(ewSessionTblSort & "_x_resimsol") = sThisSort Else If Session(ewSessionTblSort & "_x_resimsol") <> "" Then Session(ewSessionTblSort & "_x_resimsol") = "" End If ' Field [resim_boy] If sOrder = "resim_boy" Then sSortField = "[resim_boy]" sLastSort = Session(ewSessionTblSort & "_x_resim_boy") If sLastSort = "ASC" Then sThisSort = "DESC" Else sThisSort = "ASC" Session(ewSessionTblSort & "_x_resim_boy") = sThisSort Else If Session(ewSessionTblSort & "_x_resim_boy") <> "" Then Session(ewSessionTblSort & "_x_resim_boy") = "" End If ' Field [resim_en] If sOrder = "resim_en" Then sSortField = "[resim_en]" sLastSort = Session(ewSessionTblSort & "_x_resim_en") If sLastSort = "ASC" Then sThisSort = "DESC" Else sThisSort = "ASC" Session(ewSessionTblSort & "_x_resim_en") = sThisSort Else If Session(ewSessionTblSort & "_x_resim_en") <> "" Then Session(ewSessionTblSort & "_x_resim_en") = "" End If Session(ewSessionTblOrderBy) = sSortField & " " & sThisSort Session(ewSessionTblStartRec) = 1 End If sOrderBy = Session(ewSessionTblOrderBy) If sOrderBy = "" Then sOrderBy = ewSqlOrderBy Session(ewSessionTblOrderBy) = sOrderBy End If End Sub '------------------------------------------------------------------------------- ' Function SetUpStartRec ' - Set up Starting Record parameters based on Pager Navigation ' - Variables setup: nStartRec Sub SetUpStartRec() Dim nPageNo ' Check for a START parameter If Request.QueryString(ewTblStartRec).Count > 0 Then nStartRec = Request.QueryString(ewTblStartRec) Session(ewSessionTblStartRec) = nStartRec ElseIf Request.QueryString("pageno").Count > 0 Then nPageNo = Request.QueryString("pageno") If IsNumeric(nPageNo) Then nStartRec = (nPageNo-1)*nDisplayRecs+1 If nStartRec <= 0 Then nStartRec = 1 ElseIf nStartRec >= ((nTotalRecs-1)\nDisplayRecs)*nDisplayRecs+1 Then nStartRec = ((nTotalRecs-1)\nDisplayRecs)*nDisplayRecs+1 End If Session(ewSessionTblStartRec) = nStartRec Else nStartRec = Session(ewSessionTblStartRec) If Not IsNumeric(nStartRec) Or nStartRec = "" Then nStartRec = 1 ' Reset start record counter Session(ewSessionTblStartRec) = nStartRec End If End If Else nStartRec = Session(ewSessionTblStartRec) If Not IsNumeric(nStartRec) Or nStartRec = "" Then nStartRec = 1 'Reset start record counter Session(ewSessionTblStartRec) = nStartRec End If End If End Sub '------------------------------------------------------------------------------- ' Function ResetCmd ' - Clear list page parameters ' - RESET: reset search parameters ' - RESETALL: reset search & master/detail parameters ' - RESETSORT: reset sort parameters Sub ResetCmd() Dim sCmd ' Get Reset Cmd If Request.QueryString("cmd").Count > 0 Then sCmd = Request.QueryString("cmd") ' Reset Search Criteria If LCase(sCmd) = "reset" Then Call ResetSearch() ' Reset Search Criteria & Session Keys ElseIf LCase(sCmd) = "resetall" Then Call ResetSearch() ' Reset Sort Criteria ElseIf LCase(sCmd) = "resetsort" Then sOrderBy = "" Session(ewSessionTblOrderBy) = sOrderBy If Session(ewSessionTblSort & "_x_ust_yazi") <> "" Then Session(ewSessionTblSort & "_x_ust_yazi") = "" If Session(ewSessionTblSort & "_x_resim") <> "" Then Session(ewSessionTblSort & "_x_resim") = "" If Session(ewSessionTblSort & "_x_alt_yazi") <> "" Then Session(ewSessionTblSort & "_x_alt_yazi") = "" If Session(ewSessionTblSort & "_x_yan_yazi") <> "" Then Session(ewSessionTblSort & "_x_yan_yazi") = "" If Session(ewSessionTblSort & "_x_resimsol") <> "" Then Session(ewSessionTblSort & "_x_resimsol") = "" If Session(ewSessionTblSort & "_x_resim_boy") <> "" Then Session(ewSessionTblSort & "_x_resim_boy") = "" If Session(ewSessionTblSort & "_x_resim_en") <> "" Then Session(ewSessionTblSort & "_x_resim_en") = "" End If ' Reset Start Position (Reset Command) nStartRec = 1 Session(ewSessionTblStartRec) = nStartRec End If End Sub %>