Forums
This topic is locked
Buffer Length Error
Posted 26 Oct 2007 22:43:19
1
has voted
26 Oct 2007 22:43:19 EriK Miller posted:
I keep getting this error. I'm pretty sure I have everything correct. If it matters, I'm running this on IIS 5.Here is the error:
Microsoft OLE DB Provider for ODBC Drivers error '80040e57'
[Microsoft][ODBC Microsoft Access Driver]Invalid string or buffer length
/Test/aspCal/insert.asp, line 95
Line 95 is the "MM_editCmd.Execute" line
Here is the code:
<pre id=code><font face=courier size=2 id=code>
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="../../Connections/oncall.asp" -->
<%
Dim MM_editAction
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"
)If (Request.QueryString <> ""
ThenMM_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"
) = "insert" ThenIf (Not MM_abortEdit) Then
' execute the insert
Dim MM_editCmd
Set MM_editCmd = Server.CreateObject ("ADODB.Command"
MM_editCmd.ActiveConnection = MM_oncall_STRING
MM_editCmd.CommandText = "INSERT INTO tblOnCall ([date], [ANES 1ST], COMMENT1, [ANES 2ND], COMMENT2, [ANES 3RD], COMMENT3, [RN 1ST], COMMENT4, [RN 2ND], COMMENT5, [ST 1ST], COMMENT6, [ST 2ND], COMMENT7, [CARDIO 1], COMMENT8, [CARDIO 2], COMMENT9, [CARDIO 3], COMMENT10, [CARDIO 4], COMMENT11, [CARDIO 5], COMMENT12, PERF, COMMENT13, [PERF ASSIS], COMMENT14, SP, COMMENT15, PACU, COMMENT16, XRAY, COMMENT17, US, COMMENT18, CT, COMMENT19, NUCLEAR, COMMENT20, MRI, COMMENT21, [ECHO], COMMENT22, [ANGIO 1], COMMENT23, [ANGIO 2], COMMENT24, [ANGIO 3], COMMENT25, ONC, COMMENT26, HHC, COMMENT27, SPEECH, COMMENT28, PLANT, COMMENT29, CHAP, COMMENT30) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)"
MM_editCmd.Prepared = true
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 135, 1, -1, MM_IIF(Request.Form("Date"
, Request.Form("Date", null)) ' adDBTimeStampMM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 202, 1, 200, Request.Form("ANES 1ST"
) ' adVarWCharMM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 203, 1, 1073741823, Request.Form("COMMENT1"
) ' adLongVarWCharMM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 202, 1, 200, Request.Form("ANES 2ND"
) ' adVarWCharMM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param5", 203, 1, 1073741823, Request.Form("COMMENT2"
) ' adLongVarWCharMM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param6", 202, 1, 200, Request.Form("ANES 3RD"
) ' adVarWCharMM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param7", 203, 1, 1073741823, Request.Form("COMMENT3"
) ' adLongVarWCharMM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param8", 202, 1, 200, Request.Form("RN 1ST"
) ' adVarWCharMM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param9", 203, 1, 1073741823, Request.Form("COMMENT4"
) ' adLongVarWCharMM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param10", 202, 1, 200, Request.Form("RN 2ND"
) ' adVarWCharMM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param11", 203, 1, 1073741823, Request.Form("COMMENT5"
) ' adLongVarWCharMM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param12", 202, 1, 200, Request.Form("ST 1ST"
) ' adVarWCharMM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param13", 203, 1, 1073741823, Request.Form("COMMENT6"
) ' adLongVarWCharMM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param14", 202, 1, 200, Request.Form("ST 2ND"
) ' adVarWCharMM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param15", 203, 1, 1073741823, Request.Form("COMMENT7"
) ' adLongVarWCharMM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param16", 202, 1, 200, Request.Form("CARDIO 1"
) ' adVarWCharMM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param17", 203, 1, 1073741823, Request.Form("COMMENT8"
) ' adLongVarWCharMM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param18", 202, 1, 200, Request.Form("CARDIO 2"
) ' adVarWCharMM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param19", 203, 1, 1073741823, Request.Form("COMMENT9"
) ' adLongVarWCharMM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param20", 202, 1, 200, Request.Form("CARDIO 3"
) ' adVarWCharMM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param21", 203, 1, 1073741823, Request.Form("COMMENT10"
) ' adLongVarWCharMM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param22", 202, 1, 200, Request.Form("CARDIO 4"
) ' adVarWCharMM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param23", 203, 1, 1073741823, Request.Form("COMMENT11"
) ' adLongVarWCharMM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param24", 202, 1, 200, Request.Form("CARDIO 5"
) ' adVarWCharMM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param25", 203, 1, 1073741823, Request.Form("COMMENT12"
) ' adLongVarWCharMM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param26", 202, 1, 200, Request.Form("PERF"
) ' adVarWCharMM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param27", 203, 1, 1073741823, Request.Form("COMMENT13"
) ' adLongVarWCharMM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param28", 202, 1, 200, Request.Form("PERF ASSIS"
) ' adVarWCharMM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param29", 203, 1, 1073741823, Request.Form("COMMENT14"
) ' adLongVarWCharMM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param30", 202, 1, 200, Request.Form("SP"
) ' adVarWCharMM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param31", 203, 1, 1073741823, Request.Form("COMMENT15"
) ' adLongVarWCharMM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param32", 202, 1, 200, Request.Form("PACU"
) ' adVarWCharMM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param33", 203, 1, 1073741823, Request.Form("COMMENT16"
) ' adLongVarWCharMM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param34", 202, 1, 200, Request.Form("XRAY"
) ' adVarWCharMM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param35", 203, 1, 1073741823, Request.Form("COMMENT17"
) ' adLongVarWCharMM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param36", 202, 1, 200, Request.Form("US"
) ' adVarWCharMM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param37", 203, 1, 1073741823, Request.Form("COMMENT18"
) ' adLongVarWCharMM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param38", 202, 1, 200, Request.Form("CT"
) ' adVarWCharMM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param39", 203, 1, 1073741823, Request.Form("COMMENT19"
) ' adLongVarWCharMM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param40", 202, 1, 200, Request.Form("NUCLEAR"
) ' adVarWCharMM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param41", 203, 1, 1073741823, Request.Form("COMMENT20"
) ' adLongVarWCharMM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param42", 202, 1, 200, Request.Form("MRI"
) ' adVarWCharMM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param43", 203, 1, 1073741823, Request.Form("COMMENT21"
) ' adLongVarWCharMM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param44", 202, 1, 200, Request.Form("ECHO"
) ' adVarWCharMM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param45", 203, 1, 1073741823, Request.Form("COMMENT22"
) ' adLongVarWCharMM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param46", 202, 1, 200, Request.Form("ANGIO 1"
) ' adVarWCharMM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param47", 203, 1, 1073741823, Request.Form("COMMENT23"
) ' adLongVarWCharMM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param48", 202, 1, 200, Request.Form("ANGIO 2"
) ' adVarWCharMM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param49", 203, 1, 1073741823, Request.Form("COMMENT24"
) ' adLongVarWCharMM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param50", 202, 1, 200, Request.Form("ANGIO 3"
) ' adVarWCharMM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param51", 203, 1, 1073741823, Request.Form("COMMENT25"
) ' adLongVarWCharMM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param52", 202, 1, 200, Request.Form("ONC"
) ' adVarWCharMM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param53", 203, 1, 1073741823, Request.Form("COMMENT26"
) ' adLongVarWCharMM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param54", 202, 1, 200, Request.Form("HHC"
) ' adVarWCharMM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param55", 203, 1, 1073741823, Request.Form("COMMENT27"
) ' adLongVarWCharMM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param56", 202, 1, 200, Request.Form("SPEECH"
) ' adVarWCharMM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param57", 203, 1, 1073741823, Request.Form("COMMENT28"
) ' adLongVarWCharMM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param58", 202, 1, 200, Request.Form("PLANT"
) ' adVarWCharMM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param59", 203, 1, 1073741823, Request.Form("COMMENT29"
) ' adLongVarWCharMM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param60", 202, 1, 200, Request.Form("CHAP"
) ' adVarWCharMM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param61", 203, 1, 1073741823, Request.Form("COMMENT30"
) ' adLongVarWCharMM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
' append the query string to the redirect URL
Dim MM_editRedirectUrl
MM_editRedirectUrl = "cal.asp"
If (Request.QueryString <> ""
ThenIf (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 Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = 1
Repeat1__index = 0
details_numRows = details_numRows + Repeat1__numRows
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Untitled Document</title>
</head>
<script language=JavaScript>
/**
This is a JavaScript library that will allow you to easily add some basic DHTML
drop-down datepicker functionality to your Notes forms. This script is not as
full-featured as others you may find on the Internet, but it's free, it's easy to
understand, and it's easy to change.
You'll also want to include a stylesheet that makes the datepicker elements
look nice. An example one can be found in the database that this script was
originally released with, at:
www.nsftools.com/tips/NotesTips.htm#datepicker
I've tested this lightly with Internet Explorer 6 and Mozilla Firefox. I have no idea
how compatible it is with other browsers.
version 1.5
December 4, 2005
Julian Robichaux -- www.nsftools.com
HISTORY
-- version 1.0 (Sept. 4, 2004):
Initial release.
-- version 1.1 (Sept. 5, 2004):
Added capability to define the date format to be used, either globally (using the
defaultDateSeparator and defaultDateFormat variables) or when the displayDatePicker
function is called.
-- version 1.2 (Sept. 7, 2004):
Fixed problem where datepicker x-y coordinates weren't right inside of a table.
Fixed problem where datepicker wouldn't display over selection lists on a page.
Added a call to the datePickerClosed function (if one exists) after the datepicker
is closed, to allow the developer to add their own custom validation after a date
has been chosen. For this to work, you must have a function called datePickerClosed
somewhere on the page, that accepts a field object as a parameter. See the
example in the comments of the updateDateField function for more details.
-- version 1.3 (Sept. 9, 2004)
Fixed problem where adding the <div> and <iFrame> used for displaying the datepicker
was causing problems on IE 6 with global variables that had handles to objects on
the page (I fixed the problem by adding the elements using document.createElement()
and document.body.appendChild() instead of document.body.innerHTML += ...).
-- version 1.4 (Dec. 20, 2004)
Added "targetDateField.focus();" to the updateDateField function (as suggested
by Alan Lepofsky) to avoid a situation where the cursor focus is at the top of the
form after a date has been picked. Added "padding: 0px;" to the dpButton CSS
style, to keep the table from being so wide when displayed in Firefox.
-- version 1.5 (Dec 4, 2005)
Added display=none when datepicker is hidden, to fix problem where cursor is
not visible on input fields that are beneath the date picker. Added additional null
date handling for date errors in Safari when the date is empty. Added additional
error handling for iFrame creation, to avoid reported errors in Opera. Added
onMouseOver event for day cells, to allow color changes when the mouse hovers
over a cell (to make it easier to determine what cell you're over). Added comments
in the style sheet, to make it more clear what the different style elements are for.
*/
var datePickerDivID = "datepicker";
var iFrameDivID = "datepickeriframe";
var dayArrayShort = new Array('Su', 'Mo', 'Tu', 'We', 'Th', 'Fr', 'Sa');
var dayArrayMed = new Array('Sun', 'Mon', 'Tue', 'Wed', 'Thu', 'Fri', 'Sat');
var dayArrayLong = new Array('Sunday', 'Monday', 'Tuesday', 'Wednesday', 'Thursday', 'Friday', 'Saturday');
var monthArrayShort = new Array('Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec');
var monthArrayMed = new Array('Jan', 'Feb', 'Mar', 'Apr', 'May', 'June', 'July', 'Aug', 'Sept', 'Oct', 'Nov', 'Dec');
var monthArrayLong = new Array('January', 'February', 'March', 'April', 'May', 'June', 'July', 'August', 'September', 'October', 'November', 'December');
// these variables define the date formatting we're expecting and outputting.
// If you want to use a different format by default, change the defaultDateSeparator
// and defaultDateFormat variables either here or on your HTML page.
var defaultDateSeparator = "/"; // common values would be "/" or "."
var defaultDateFormat = "mdy" // valid values are "mdy", "dmy", and "ymd"
var dateSeparator = defaultDateSeparator;
var dateFormat = defaultDateFormat;
/**
This is the main function you'll call from the onClick event of a button.
Normally, you'll have something like this on your HTML page:
Start Date: <input name="StartDate">
<input type=button value="select" onclick="displayDatePicker('StartDate');">
That will cause the datepicker to be displayed beneath the StartDate field and
any date that is chosen will update the value of that field. If you'd rather have the
datepicker display beneath the button that was clicked, you can code the button
like this:
<input type=button value="select" onclick="displayDatePicker('StartDate', this);">
So, pretty much, the first argument (dateFieldName) is a string representing the
name of the field that will be modified if the user picks a date, and the second
argument (displayBelowThisObject) is optional and represents an actual node
on the HTML document that the datepicker should be displayed below.
In version 1.1 of this code, the dtFormat and dtSep variables were added, allowing
you to use a specific date format or date separator for a given call to this function.
Normally, you'll just want to set these defaults globally with the defaultDateSeparator
and defaultDateFormat variables, but it doesn't hurt anything to add them as optional
parameters here. An example of use is:
<input type=button value="select" onclick="displayDatePicker('StartDate', false, 'dmy', '.');">
This would display the datepicker beneath the StartDate field (because the
displayBelowThisObject parameter was false), and update the StartDate field with
the chosen value of the datepicker using a date format of dd.mm.yyyy
*/
function displayDatePicker(dateFieldName, displayBelowThisObject, dtFormat, dtSep)
{
var targetDateField = document.getElementsByName (dateFieldName).item(0);
// if we weren't told what node to display the datepicker beneath, just display it
// beneath the date field we're updating
if (!displayBelowThisObject)
displayBelowThisObject = targetDateField;
// if a date separator character was given, update the dateSeparator variable
if (dtSep)
dateSeparator = dtSep;
else
dateSeparator = defaultDateSeparator;
// if a date format was given, update the dateFormat variable
if (dtFormat)
dateFormat = dtFormat;
else
dateFormat = defaultDateFormat;
var x = displayBelowThisObject.offsetLeft;
var y = displayBelowThisObject.offsetTop + displayBelowThisObject.offsetHeight ;
// deal with elements inside tables and such
var parent = displayBelowThisObject;
while (parent.offsetParent) {
parent = parent.offsetParent;
x += parent.offsetLeft;
y += parent.offsetTop ;
}
drawDatePicker(targetDateField, x, y);
}
/**
Draw the datepicker object (which is just a table with calendar elements) at the
specified x and y coordinates, using the targetDateField object as the input tag
that will ultimately be populated with a date.
This function will normally be called by the displayDatePicker function.
*/
function drawDatePicker(targetDateField, x, y)
{
var dt = getFieldDate(targetDateField.value );
// the datepicker table will be drawn inside of a <div> with an ID defined by the
// global datePickerDivID variable. If such a div doesn't yet exist on the HTML
// document we're working with, add one.
if (!document.getElementById(datePickerDivID)) {
// don't use innerHTML to update the body, because it can cause global variables
// that are currently pointing to objects on the page to have bad references
//document.body.innerHTML += "<div id='" + datePickerDivID + "' class='dpDiv'></div>";
var newNode = document.createElement("div"
;newNode.setAttribute("id", datePickerDivID);
newNode.setAttribute("class", "dpDiv"
;newNode.setAttribute("style", "visibility: hidden;"
;document.body.appendChild(newNode);
}
// move the datepicker div to the proper x,y coordinate and toggle the visiblity
var pickerDiv = document.getElementById(datePickerDivID);
pickerDiv.style.position = "absolute";
pickerDiv.style.left = x + "px";
pickerDiv.style.top = y + "px";
pickerDiv.style.visibility = (pickerDiv.style.visibility == "visible" ? "hidden" : "visible"
;pickerDiv.style.display = (pickerDiv.style.display == "block" ? "none" : "block"
;pickerDiv.style.zIndex = 10000;
// draw the datepicker table
refreshDatePicker(targetDateField.name, dt.getFullYear(), dt.getMonth(), dt.getDate());
}
/**
This is the function that actually draws the datepicker calendar.
*/
function refreshDatePicker(dateFieldName, year, month, day)
{
// if no arguments are passed, use today's date; otherwise, month and year
// are required (if a day is passed, it will be highlighted later)
var thisDay = new Date();
if ((month >= 0) && (year > 0)) {
thisDay = new Date(year, month, 1);
} else {
day = thisDay.getDate();
thisDay.setDate(1);
}
// the calendar will be drawn as a table
// you can customize the table elements with a global CSS style sheet,
// or by hardcoding style and formatting elements below
var crlf = "\r\n";
var TABLE = "<table cols=7 class='dpTable'>" + crlf;
var xTABLE = "</table>" + crlf;
var TR = "<tr class='dpTR'>";
var TR_title = "<tr class='dpTitleTR'>";
var TR_days = "<tr class='dpDayTR'>";
var TR_todaybutton = "<tr class='dpTodayButtonTR'>";
var xTR = "</tr>" + crlf;
var TD = "<td class='dpTD' onMouseOut='this.className=\"dpTD\";' onMouseOver=' this.className=\"dpTDHover\";' "; // leave this tag open, because we'll be adding an onClick event
var TD_title = "<td colspan=5 class='dpTitleTD'>";
var TD_buttons = "<td class='dpButtonTD'>";
var TD_todaybutton = "<td colspan=7 class='dpTodayButtonTD'>";
var TD_days = "<td class='dpDayTD'>";
var TD_selected = "<td class='dpDayHighlightTD' onMouseOut='this.className=\"dpDayHighlightTD\";' onMouseOver='this.className=\"dpTDHover\";' "; // leave this tag open, because we'll be adding an onClick event
var xTD = "</td>" + crlf;
var DIV_title = "<div class='dpTitleText'>";
var DIV_selected = "<div class='dpDayHighlight'>";
var xDIV = "</div>";
// start generating the code for the calendar table
var html = TABLE;
// this is the title bar, which displays the month and the buttons to
// go back to a previous month or forward to the next month
html += TR_title;
html += TD_buttons + getButtonCode(dateFieldName, thisDay, -1, "<"
+ xTD;html += TD_title + DIV_title + monthArrayLong[ thisDay.getMonth()] + " " + thisDay.getFullYear() + xDIV + xTD;
html += TD_buttons + getButtonCode(dateFieldName, thisDay, 1, ">"
+ xTD;html += xTR;
// this is the row that indicates which day of the week we're on
html += TR_days;
for(i = 0; i < dayArrayShort.length; i++)
html += TD_days + dayArrayShort[i] + xTD;
html += xTR;
// now we'll start populating the table with days of the month
html += TR;
// first, the leading blanks
for (i = 0; i < thisDay.getDay(); i++)
html += TD + " " + xTD;
// now, the days of the month
do {
dayNum = thisDay.getDate();
TD_onclick = " onclick=\"updateDateField('" + dateFieldName + "', '" + getDateString(thisDay) + "');\">";
if (dayNum == day)
html += TD_selected + TD_onclick + DIV_selected + dayNum + xDIV + xTD;
else
html += TD + TD_onclick + dayNum + xTD;
// if this is a Saturday, start a new row
if (thisDay.getDay() == 6)
html += xTR + TR;
// increment the day
thisDay.setDate(thisDay.getDate() + 1);
} while (thisDay.getDate() > 1)
// fill in any trailing blanks
if (thisDay.getDay() > 0) {
for (i = 6; i > thisDay.getDay(); i--)
html += TD + " " + xTD;
}
html += xTR;
// add a button to allow the user to easily return to today, or close the calendar
var today = new Date();
var todayString = "Today is " + dayArrayMed[today.getDay()] + ", " + monthArrayMed[ today.getMonth()] + " " + today.getDate();
html += TR_todaybutton + TD_todaybutton;
html += "<button class='dpTodayButton' onClick='refreshDatePicker(\"" + dateFieldName + "\"
;'>this month</button> ";html += "<button class='dpTodayButton' onClick='updateDateField(\"" + dateFieldName + "\"
;'>close</button>";html += xTD + xTR;
// and finally, close the table
html += xTABLE;
document.getElementById(datePickerDivID).innerHTML = html;
// add an "iFrame shim" to allow the datepicker to display above selection lists
adjustiFrame();
}
/**
Convenience function for writing the code for the buttons that bring us back or forward
a month.
*/
function getButtonCode(dateFieldName, dateVal, adjust, label)
{
var newMonth = (dateVal.getMonth () + adjust) % 12;
var newYear = dateVal.getFullYear() + parseInt((dateVal.getMonth() + adjust) / 12);
if (newMonth < 0) {
newMonth += 12;
newYear += -1;
}
return "<button class='dpButton' onClick='refreshDatePicker(\"" + dateFieldName + "\", " + newYear + ", " + newMonth + "
;'>" + label + "</button>";}
/**
Convert a JavaScript Date object to a string, based on the dateFormat and dateSeparator
variables at the beginning of this script library.
*/
function getDateString(dateVal)
{
var dayString = "00" + dateVal.getDate();
var monthString = "00" + (dateVal.getMonth()+1);
dayString = dayString.substring(dayString.length - 2);
monthString = monthString.substring(monthString.length - 2);
switch (dateFormat) {
case "dmy" :
return dayString + dateSeparator + monthString + dateSeparator + dateVal.getFullYear();
case "ymd" :
return dateVal.getFullYear() + dateSeparator + monthString + dateSeparator + dayString;
case "mdy" :
default :
return monthString + dateSeparator + dayString + dateSeparator + dateVal.getFullYear();
}
}
/**
Convert a string to a JavaScript Date object.
*/
function getFieldDate(dateString)
{
var dateVal;
var dArray;
var d, m, y;
try {
dArray = splitDateString(dateString);
if (dArray) {
switch (dateFormat) {
case "dmy" :
d = parseInt(dArray[0], 10);
m = parseInt(dArray[1], 10) - 1;
y = parseInt(dArray[2], 10);
break;
case "ymd" :
d = parseInt(dArray[2], 10);
m = parseInt(dArray[1], 10) - 1;
y = parseInt(dArray[0], 10);
break;
case "mdy" :
default :
d = parseInt(dArray[1], 10);
m = parseInt(dArray[0], 10) - 1;
y = parseInt(dArray[2], 10);
break;
}
dateVal = new Date(y, m, d);
} else if (dateString) {
dateVal = new Date(dateString);
} else {
dateVal = new Date();
}
} catch(e) {
dateVal = new Date();
}
return dateVal;
}
/**
Try to split a date string into an array of elements, using common date separators.
If the date is split, an array is returned; otherwise, we just return false.
*/
function splitDateString(dateString)
{
var dArray;
if (dateString.indexOf("/"
>= 0)dArray = dateString.split("/"
;else if (dateString.indexOf("."
>= 0)dArray = dateString.split("."
;else if (dateString.indexOf("-"
>= 0)dArray = dateString.split("-"
;else if (dateString.indexOf("\\"
>= 0)dArray = dateString.split("\\"
;else
dArray = false;
return dArray;
}
/**
Update the field with the given dateFieldName with the dateString that has been passed,
and hide the datepicker. If no dateString is passed, just close the datepicker without
changing the field value.
Also, if the page developer has defined a function called datePickerClosed anywhere on
the page or in an imported library, we will attempt to run that function with the updated
field as a parameter. This can be used for such things as date validation, setting default
values for related fields, etc. For example, you might have a function like this to validate
a start date field:
function datePickerClosed(dateField)
{
var dateObj = getFieldDate(dateField.value);
var today = new Date();
today = new Date(today.getFullYear(), today.getMonth(), today.getDate());
if (dateField.name == "StartDate"
{if (dateObj < today) {
// if the date is before today, alert the user and display the datepicker again
alert("Please enter a date that is today or later"
;dateField.value = "";
document.getElementById(datePickerDivID).style.visibility = "visible";
adjustiFrame();
} else {
// if the date is okay, set the EndDate field to 7 days after the StartDate
dateObj.setTime(dateObj.getTime() + (7 * 24 * 60 * 60 * 1000));
var endDateField = document.getElementsByName ("EndDate"
.item(0);endDateField.value = getDateString(dateObj);
}
}
}
*/
function updateDateField(dateFieldName, dateString)
{
var targetDateField = document.getElementsByName (dateFieldName).item(0);
if (dateString)
targetDateField.value = dateString;
var pickerDiv = document.getElementById(datePickerDivID);
pickerDiv.style.visibility = "hidden";
pickerDiv.style.display = "none";
adjustiFrame();
targetDateField.focus();
// after the datepicker has closed, optionally run a user-defined function called
// datePickerClosed, passing the field that was just updated as a parameter
// (note that this will only run if the user actually selected a date from the datepicker)
if ((dateString) && (typeof(datePickerClosed) == "function"
)datePickerClosed(targetDateField);
}
/**
Use an "iFrame shim" to deal with problems where the datepicker shows up behind
selection list elements, if they're below the datepicker. The problem and solution are
described at:
dotnetjunkies.com/WebLog/jking/archive/2003/07/21/488.aspx
dotnetjunkies.com/WebLog/jking/archive/2003/10/30/2975.aspx
*/
function adjustiFrame(pickerDiv, iFrameDiv)
{
// we know that Opera doesn't like something about this, so if we
// think we're using Opera, don't even try
var is_opera = (navigator.userAgent.toLowerCase().indexOf("opera"
!= -1);if (is_opera)
return;
// put a try/catch block around the whole thing, just in case
try {
if (!document.getElementById(iFrameDivID)) {
// don't use innerHTML to update the body, because it can cause global variables
// that are currently pointing to objects on the page to have bad references
//document.body.innerHTML += "<iframe id='" + iFrameDivID + "' src='javascript:false;' scrolling='no' frameborder='0'>";
var newNode = document.createElement("iFrame"
;newNode.setAttribute("id", iFrameDivID);
newNode.setAttribute("src", "javascript:false;"
;newNode.setAttribute("scrolling", "no"
;newNode.setAttribute ("frameborder", "0"
;document.body.appendChild(newNode);
}
if (!pickerDiv)
pickerDiv = document.getElementById(datePickerDivID);
if (!iFrameDiv)
iFrameDiv = document.getElementById(iFrameDivID);
try {
iFrameDiv.style.position = "absolute";
iFrameDiv.style.width = pickerDiv.offsetWidth;
iFrameDiv.style.height = pickerDiv.offsetHeight ;
iFrameDiv.style.top = pickerDiv.style.top;
iFrameDiv.style.left = pickerDiv.style.left;
iFrameDiv.style.zIndex = pickerDiv.style.zIndex - 1;
iFrameDiv.style.visibility = pickerDiv.style.visibility ;
iFrameDiv.style.display = pickerDiv.style.display;
} catch(e) {
}
} catch (ee) {
}
}
</script>
<style>
body {
font-family: Verdana, Tahoma, Arial, Helvetica, sans-serif;
font-size: .8em;
}
/* the div that holds the date picker calendar */
.dpDiv {
}
/* the table (within the div) that holds the date picker calendar */
.dpTable {
font-family: Tahoma, Arial, Helvetica, sans-serif;
font-size: 12px;
text-align: center;
color: #505050;
background-color: #ece9d8;
border: 1px solid #AAAAAA;
}
/* a table row that holds date numbers (either blank or 1-31) */
.dpTR {
}
/* the top table row that holds the month, year, and forward/backward buttons */
.dpTitleTR {
}
/* the second table row, that holds the names of days of the week (Mo, Tu, We, etc.) */
.dpDayTR {
}
/* the bottom table row, that has the "This Month" and "Close" buttons */
.dpTodayButtonTR {
}
/* a table cell that holds a date number (either blank or 1-31) */
.dpTD {
border: 1px solid #ece9d8;
}
/* a table cell that holds a highlighted day (usually either today's date or the current date field value) */
.dpDayHighlightTD {
background-color: #CCCCCC;
border: 1px solid #AAAAAA;
}
/* the date number table cell that the mouse pointer is currently over (you can use contrasting colors to make it apparent which cell is being hovered over) */
.dpTDHover {
background-color: #aca998;
border: 1px solid #888888;
cursor: pointer;
color: red;
}
/* the table cell that holds the name of the month and the year */
.dpTitleTD {
}
/* a table cell that holds one of the forward/backward buttons */
.dpButtonTD {
}
/* the table cell that holds the "This Month" or "Close" button at the bottom */
.dpTodayButtonTD {
}
/* a table cell that holds the names of days of the week (Mo, Tu, We, etc.) */
.dpDayTD {
background-color: #CCCCCC;
border: 1px solid #AAAAAA;
color: white;
}
/* additional style information for the text that indicates the month and year */
.dpTitleText {
font-size: 12px;
color: gray;
font-weight: bold;
}
/* additional style information for the cell that holds a highlighted day (usually either today's date or the current date field value) */
.dpDayHighlight {
color: 4060ff;
font-weight: bold;
}
/* the forward/backward buttons at the top */
.dpButton {
font-family: Verdana, Tahoma, Arial, Helvetica, sans-serif;
font-size: 10px;
color: gray;
background: #d8e8ff;
font-weight: bold;
padding: 0px;
}
/* the "This Month" and "Close" buttons at the bottom */
.dpTodayButton {
font-family: Verdana, Tahoma, Arial, Helvetica, sans-serif;
font-size: 10px;
color: gray;
background: #d8e8ff;
font-weight: bold;
}
</style>
<body>
<form ACTION="<%=MM_editAction%>" METHOD="POST" id="insert" name="insert">
<table border="0" cellpadding="5" cellspacing="0">
<tr>
<td>Date</td>
<td>
<input name="Date">
<input type=button value="select" onclick="displayDatePicker('Date', this);">
</td>
<td align="center">Comments</td>
</tr>
<tr>
<td>Anesthesiologist 1st</td>
<td><input type="text" name="ANES 1ST" id="ANES 1ST" tabindex="2"/></td>
<td><input type="text" name="COMMENT1" id="COMMENT1" /></td>
</tr>
<tr>
<td>Anesthesiologist 1st</td>
<td><input type="text" name="ANES 2ND" id="ANES 2ND" tabindex="3"/></td>
<td><input type="text" name="COMMENT1" id="COMMENT2" /></td>
</tr>
<tr>
<td>Anesthesiologist 1st</td>
<td><input type="text" name="ANES 3RD" id="ANES 3RD" tabindex="4"/></td>
<td><input type="text" name="COMMENT1" id="COMMENT3" /></td>
</tr>
<tr>
<td>RN 1st</td>
<td><input type="text" name="RN 1ST" id="RN 1ST" tabindex="5"/></td>
<td><input type="text" name="COMMENT1" id="COMMENT4" /></td>
</tr>
<tr>
<td>RN 2nd</td>
<td><input type="text" name="RN 2ND" id="RN 2ND" tabindex="6"/></td>
<td><input type="text" name="COMMENT1" id="COMMENT5" /></td>
</tr>
<tr>
<td>ST 1st</td>
<td><input type="text" name="ST 1ST" id="ST 1ST" tabindex="7"/></td>
<td><input type="text" name="COMMENT1" id="COMMENT6" /></td>
</tr>
<tr>
<td>ST 2nd</td>
<td><input type="text" name="ST 2ND" id="ST 2ND" tabindex="8"/></td>
<td><input type="text" name="COMMENT1" id="COMMENT7" /></td>
</tr>
<tr>
<td>Cardiologist</td>
<td><input type="text" name="CARDIO 1" id="CARDIO 1" tabindex="9"/></td>
<td><input type="text" name="COMMENT1" id="COMMENT8" /></td>
</tr>
<tr>
<td>Cardiologist</td>
<td><input type="text" name="CARDIO 2" id="CARDIO 2" tabindex="10"/></td>
<td><input type="text" name="COMMENT1" id="COMMENT9" /></td>
</tr>
<tr>
<td>Cardiologist</td>
<td><input type="text" name="CARDIO 3" id="CARDIO 3" tabindex="11"/></td>
<td><input type="text" name="COMMENT1" id="COMMENT10" /></td>
</tr>
<tr>
<td>Cardiologist</td>
<td><input type="text" name="CARDIO 4" id="CARDIO 4" tabindex="12"/></td>
<td><input type="text" name="COMMENT1" id="COMMENT11" /></td>
</tr>
<tr>
<td>Cardiologist</td>
<td><input type="text" name="CARDIO 5" id="CARDIO 5" tabindex="13"/></td>
<td><input type="text" name="COMMENT1" id="COMMENT12" /></td>
</tr>
<tr>
<td>Perfusionist</td>
<td><input type="text" name="PERF" id="PERF" tabindex="14"/></td>
<td><input type="text" name="COMMENT1" id="COMMENT13" /></td>
</tr>
<tr>
<td>Perfusionist Assistant</td>
<td><input type="text" name="PERF ASSIS" id="PERF ASSIS" tabindex="15"/></td>
<td><input type="text" name="COMMENT1" id="COMMENT14" /></td>
</tr>
<tr>
<td>SP</td>
<td><input type="text" name="SP" id="SP" tabindex="16"/></td>
<td><input type="text" name="COMMENT1" id="COMMENT15" /></td>
</tr>
<tr>
<td>PACU</td>
<td><input type="text" name="PACU" id="PACU" tabindex="17"/></td>
<td><input type="text" name="COMMENT1" id="COMMENT16" /></td>
</tr>
<tr>
<td>X-RAY</td>
<td><input type="text" name="XRAY" id="XRAY" tabindex="18"/></td>
<td><input type="text" name="COMMENT1" id="COMMENT17" /></td>
</tr>
<tr>
<td>US</td>
<td><input type="text" name="US" id="US" tabindex="19"/></td>
<td><input type="text" name="COMMENT1" id="COMMENT18" /></td>
</tr>
<tr>
<td>CT</td>
<td><input type="text" name="CT" id="CT" tabindex="20"/></td>
<td><input type="text" name="COMMENT1" id="COMMENT19" /></td>
</tr>
<tr>
<td>Nuclear</td>
<td><input type="text" name="NUCLEAR" id="NUCLEAR" tabindex="21"/></td>
<td><input type="text" name="COMMENT1" id="COMMENT20" /></td>
</tr>
<tr>
<td>MRI</td>
<td><input type="text" name="MRI" id="MRI" tabindex="22"/></td>
<td><input type="text" name="COMMENT1" id="COMMENT21" /></td>
</tr>
<tr>
<td>Echo Vascular</td>
<td><input type="text" name="ECHO" id="ECHO" tabindex="23"/></td>
<td><input type="text" name="COMMENT1" id="COMMENT22" /></td>
</tr>
<tr>
<td>Angiocath</td>
<td><input type="text" name="ANGIO 1" id="ANGIO 1" tabindex="24"/></td>
<td><input type="text" name="COMMENT1" id="COMMENT23" /></td>
</tr>
<tr>
<td>Angiocath</td>
<td><input type="text" name="ANGIO 2" id="ANGIO 2" tabindex="25"/></td>
<td><input type="text" name="COMMENT1" id="COMMENT24" /></td>
</tr>
<tr>
<td>Angiocath</td>
<td><input type="text" name="ANGIO 3" id="ANGIO 3" tabindex="26"/></td>
<td><input type="text" name="COMMENT1" id="COMMENT25" /></td>
</tr>
<tr>
<td>ONC</td>
<td><input type="text" name="ONC" id="ONC" tabindex="27"/></td>
<td><input type="text" name="COMMENT1" id="COMMENT26" /></td>
</tr>
<tr>
<td>HHC</td>
<td><input type="text" name="HHC" id="HHC" tabindex="28"/></td>
<td><input type="text" name="COMMENT1" id="COMMENT27" /></td>
</tr>
<tr>
<td>Speech</td>
<td><input type="text" name="SPEECH" id="SPEECH" tabindex="29"/></td>
<td><input type="text" name="COMMENT1" id="COMMENT28" /></td>
</tr>
<tr>
<td>Plant Services</td>
<td><input type="text" name="PLANT" id="PLANT" tabindex="30"/></td>
<td><input type="text" name="COMMENT1" id="COMMENT29" /></td>
</tr>
<tr>
<td>Chaplin</td>
<td><input type="text" name="CHAP" id="CHAP" tabindex="31"/></td>
<td><input type="text" name="COMMENT1" id="COMMENT30" /></td>
</tr>
<tr>
<td colspan="2"><input type="submit" value="Submit" /></td>
</tr>
</table>
<input type="hidden" name="MM_insert" value="insert" />
</form>
</body>
</html>
</font id=code></pre id=code>
Any Ideas??
Edited by - HisWatchman on 26 Oct 2007 22:44:54