Hola:
Tengo curiosidad por que no asi?
<%set conexion = conecta()
set rs_maximo=Server.CreateObject("ADODB.Recordse t")
sql= "select (isnull(max(numero_asesoria),0)+1) as maximo from asesoria"
rs_maximo.open sql, conexion
numero = rs_maximo("maximo")
%>
<input type="text" name="numero_asesoria" size="15" maxlength="5" value="<%response.write numero%>">