<%@ CodePage = 1254 LCID = 1055 %> <% ' Load Table from QueryString x_sqltable = Request.QueryString("tbl") ' Table Level SQL Const ewTblVar = "altmenucontenttbl" Const ewTblRecPerPage = "RecPerPage" Const ewSessionTblRecPerPage = "altmenucontenttbl_RecPerPage" Const ewTblStartRec = "start" Const ewSessionTblStartRec = "altmenucontenttbl_start" Const ewTblShowMaster = "showmaster" Const ewSessionTblMasterKey = "altmenucontenttbl_MasterKey" Const ewSessionTblMasterWhere = "altmenucontenttbl_MasterWhere" Const ewSessionTblDetailWhere = "altmenucontenttbl_DetailWhere" Const ewSessionTblAdvSrch = "altmenucontenttbl_AdvSrch" Const ewTblBasicSrch = "psearch" Const ewSessionTblBasicSrch = "altmenucontenttbl_psearch" Const ewTblBasicSrchType = "psearchtype" Const ewSessionTblBasicSrchType = "altmenucontenttbl_psearchtype" Const ewSessionTblSearchWhere = "altmenucontenttbl_SearchWhere" Const ewSessionTblSort = "altmenucontenttbl_Sort" Const ewSessionTblOrderBy = "altmenucontenttbl_OrderBy" Const ewSessionTblKey = "altmenucontenttbl_Key" ewSqlSelect = "SELECT * FROM [" & Server.URLEncode(x_sqltable) & "] " Const ewSqlWhere = "" Const ewSqlGroupBy = "" Const ewSqlHaving = "" Const ewSqlOrderBy = "" Const ewSqlKeyWhere = "" Const ewSqlUserIDFilter = "" nStartRec = 0 nStopRec = 0 nTotalRecs = 0 nRecCount = 0 nRecActual = 0 sDbWhereMaster = "" sDbWhereDetail = "" sSrchAdvanced = "" psearch = "" psearchtype = "" sSrchBasic = "" sSrchWhere = "" sDbWhere = "" sOrderBy = "" sSqlMaster = "" sDeleteConfirmMsg = "" nDisplayRecs = 20 nRecRange = 10 ' Open connection to the database Set conn = Server.CreateObject("ADODB.Connection") conn.Open xDb_Conn_Str ' Handle Reset Command ' 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 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 %> <% 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_yan_yazi = rs("yan_yazi") x_alt_yazi = rs("alt_yazi") x_ust_yazi = rs("ust_yazi") x_resim = "../images/" & rs("resim") x_resim_boy = rs("resim_boy") x_resim_en = rs("resim_en") x_resimsol = rs("resimsol") if x_resimsol = true then %>

<%= Replace(x_ust_yazi&"", vbLf, "
") %>

<%=sListTrJs%>> <%' if x_resim <> "" and x_resim <> Null then %>

<%' End If %>

<%= Replace(x_yan_yazi&"", vbLf, "
") %>

<%= Replace(x_alt_yazi&"", vbLf, "
") %>

<% Else %>

<%= Replace(x_ust_yazi&"", vbLf, "
") %>

<%=sListTrJs%>> <%' if x_resim <> "" and x_resim <> Null then %> <%' End If %>

<%= Replace(x_yan_yazi&"", vbLf, "
") %>

<%= Replace(x_alt_yazi&"", vbLf, "
") %>

<% End If %> <% End If rs.MoveNext Loop %>

<% 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) > CLng(nTotalRecs) Then nStartRec = nTotalRecs nStopRec = nStartRec + nDisplayRecs - 1 nRecCount = nTotalRecs - 1 If rsEOF Then nRecCount = nTotalRecs %> <% End If %> <% '------------------------------------------------------------------------------- ' 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 %>