")
on error resume next
mystring=a.readLine
if not a.AtEndOfStream and trim(left(mystring,57))<>"" then
Response.Write ("
")
end if
Response.Write ("
")
a.close
Set a = Nothing
Set fso = Nothing
%>
<% 'LER TXT LINHA A LINHA
Set fso = CreateObject("Scripting.FileSystemObject")
Set a = fso.OpenTextFile(Server.MapPath("../dropdown.txt"))
Response.Write ("")
a.close
Set a = Nothing
Set fso = Nothing
%>
Especificações
<% 'LER TXT LINHA A LINHA
Set fso = CreateObject("Scripting.FileSystemObject")
Set a = fso.OpenTextFile(Server.MapPath(pedido))
mystring=a.readLine
mystring=a.readLine
mystring=a.readLine
mystring=a.readLine
mystring=a.readLine
Response.Write ("
