dim num,testo,pos
num = 200

testo = rs("txt")
pos = InStr(num-1, testo, " ")
Response.Write Left(testo, pos)