<%@ 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 %>
Affiliated and with and exhibiting at the Pittsburgh Center for the Arts since 1945, the Weavers' Guild of Pittsburgh is a resource for regional artists working in both traditional and contemporary weaving. The Guild's mission is to "stimulate public interest in and appreciation of the art and craft of weaving and to develop knowledge and technical skills in weaving."

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