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