com esta função!

Esta função baixo pega os dados do txt e lista na combo-box.. porem eu queria q vcs me ajudassem se possivel a colocar um valor diferente no VALUE=""

Eu queria q o txt ficasse assim

mts;metros

pcs;peças

e na hora no html iriamos ver assim:

<select name="text1">

<option value="mts">metros</option>

<option value="pcs">peças</option>

</select>

Me digam se eh muuuito dificil fazer isso?

Segue a função!

<%Function PopulateSelectBoxFromFile()dim objFso, objTextStreamdim strContents, arrContentsdim lCtr, lCountdim FullPathConst ForReading = 1'pega conteudo do arquivoset objFso = Server.CreateObject("Scripting.FileSystemObject")Set objTextStream = objFso.OpenTextFile(Server.MapPath("unidade.txt"), ForReading)strContents = objTextStream.ReadAllobjTextStream.Close'valores do arquivo quebrados em linhasarrContents = Split(strContents, vbCrlf)lCount = UBound(arrContents) response.write "<SELECT NAME = 'txtunidade'>"'listando no selectboxFor lCtr = 0 To lCountresponse.write "<OPTION VALUE "if lCtr = 0 then response.write " SELECTED "response.write "= '" & arrContents(lctr) & "'>"response.write arrContents(lctr) & "</OPTION>"Nextresponse.write "</SELECT>"set objTextStream = Nothingset objFSO = NothingEnd Function%>