riprovo a postare sono tre giorni che impazzisco...

da un file.asp che cerca in un db dei campo che contemgono nomi di file che possono essere audio o img provo ad estrarre i nomi dei file sapendo che mi servono o img o suoni

questa viene chiamata dal file:
con istruzione :

testoimg = ricavaImg(testoimg,"SOU")
testoimg viene da un campo che estraggo così
testoimg = server.HTMLEncode(rs("media"))
il campo 'media' potrebbe essere :
<media><item>chapter7.mp3</item><item>fileimmagine.jpg</item></media>

se la chiamata di ricavaImg ci metto "IMG" tutto ok se imvece ci metto SOU : casino....
si pianta e va in timeput
inoltre ho avuto una serioe di casini perchè mi leggeva <item> come i codici &lt; quindi i conteggi erano sfalsati e ...oddio sto andando al manicomio...vi prego...qulcuno provi a dirmi qualcosa..anche parolacce.,..

buona serata a tutti....


<%
'___________funzione estrai nomefile
Function ricavaImg(imagesrc,cosa)
' estrapola solo il nome file dell'immagine dal campo imagesrc

dim testimg, len_txt, i, iniz,fin,fname1,nfile, assegnato,it1, it2
'definisci quale estensione cercare
if cosa = "SOU" then
primo=".mp3"
secondo=".wav"
else
primo =".jpg"
secondo=".gif"
end if
response.write(primo&"--"&secondo&"-cosa:"&cosa)

iniz=0
fin=0
assegnato=false
fname1=""
nfile=""
testimg = imagesrc
'testimg=replace(testimg,"","&lt;media&gt;")
'testimg=replace(testimg,"","&lt;/media&gt;")
'testimg=replace(testimg,"oooitem","&lt;item&gt;")
'testimg=replace(testimg,"itemooo","&lt;/item&gt;")
'response.write(testimg)
it1="&lt;item&gt;"
it2="&lt;/item&gt;"

len_txt=len(testimg)
i=1
fin=1
do while fin< len_txt+1

iniz=instr(fin,testimg,it1)+12
'response.Write("iniz:"&it1&iniz)
if iniz>6 then
fin=instr(iniz,testimg,it2)-1
'response.Write("fin:"&it2&fin)
end if
totale=fin-iniz+1
'response.Write("tot:"&totale)

if fin>iniz then

fname1 = mid(testimg, iniz, totale)
'response.Write("file="&fname1)

if (instr(1, fname1,primo,0) >0) or (instr(1,fname1,secondo,0) >0) then
nfile = fname1
'response.Write(nfile)
assegnato = true
else
nfile=""
end if

end if
if assegnato = true then
exit do
end if

fin=fin+len(it2)
loop

ricavaImg=nfile

End Function

'_____________END FUNCTION
%>