<% dim rs dim strSQL dim article_type_id dim strHeader dim strKeyword dim action Dim nextPage Dim previousPage Dim maxRecordsPerPage Dim maxRows Dim pageIndex Dim first, last Dim i Dim numRecords Dim isMainPage, isArchive Dim type_temp, type_id_temp Dim myMonth, myYear Dim start_date Dim iMonth, iYear, temp_date Dim numMonths If Request.QueryString("month") = "" Then myMonth = Month(date()) Else myMonth = Request.QueryString("month") End If If Request.QueryString("year") = "" Then myYear = Year(date()) Else myYear = Request.QueryString("year") End If start_date = "11/01/2004" article_type_id = DeCryptString(Request.QueryString("view")) strKeyword = FormatApostrophe(Request.QueryString("keywords")) pageIndex = Request.QueryString("page") maxRecordsPerPage = 25 isMainPage = False If pageIndex = "" Then pageIndex = 1 End If Select Case article_type_id Case 1 strHeader = "DAYLIGHTWEB" Case 2 strHeader = "Webmaster News" Case 3 strHeader = MonthName(myMonth) & " " & myYear & " Archive " isMainPage = True isArchive = True Case Else strHeader = "Current News" If trim(strKeyword) = "" Then isMainPage = True End If End Select connectDB() If Not trim(strKeyword) = "" Then strSQL = "usp_Sel_Articles_ByKeywordByTypeID '" & strKeyword & "'" If Not article_type_id = "" Then strSQL = strSQL & "," & article_type_id End If action = "search" strHeader = "Search News" Else strSQL = "usp_Sel_Articles_ByTypeID " If article_type_id = "" Then strSQL = strSQL & "NULL," Else strSQL = strSQL & FormatApostrophe(article_type_id) & "," End If strSQL = strSQL & myMonth & "," & myYear End If 'Response.Write(strSQL) Set rs = Server.CreateObject("ADODB.RecordSet") rs.ActiveConnection = con rs.CursorLocation = 3 rs.CursorType = 0 rs.LockType = 1 rs.CacheSize = maxRecordsPerPage rs.PageSize = maxRecordsPerPage rs.Open(strSQL) If not rs.EOF Then rs.AbsolutePage = PageIndex 'To go on group number made by page End If numRecords = rs.RecordCount first = ((pageIndex - 1) * maxRecordsPerPage) + 1 last = first + (maxRecordsPerPage - 1) If last > numRecords Then last = numRecords End If nextPage = "news.asp?page=" & pageIndex + 1 If isArchive Then nextPage = nextPage & "&month=" & myMonth nextPage = nextPage & "&year=" & myYear End If If Not trim(strKeyword) = ""Then nextPage = nextPage & "&keywords=" & strKeyword End If If Not article_type_id = ""Then nextPage = nextPage & "&view=" & EnCryptString(article_type_id) End If previousPage = "news.asp?page=" & pageIndex - 1 If isArchive Then previousPage = previousPage & "&month=" & myMonth previousPage = previousPage & "&year=" & myYear End If If Not trim(strKeyword) = "" Then previousPage = previousPage & "&keywords=" & strKeyword End If If Not article_type_id = "" Then previousPage = previousPage & "&view=" & EnCryptString(article_type_id) End If %> Web development News
Home

 

 

 

 

Copyright © 2003 Daylight Web Designs

kday@ Daylightweb.com

 

 

We design anywhere in Southern California  including the following cities:

Agoura Hills | Aliso Viejo | Agoura Hills | Bel Air| | Beverly Hills | Buena Park | Burbank |Calabasas | Camarillo |Canoga Park | Canyon Country | Carpinteria | Chatsworth |  | Encino | Fillmore |Glendora |Goleta | Granada Hills | Hollywood | La Jolla | La Mesa | La Mirada | Laguna Beach | Laguna Hills | Laguna Niguel |Lake forest  Lancaster |Los Angeles |  Malibu | Manhattan Beach | Marina | Marina del Rey | Mission Hills | Mission Viejo | Montecito |Moorpark | Newbury Park | Newport Beach |North Hollywood |Northridge | Oak Park |  | Ojai | Oxnard | Pacific Palisades | Pasadena |Port Hueneme | San Diego | San Dimas | San Fernando | San Gabriel | Santa Barbara | Santa Barbara-by-the-Sea | Santa Clarita | | Santa Paula | Santa Monica | Santa Ynez | Sherman Oaks |  Simi Valley | Tarzana | Temecula | Thousand Oaks | Topanga | | Torrance | Universal City | Van Nuys | Venice | Venice Beach | Ventura | West Hills | West Hollywood |  West Los Angeles  Westlake | Westlake Village | Westwood Village | Woodland Hills | 


Optimization and Free Submission