Ordenar String con Tags Guias

[Myakire]

No todo ya esta hecho, en ocaciones debemos de programar nuestras rutinas.

Código:

<%
Cadena = "<ID>id0675</ID>"

SubCadena = EnMedio(Cadena, "<ID>", "</ID>")
Response.write "Lo de enmedio: " & SubCadena

Function EnMedio(Cadena, TagIni, TagFin)
    PosIni = InStr(Cadena,TagIni)+Len(TagIni)
    PosFin = InStr(Cadena,TagFin)-Len(TagFin)
		Longitud = Len(Cadena)-(Len(TagIni)+Len(TagFin))
    EnMedio = MID(Cadena, PosIni,Longitud)
End Function
%>