Hi,
I keep getting a
(0x800A000D)type mismatch error when I choose from an option list anything that is over 9 characters long. The field 'status_cd' was set to nvarchar (9); I've increased the size of the data element to be nvarchar (50);
<%@Language=VBScript%>
<%
'COMING from current form
If len(strWhichButton) = 0 Then
strWhichButton = Request.Form("txtWhichButton")
End If
strWhichProjectNumber = Request.Form("project_number")
strWhichRecord = Request.Form("txtWhichRecord")
'COMING from Submittal View, after selecting submittal record to Edit
If Request.QueryString("txtWhichButton") = "Edit" Then
strWhichButton = Request.QueryString("txtWhichButton")
strWhichRecord = Request.QueryString("txtWhichRecord")
End If
'COMING from Submittal New or Submittal Edit Form and clicking the Edit button
'PMT Change 12/6
If Request.QueryString("txtWhichButton") = "Select" Or Request.QueryString("txtWhichButton") = "PreEdit" Then
If len(Request.QueryString("txtWhichProjectNumber")) = 0 Then
strWhichButton = ""
Else
strWhichButton = "PreEdit"
strWhichProjectNumber = Request.QueryString("txtWhichProjectNumber")
End If
End If
'End Of PMT Change 12/6
'PMT Change 12/5
'COMING from Submittal Item, Reviewer and Comment View for Edit
If len(Request.QueryString("txtDoWhat")) > 0 Then
strWhichButton = "Edit"
strWhichRecord = Request.QueryString("txtWhichRecord")
End If
'End Of PMT Change 12/5
'GOING to Current or Other Form after clicking the View, New or Edit Sub Buttons
If strWhichButton = "View" Then
strWhichRecord = Request.Form("submittal_id")
Response.Redirect ("sts_submittal_view.asp?txtWhichButton=" & strWhichButton & "&txtWhichProjectNumber=" & strWhichProjectNumber & "&txtWhichRecord=" & strWhichRecord)
ElseIf strWhichButton = "New" Then
Response.Redirect ("sts_submittal_add.asp?txtWhichButton=" & strWhichButton & "&txtWhichProjectNumber=" & strWhichProjectNumber)
ElseIf strWhichButton = "Select" Then
Response.Redirect ("sts_submittal_detail_edit.asp?txtWhichButton= " & strWhichButton & "&txtWhichProjectNumber=" & strWhichProjectNumber)
End If
'GOING to Other Form after clicking Navigation Drop Down
If strWhichButton = "What" And Request.Form("do_what") <> "" Then
strDoWhat = Mid(Request.Form("do_what"),1,2)
End If
'Pass Do What, Project Number and Submittal Id
If strDoWhat = "VI" Then
Response.Redirect ("sts_submittal_items_view.asp?txtDoWhat=" & strDoWhat & "&txtWhichProjectNumber=" & strWhichProjectNumber & "&txtWhichRecord=" & strWhichRecord)
'Pass Do What, Project Number and Submittal Id
ElseIf strDoWhat = "VR" Then
Response.Redirect ("sts_submittal_reviewers_view.asp?txtDoWhat=" & strDoWhat & "&txtWhichProjectNumber=" & strWhichProjectNumber & "&txtWhichRecord=" & strWhichRecord)
'Pass Do What, Project Number and Submittal Id
ElseIf strDoWhat = "VC" Then
Response.Redirect ("sts_submittal_comments_view.asp?txtDoWhat=" & strDoWhat & "&txtWhichProjectNumber=" & strWhichProjectNumber & "&txtWhichRecord=" & strWhichRecord)
'Pass Do What, Project Number and Submittal Id
ElseIf strDoWhat = "NI" Or strDoWhat = "EI" Then
Response.Redirect ("sts_submittal_items_detail_add_edit.asp?txtDoWha t=" & strDoWhat & "&txtWhichProjectNumber=" & strWhichProjectNumber & "&txtWhichRecord=" & strWhichRecord)
'Pass Do What, Project Number and Submittal Id
ElseIf strDoWhat = "NR" Or strDoWhat = "ER" Then
Response.Redirect ("sts_submittal_reviewers_detail_add_edit.asp?txtD oWhat=" & strDoWhat & "&txtWhichProjectNumber=" & strWhichProjectNumber & "&txtWhichRecord=" & strWhichRecord)
'Pass Do What, Project Number and Submittal Id
ElseIf strDoWhat = "NC" Or strDoWhat = "EC" Then
Response.Redirect ("sts_submittal_comments_detail_add_edit.asp?txtDo What=" & strDoWhat & "&txtWhichProjectNumber=" & strWhichProjectNumber & "&txtWhichRecord=" & strWhichRecord)
End If
strSecurity = Session("security_level_cd")
strNTLogin = Session("nt_login")
%>
<html>
<head>
<meta http-equiv="Content-Language" content="en-us">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 12.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Submittal Tracking System - Submittal Detail</title>
<LINK REL=stylesheet TYPE="text/css" HREF="sts.css">
</head>
<body>
<form method="post" action="sts_submittal_detail_edit.asp" name="Form1">
<INPUT TYPE=hidden NAME=txtWhichButton>
<INPUT TYPE=hidden NAME=txtWhichRecord>
<INPUT TYPE=hidden NAME=txtSecurity VALUE=<%Response.Write strSecurity%>></>
<SCRIPT LANGUAGE="vbscript">
Sub WhichButton(anyButton)
If (anyButton = "New" And Form1.txtSecurity.value = "Entry") Then
v = MsgBox ("You don't have permissions to add or update records.",vbOKOnly, "No Permissions")
Exit Sub
End If
If anyButton = "Update" Then
If len(Form1.rgv_submittal_number.value) = 0 Or len(Form1.rgv_submittal_number.value) > 20 Then
v = MsgBox ("RGV Submittal Number up to 20 characters is required.",vbOKOnly, "Value Required")
Form1.rgv_submittal_number.focus
Exit Sub
ElseIf len(Form1.submittal_name.value) = 0 Or len(Form1.submittal_name.value) > 100 Then
v = MsgBox ("Submittal Name up to 100 characters is required.",vbOKOnly, "Value Required")
Form1.submittal_name.focus
Exit Sub
ElseIf Not IsDate(Form1.submittal_date_in.value) Then
v = MsgBox ("Submittal Date In value is required.",vbOKOnly, "Value Required")
Form1.submittal_date_in.focus
Exit Sub
ElseIf len(Form1.ext_id.value) = 0 Then
v = MsgBox ("Author Package # is required.",vbOKOnly, "Value Required")
Form1.ext_id.focus
Exit Sub
ElseIf len(Form1.submittal_date_out.value) > 0 And Not IsDate(Form1.submittal_date_out.value) Then
v = MsgBox ("If date out is populated, valid date is required.",vbOKOnly, "Value Required")
Form1.submittal_date_out.focus
Exit Sub
ElseIf IsDate(Form1.submittal_date_out.value) And len(Form1.status_cd.value) = 0 Then
v = MsgBox ("If date out is populated, status selection is required.",vbOKOnly, "Value Required")
Form1.ext_id.focus
Exit Sub
End If
End If
'If all is OK
document.forms.item("Form1").txtWhichButton.Value= anyButton
Call Form1.submit
End Sub
Sub DoWhat(anyRecord, anyButton)
document.forms.item("Form1").txtWhichRecord.Value= anyRecord
document.forms.item("Form1").txtWhichButton.Value= anyButton
Call Form1.submit
End Sub
</SCRIPT>
<script type="text/javascript" language="javascript" src="spellchecker.
js"></script>
<%strTitle = "View/Edit Submittal" %>
<td width="522" height="91">
<TABLE width="522" Class="Standard">
<%
'Button is Update
If strWhichButton = "Update" Then
strId = Request.Form("submittal_id")
'Declare recordset and string variables
Set objRS = Server.CreateObject("sts.sts_insert_update")
objRS.submittal_id = Request.Form("submittal_id")
objRS.project_number = Request.Form("project_number")
objRS.discipline_cd = Request.Form("discipline_cd")
objRS.spec_section = Request.Form("spec_section")
objRS.rgv_submittal_number = Request.Form("rgv_submittal_number")
If len(Request.Form("author_company_id")) > 0 Then
objRS.author_company_id = Request.Form("author_company_id")
End If
If len(Request.Form("author_contact_id")) > 0 Then
objRS.author_contact_id = Request.Form("author_contact_id")
End If
objRS.submittal_name = Request.Form("submittal_name")
If len(Request.Form("submittal_type_cd")) > 0 Then
objRS.submittal_type_cd = Request.Form("submittal_type_cd")
ElseIf len(Request.Form("other_submittal_type_cd")) > 0 Then
objRS.submittal_type_cd = Request.Form("other_submittal_type_cd")
End If
objRS.submittal_date_in = Request.Form("submittal_date_in")
If len(Request.Form("submittal_date_out")) > 0 Then
objRS.submittal_date_out = Request.Form("submittal_date_out")
End If
If len(Request.Form("submittal_date_in")) > 0 And len(Request.Form("submittal_date_due")) = 0 Then
strDateDue = DateAdd("d",Request.Form("turnaround_days"),Reques t.Form("submittal_date_in"))
objRS.submittal_date_due = strDateDue
ElseIf len(Request.Form("submittal_date_due")) > 0 Then
objRS.submittal_date_due = Request.Form("submittal_date_due")
End If
If len(Request.Form("equip_tag")) > 0 Then
objRS.equip_tag = Request.Form("equip_tag")
End If
If len(Request.Form("phase_cd")) > 0 Then
objRS.phase_cd = Request.Form("phase_cd")
ElseIf len(Request.Form("other_phase_cd")) > 0 Then
objRS.phase_cd = Request.Form("other_phase_cd")
End If
If len(Request.Form("status_cd")) >0 Then
objRS.status_cd = Request.Form("status_cd")
End If
objRS.ext_id = Request.Form("ext_id")
If len(Request.Form("drawing_ref")) > 0 Then
objRS.drawing_ref = Request.Form("drawing_ref")
End If
If len(Request.Form("spec_para_ref")) > 0 Then
objRS.spec_para_ref = Request.Form("spec_para_ref")
End If
If len(Request.Form("notes")) > 0 Then
objRS.notes = Request.Form("notes")
End If
'add submittal record
Call objRS.submittal_update() -- ERROR IS HERE
'add workload record
If Len(Request.Form("submittal_date_out")) > 0 Then
Set objRS = Server.CreateObject("sts.sts_insert_update")
objRS.submittal_id = strId
objRS.log_type = "Out"
objRS.nt_login = strNTLogin
Call objRS.workload_insert()
End If
%>
<tr>
<td colspan=2><b>
</td>
</tr>
<tr>
<td colspan=2 align=center><b>Your record has been updated.
<tr>
<td colspan=2><b>
</td>
</tr>
<tr>
<%
End If
%>
</td>
</tr>
<%
If strWhichButton = "Update" Or strWhichButton = "Select" Or strWhichButton = "PreEdit" or strWhichButton = "" Then
'Project drop down
Set objRS = Server.CreateObject("sts.sts_get")
Set rst = objRS.submittal_projects_get()
%>
<tr>
<td width='30%' align=right><b>Project to View/Edit:</td>
<td width='70%' align=left><SELECT NAME="project_number" onChange="WhichButton('PreEdit')"></b>
<OPTION VALUE=''>
</OPTION>
<%
'Get the project number
strProjectNumber = strWhichProjectNumber
'Populate the drop down
Do While Not rst.EOF
If rst("project_number") = strProjectNumber And (strWhichButton = "Update" Or strWhichButton = "PreEdit") Then
Response.Write "<OPTION SELECTED VALUE= '" & rst("project_number") & "'>"
Else
Response.Write "<OPTION VALUE= '" & rst("project_number") & "'>"
End If
Response.Write rst("project_number") & " " & Mid(rst("project_name"),1,50) & "</OPTION>"
rst.MoveNext
Loop
Response.Write "</SELECT></td>"
rst.Close
Set rst=nothing
'Submittal drop down
Set objRS = Server.CreateObject("sts.sts_get")
If len(strProjectNumber) = 0 Then
Set rst = objRS.submittal_rgvs_get("x")
Else
Set rst = objRS.submittal_rgvs_get(strProjectNumber)
End If
%>
<tr>
<td width='30%' align=right><b>Submittal to View/Edit:</td>
<td width='70%' align=left><SELECT NAME="submittal_id" onChange="WhichButton('Edit')"></b>
<OPTION VALUE=''>
</OPTION>
<%
'Populate the drop down
Do While Not rst.EOF
Response.Write "<OPTION VALUE= '" & rst("submittal_id") & "'>"
Response.Write rst("rgv_submittal_number") & " " & Mid(rst("submittal_name"),1,15) & "</OPTION>"
rst.MoveNext
Loop
Response.Write "</SELECT></td>"
rst.Close
Set rst=nothing
%>
<tr>
<td colspan=2><b>
</td>
</tr>
<tr>
<tr>
<TD align=center colspan=2 height="20"><INPUT TYPE='button' VALUE="View Submittal" OnClick="WhichButton('View')">
<INPUT TYPE='button' VALUE="New Submittal" OnClick="WhichButton('New')">
<INPUT TYPE='button' VALUE="Edit Submittal" OnClick="WhichButton('Select')">
<SELECT NAME="do_what">
<%If strSecurity = "Entry" Then %>
<OPTION VALUE=''></OPTION>
<OPTION VALUE= "VI">View-Items</OPTION>
<OPTION VALUE= "VR">View-Reviewers</OPTION>
<OPTION VALUE= "VC">View-Comments</OPTION>
<OPTION VALUE= "NC">New-Comment</OPTION>
<OPTION VALUE= "EI">Edit-Item</OPTION>
<OPTION VALUE= "ER">Edit-Reviewer</OPTION>
<OPTION VALUE= "EC">Edit-Comment</OPTION>
<%Else%>
<OPTION VALUE=''></OPTION>
<OPTION VALUE= "VI">View-Items</OPTION>
<OPTION VALUE= "VR">View-Reviewers</OPTION>
<OPTION VALUE= "VC">View-Comments</OPTION>
<OPTION VALUE= "NI">New-Item</OPTION>
<OPTION VALUE= "NR">New-Reviewer</OPTION>
<OPTION VALUE= "NC">New-Comment</OPTION>
<OPTION VALUE= "EI">Edit-Item</OPTION>
<OPTION VALUE= "ER">Edit-Reviewer</OPTION>
<OPTION VALUE= "EC">Edit-Comment</OPTION>
<%End If%>
</SELECT>
<INPUT TYPE='button' NAME=GoButton VALUE="Go" onClick="DoWhat '<%Response.Write(strId)%>','What'">
</td>
</tr>
<%End If
If strWhichButton = "Edit" Then 'Populate existing record
If Len(strWhichRecord) = 0 Then
strId = Request.Form("submittal_id")
Else
strID = strWhichRecord
End If
'Recordset for Edited Record
Set objRS = Server.CreateObject("sts.sts_get")
Set rst = objRS.submittal_get(strId)
strNotes = rst("notes")
%>
<tr><td colspan=2><b>* Fields are read only.</b></td></tr>
<td align=left ><Input Type=Hidden Name="submittal_id" READONLY Value='<%Response.Write rst("submittal_id")%>'>
</td></tr>
<tr><td align=right width=30%><b>_*Project #:</td>
<td align=left width=70%><Input Type=Text Name="project_number" READONLY Value='<%Response.Write rst("project_number")%>'>
</td></tr>
<tr><td align=right><b>*Project:</td>
<td align=left><Input Type=Text Name="project_name" READONLY SIZE = 50 Value='<%Response.Write rst("project_name")%>'>
</td></tr>
<tr><td align=right><b>*Discipline:</td>
<td align=left><Input Type=Text Name="discipline_cd" READONLY Value='<%Response.Write rst("discipline_cd")%>'>
<tr><td align=right><b>*Spec Section:</td>
<td><Input Type=Text Name="spec_section" READONLY Value='<%Response.Write rst("spec_section")%>'>
</td></tr>
<%If strSecurity = "Entry" Then %>
<tr><td align=right><b>*RGV Submittal #:
<td align=left><Input Type=Text Name="rgv_submittal_number" READONLY Value='<%Response.Write rst("rgv_submittal_number")%>'>
</td></tr>
<%
strProjectNumber = rst("project_number")
'Author Company
Set objRS = Server.CreateObject("sts.sts_get")
Set rstD = objRS.submittal_dd_author_company_get(strProjectNu mber)
%>
<tr><td align=right><b>*Author Company:</td>
<td align=left><SELECT NAME="author_company_id" SIZE=1></b>
<%
'Populate the drop down
Do While Not rstD.EOF
If rstD("company_id") = rst("author_company_id") Then
Response.Write "<OPTION SELECTED VALUE= '" & rstD("company_id") & "'>"
Response.Write rstD("company") & "</OPTION>"
Response.Write "</SELECT></td></tr>"
End If
rstD.MoveNext
Loop
rstD.Close
Set rstD=nothing
'Author Contact
Set objRS = Server.CreateObject("sts.sts_get")
Set rstD = objRS.submittal_dd_author_contact_get(strProjectNu mber)
%>
<tr><td align=right><b>*Author Contact:</td>
<td align=left><SELECT NAME="author_contact_id" SIZE=1></b>
<%
'Populate the drop down
Do While Not rstD.EOF
If rstD("contact_id") = rst("author_contact_id") Then
Response.Write "<OPTION SELECTED VALUE= '" & rstD("contact_id") & "'>"
If Not IsNull(rstD("rgv_office_cd")) Then
Response.Write rstD("rgv_office_cd") & " " & rstD("contact_name") & "</OPTION>"
Else
Response.Write rstD("company") & " " & rstD("contact_name") & "</OPTION>"
End If
Response.Write "</SELECT></td></tr>"
End If
rstD.MoveNext
Loop
rstD.Close
Set rstD=nothing
%>
<tr><td align=right><b> *Submittal Name:</td>
<td align=left><TEXTAREA Name="submittal_name" READONLY ROWS=4 COLS=31 WRAP><%=rst("submittal_name")%>
(0x800A000D) datatype mismatch
