< select name="XlSheet" >

< %

vOptions = "< option >< /option >"

Do While Not oSchemaRs.EOF

If oSchemaRs("TABLE_TYPE") = "SYSTEM TABLE" Then

vOptions = vOptions & "< option >" & _

Server.htmlEncode(oSchemaRs("TABLE_NAME")) & _

"< /option >

End If

oSchemaRs.MoveNext

Loop

Response.Write vOptions

% >

< /select >