<%@LANGUAGE="VBSCRIPT"%> <% Dim Recordset_text Dim Recordset_text_numRows Set Recordset_text = Server.CreateObject("ADODB.Recordset") Recordset_text.ActiveConnection = MM_conn_IHConvention_text_STRING Recordset_text.Source = "SELECT * FROM IHC_text" Recordset_text.CursorType = 0 Recordset_text.CursorLocation = 2 Recordset_text.LockType = 1 Recordset_text.Open() Recordset_text_numRows = 0 %> <% Dim Recordset_IHC_Booking_frm Dim Recordset_IHC_Booking_frm_numRows Set Recordset_IHC_Booking_frm = Server.CreateObject("ADODB.Recordset") Recordset_IHC_Booking_frm.ActiveConnection = MM_conn_IHC_bookconv_frm_STRING Recordset_IHC_Booking_frm.Source = "SELECT * FROM ConvBook_frm" Recordset_IHC_Booking_frm.CursorType = 0 Recordset_IHC_Booking_frm.CursorLocation = 2 Recordset_IHC_Booking_frm.LockType = 1 Recordset_IHC_Booking_frm.Open() Recordset_IHC_Booking_frm_numRows = 0 %> <% Dim Recordset_ConventioinPrice Dim Recordset_ConventioinPrice_numRows Set Recordset_ConventioinPrice = Server.CreateObject("ADODB.Recordset") Recordset_ConventioinPrice.ActiveConnection = MM_conn_IHC_bookconv_frm_STRING Recordset_ConventioinPrice.Source = "SELECT * FROM Products" Recordset_ConventioinPrice.CursorType = 0 Recordset_ConventioinPrice.CursorLocation = 2 Recordset_ConventioinPrice.LockType = 1 Recordset_ConventioinPrice.Open() Recordset_ConventioinPrice_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Recordset_ConventioinPrice_numRows = Recordset_ConventioinPrice_numRows + Repeat1__numRows %>

Privacy Terms Of Use

Copyright © Laing & Buisson 2007

Contact Company Details

<% Recordset_text.Close() Set Recordset_text = Nothing %> <% Recordset_IHC_Booking_frm.Close() Set Recordset_IHC_Booking_frm = Nothing %> <% Recordset_ConventioinPrice.Close() Set Recordset_ConventioinPrice = Nothing %>