<%@LANGUAGE="VBSCRIPT"%> <% Dim Recordset1 Dim Recordset1_cmd Dim Recordset1_numRows Dim Table_PageSize Dim Table_PageCount Dim Table_RowCount Dim iCtr Dim iCurrentPage Dim iMinRecord Dim iMaxRecord Set Recordset1_cmd = Server.CreateObject ("ADODB.Command") Recordset1_cmd.ActiveConnection = MM_AbexDesignsNew_STRING Recordset1_cmd.CommandText = "SELECT * FROM Table_Renderings" Recordset1_cmd.Prepared = true Set Recordset1 = Recordset1_cmd.Execute Recordset1_numRows = 0 Table_PageSize = 20 if not IsEmpty(Request.QueryString("ps")) then Table_PageSize = Cint(Request.QueryString("ps")) end if iCurrentPage = 1 if not IsEmpty(Request.QueryString("pg")) then iCurrentPage = Cint(Request.QueryString("pg")) end if iMinRecord = Table_PageSize * (iCurrentPage - 1) iMaxRecord = iMinRecord + Table_PageSize - 1 iCtr = 0 Dim Pager_Size Dim Pager_Min Pager_Size = 20 Pager_Min = 1 if not IsEmpty(Request.QueryString("pmin")) then Pager_Min = Cint(Request.QueryString("pmin")) end if %> <% Validated = "OK" if Request.Cookies("ValidUser") <> Validated then 'Construct the URL for the current page. dim s s = "http://" s = s & Request.ServerVariables("HTTP_HOST") s = s & Request.ServerVariables("URL") if Request.QueryString.Count > 0 THEN s = s & "?" & Request.QueryString end if 'Redirect unauthorized users to the logon page. Response.Redirect "Logon.asp?from=" &Server.URLEncode(s) End if %> Abex.com AdminPanel <% Dim clientsearch clientsearch = request.querystring("clientsearch") Dim projectsearch projectsearch = request.querystring("projectsearch") Set rsDesigns = Server.CreateObject("ADODB.Recordset") 'rsDesigns.MaxRecords = 45 rsDesigns.ActiveConnection = MM_AbexDesignsNew_STRING rsDesigns.Source = "SELECT * FROM Table_Renderings WHERE Client LIKE '%" + clientsearch + "%' AND Project LIKE '%" + projectsearch + "%'" rsDesigns.CursorType = 0 rsDesigns.CursorLocation = 2 rsDesigns.LockType = 1 rsDesigns.Open() While NOT rsDesigns.EOF Table_RowCount = Table_RowCount + 1 rsDesigns.MoveNext() Wend rsDesigns.Requery() Table_PageCount = Round((Table_RowCount/Table_PageSize) + 0.5) %> <% While NOT rsDesigns.EOF if IsOkToDisplay(iCtr) then ShowRecords() end if rsDesigns.MoveNext() iCtr = iCtr + 1 Wend %>

Admin Panel

Add new record
ID Project Web_Product Web_Budget Price Client Web Configuration Web Options Renderings Renderings_HI Renderings_LO Renderings_TH Size Web_Size Industry ryn
<% ShowPaging() %>
<% ShowPaging() %>
<% Recordset1.Close() Set Recordset1 = Nothing %> <% Function ShowPaging() Response.Write("<<") Dim i Dim iMax iMax = Pager_Min + Pager_Size if iMax > Table_PageCount then iMax = Table_PageCount end if For i = Pager_Min to iMax Response.Write(""& i &"") Next Response.Write(">>") End Function Function ShowRecords() Response.Write("Edit") Response.Write("" & rsDesigns.Fields.Item("ID").Value & "") Response.Write("" & rsDesigns.Fields.Item("Project").Value & "") Response.Write("" & rsDesigns.Fields.Item("Web_Product").Value & "") Response.Write("" & rsDesigns.Fields.Item("Web_Budget").Value & "") Response.Write("" & rsDesigns.Fields.Item("Price").Value & "") Response.Write("" & rsDesigns.Fields.Item("Client").Value & "") Response.Write("" & rsDesigns.Fields.Item("Web_Configuration").Value & "") Response.Write("" & rsDesigns.Fields.Item("Web_Options").Value & "") Response.Write("" & rsDesigns.Fields.Item("Renderings").Value & "") 'Response.Write("" & rsDesigns.Fields.Item("Renderings_HI").Value & "") Response.Write(""&rsDesigns.Fields.Item("Renderings_HI").Value&"") 'Response.Write("" & rsDesigns.Fields.Item("Renderings_LO").Value & "") Response.Write(""&rsDesigns.Fields.Item("Renderings_LO").Value&"") 'Response.Write("" & rsDesigns.Fields.Item("Renderings_TH").Value & "") Response.Write(""&rsDesigns.Fields.Item("Renderings_TH").Value&"") Response.Write("" & rsDesigns.Fields.Item("Size").Value & "") Response.Write("" & rsDesigns.Fields.Item("Web_Size").Value & "") Response.Write("" & rsDesigns.Fields.Item("Industry").Value & "") Response.Write("" & rsDesigns.Fields.Item("ryn").Value & "") End Function Function IsOkToDisplay(iNdx) if iNdx >= iMinRecord AND iNdx <= iMaxRecord then IsOkToDisplay = true else IsOkToDisplay = false end if End Function Function SetSelected(iSize) if Table_PageSize = iSize then SetSelected = "selected" else SetSelected = "" end if End Function Function CalcPagerMin(iNewMin) if iNewMin > Table_PageCount then CalcPagerMin = Pager_Min elseif iNewMin < 1 then CalcPagerMin = 1 else CalcPagerMin = iNewMin end if End Function %>