Help with Mid Function

[MarkT]

See if this works for you

<&#37;
Do While Not rstSearch.EOF
Dim strFile, strFileName, strParts
  
	'Get the filename
	strFile = rstSearch.Fields("file_name").Value
	'Split it up on the backslashes
	strParts = Split(strFile, "\")
	'Grab the last element of the array
	strFileName = strParts(UBound(strParts))
%>

	<tr>
		<td><%= rstSearch.Fields("type").Value %></td>
		<td><a href="<%= strFile %>" target="_blank"><%= strFileName %></a></td>
	</tr>
<%
	rstSearch.MoveNext
Loop
%>