<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/Bookings.asp" -->
<%
Dim Joining__MMColParam
Joining__MMColParam = "1"
if (Request.Form("Customerlogonname") <> "") then Joining__MMColParam = Request.Form("Customerlogonname")
%>
<%
set Joining = Server.CreateObject("ADODB.Recordset")
Joining.ActiveConnection = MM_Bookings_STRING
Joining.Source = "SELECT Customersurname, Customerfirstname, Customerlogonname, Customerpassword, Customeraddress1, Customeraddress2, Customeraddress3, Customerposttown, Customerpostcode, Customeremail, ShortFlight, LongFlight, Coach, Cruise FROM tblCustomers WHERE Customerlogonname = '" + Replace(Joining__MMColParam, "'", "''") + "'"
Joining.CursorType = 0
Joining.CursorLocation = 2
Joining.LockType = 3
Joining.Open()
Joining_numRows = 0
%>
<%
'  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

' set the record count
Joining_total = Joining.RecordCount

' set the number of rows displayed on this page
If (Joining_numRows < 0) Then
  Joining_numRows = Joining_total
Elseif (Joining_numRows = 0) Then
  Joining_numRows = 1
End If

' set the first and last displayed record
Joining_first = 1
Joining_last  = Joining_first + Joining_numRows - 1

' if we have the correct record count, check the other stats
If (Joining_total <> -1) Then
  If (Joining_first > Joining_total) Then Joining_first = Joining_total
  If (Joining_last > Joining_total) Then Joining_last = Joining_total
  If (Joining_numRows > Joining_total) Then Joining_numRows = Joining_total
End If
%>
<%
' *** Move To Record and Go To Record: declare variables

Set MM_rs    = Joining
MM_rsCount   = Joining_total
MM_size      = Joining_numRows
MM_uniqueCol = "Customerlogonname"
MM_paramName = "id"
MM_offset = 0
MM_atTotal = false
MM_paramIsDefined = false
If (MM_paramName <> "") Then
  MM_paramIsDefined = (Request.QueryString(MM_paramName) <> "")
End If
%>
<%
' *** Move To Specific Record: handle detail parameter

If (MM_paramIsDefined And MM_rsCount <> 0) Then

  ' get the value of the parameter
  param = Request.QueryString(MM_paramName)

  ' find the record with the unique column value equal to the parameter value
  MM_offset = 0
  Do While (Not MM_rs.EOF)
    If (Cstr(MM_rs.Fields.Item(MM_uniqueCol).Value) = param) Then
      Exit Do
    End If
    MM_offset = MM_offset + 1
    MM_rs.MoveNext
  Loop

  ' if not found, set the number of records and reset the cursor
  If (MM_rs.EOF) Then
    If (MM_rsCount < 0) Then MM_rsCount = MM_offset
    If (MM_size < 0 Or MM_size > MM_offset) Then MM_size = MM_offset
    MM_offset = 0

    ' reset the cursor to the beginning
    If (MM_rs.CursorType > 0) Then
      MM_rs.MoveFirst
    Else
      MM_rs.Close
      MM_rs.Open
    End If
  End If

End If
%>
<%
' *** Move To Record: if we dont know the record count, check the display range

If (MM_rsCount = -1) Then

  ' walk to the end of the display range for this page
  i = MM_offset
  While (Not MM_rs.EOF And (MM_size < 0 Or i < MM_offset + MM_size))
    MM_rs.MoveNext
    i = i + 1
  Wend

  ' if we walked off the end of the recordset, set MM_rsCount and MM_size
  If (MM_rs.EOF) Then
    MM_rsCount = i
    If (MM_size < 0 Or MM_size > MM_rsCount) Then MM_size = MM_rsCount
  End If

  ' if we walked off the end, set the offset based on page size
  If (MM_rs.EOF And Not MM_paramIsDefined) Then
    If (MM_offset > MM_rsCount - MM_size Or MM_offset = -1) Then
      If ((MM_rsCount Mod MM_size) > 0) Then
        MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
      Else
        MM_offset = MM_rsCount - MM_size
      End If
    End If
  End If

  ' reset the cursor to the beginning
  If (MM_rs.CursorType > 0) Then
    MM_rs.MoveFirst
  Else
    MM_rs.Requery
  End If

  ' move the cursor to the selected record
  i = 0
  While (Not MM_rs.EOF And i < MM_offset)
    MM_rs.MoveNext
    i = i + 1
  Wend
End If
%>
<%
' *** Move To Record: update recordset stats

' set the first and last displayed record
Joining_first = MM_offset + 1
Joining_last  = MM_offset + MM_size
If (MM_rsCount <> -1) Then
  If (Joining_first > MM_rsCount) Then Joining_first = MM_rsCount
  If (Joining_last > MM_rsCount) Then Joining_last = MM_rsCount
End If

' set the boolean used by hide region to check if we are on the last record
MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount)
%>
<html>

<!-- cheap flights from uk, cheap holiday packages, bargain holidays, late holiday deals, worldwide holiday insurance, holiday car hire, ski holiday, holiday flights -->

<!-- search engineers 06 Jan 2003 -->
<head>
<title>Muirs Travel - cheap flights from uk, cheap holiday packages, bargain holidays, late holiday deals</title>
<meta name="description" content="Muirs Travel, your best choice for holidays, flights, cruises, coach and minicoach hire. We can provide everything from charter flights, bargain holidays, holiday insurance etc.">

<meta name="keywords" content="cheap flights from uk, cheap holiday packages, bargain holidays, late holiday deals, worldwide holiday insurance, holiday car hire, ski holiday, holiday flights">

<meta http-equiv="keywords" content="cheap flights from uk, cheap holiday packages, bargain holidays, late holiday deals, worldwide holiday insurance, holiday car hire, ski holiday, holiday flights">

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000" background="back.jpg">

<noscript>
<h1>cheap flights from uk, cheap holiday packages, bargain holidays, late holiday deals, worldwide holiday insurance, holiday car hire, ski holiday, holiday flights</h1>
<a href="aboutextravel.htm">holiday flights</a> <a href="contactextravel.htm">holiday car hire</a> <a href="terms.htm">ski holiday</a> <a href="index.htm">cheap flights from uk</a> <a href="cheap-flights-from-uk.htm">cheap holiday packages</a> <a href="late-holiday-deals.htm">bargain holidays</a> <a href="index.htm">holiday flights</a> <a href="cheap-flights-from-uk.htm">cheap flights from uk</a> <a href="cheap-holiday-packages.htm">cheap holiday packages</a> <a href="bargain-holidays.htm">bargain holidays</a> <a href="late-holiday-deals.htm">late holiday deals</a> <a href="worldwide-holiday-insurance.htm">worldwide holiday insurance</a>
</noscript>

<p>Thanks for joining extravelganza, we will be adding special deals for members 
  soon please keep checking back on a regular basis. If you find anything you 
  do or don't like about the site please let us know.</p>
<p>Details</p>
<p><%=(Joining.Fields.Item("Customersurname").Value)%> <%=(Joining.Fields.Item("Customerfirstname").Value)%><%=(Joining.Fields.Item("Customerlogonname").Value)%><%=(Joining.Fields.Item("Customerpassword").Value)%></p>
<p><%=(Joining.Fields.Item("Customeraddress2").Value)%><%=(Joining.Fields.Item("Customeraddress1").Value)%><%=(Joining.Fields.Item("Customeraddress3").Value)%></p>
<p><%=(Joining.Fields.Item("Customerposttown").Value)%><%=(Joining.Fields.Item("Customerpostcode").Value)%><%=(Joining.Fields.Item("Customeremail").Value)%></p>
<p><%=(Joining.Fields.Item("ShortFlight").Value)%><%=(Joining.Fields.Item("LongFlight").Value)%><%=(Joining.Fields.Item("Coach").Value)%><%=(Joining.Fields.Item("Cruise").Value)%></p>
<p>&nbsp;</p>
</body>
</html>
<%
Joining.Close()
%>