<% nRecCount = 0 i = 0 Do While i <= UBound(arRecKey) nRecCount = nRecCount + 1 ' Set row color sItemRowClass = " bgcolor=""#FFFFFF""" ' Display alternate color for rows If nRecCount Mod 2 <> 0 Then sItemRowClass = " bgcolor=""#F5F5F5""" End If sRecKey = Trim(arRecKey(i+0)) x_VENUE_CODE = sRecKey If LoadData() Then %> > <% End If i = i + 1 Loop %>

VENUE CODE

CREDITOR CODE

VENUE NAME

ADDRESS 1

ADDRESS 2

ADDRESS 3

ADDRESS 4

POST CODE

COUNTRY

PHONE NUMBER

FAX NUMBER

CONTACT NAME

EMAIL ADDRESS

ROOM NAME

DFRECNUM

<% Response.Write x_VENUE_CODE %>

<% If Not IsNull(x_CREDITOR_CODE) Then sSqlWrk = "SELECT [CREDITOR_NAME] FROM [CRSMAST]" sTmp = x_CREDITOR_CODE sSqlWrk = sSqlWrk & " WHERE [CREDITOR_CODE] = '" & AdjustSql(sTmp) & "'" sSqlWrk = sSqlWrk & " ORDER BY [CREDITOR_NAME] Asc" Set rswrk = conn.Execute(sSqlWrk) If Not rswrk.Eof Then sTmp = rswrk("CREDITOR_NAME") End If rswrk.Close Set rswrk = Nothing Else sTmp = Null End If ox_CREDITOR_CODE = x_CREDITOR_CODE ' Backup Original Value x_CREDITOR_CODE = sTmp %> <% Response.Write x_CREDITOR_CODE %> <% x_CREDITOR_CODE = ox_CREDITOR_CODE ' Restore Original Value %>

<% Response.Write x_VENUE_NAME %>

<% Response.Write x_ADDRESS_1 %>

<% Response.Write x_ADDRESS_2 %>

<% Response.Write x_ADDRESS_3 %>

<% Response.Write x_ADDRESS_4 %>

<% Response.Write x_POST_CODE %>

<% Response.Write x_COUNTRY %>

<% Response.Write x_PHONE_NUMBER %>

<% Response.Write x_FAX_NUMBER %>

<% Response.Write x_CONTACT_NAME %>

<% Response.Write x_EMAIL_ADDRESS %>

<% Response.Write x_ROOM_NAME %>

<% Response.Write x_DFRECNUM %>