<%@ Language=VBScript %> <% ' PageId = 5 ' Position1: 215x125 Left ' Position2: 167x125 Right ' Path = images/uploadedimages ' How to get Unique File name: replace(replace(replace(Now," ",""),":",""),"/","") dim rs dim objConn dim Position1 dim Position2 dim Path Path = "images/uploadedimages/" set objConn = Server.CreateObject("ADODB.Connection") set rs = Server.CreateObject("ADODB.Recordset") objConn.ConnectionString = "DSN=pca;uid=sa;pwd=;" objConn.Open strSQL = "SELECT AllImages.FileName FROM AllImages WHERE (((AllImages.PageId)=5)) ORDER BY AllImages.ImagePosition;" set rs = objconn.Execute(strSQL) if not rs.EOF then if not isnull(rs(0)) then Position1 = Path & rs(0) end if rs.MoveNext if not isnull(rs(0)) then Position2 = Path & rs(0) end if end if %>
Women of Visions, Inc. was founded in 1981 to provide opportunities for professional African-American women artists. The group represents artists working in many diverse media including sculpture, photography, ceramics, painting, printmaking, and fiber. From encouraging the development of emerging artists to widening public awareness of historical achievements, Women of Visions, Inc. is dedicated to the enrichment of African-American culture and the presentation of that heritage.

back to guilds list
<% rs.Close objConn.Close set rs = nothing set objConn = nothing %>