<%@ Page Language = "VB" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="Microsoft.Data.Odbc" %>


<script language="vb" runat="server">

Sub Page_Load()

Dim DataConn As OdbcConnection
Dim DataReader As ODBCDataReader
Dim SQL As String

DataConn = New ODBCConnection("DRIVER=MYSQL;Server=localhost;uid= root;pwd=;database=EquiForum")

SQL = "SELECT * FROM MyPhotos WHERE MEMBER_ID = " & Request.Params("M_name")
Dim Command As New ODBCCommand(SQL, DataConn)


DataConn.Open()
DataReader = Command.ExecuteReader()

repeater.DataSource = DataReader
repeater.DataBind()

DataReader.Close
DataConn.Close

End Sub

</script>