Ok here is all my code for my results page with the LEN string added,Its a bit long but hopefully you might see something i dont..........
<%@ LANGUAGE="VBSCRIPT" %>
<%
strString = trim(cstr(Request.form("Name"

))
If LEN(strString)< 3 THEN
Response.Write "You need to enter at least 3 Character"
ELSE
END IF
Dim SqlJunk
Set dbGlobalWeb = Server.CreateObject("ADODB.Connection"

dbGlobalWeb.Open("links"
SqlJunk = "SELECT * FROM links"
If Request.Form("TypeSearch"

= "Name" Then
SqlJunk = SqlJunk & " WHERE Name LIKE '%" & Request.Form("Name"

& "%'"
End If
Set rsGlobalWeb = Server.CreateObject("ADODB.Recordset"

rsGlobalWeb.Open SqlJunk, dbGlobalWeb, 3
%>
<%
If rsGlobalWeb.BOF and rsGlobalWeb.EOF Then%>
<h2 align="center"><font color="#FFFFFF">We did not find a Match</font></h2>
<%Else%>
<%If Not rsGlobalWeb.BOF Then%>
<h2><font color="#FFFFFF">Here are the Results of your search</font>
<table BORDER="1" width="100%" cellpadding="3" bgcolor="#0000CC">
<tr>
<th bgcolor="#0000FF" width="6%"><font face="Arial" color="#FFFFFF">Name
</font></th>
<th bgcolor="#0000FF" width="9%"><font face="Arial" color="#FFFFFF">Address</font></th>
<th bgcolor="#0000FF" width="6%"><font face="Arial" color="#FFFFFF">Submitted</font></th>
<th bgcolor="#0000FF" width="12%">
<p><font face="Arial" color="#FFFFFF">Added By</font><font face="Arial" color="#FFFFFF">
</font></p>
</th>
<th bgcolor="#0000FF" width="6%"><font face="Arial" color="#FFFFFF">EMail</font></th>
</tr>
<%
Do While Not rsGlobalWeb.EOF
%>
<tr bgcolor="#CCCCCC">
<td width="6%"><font color="#000000"><%=rsGlobalWeb("Name"

%></font></td>
<td><font color="#000000"><%=rsGlobalWeb("Address"

%></font></td>
<td width="6%"><%=rsGlobalWeb("submitted"

%></td>
<td width="12%"><%=rsGlobalWeb("adder"

%></td>
<td width="6%"><%=rsGlobalWeb("email"

%></td>
</tr>
<% rsGlobalWeb.MoveNext
Loop
%>
</table>
<%End If%>
<%End If%>
<%
rsGlobalWeb.Close
dbGlobalWeb.Close
%>