%@LANGUAGE="VBSCRIPT"%> <% set RecordsetTI = Server.CreateObject("ADODB.Recordset") RecordsetTI.ActiveConnection = MM_connUDE_STRING RecordsetTI.Source = "SELECT * FROM Text_Files Where ID = '" & request.querystring("IDTXT") & "'" RecordsetTI.CursorType = 0 RecordsetTI.CursorLocation = 2 RecordsetTI.LockType = 3 RecordsetTI.Open() RecordsetTI_numRows = 0 %> <% IDITEMHTML="1" %>
<%=trim(RecordsetTI("Html_Tags"))%>| <% On Error Resume Next%> <%=Trim(RecordsetTI("Main_Text"))%> <%RecordsetTI.close%> |