I keep getting an error after i try to edit my data
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../Connections/dsuFacStaff.asp" -->
<%
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_dsuFacStaff_STRING
MM_editCmd.CommandText = "UPDATE Directory SET displaytelephone = ?, displayhomeadd = ?, perferredaddress = ?, otheraddress = ?, FirstName = ?, LastName = ?, Title = ?, SpouseName = ?, Address = ?, City = ?, St = ?, Zip = ?, EmailAddress = ?, WorkPhone = ?, HomePhone = ?, [Position] = ?, Location = ?, Department = ?, Organization = ?, DateEdited = ?, Updated = ? WHERE ID = ?"
MM_editCmd.Prepared = true
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 202, 1, 255, MM_IIF(Request.Form("displaytelephone"), "Y", "N")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 202, 1, 255, MM_IIF(Request.Form("displayhomeadd"), "Y", "N")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 202, 1, 255, Request.Form("PreferredAddress")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 203, 1, 1073741823, Request.Form("otherAddress")) ' adLongVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param5", 202, 1, 255, Request.Form("FirstName")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param6", 202, 1, 255, Request.Form("LastName")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param7", 202, 1, 255, Request.Form("Title")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param8", 202, 1, 255, Request.Form("Spouse")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param9", 202, 1, 255, Request.Form("Address")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param10", 202, 1, 255, Request.Form("City")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param11", 202, 1, 255, Request.Form("St")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param12", 202, 1, 255, Request.Form("Zip")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param13", 202, 1, 255, Request.Form("EmailAddress")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param14", 202, 1, 255, Request.Form("WorkPhone")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param15", 202, 1, 255, Request.Form("HomePhone")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param16", 202, 1, 255, Request.Form("Position")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param17", 202, 1, 255, Request.Form("Location")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param18", 202, 1, 255, Request.Form("Department")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param19", 202, 1, 255, Request.Form("Organization")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param20", 135, 1, -1, MM_IIF(Request.Form("DateEdited"), Request.Form("DateEdited"), null)) ' adDBTimeStamp
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param21", 202, 1, 255, MM_IIF(Request.Form("updated"), "Y", "N")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param22", 5, 1, -1, MM_IIF(Request.Form("MM_recordId"), Request.Form("MM_recordId"), null)) ' adDouble
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
' append the query string to the redirect URL
Dim MM_editRedirectUrl
MM_editRedirectUrl = "Thanks.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
%>
<%
Dim Directory__MMColParam
Directory__MMColParam = "1"
If (Request.QueryString("ID") <> "") Then
Directory__MMColParam = Request.QueryString("ID")
End If
%>
<%
Dim Directory
Dim Directory_cmd
Dim Directory_numRows
Set Directory_cmd = Server.CreateObject ("ADODB.Command")
Directory_cmd.ActiveConnection = MM_dsuFacStaff_STRING
Directory_cmd.CommandText = "SELECT * FROM Directory WHERE ID = ?"
Directory_cmd.Prepared = true
Directory_cmd.Parameters.Append Directory_cmd.CreateParameter("param1", 5, 1, -1, Directory__MMColParam) ' adDouble
Set Directory = Directory_cmd.Execute
Directory_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=iso-8859-1" />
<title>Untitled Document</title>
<script language="JavaScript">
function showhidefield()
{
if (document.form1.displayhomeadd.checked)
{
document.getElementById("hideablearea").style.visibility = "visible";
var selObj = document.getElementById("PreferredAddress");
selObj.selectedIndex = 0;
}
else
{
var selObj = document.getElementById("PreferredAddress");
selObj.selectedIndex = 1;
document.getElementById("hideablearea").style.visibility = "hidden";
}
}
function checkCheck()
{
if (document.form1.displayhomeadd.checked)
{
document.getElementById("hideablearea").style.visibility = "visible";
var selObj = document.getElementById("PreferredAddress");
selObj.selectedIndex = 0;
}
else
{
document.getElementById("hideablearea").style.visibility = "hidden";
var selObj = document.getElementById("PreferredAddress");
selObj.selectedIndex = 1;
}
}
</script>
</head>
<body onload="checkCheck()" >
<table width="100%" border="1" cellspacing="0" cellpadding="2" bordercolor="#829BB0">
<tr>
<td colspan="2"><img src="http://www.webmaster-talk.com/images/DSU_LLL.jpg" alt="DSU" width="300" height="110"><strong><font face="Arial, Helvetica, sans-serif"> Employee Directory Administration</font></strong></td>
</tr>
<% IF Request.QueryString("ID") = "" then %>
<tr>
<td colspan="2" bgcolor="#FFFF99"><center>
<strong><a href="index.asp"><font color="#CC0000" face="Arial, Helvetica, sans-serif">You are not logged in. Please click here to log in.</font></a></strong>
</center></td>
</tr>
<% ELSE %>
<tr valign="top">
<td width="15%" bgcolor="#000066">
<div align="center">
<div id="overDiv" style="position:absolute; visibility:hidden; z-index:1000;"></div>
<font color="#FFFFFF"><b><font face="Verdana, Arial, Helvetica, sans-serif"><i><font size="3">Welcome<br />
<font size="2"><%=(Directory.Fields.Item("FirstName").Value)%> <%=(Directory.Fields.Item("LastName").Value)%></font></font></i></font></b></font></div> </td>
<td width="85%"><p><font size="-1" face="Arial, Helvetica, sans-serif">Personal information about DSU employees is used in a number of ways and in various means of communication, (e.g. mail, e-mail, Web site and telephone directory). As an employee of DSU and the state of North Dakota, you are required to provide certain personal information (e.g., name, title, office location and office phone number) while other information is optional, (e.g., home address, home phone number, etc.) or confidential (e.g., Social Security Number, date of birth). </font></p>
<p><font size="-1" face="Arial, Helvetica, sans-serif">Per the North Dakota Century Code 44-04-18.1, personal information regarding a public employee contained in an employee’s personnel record shall remain confidential. Release of a person’s home address and home telephone number are optional.</font></p>
<form id="form1" name="form1" method="POST" action="<%=MM_editAction%>">
<table border="1" cellpadding="0" cellspacing="0" bordercolor="#CCCCCC">
<tr>
<td colspan="4" bordercolor="#E8EEFD" bgcolor="#E8EEFD"><p><font size="-1" face="Arial, Helvetica, sans-serif">DSU is being proactive in protecting its employees’ personal information. We need you to indicate how much personal information can be released to DSU constituencies and to external sources (e.g., Balfour and NDPEA) affiliated with DSU. </font><br />
<font size="-1" face="Arial, Helvetica, sans-serif"><font color="#000099"> <br />
By checking the boxes below, you authorize DSU to use the following information in the DSU phone directory and departmental mailings, on the DSU Web site and with external sources.</font> (Please check one or more)</font><br />
<font size="-1" face="Arial, Helvetica, sans-serif">
<input <%If (CStr((Directory.Fields.Item("displaytelephone").Value & "")) = CStr("Y")) Then Response.Write("checked=""checked""") : Response.Write("")%> name="displaytelephone" type="checkbox" id="displaytelephone" value="Yes" />
<strong>Home Phone </strong>
<input <%If (CStr((Directory.Fields.Item("displayhomeadd").Value & "")) = CStr("Y")) Then Response.Write("checked=""checked""") : Response.Write("")%> name="displayhomeadd" type="checkbox" id="displayhomeadd" value="Yes" onclick="showhidefield()" />
<strong>Home Address</strong></font><font color="#000099"><br />
<font size="-1" face="Arial, Helvetica, sans-serif">If you do not check the above box(es), the Office of University Relations will only share your campus address and campus telephone number with DSU constituencies and external sources. All marketing mail will be sent to your campus address.</font></font></p>
<p><font size="-1" face="Arial, Helvetica, sans-serif">The Office of Human Resources maintains the confidential information each employee is required to provide. The home address and home telephone number will be used for important mailings such as W-2 forms, benefits information from NDPERS and health insurance information from Blue Cross Blue Shield of North Dakota. Inform this office promptly when your home address changes so you can continue to receive relevant mailings.</font><br />
<div id="hideablearea" style="visibility:hidden"><font size="-1" face="Arial, Helvetica, sans-serif"><strong>I would prefer my mail to be sent to the following address:
<select name="PreferredAddress" id="PreferredAddress">
<option value="notSelected">Select one...</option>
<option value="DSU" <%If (Not isNull((Directory.Fields.Item("perferredaddress").Value))) Then If ("DSU" = CStr((Directory.Fields.Item("perferredaddress").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>>DSU</option>
<option value="Home" <%If (Not isNull((Directory.Fields.Item("perferredaddress").Value))) Then If ("Home" = CStr((Directory.Fields.Item("perferredaddress").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>>Home</option>
<option value="Other" <%If (Not isNull((Directory.Fields.Item("perferredaddress").Value))) Then If ("Other" = CStr((Directory.Fields.Item("perferredaddress").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>>Other</option>
</select>
</strong></font><font size="-1" face="Arial, Helvetica, sans-serif">
<br />
If other address, please specify:
<input name="otherAddress" type="text" id="otherAddress" value="<%=(Directory.Fields.Item("otherAddress").Value)%>" size="40" />
</font></div></p></td>
</tr>
<tr>
<td colspan="4" nowrap="nowrap" bordercolor="#FFFFCC" bgcolor="#FFFF99"><strong><font color="#990000" face="Arial, Helvetica, sans-serif">Please review the following information, and make changes as needed:</font></strong> </td>
</tr>
<tr>
<td nowrap="nowrap" bordercolor="#E8EEFD" bgcolor="#E8EEFD"><strong><font size="-1" face="Arial, Helvetica, sans-serif">First Name</font></strong></td>
<td nowrap="nowrap" bordercolor="#E8EEFD" bgcolor="#E8EEFD"><strong><font size="-1" face="Arial, Helvetica, sans-serif">Last Name</font></strong></td>
<td nowrap="nowrap" bordercolor="#E8EEFD" bgcolor="#E8EEFD"><strong><font size="-1" face="Arial, Helvetica, sans-serif">Title</font></strong></td>
<td nowrap="nowrap" bordercolor="#E8EEFD" bgcolor="#E8EEFD"><strong><font size="-1" face="Arial, Helvetica, sans-serif">Spouse <font color="#CC0000">*</font> </font></strong></td>
</tr>
<tr>
<td nowrap="nowrap" bordercolor="#E8EEFD"><font size="-1" face="Arial, Helvetica, sans-serif">
<input name="FirstName" type="text" id="FirstName" value="<%=(Directory.Fields.Item("FirstName").Value)%>" size="20" />
</font></td>
<td nowrap="nowrap" bordercolor="#E8EEFD"><font size="-1" face="Arial, Helvetica, sans-serif">
<input name="LastName" type="text" id="LastName" value="<%=(Directory.Fields.Item("LastName").Value)%>" size="20" />
</font></td>
<td nowrap="nowrap" bordercolor="#E8EEFD"><font size="-1" face="Arial, Helvetica, sans-serif">
<select name="Title" id="Title">
<option value="Mr." <%If (Not isNull((Directory.Fields.Item("Title").Value))) Then If ("Mr." = CStr((Directory.Fields.Item("Title").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>>Mr.</option>
<option value="Ms." <%If (Not isNull((Directory.Fields.Item("Title").Value))) Then If ("Ms." = CStr((Directory.Fields.Item("Title").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>>Ms.</option>
<option value="Dr." <%If (Not isNull((Directory.Fields.Item("Title").Value))) Then If ("Dr." = CStr((Directory.Fields.Item("Title").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>>Dr.</option>
<option value="Sr." <%If (Not isNull((Directory.Fields.Item("Title").Value))) Then If ("Sr." = CStr((Directory.Fields.Item("Title").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>>Sr.</option>
<option value="" <%If (Not isNull((Directory.Fields.Item("Title").Value))) Then If ("" = CStr((Directory.Fields.Item("Title").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>>N/A</option>
</select>
</font></td>
<td nowrap="nowrap" bordercolor="#E8EEFD"><font size="-1" face="Arial, Helvetica, sans-serif">
<input name="Spouse" type="text" id="Spouse" value="<%=(Directory.Fields.Item("SpouseName").Value)%>" size="20" />
</font></td>
</tr>
<tr>
<td colspan="4" bordercolor="#E8EEFD" bgcolor="#FFFFFF"><p align="right"><em><font color="#CC0000" size="-1">*Spouse information will only be used for special mailings<br />
(e.g. Holiday card)
in which you and your spouse will be addressed.</font></em></p></td>
</tr>
<tr>
<td nowrap="nowrap" bordercolor="#E8EEFD" bgcolor="#E8EEFD"><strong><font size="-1" face="Arial, Helvetica, sans-serif">Address</font></strong></td>
<td nowrap="nowrap" bordercolor="#E8EEFD" bgcolor="#E8EEFD"><strong><font size="-1" face="Arial, Helvetica, sans-serif">City</font></strong></td>
<td nowrap="nowrap" bordercolor="#E8EEFD" bgcolor="#E8EEFD"><strong><font size="-1" face="Arial, Helvetica, sans-serif">State</font></strong></td>
<td nowrap="nowrap" bordercolor="#E8EEFD" bgcolor="#E8EEFD"><strong><font size="-1" face="Arial, Helvetica, sans-serif">Zip</font></strong></td>
</tr>
<tr>
<td nowrap="nowrap" bordercolor="#E8EEFD"><font size="-1" face="Arial, Helvetica, sans-serif">
<textarea name="Address" cols="30" rows="2" id="Address"><%=(Directory.Fields.Item("Address").Value)%></textarea>
</font></td>
<td nowrap="nowrap" bordercolor="#E8EEFD"><font size="-1" face="Arial, Helvetica, sans-serif">
<input name="City" type="text" id="City" value="<%=(Directory.Fields.Item("City").Value)%>" size="20" />
</font></td>
<td nowrap="nowrap" bordercolor="#E8EEFD"><font size="-1" face="Arial, Helvetica, sans-serif">
<input name="St" type="text" id="St" value="<%=(Directory.Fields.Item("St").Value)%>" size="2" />
</font></td>
<td nowrap="nowrap" bordercolor="#E8EEFD"><font size="-1" face="Arial, Helvetica, sans-serif">
<input name="Zip" type="text" id="Zip" value="<%=(Directory.Fields.Item("Zip").Value)%>" size="10" />
</font></td>
</tr>
<tr>
<td nowrap="nowrap" bordercolor="#E8EEFD" bgcolor="#E8EEFD"><strong><font size="-1" face="Arial, Helvetica, sans-serif">Email</font></strong></td>
<td nowrap="nowrap" bordercolor="#E8EEFD" bgcolor="#E8EEFD"><strong><font size="-1" face="Arial, Helvetica, sans-serif">Work Phone </font></strong></td>
<td nowrap="nowrap" bordercolor="#E8EEFD" bgcolor="#E8EEFD"><font size="-1" face="Arial, Helvetica, sans-serif"><strong>Home Phone</strong></font></td>
</tr>
<tr>
<td nowrap="nowrap" bordercolor="#E8EEFD"><font size="-1" face="Arial, Helvetica, sans-serif">
<input name="EmailAddress" type="text" id="EmailAddress" value="<%=(Directory.Fields.Item("EmailAddress").Value)%>" size="35" />
</font></td>
<td nowrap="nowrap" bordercolor="#E8EEFD"><font size="-1" face="Arial, Helvetica, sans-serif">
<input name="WorkPhone" type="text" id="WorkPhone" value="<%=(Directory.Fields.Item("WorkPhone").Value)%>" size="20" />
</font></td>
<td nowrap="nowrap" bordercolor="#E8EEFD"><font size="-1" face="Arial, Helvetica, sans-serif">
<input name="HomePhone" type="text" id="HomePhone" value="<%=(Directory.Fields.Item("HomePhone").Value)%>" size="20" />
</font></td>
</tr>
<tr>
<td colspan="4" bordercolor="#E8EEFD" bgcolor="#E8EEFD"><strong><font size="-1" face="Arial, Helvetica, sans-serif">Position</font></strong></td>
</tr>
<tr>
<td colspan="4" bordercolor="#E8EEFD"><font size="-1" face="Arial, Helvetica, sans-serif">
<input name="Position" type="text" id="Position" value="<%=(Directory.Fields.Item("Position").Value)%>" size="100" />
</font></td>
</tr>
<tr>
<td colspan="4" bordercolor="#E8EEFD" bgcolor="#E8EEFD"><strong><font size="-1" face="Arial, Helvetica, sans-serif">Location</font></strong></td>
</tr>
<tr>
<td colspan="4" bordercolor="#E8EEFD"><font size="-1" face="Arial, Helvetica, sans-serif">
<input name="Location" type="text" id="Location" value="<%=(Directory.Fields.Item("Location").Value)%>" size="100" />
</font></td>
</tr>
<tr>
<td colspan="4" bordercolor="#E8EEFD" bgcolor="#FFFFFF"><strong><font size="-1" face="Arial, Helvetica, sans-serif">Department</font></strong></td>
</tr>
<tr>
<td colspan="4" bordercolor="#E8EEFD"><font size="-1" face="Arial, Helvetica, sans-serif">
<input name="Department" type="text" id="Department" value="<%=(Directory.Fields.Item("Department").Value)%>" size="100" />
</font></td>
</tr>
<tr>
<td colspan="4" bordercolor="#E8EEFD" bgcolor="#E8EEFD"><strong><font size="-1" face="Arial, Helvetica, sans-serif">Organization</font></strong></td>
</tr>
<tr>
<td colspan="4" bordercolor="#E8EEFD"><font size="-1" face="Arial, Helvetica, sans-serif">
<select name="Organization" id="Organization">
<option value="Adj" <%If (Not isNull((Directory.Fields.Item("Organization").Value))) Then If ("Adj" = CStr((Directory.Fields.Item("Organization").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>>Adj</option>
<option value="Fac" <%If (Not isNull((Directory.Fields.Item("Organization").Value))) Then If ("Fac" = CStr((Directory.Fields.Item("Organization").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>>Fac</option>
<option value="Staff" <%If (Not isNull((Directory.Fields.Item("Organization").Value))) Then If ("Staff" = CStr((Directory.Fields.Item("Organization").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>>Staff</option>
<option value="Staff/Adj" <%If (Not isNull((Directory.Fields.Item("Organization").Value))) Then If ("Staff/Adj" = CStr((Directory.Fields.Item("Organization").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>>Staff/Adj</option>
</select>
</font></td>
</tr>
<tr>
<td colspan="4" bordercolor="#E8EEFD" bgcolor="#E8EEFD"> <p align="center"><font size="-1" face="Arial, Helvetica, sans-serif">This form remains in effect for one year or until we receive written notice from you rescinding this form.</font><font size="-1" face="Arial, Helvetica, sans-serif">For more information, contact the Office of Human Resources at 483-2476 or the Office of University Relations at 483-2787.</font>
<input type="hidden" name="DateEdited" value="<%=Date()%>"/>
</p></td>
</tr>
<tr>
<td colspan="4" bordercolor="#E8EEFD" bgcolor="#E8EEFD"><center>
<font size="-1" face="Arial, Helvetica, sans-serif">
<input type="submit" name="Submit" value="Submit" />
</font>
</center> </td>
</tr>
</table>
<input type="hidden" name="MM_update" value="form1" />
<input type="hidden" name="MM_recordId" value="<%= Directory.Fields.Item("ID").Value %>" />
</form></td>
</tr>
<% END IF %>
</table>
</body>
</html>
<%
Directory.Close()
Set Directory = Nothing
%>
View full post on Webmaster-Talk.com
after, Data, edit, error, Getting, keep
RSS Site Feed