%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim rsServices
Dim rsServices_cmd
Dim rsServices_numRows
Set rsServices_cmd = Server.CreateObject ("ADODB.Command")
rsServices_cmd.ActiveConnection = MM_CMS_STRING
rsServices_cmd.CommandText = "SELECT * FROM Services"
rsServices_cmd.Prepared = true
Set rsServices = rsServices_cmd.Execute
rsServices_numRows = 0
%>
Adaggios | Banquets | Conferences
| |
|
 |
Where we make your event
"One to Remember"
317-489-3333 |
 |
|
|
|
| |
|
<%=(rsServices.Fields.Item("pageContent").Value)%> |
|
|
|
<%
rsServices.Close()
Set rsServices = Nothing
%>