Estrarre porzioni da un testo e memorizzarle nel db

[gensole]

Vorrei preparare un tool per estrapolare i commenti che inserisco nelle mie pagine asp e inserirli all'interno di una tabella per poterne poi fare un report da visualizzare in ogni momento.
Praticamente ho bisogno di leggere un file asp e di estrarre dal codice i commenti che hanno un header predefinito del tipo

*********************
Nome funzione:
Utilità Funzione:
*********************

Infine poi queste informazioni devono andare in una tabella con 2 campi
Nome
Utilità

Qualcuno sa darmi una mano??????

[Mems]

Devi leggere le pagine dal fileSystem mediante l'oggetto FileSystemObject.
Fai una lettura riga per riga e se la riga inizia per
Nome funzione:
Utilità funzione:
allora leggi la riga e ne salvi il contenuto sul db.

[gensole]

Questa è la mia funzione che legge il file è corretta????ora in che punto devo fare il controllo per poter portare nel db??????

<% Function leggi_file()
ilfile=server.MapPath("prova.txt")
set file=CreateObject("Scripting.Filesystemobject")
set ilfile=file.opentextfile(ilfile,1,false)
counter = 0
dim vet
do while not ilfile.atendofstream
counter=counter+1
illine=ilfile.readline
vet=illine
response.Write vet & "
"
loop
ilfile.close
set ilfile=nothing
set file=nothing
%>

[Mems]

<% 
Function leggi_file() 
ilfile = server.MapPath("prova.txt") 
set file = CreateObject("Scripting.Filesystemobject") 
set ilfile = file.opentextfile(ilfile,1,false) 
counter = 0 
dim vet, nomeFunzione, utilitaFunzione, conn, sql 
do while not ilfile.atendofstream 
counter = counter+1 
illine = ilfile.readline 
vet = illine 
if left(vet,14) = "Nome funzione:" then
nomeFunzione = vet
end if
if len(nomeFunzione) > 0 then
  if left(vet,17) = "Utilità Funzione:" then
  utlitaFunzione = vet
  end if

  nomeFunzione = replace(nomeFunzione,"'","''")
  utilitaFunzione = replace(utilitaFunzione,"'","''")

  set conn = server.createObject("ADODB.Connection")
  conn.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source = " & server.mapPath("\db\database.mdb")
  sql = "INSERT INTO tabella (campo_nomeFunzione, campo_utilitaFunzione) VALUES('" & nomeFunzione & "','" & utilita_funzione & "')"
  conn.execute(sql)
  conn.close
  set conn = nothing
  nomeFunzione = ""
  utilitaFunzione = ""

end if

loop 
ilfile.close 
set ilfile = nothing 
set file = nothing 
%>

[gensole]

grazie tante

[gensole]

c'è un piccolo problemino la funzione non da errori ma all'interno del db non scrive niente!
perchè?