<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include virtual="/Connections/trevs.asp" -->
<%'Trev's - Set reqURL to the requesting pages address for return
reqURL = Request.QueryString("reqURL")
%>
<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers="userEdit,bookEdit,webmaster"
MM_authFailedURL="/Bookings/Secure/sorryAccess.asp"
MM_grantAccess=false
If Session("MM_Username") <> "" Then
  If (false 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 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_update")) = "form1") Then
  If (Not MM_abortEdit) Then
    ' execute the update
    Dim MM_editCmd

    Set MM_editCmd = Server.CreateObject ("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_trevs_STRING
    MM_editCmd.CommandText = "UPDATE bookings SET IDunit = ?, Bconfmd = ?, num68 = ?, num810 = ?, num1014 = ?, num1418 = ?, numadult = ?, numRydLdrs = ?, permitH1 = ?, permitT1 = ?, permitH2 = ?, permitT2 = ?, permitH3 = ?, permitT3 = ?, Bnote = ?, Bfrom = ?, Bto = ?, LastEditUserID = ? WHERE IDbooking = ?" 
    MM_editCmd.Prepared = true
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 5, 1, -1, MM_IIF(Request.Form("uUnit"), Request.Form("uUnit"), null)) ' adDouble
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 5, 1, -1, MM_IIF(Request.Form("Bconfmd"), 1, 0)) ' adDouble
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 5, 1, -1, MM_IIF(Request.Form("num68"), Request.Form("num68"), null)) ' adDouble
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 5, 1, -1, MM_IIF(Request.Form("num810"), Request.Form("num810"), null)) ' adDouble
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param5", 5, 1, -1, MM_IIF(Request.Form("num1014"), Request.Form("num1014"), null)) ' adDouble
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param6", 5, 1, -1, MM_IIF(Request.Form("num1418"), Request.Form("num1418"), null)) ' adDouble
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param7", 5, 1, -1, MM_IIF(Request.Form("numadult"), Request.Form("numadult"), null)) ' adDouble
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param8", 5, 1, -1, MM_IIF(Request.Form("numRydLdrs"), Request.Form("numRydLdrs"), null)) ' adDouble
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param9", 202, 1, 63, Request.Form("permitH1")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param10", 202, 1, 63, Request.Form("permitT1")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param11", 202, 1, 63, Request.Form("permitH2")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param12", 202, 1, 63, Request.Form("permitT2")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param13", 202, 1, 63, Request.Form("permitH3")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param14", 202, 1, 63, Request.Form("permitT3")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param15", 202, 1, 255, Request.Form("Bnote")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param16", 135, 1, -1, MM_IIF(Request.Form("Bfrom"), Request.Form("Bfrom"), null)) ' adDBTimeStamp
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param17", 135, 1, -1, MM_IIF(Request.Form("Bto"), Request.Form("Bto"), null)) ' adDBTimeStamp
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 202, 1, 255, Session("MM_Username"))
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param18", 5, 1, -1, MM_IIF(Request.Form("MM_recordId"), Request.Form("MM_recordId"), null)) ' adDouble
    MM_editCmd.Execute

    MM_editCmd.ActiveConnection.Close

    Set MM_editCmd = Server.CreateObject ("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_trevs_STRING
    MM_editCmd.CommandText = "DELETE FROM Sites WHERE IDbooking = ?" 
    MM_editCmd.Prepared = true
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 5, 1, -1, Request.QueryString("IDbooking")  ) ' adDouble
    MM_editCmd.Execute
    MM_editCmd.Parameters.Delete ("param1")
    MM_editCmd.ActiveConnection.Close

    unitTypes = Split(Request.Form("UType[]"), ", ")
    Set MM_editCmd = Server.CreateObject ("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_trevs_STRING
    For Each unitType In unitTypes
      MM_editCmd.CommandText = "INSERT INTO Sites (IDbooking, IDunit) VALUES (?, ?)" 
      MM_editCmd.Prepared = true
      MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 5, 1, -1, Request.QueryString("IDbooking")  ) ' adDouble
      MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 5, 1, -1, unitType) ' adDouble
      MM_editCmd.Execute
      MM_editCmd.Parameters.Delete ("param1")
      MM_editCmd.Parameters.Delete ("param2")
    Next
    MM_editCmd.ActiveConnection.Close

    ' append the query string to the redirect URL
    Dim MM_editRedirectUrl
    MM_editRedirectUrl = "" & Session("TB_callPage") & ""
    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
%>

<%
Dim Visit__FormIDvisit
Visit__FormIDvisit = "1"
If (Request.QueryString("IDvisit")   <> "") Then 
  Visit__FormIDvisit = Request.QueryString("IDvisit")  
End If
	Session("IDvisit")=Visit__FormIDvisit
%>
<%
Dim Visit
Dim Visit_cmd
Dim Visit_numRows

Set Visit_cmd = Server.CreateObject ("ADODB.Command")
Visit_cmd.ActiveConnection = MM_trevs_STRING
Visit_cmd.CommandText = "SELECT * FROM VisitsQuery WHERE IDvisit = ?" 
Visit_cmd.Prepared = true
Visit_cmd.Parameters.Append Visit_cmd.CreateParameter("param1", 5, 1, -1, Visit__FormIDvisit) ' adDouble

Set Visit = Visit_cmd.Execute
Visit_numRows = 0
%>
<%
Dim Units__MMColParam
Units__MMColParam = "1"
If (Request.QueryString("UType") <> "") Then 
  Units__MMColParam = Request.QueryString("UType")
End If
%>
<%
Dim Units
Dim Units_cmd
Dim Units_numRows

'SELECT * FROM bookingsUnitQuery WHERE IDvisit = ? ORDER BY UType DESC, Uname'
Set Units_cmd = Server.CreateObject ("ADODB.Command")
Units_cmd.ActiveConnection = MM_trevs_STRING
Units_cmd.CommandText = "SELECT * FROM Units WHERE UType = ? ORDER BY Uname ASC"
Units_cmd.Prepared = true
Units_cmd.Parameters.Append Units_cmd.CreateParameter("param1", 200, 1, 63, Units__MMColParam) ' adVarChar

Set Check_cmd = Server.CreateObject ("ADODB.Command")
Check_cmd.ActiveConnection = MM_trevs_STRING
Check_cmd.CommandText = "SELECT * FROM bookings WHERE IDbooking = ?"

Set Units = Units_cmd.Execute
Units_numRows = 0
%>
<%
Dim booking__MMColParam
booking__MMColParam = "1"
If (Request.QueryString("IDbooking") <> "") Then 
  booking__MMColParam = Request.QueryString("IDbooking")
End If
%>
<%
Dim booking
Dim booking_cmd
Dim booking_numRows

Set booking_cmd = Server.CreateObject ("ADODB.Command")
booking_cmd.ActiveConnection = MM_trevs_STRING
booking_cmd.CommandText = "SELECT * FROM bookings WHERE IDbooking = ?" 
booking_cmd.Prepared = true
booking_cmd.Parameters.Append booking_cmd.CreateParameter("param1", 5, 1, -1, booking__MMColParam) ' adDouble

Set booking = booking_cmd.Execute
booking_numRows = 0
%>
<!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 Edit Bookings</title>

<link href="/css/bookings.css" rel="stylesheet" type="text/css" media="all" />

<script src="../SpryAssets/SpryValidationTextField.js" type="text/javascript"></script>
<script src="../SpryAssets/SpryValidationSelect.js" type="text/javascript"></script>
<link href="../SpryAssets/SpryValidationTextField.css" rel="stylesheet" type="text/css" />
<style type="text/css">
<!--
.style3 {font-weight: bold}
-->
</style>
<link href="../SpryAssets/SpryValidationSelect.css" rel="stylesheet" type="text/css" />
<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> 
<style type="text/css">
<!--
.style7 {font-size: 10px}
-->
</style>
</head>

<body class="oneColFixCtr">

<div id="container">
  <div id="mainContent">
    

      <!-- end #mainContent -->
    <div id="dateFromDisplay" align="center">      <table width="100%" border="0" cellspacing="1" cellpadding="1">
      <tr>
        <img style="height:203px; width:251px;" src="../../rhydd.png">
          <td width="60%"><div align="center"><span class="header style3">Rhydd Activity Tracking System</span><br />
          <span class="style1">Edit a Booking</span></div></td>
        </tr>
      </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 id="recordsList" align="center"></div>
    <p><span class="style7">
      Visit ID: <%=(Visit.Fields.Item("IDvisit").Value)%>
    &nbsp;&nbsp;&nbsp;&nbsp;Booking ID: <%=(booking.Fields.Item("IDbooking").Value)%></span><br />
      <%=(Visit.Fields.Item("Ccontact").Value)%>&nbsp;&nbsp;<%=(Visit.Fields.Item("Vname").Value)%><br />
From:<%=dateMed((Visit.Fields.Item("VdateFrom").Value))%>      To:<%=dateMed((Visit.Fields.Item("VdateTo").Value))%> </p>
    <form ACTION="<%=MM_editAction%>" METHOD="POST" id="form1" name="form1">
      <div align="center"><table width="540" border="0" cellspacing="0" cellpadding="7">
        <tr>
          <td width="125" class="centreblue">&nbsp;</td>
          <td width="125" class="centreblue">&nbsp;</td>
          <td width="125" class="centreblue">&nbsp;</td>
          <td width="125" class="centreblue">&nbsp;</td>
          <td width="40" class="centreblue">&nbsp;</td>
        </tr>
        <tr>
          <td colspan="5">
            <div align="center">Select <%= Request.QueryString("Utype") %>:
<%
Dim Bookings__MMColParam
Bookings__MMColParam = "0"
If (Request.QueryString("IDbooking")  <> "") Then 
  Bookings__MMColParam = Request.QueryString("IDbooking") 
End If
' Declare variables
Dim alreadyOutput()
Dim outputIndex
Dim skip
Dim Unames
' Set size of Array
ReDim alreadyOutput(0)
' Create Associative Array for Unames per booking (E.g. [7261 => "Ebury, Rec, Site 01"])
Set Unames = Server.CreateObject("Scripting.Dictionary")
' Set index to 0
outputIndex = 0
%>
<%
Dim Bookings
Dim IsChecked
Dim Bookings_cmd
Dim Bookings_numRows
Set Bookings_cmd = Server.CreateObject ("ADODB.Command")
Bookings_cmd.ActiveConnection = MM_trevs_STRING
Bookings_cmd.CommandText = "SELECT * FROM bookingsUnitQuery WHERE IDbooking = ? ORDER BY UType DESC, Uname" 
Bookings_cmd.Prepared = true
Bookings_cmd.Parameters.Append Bookings_cmd.CreateParameter("param1", 5, 1, -1, Bookings__MMColParam) ' adDouble

Set Bookings = Bookings_cmd.Execute
Bookings_numRows = 0
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
Bookings_numRows = Bookings_numRows + Repeat1__numRows
%>
<%
Dim Repeat2__numRows
Dim Repeat2__index
Dim inc
inc = 0

Repeat2__numRows = -1
Repeat2__index = 0
Others_numRows = Others_numRows + Repeat2__numRows

While (NOT Bookings.EOF)
  inc = inc + 1
  Unames.Add inc, Bookings.Fields.Item("Uname").Value
  ' Move on to next booking - IMPORTANT as you'll be stuck in infinite loop otherwise
  Bookings.MoveNext()
Wend
%>
             <%
                        While (NOT Units.EOF)
                      IsChecked = false
                      %>
                      <%
                      For Each Site In Unames
                        if (Unames(Site) = Units.Fields.Item("Uname").Value) then
                          IsChecked = true
                          Exit For
                        end if
                      Next
                      if (IsChecked = true) then %>
                          <input name="UType[]" type="checkbox" checked value="<%=(Units.Fields.Item("IDunit").Value)%>"><%=(Units.Fields.Item("Uname").Value)%></input>
                        <% else %>
                          <input name="UType[]" type="checkbox" value="<%=(Units.Fields.Item("IDunit").Value)%>"><%=(Units.Fields.Item("Uname").Value)%></input>
                        <% end if
                      %>
                      <%
                        Units.MoveNext()
                        Wend
                        If (Units.CursorType > 0) Then
                          Units.MoveFirst
                        Else
                          Units.Requery
                        End If
                      %>            

<!--               <span id="spryselect1">
                <select name="uUnit" id="uUnit">
              <%
While (NOT Units.EOF)
%>
              <option value="<%=(Units.Fields.Item("IDunit").Value)%>" <%If (Not isNull((booking.Fields.Item("IDunit").Value))) Then If (CStr(Units.Fields.Item("IDunit").Value) = CStr((booking.Fields.Item("IDunit").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%> ><%=(Units.Fields.Item("Uname").Value)%></option>
              <%
  Units.MoveNext()
Wend
If (Units.CursorType > 0) Then
  Units.MoveFirst
Else
  Units.Requery
End If
%>
                </select>
              </span> -->
            </div>
          </td>
        </tr>
        <tr>
          <td colspan="5" class="centreblue">&nbsp; </td>
        </tr>
        <tr>
          <td class="inRight"><strong>From: </strong></td>
          <td colspan="4" class="inLeft">Date:<span id="sprytextfield1">
            <input name="dateFrom" type="text" id="dateFrom" value="<%=shortYr(DateValue(booking.Fields.Item("Bfrom").Value))%>" onchange="TB_dt('dateFrom','timeFrom','Bfrom')" size="10" />
          </span>dd/mm/yy &nbsp;&nbsp;Time: 
            <span id="sprytextfield3">
            <input name="timeFrom" type="text" id="timeFrom" onchange="TB_dt('dateFrom','timeFrom','Bfrom')" value="<%=FormatDateTime((booking.Fields.Item("Bfrom").Value),4)%>" size="8" />
        </span>hh:mm 24hr        </tr>
        <tr>
          <td class="inRight"><strong>To : </strong></td>
          <td colspan="4" class="inLeft">Date:<span id="sprytextfield2">
            <input name="dateTo" type="text" id="dateTo" value="<%=shortYr(DateValue(booking.Fields.Item("Bto").Value))%>" onchange="TB_dt('dateTo','timeTo','Bto')" size="10" />
          </span>dd/mm/yy &nbsp;&nbsp;Time: <span id="sprytextfield4">
          <input name="timeTo" type="text" id="timeTo" onchange="TB_dt('dateTo','timeTo','Bto')" value="<%=FormatDateTime((booking.Fields.Item("Bto").Value),4)%>" size="8" />
          </span>hh:mm 24hr</td>
        </tr>
        
        <tr>
          <td class="inRight"><strong>Confirmed: </strong></td>
          <td colspan="4" class="inLeft">
          <input <%If (CStr((booking.Fields.Item("Bconfmd").Value)) = CStr("True")) Then Response.Write("checked=""checked""") : Response.Write("")%> name="Bconfmd" type="checkbox" id="Bconfmd" value="True" /></td>
        </tr>
        
        
        <tr>
          <td class="inRight"><strong>Numbers:</strong></td>
          <td class="inRight">6-8: 
          <span id="sprytextfield5">
          <input name="num68" type="text" id="num68" value="<%=(booking.Fields.Item("num68").Value)%>" size="5" />
          </span></td>
          <td class="inRight">8-10: <span id="sprytextfield6">
            <input name="num810" type="text" id="num810" value="<%=(booking.Fields.Item("num810").Value)%>" size="5" />
          </span></td>
          <td class="inRight">10-14: <span id="sprytextfield7">
          <input name="num1014" type="text" id="num1014" value="<%=(booking.Fields.Item("num1014").Value)%>" size="5" />
          </span></td>
          <td class="inLeft">&nbsp;</td>
        </tr>
        <tr>
          <td class="inRight">&nbsp;</td>
          <td class="inRight">14-18: <span id="sprytextfield8">
          <input name="num1418" type="text" id="num1418" value="<%=(booking.Fields.Item("num1418").Value)%>" size="5" />
          </span></td>
          <td class="inRight">Adults: <span id="sprytextfield9">
          <input name="numadult" type="text" id="numadult" value="<%=(booking.Fields.Item("numadult").Value)%>" size="5" />
          </span></td>
          <td class="inRight">&nbsp;</td>
          <td class="inLeft">&nbsp;</td>
        </tr>
        
        <tr>
          <td colspan="5" class="inRight"><div align="center"><strong>Number Rhydd Ldrs needed:</strong><span id="sprytextfield10">
            <input name="numRydLdrs" type="text" id="numRydLdrs" value="<%=(booking.Fields.Item("numRydLdrs").Value)%>" size="5" />
          </span></div></td>
        </tr>
        
        <tr>
          <td colspan="2" class="inRight"><strong>Permit holder 1:</strong>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Name: </td>
          <td colspan="2" class="inLeft"><input name="permitH1" type="text" id="permitH1" value="<%=(booking.Fields.Item("permitH1").Value)%>" size="35" maxlength="63" /></td>
          <td class="inLeft">&nbsp;</td>
        </tr>
        <tr>
          <td class="inRight">&nbsp;</td>
          <td class="inRight">Permit type held:</td>
          <td colspan="2" class="inLeft"><input name="permitT1" type="text" id="permitT1" value="<%=(booking.Fields.Item("permitT1").Value)%>" size="35" maxlength="63" /></td>
          <td class="inLeft">&nbsp;</td>
        </tr>
        
        <tr>
          <td colspan="2" class="inRight"><strong>Permit holder 2:</strong>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Name:</td>
          <td colspan="2" class="inLeft"><input name="permitH2" type="text" id="permitH2" value="<%=(booking.Fields.Item("permitH2").Value)%>" size="35" maxlength="63" /></td>
          <td class="inLeft">&nbsp;</td>
        </tr>
        <tr>
          <td class="inRight">&nbsp;</td>
          <td class="inRight">Permit type held:</td>
          <td colspan="2" class="inLeft"><input name="permitT2" type="text" id="permitT2" value="<%=(booking.Fields.Item("permitT2").Value)%>" size="35" maxlength="63" /></td>
          <td class="inLeft">&nbsp;</td>
        </tr>
        
        <tr>
          <td colspan="2" class="inRight"><strong>Permit holder 3:</strong>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Name:</td>
          <td colspan="2" class="inLeft"><input name="permitH3" type="text" id="permitH3" value="<%=(booking.Fields.Item("permitH3").Value)%>" size="35" maxlength="63" /></td>
          <td class="inLeft">&nbsp;</td>
        </tr>
        <tr>
          <td class="inRight">&nbsp;</td>
          <td class="inRight">Permit type held::</td>
          <td colspan="2" class="inLeft"><input name="permitT3" type="text" id="permitT3" value="<%=(booking.Fields.Item("permitT3").Value)%>" size="35" maxlength="63" /></td>
          <td class="inLeft">&nbsp;</td>
        </tr>
        
        <tr>
          <td class="inRight"><strong>Notes:</strong></td>
          <td colspan="4" class="inLeft"><textarea name="Bnote" id="Bnote"  cols="50" rows="3"><%=(booking.Fields.Item("Bnote").Value)%></textarea></td>
        </tr>
        <tr>
          <td class="inRight">&nbsp;</td>
          <td colspan="4" class="inLeft">
            <input name="Bfrom" type="hidden" id="Bfrom" value="<%=USDate(DateValue(booking.Fields.Item("Bfrom").Value)) & " " & FormatDateTime((booking.Fields.Item("Bfrom").Value),4)%>" />
            <input name="Bto" type="hidden" id="Bto" value="<%=USDate(DateValue(booking.Fields.Item("Bto").Value)) & " " & FormatDateTime((booking.Fields.Item("Bto").Value),4)%>" />
            <input name="IDvisit" type="hidden" id="IDvisit" value="<%=(Request.QueryString("IDvisit"))%>" /></td>
        </tr>
        <tr>
          <td class="inRight">&nbsp;</td>
          <td colspan="4" class="inLeft"><input type="submit" name="save" id="save" value="Update &amp; Save" /> </td>
        </tr>
      </table>
      </div>
      <br />
      <input type="hidden" name="MM_update" value="form1" />
      <input type="hidden" name="MM_recordId" value="<%= booking.Fields.Item("IDbooking").Value %>" />
</form>
    <p>&nbsp;</p>
  </div>
<!-- end #container --></div>
<script type="text/javascript">
<!--
var sprytextfield1 = new Spry.Widget.ValidationTextField("sprytextfield1", "date", {validateOn:["blur"], format:"dd/mm/yy"});
var sprytextfield2 = new Spry.Widget.ValidationTextField("sprytextfield2", "date", {format:"dd/mm/yy", validateOn:["blur"]});
var sprytextfield3 = new Spry.Widget.ValidationTextField("sprytextfield3", "time", {validateOn:["blur"]});
var sprytextfield4 = new Spry.Widget.ValidationTextField("sprytextfield4", "time", {validateOn:["blur"]});
var sprytextfield5 = new Spry.Widget.ValidationTextField("sprytextfield5", "integer", {isRequired:false, minValue:0, validateOn:["blur"]});
var sprytextfield6 = new Spry.Widget.ValidationTextField("sprytextfield6", "integer", {isRequired:false, minValue:0, validateOn:["blur"]});
var sprytextfield7 = new Spry.Widget.ValidationTextField("sprytextfield7", "integer", {minValue:0, isRequired:false, validateOn:["blur"]});
var sprytextfield8 = new Spry.Widget.ValidationTextField("sprytextfield8", "integer", {minValue:0, isRequired:false, validateOn:["blur"]});
var sprytextfield9 = new Spry.Widget.ValidationTextField("sprytextfield9", "integer", {minValue:0, isRequired:false, validateOn:["blur"]});
var spryselect1 = new Spry.Widget.ValidationSelect("spryselect1", {invalidValue:"0", validateOn:["blur"]});
var sprytextfield10 = new Spry.Widget.ValidationTextField("sprytextfield10", "integer", {maxChars:2, isRequired:false});
//-->
</script>
</body>
</html>
<%
Visit.Close()
Set Visit = Nothing
%>
<%
Units.Close()
Set Units = Nothing
%>
<%
booking.Close()
Set booking = 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	
	  %>
<%
	  Function USDate(x) 'swop date format UK to USA for SQL use
    	If Not IsDate(x) Then Exit Function
    	USDate = Month(x) & "/" & Day(x) & "/" & Year(x)
	  End Function 
	  %>
<%
	  Function shortYr(x) 'swop date format dd/mm/yyyy to dd/mm/yy for display
    	If Not IsDate(x) Then Exit Function
    	shortYr = Day(x) & "/" & Month(x) & "/" & Right(Year(x),2)
	  End Function 
	  %>