<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include virtual="/Connections/trevs.asp" -->
<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers=""
MM_authFailedURL="/Bookings/Secure/logOn.asp"
MM_grantAccess=false
If Session("MM_Username") <> "" Then
  If (true Or CStr(Session("MM_UserAuthorization"))="") Or _
         (InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then
    MM_grantAccess = true
  End If
End If
If Not MM_grantAccess Then
  MM_qsChar = "?"
  If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&"
  MM_referrer = Request.ServerVariables("URL")
  if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString()
  MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer)
  Response.Redirect(MM_authFailedURL)
End If
%>
<%
Dim TB_ukStart, TB_ukEnd, TB_usStart, TB_usEnd
TB_ukStart = UKDate(Now()-2)
TB_usStart = USDate(Now()-2)
if Request.QueryString("startDate") <> "" then
	TB_ukStart = UKDate(Request.QueryString("startDate"))
	TB_usStart = USDate(Request.QueryString("startDate"))
end if
TB_ukEnd = UKDate(Now()+10)
TB_usEnd = USDate1(Now()+10)
if Request.QueryString("endDate") <> "" then
	TB_ukEnd = UKDate(Request.QueryString("endDate"))
	TB_usEnd = USDate1(Request.QueryString("endDate")) 'plus one day
end if
%>
<%
Dim sites__startDate
sites__startDate = "" & Now()-2 & ""
If (TB_usStart <> "") Then 
  sites__startDate = TB_usStart
End If
%>
<%
Dim sites__endDate
sites__endDate = "" & Now()+7 & ""
If (TB_usEnd <> "") Then 
  sites__endDate = TB_usEnd   
End If
%>
<%
Dim sites
Dim sites_cmd
Dim sites_numRows

Set sites_cmd = Server.CreateObject ("ADODB.Command")
sites_cmd.ActiveConnection = MM_trevs_STRING
sites_cmd.CommandText = "SELECT * FROM reportSitesQuery WHERE Bfrom <= ? AND   Bto >= ?" 
sites_cmd.Prepared = true
sites_cmd.Parameters.Append sites_cmd.CreateParameter("param1", 135, 1, -1, sites__endDate) ' adDBTimeStamp
sites_cmd.Parameters.Append sites_cmd.CreateParameter("param2", 135, 1, -1, sites__startDate) ' adDBTimeStamp

Set sites = sites_cmd.Execute
sites_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = 25
Repeat1__index = 0
sites_numRows = sites_numRows + Repeat1__numRows
%>
<%
'  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim sites_total
Dim sites_first
Dim sites_last

' set the record count
sites_total = sites.RecordCount

' set the number of rows displayed on this page
If (sites_numRows < 0) Then
  sites_numRows = sites_total
Elseif (sites_numRows = 0) Then
  sites_numRows = 1
End If

' set the first and last displayed record
sites_first = 1
sites_last  = sites_first + sites_numRows - 1

' if we have the correct record count, check the other stats
If (sites_total <> -1) Then
  If (sites_first > sites_total) Then
    sites_first = sites_total
  End If
  If (sites_last > sites_total) Then
    sites_last = sites_total
  End If
  If (sites_numRows > sites_total) Then
    sites_numRows = sites_total
  End If
End If
%>
<%
Dim MM_paramName 
%>
<%
' *** Move To Record and Go To Record: declare variables

Dim MM_rs
Dim MM_rsCount
Dim MM_size
Dim MM_uniqueCol
Dim MM_offset
Dim MM_atTotal
Dim MM_paramIsDefined

Dim MM_param
Dim MM_index

Set MM_rs    = sites
MM_rsCount   = sites_total
MM_size      = sites_numRows
MM_uniqueCol = ""
MM_paramName = ""
MM_offset = 0
MM_atTotal = false
MM_paramIsDefined = false
If (MM_paramName <> "") Then
  MM_paramIsDefined = (Request.QueryString(MM_paramName) <> "")
End If
%>
<%
' *** Move To Record: handle 'index' or 'offset' parameter

if (Not MM_paramIsDefined And MM_rsCount <> 0) then

  ' use index parameter if defined, otherwise use offset parameter
  MM_param = Request.QueryString("index")
  If (MM_param = "") Then
    MM_param = Request.QueryString("offset")
  End If
  If (MM_param <> "") Then
    MM_offset = Int(MM_param)
  End If

  ' if we have a record count, check if we are past the end of the recordset
  If (MM_rsCount <> -1) Then
    If (MM_offset >= MM_rsCount Or MM_offset = -1) Then  ' past end or move last
      If ((MM_rsCount Mod MM_size) > 0) Then         ' last page not a full repeat region
        MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
      Else
        MM_offset = MM_rsCount - MM_size
      End If
    End If
  End If

  ' move the cursor to the selected record
  MM_index = 0
  While ((Not MM_rs.EOF) And (MM_index < MM_offset Or MM_offset = -1))
    MM_rs.MoveNext
    MM_index = MM_index + 1
  Wend
  If (MM_rs.EOF) Then 
    MM_offset = MM_index  ' set MM_offset to the last possible record
  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
  MM_index = MM_offset
  While (Not MM_rs.EOF And (MM_size < 0 Or MM_index < MM_offset + MM_size))
    MM_rs.MoveNext
    MM_index = MM_index + 1
  Wend

  ' if we walked off the end of the recordset, set MM_rsCount and MM_size
  If (MM_rs.EOF) Then
    MM_rsCount = MM_index
    If (MM_size < 0 Or MM_size > MM_rsCount) Then
      MM_size = MM_rsCount
    End If
  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
  MM_index = 0
  While (Not MM_rs.EOF And MM_index < MM_offset)
    MM_rs.MoveNext
    MM_index = MM_index + 1
  Wend
End If
%>
<%
' *** Move To Record: update recordset stats

' set the first and last displayed record
sites_first = MM_offset + 1
sites_last  = MM_offset + MM_size

If (MM_rsCount <> -1) Then
  If (sites_first > MM_rsCount) Then
    sites_first = MM_rsCount
  End If
  If (sites_last > MM_rsCount) Then
    sites_last = MM_rsCount
  End If
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)
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters

Dim MM_keepNone
Dim MM_keepURL
Dim MM_keepForm
Dim MM_keepBoth

Dim MM_removeList
Dim MM_item
Dim MM_nextItem

' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> "") Then
  MM_removeList = MM_removeList & "&" & MM_paramName & "="
End If

MM_keepURL=""
MM_keepForm=""
MM_keepBoth=""
MM_keepNone=""

' add the URL parameters to the MM_keepURL string
For Each MM_item In Request.QueryString
  MM_nextItem = "&" & MM_item & "="
  If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
    MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item))
  End If
Next

' add the Form variables to the MM_keepForm string
For Each MM_item In Request.Form
  MM_nextItem = "&" & MM_item & "="
  If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
    MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item))
  End If
Next

' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
If (MM_keepBoth <> "") Then 
  MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
End If
If (MM_keepURL <> "")  Then
  MM_keepURL  = Right(MM_keepURL, Len(MM_keepURL) - 1)
End If
If (MM_keepForm <> "") Then
  MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
End If

' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
  If (firstItem <> "") Then
    MM_joinChar = "&"
  Else
    MM_joinChar = ""
  End If
End Function
%>
<%
' *** Move To Record: set the strings for the first, last, next, and previous links

Dim MM_keepMove
Dim MM_moveParam
Dim MM_moveFirst
Dim MM_moveLast
Dim MM_moveNext
Dim MM_movePrev

Dim MM_urlStr
Dim MM_paramList
Dim MM_paramIndex
Dim MM_nextParam

MM_keepMove = MM_keepBoth
MM_moveParam = "index"

' if the page has a repeated region, remove 'offset' from the maintained parameters
If (MM_size > 1) Then
  MM_moveParam = "offset"
  If (MM_keepMove <> "") Then
    MM_paramList = Split(MM_keepMove, "&")
    MM_keepMove = ""
    For MM_paramIndex = 0 To UBound(MM_paramList)
      MM_nextParam = Left(MM_paramList(MM_paramIndex), InStr(MM_paramList(MM_paramIndex),"=") - 1)
      If (StrComp(MM_nextParam,MM_moveParam,1) <> 0) Then
        MM_keepMove = MM_keepMove & "&" & MM_paramList(MM_paramIndex)
      End If
    Next
    If (MM_keepMove <> "") Then
      MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1)
    End If
  End If
End If

' set the strings for the move to links
If (MM_keepMove <> "") Then 
  MM_keepMove = Server.HTMLEncode(MM_keepMove) & "&"
End If

MM_urlStr = Request.ServerVariables("URL") & "?" & MM_keepMove & MM_moveParam & "="

MM_moveFirst = MM_urlStr & "0"
MM_moveLast  = MM_urlStr & "-1"
MM_moveNext  = MM_urlStr & CStr(MM_offset + MM_size)
If (MM_offset - MM_size < 0) Then
  MM_movePrev = MM_urlStr & "0"
Else
  MM_movePrev = MM_urlStr & CStr(MM_offset - MM_size)
End If
%>
<%
If Request.Form("IDclient")>0 then ' If client selected on form get ID
	Session("IDclient")=Request.Form("IDclient")
Else                               ' If new client just created get new ID
	Session("IDclient")=Session("TB_newID") 
end If
%>
<%
Dim MM_editAction
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
  MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If

' boolean to abort record edit
Dim MM_abortEdit
MM_abortEdit = false
%>
<%
' IIf implementation
Function MM_IIf(condition, ifTrue, ifFalse)
  If condition = "" Then
    MM_IIf = ifFalse
  Else
    MM_IIf = ifTrue
  End If
End Function
%>
<%
If (CStr(Request("MM_insert")) = "form1") Then
  If (Not MM_abortEdit) Then
    ' execute the insert
    Dim MM_editCmd

    Set MM_editCmd = Server.CreateObject ("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_trevs_STRING
    MM_editCmd.CommandText = "INSERT INTO Visits (Vname, Vnote, VdateFrom, VdateTo, VdateBooked, IDclient, VsecureCode) VALUES (?, ?, ?, ?, ?, ?, ?)" 
    MM_editCmd.Prepared = true
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 202, 1, 31, Request.Form("Vname")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 202, 1, 255, Request.Form("Vnote")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 135, 1, -1, MM_IIF(Request.Form("VdateFrom"), Request.Form("VdateFrom"), null)) ' adDBTimeStamp
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 135, 1, -1, MM_IIF(Request.Form("VdateTo"), Request.Form("VdateTo"), null)) ' adDBTimeStamp
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param5", 135, 1, -1, MM_IIF(Request.Form("VdateBooked"), Request.Form("VdateBooked"), null)) ' adDBTimeStamp
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param6", 5, 1, -1, MM_IIF(Request.Form("IDclient"), Request.Form("IDclient"), null)) ' adDouble
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param7", 202, 1, 255, Request.Form("VsecureCode")) ' adVarWChar
    MM_editCmd.Execute
		
	'Trevs ========================================================================================================================
	'insert directly after MM_editCmd.Execute in the Insert Record Server Behaviour & before MM_editCmd.ActiveConnection.Close
	'Creates a Session Variable called TB_newID containing the ID of last record inserted into table
	Dim TB_rsGetID, TB_sqlGetID,TB_newID
	Set TB_rsGetID=Server.CreateObject("ADODB.Recordset")
	TB_sqlGetID="SELECT @@IDENTITY as TB_newID From Clients"
	TB_rsGetID.open TB_sqlGetID,MM_editCmd.ActiveConnection
	Session("TB_newID")=TB_rsGetID("TB_newID")
	Session("IDvisit")=TB_rsGetID("TB_newID")
	TB_rsGetID.close
	Set TB_sqlGetID = Nothing	
	'Trevs ========================================================================================================================
	
    MM_editCmd.ActiveConnection.Close

    ' append the query string to the redirect URL
    Dim MM_editRedirectUrl
    MM_editRedirectUrl = "manageBookings.asp"
    If (Request.QueryString <> "") Then
      If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then
        MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
      Else
        MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
      End If
    End If
    Response.Redirect(MM_editRedirectUrl)
  End If
End If
%>
<%
'The Client session variable IDclient should already be set from last page
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Rhydd Covert Sites Report</title>

<link href="/css/bookings.css" rel="stylesheet" type="text/css" media="all" />
<style type="text/css">
<!--
.style5 {font-size: 8pt}
.style6 {font-size: 9pt}
-->
</style>

<script src="../SpryAssets/SpryValidationTextField.js" type="text/javascript"></script>
<script language="javascript" type="text/javascript">
<!-- // Takes uk Date & Time from a form and places Date+Time in SQL format back onto form
function TB_dt(idD,idT,idR) // Combines UK date and time into SQL date+time format on a form
{                           // given from element id's of Date:idD Time:idT and Result:idR
var dr="";
var dt=document.getElementById(idD).value;  // Get date value
var tm=document.getElementById(idT).value;  // Get time value
var ds=dt.split("/");      // split date into dt[0] dt[1] dt[2]
	if (ds.length == 3){   // Do nothing if date value not in 3 sections with "/" seperators.
		dr=ds[1]+"/"+ds[0]+"/"+ds[2]+" "+tm;  // recombine date and time with "/" seperators.
	}
document.getElementById(idR).value=dr  //  Set element with ID idR to combined date+time in new format.
}
//-->
</script> 

<link href="../SpryAssets/SpryValidationTextField.css" rel="stylesheet" type="text/css" />
</head>

<body class="oneColFixCtr">
<div id="container">
  <div id="mainContent">
    
    
    <p>
      <!-- end #mainContent -->
      <br />
</p>
    <div id="dateFromDisplay" align="center">      <table width="100%" border="0" cellspacing="1" cellpadding="1">
      <tr>
          <img style="height:203px; width:251px;" src="../../rhydd.png">
      </tr>
      </br>
      <span class="style1">Sites Report</span>
      </table>
                
      
      <!-- #BeginLibraryItem "/Library/Booking_menu.lbi" -->
<table width="83%" border="0" align="center" cellpadding="1" cellspacing="5">
  <tr>
    <td><div align="center">
    <a href="/Bookings/default.asp">Home</a> -- 
    <a href="/Bookings/selectUnit.asp">Units</a> -- 
    <a href="/Bookings/selectVisit.asp">Visits</a> -- 
    <a href="/Bookings/reportSites.asp">Site Rep</a> --
    <a href="/Bookings/selectClient.asp">Clients</a> -- 
    <a href="/Bookings/LdrManage/manageLdrs.asp">Users</a> -- 
    <a href="/Bookings/Secure/LogOut.asp">Log Out</a> --
    <a href="/Bookings/PrintOuts/prntActReport.asp">Activities</a> -- 
    <a href="/Bookings/dbBackup/dbDownload.asp">Backup</a></div></td>
  </tr>
</table>
    <!-- #EndLibraryItem --></div>
    
    <div align="center">
      <table width="580" border="0" cellpadding="1" cellspacing="1">
        <tr>
          <td width="538" class="centreblue">
            <form id="form2" name="form2" method="get" action="reportSites.asp">
              From:<span id="sprytextfield1">
              <input name="startDate" type="text" id="startDate" value="<%=TB_ukStart%>" size="12" />
              </span>&nbsp;To:<span id="sprytextfield2">
              <input type="text" name="endDate" id="endDate" size="12" value="<%=TB_ukEnd%>" />
              </span>&nbsp;(dd/mm/yy)&nbsp;
              <input type="submit" name="submit" id="submit" value="Refresh" />
          </form></td>
          </tr>
      </table>
    </div>
    <%=dateMed(TB_ukStart)%>&nbsp; to &nbsp;<%=dateMed(TB_ukEnd)%><br />
    <div align="center">
      <table width="750" border="0">
        <tr>
          <td width="70" class="centreblue">Site</td>
          <td width="30" class="centreblue">Con</td>
          <td width="130" class="centreblue">From</td>
          <td width="130" class="centreblue">To</td>
          <td width="380" class="leftblue">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Group</td>
        </tr>
        <% 
While ((Repeat1__numRows <> 0) AND (NOT sites.EOF)) 
Dim cTik, sName
if (sites.Fields.Item("Bconfmd").Value) then
	cTik = "Y"  ' booking has been confirmed
	else
	cTik = "N"  ' booking NOT been confirmed
end if
' set the site name variable to display (can include link)
sName = (sites.Fields.Item("Uname").Value)
%>
        <tr>
          <td class="tableRep"><%=sName%></td>
          <td class="tableRep">&nbsp;<%=cTik%></td>
          <td class="tableRep"><%=dateSht(sites.Fields.Item("Bfrom").Value)%></td>
          <td class="tableRep"><%=dateSht(sites.Fields.Item("Bto").Value)%></td>
          <td class="inLeft"><div><%=(sites.Fields.Item("client").Value)%></div></td>
        </tr>
  <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  sites.MoveNext()
Wend
%>
        <tr>
          <td colspan="5" class="tableRight"><a href="<%=MM_moveFirst%>">First</a> - <a href="<%=MM_movePrev%>">Prev</a> - <a href="<%=MM_moveNext%>">Next</a> - <a href="<%=MM_moveLast%>">Last</a></td>
	    </tr>
      </table>
    </div>
    <br />
    <p>&nbsp;      </p>
  </div>
<!-- end #container --></div>

<script type="text/javascript">
<!--
var sprytextfield1 = new Spry.Widget.ValidationTextField("sprytextfield1", "date", {format:"dd/mm/yy"});
var sprytextfield2 = new Spry.Widget.ValidationTextField("sprytextfield2", "date", {format:"dd/mm/yy"});
//-->
</script>
</body>
</html>
<%
sites.Close()
Set sites = Nothing
%>
<% 'Returns the date formatted to Medium length ie "27 Jun 57"
	  function dateMed(dt)
	  	dateMed=Day(dt)
	  	dateMed=dateMed & " " & MonthName(Month(dt),true)
	  	dateMed=dateMed & " " & Right(Year(dt),2)
	  end function	
	  %>
<% 'Returns date in US format to SAVE in database (No hashes)
   'Also swops between UK and US format for displaying
	  Function USDate(x)
    	If Not IsDate(x) Then Exit Function
    	USDate = Month(x) & "/" & Day(x) & "/" & Year(x)
	  End Function 
	  %>     
<% 'Returns date in US format plus ONE DAY for "SQL TO" Selection 06/28/57
	  Function USDate1(x)
	  Dim x1
	  If Not IsDate(x) Then Exit Function
	  	x1=CDate(x)+1 ' Get Date plus ONE DAY
    	USDate1 = Month(x1) & "/" & Day(x1) & "/" & Year(x1)
	  End Function 
	  %> 
<% 'Returns date in UK format to display (No hashes) 27/06/57
	  Function UKDate(x)
    	If Not IsDate(x) Then Exit Function
    	UKDate = Day(x) & "/" & Month(x) & "/" & Right(Year(x),2)
	  End Function 
	  %>
<% 'Returns the date & Time ie Tu 27 Jun 11:56"
	  function dateSht(dt)
	    dateSht=(WeekdayName(Weekday(dt),true))
	  	dateSht=dateSht & " " & Day(dt)
	  	dateSht=dateSht & " " & MonthNAme(Month(dt),true)
							' dateTim=DateTim & " " & Right(Year(dt),2)
		if Hour(dt)<10 then ' set hour leading zero if needed
	  		dateSht=dateSht & " 0" & Hour(dt)
		else
	  		dateSht=dateSht & " " & Hour(dt)
		end if
		if Minute(dt)<10 then'set minute leading zero in needed
			dateSht=dateSht & ":0" & Minute(dt)
		else
			dateSht=dateSht & ":" & Minute(dt)
		end if
	  end function	
	  %>
<% 'Returns random password (alpha numeric) length = Count
	  Function R_Pswd(count)
	  Dim i, pwstr
	  pwstr = "ABCDEFGHKMNPQRSTUVWXYZ23456789" 'Char to choose pswd from	  
	  Randomize
	  R_Pswd = Mid(pwstr,Int(Rnd()*22+1),1) '1st Char = alpha
	  i=1
	  do while i<count
	  R_Pswd=R_Pswd & Mid(pwstr,Int(Rnd()*Len(pwstr)+1),1)
	  i=i+1
	  loop 
	  End Function 
	  %>