% Dim linkArray linkArray = Array(_ "virginia quilt museum",_ "va quilt museum",_ "vqm",_ "virginia",_ "quilt",_ "museum",_ "quilts",_ "quilters",_ "1856 Society",_ "1856") Dim i,n,temp,max,min,newmax Randomize max=UBound(linkArray) min=0 for i = min to max temp = Filter(linkArray,"@",False) newmax = UBound(temp) num = Int((newmax-min+1)*Rnd+min) Response.Write(temp(num)) for n = min to max if linkArray(n) = temp(num) then linkArray(n) = "@" exit for end if next next %>
![]() ![]() |
![]() ![]() ![]() ![]() ![]() ![]() |
Home Exhibits Admission and Hours Location History Contact Information Membership 1856 Society Collection • Quilts • Artifacts Classes Volunteering Special Events Links |
Preserving Our Quilting Heritage The Virginia Quilt Museum is open to the public as a resource center for the study of the role of quilts and quilting in the cultural life of society. The Museum offers opportunities to view significant work by both early and contemporary quilt artisans. Three major exhibitions are offered per year. Quilts from the Museum's Permanent Collection are displayed on the second level of the building on a continuously rotating basis. |
![]() |
|
TM and © The Virginia Quilt Museum All rights reserved. Any reproduction, duplication, or distribution in any form is expressly prohibited. |