<% if(Request.QueryString("iArt") <> "") then cmdArticles__varLink = Request.QueryString("iArt") %> <% set cmdArticles = Server.CreateObject("ADODB.Command") cmdArticles.ActiveConnection = MM_connDUarticle_STRING cmdArticles.CommandText = "UPDATE ARTICLES_LIST SET ART_VIEWS = ART_VIEWS + 1 WHERE ART_ID = " + Replace(cmdArticles__varLink, "'", "''") + "" cmdArticles.CommandType = 1 cmdArticles.CommandTimeout = 0 cmdArticles.Prepared = true cmdArticles.Execute() %> <% Dim rsDetail__MMColParam rsDetail__MMColParam = "1" If (Request.QueryString("iArt") <> "") Then rsDetail__MMColParam = Request.QueryString("iArt") End If %> <% set rsDetail = Server.CreateObject("ADODB.Recordset") rsDetail.ActiveConnection = MM_connDUarticle_STRING rsDetail.Source = "SELECT ART_NAME FROM ARTICLES_LIST WHERE ART_ID = " + Replace(rsDetail__MMColParam, "'", "''") + "" rsDetail.CursorType = 0 rsDetail.CursorLocation = 2 rsDetail.LockType = 3 rsDetail.Open() rsDetail_numRows = 0 Response.Redirect(rsDetail.Fields.Item("ART_NAME").Value) rsDetail.Close() %>