<%@LANGUAGE="VBSCRIPT"%>
<%
Dim events_rs
Dim events_rs_cmd
Dim events_rs_numRows
Set events_rs_cmd = Server.CreateObject ("ADODB.Command")
events_rs_cmd.ActiveConnection = MM_sharemalta_conn_STRING
events_rs_cmd.CommandText = "SELECT * FROM events ORDER BY event_date ASC"
events_rs_cmd.Prepared = true
Set events_rs = events_rs_cmd.Execute
events_rs_numRows = 0
%>
ShareMalta Foundation - Support for Homeless Animals Research & Education
