<%@LANGUAGE="VBSCRIPT"%> <% ' FileName="Connection_odbc_conn_dsn.htm" ' Type="ADO" ' HTTP="false" ' Catalog="" ' Schema="" MM_EventGames_STRING = "dsn=EventGames;uid=;pw=;" %> <% set rsEvents = Server.CreateObject("ADODB.Recordset") rsEvents.ActiveConnection = "dsn=EventGames;" rsEvents.Source = "SELECT * FROM tblvenueevents ORDER BY Event" rsEvents.CursorType = 0 rsEvents.CursorLocation = 2 rsEvents.LockType = 3 rsEvents.Open() rsEvents_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 rsEvents_numRows = rsEvents_numRows + Repeat1__numRows %> Venue Events at Party Pals
home     |     rentals     |     the venue     |      sales     |     why us      |     contact
         Events Photo Gallery
<% While ((Repeat1__numRows <> 0) AND (NOT rsEvents.EOF)) %> "><%=(rsEvents.Fields.Item("Event").Value)%>
     <%=(rsEvents.Fields.Item("Description").Value)%>
<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsEvents.MoveNext() Wend %>

 
home     |     rentals     |     the venue     |     sales     |     why us      |     press releases     |     testimonials     |      contact us

Se Habla Español


Copyright © 1997-2002, Interactive Inflatables / Party Pals
10427 Roselle Street, San Diego, CA 92121 USA. All Rights Reserved

<% rsEvents.Close() %>