%@LANGUAGE="VBSCRIPT"%>
<%
Dim RS2__a
RS2__a = "Ovanes Berberian"
If (Request.Querystring("a") <> "") Then
RS2__a = Request.Querystring("a")
End If
%>
<%
Dim RS2
Dim RS2_numRows
Set RS2 = Server.CreateObject("ADODB.Recordset")
RS2.ActiveConnection = MM_RS_STRING
RS2.Source = "SELECT key, title, image, artist FROM images WHERE artist = '" + Replace(RS2__a, "'", "''") + "'"
RS2.CursorType = 0
RS2.CursorLocation = 2
RS2.LockType = 1
RS2.Open()
RS2_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
RS2_numRows = RS2_numRows + Repeat1__numRows
%>
Dassin Gallery - Contact Us
<%
RS2.Close()
Set RS2 = Nothing
%>