%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rs1__MMColParam rs1__MMColParam = "id" If (Request.QueryString("id") <> "") Then rs1__MMColParam = Request.QueryString("id") End If %> <% Dim rs1 Dim rs1_numRows Set rs1 = Server.CreateObject("ADODB.Recordset") rs1.ActiveConnection = MM_Con_sprep_STRING rs1.Source = "SELECT * FROM v_article WHERE article.id = " + Replace(rs1__MMColParam, "'", "''") + " and flg_publish = true" rs1.CursorType = 0 rs1.CursorLocation = 2 rs1.LockType = 1 rs1.Open() rs1_numRows = 0 %>
<%=(rs1.Fields.Item("formal_name").Value)%> <%=(rs1.Fields.Item("title").Value)%><%=(rs1.Fields.Item("dat_published").Value)%> <% '*********************************************** ' taka add (06-26-2003) start ' function: permission check '*********************************************** if trim(rs1.Fields.Item("img_file").Value) <> "" then image = "" response.Write(image) end if 'end******************************************** %> <%=(rs1.Fields.Item("memo").Value)%> <%if trim(rs1.Fields.Item("link_url").Value) <> "" and trim(rs1.Fields.Item("link_url").Value) <> "http://" and trim(rs1.Fields.Item("link_url").Value) <> " " and len(trim(rs1.Fields.Item("link_url").Value)) > 1 then link = "" response.Write(link) end if%>
|
|||||||||