hi
I have this code which gives a syntax error and the last two fields(problem
description and solution) are memo fields in access 2000.
any help is appreciated.<%@ Language=VBScript %>
<%
if NOT isempty(Request.Form("OK")) then
set conn = server.createobject ("adodb.connection")
conn.Open "dsn=HDsever"
conn.Execute "update tblJob set " _
& "JobType = '" & Request.Form("JobType") & "', " _
& "ProblemWorkstation = '" & Request.Form("ProblemWorkstation") & "', " _
& "RequestorName = '" & Request.Form("RequestorName") & "', " _
& "ProblemSummary = '" & Request.Form("ProblemSummary") & "', " _
& "Responsible = '" & Request.Form("Responsible") & "', " _
& "DateCompleted = '" & DateValue(Request.Form("DateCompleted")) & "', " _
& "DateOfEnquiry = '" & DateValue(Request.Form("DateOfEnquiry")) &
"', " _
& "AssignedTo = '" & Request.Form("AssignedTo") & "', " _
& "AssignedBy = '" & Request.Form("AssignedBy") & "', " _
& "AssignDate = '" & DateValue(Request.Form("AssignDate")) & "', " _
& "ProblemType = '" & Request.Form("ProblemType") & "', " _
& "Priority = '" & Request.Form("Priority") & "' ," _
& "JobStatus = '" & Request.Form("JobStatus") & "' ," _
& "ProblemDiscription = '" & Request.Form("ProblemDescription")& "'
"_
& "Solution = '" & Request.Form("Solution") & "' "_
& "where JobId = " & Request.Form("JobId")
'Response.Redirect "./ViewJobs.asp"
elseif NOT isempty(Request.QueryString("JobId")) then
set conn = server.createobject ("adodb.connection")
conn.open "dsn=HDsever"
set rsJob = conn.Execute("select * from tblJob where JobId = " _
& Request.QueryString("JobId"))
set RSCategories = conn.Execute("select RequestorName from tblRequestor
order by RequestorName")
Set RSJobType = conn.Execute("select JobType from tblJobType order by
JobType")
else
Response.Redirect "./ViewJobs.asp"
end if
%>
<BASEFONT FACE="Comic Sans MS" COLOR="DarkBlue">
<HTML>
<HEAD>
<TITLE>HelpDesk Service - Jobs</TITLE>
<meta name="Microsoft Theme" content="travel 011">
</HEAD>
<body>
<CENTER><H1>HelpDesk Service<BR>Edit Job</H1>
</CENTER>
<P>Please add the following information for the Job.</p>
<p>Complete Each Field</p>
<FORM ACTION="./editjob.asp" METHOD=POST>
<INPUT TYPE=HIDDEN NAME="JobId" VALUE = "<% response.write
Request.QueryString("JobId") %>">
<TABLE BORDER=0>
<TR>
<TD>JobType:</TD>
<td>
<SELECT NAME="JobType" <OPTION VALUE="<% response.write rsJob("JobType") %>"
SELECTED><% response.write rsJob("JobType") %></OPTION>
<%
Do Until RSJobType.EOF
%>
<OPTION VALUE="<% response.write RSJobType("JobType") %>"><% response.write
RSJobType("JobType") %> </OPTION>
<%
RSJobType.MoveNext
loop
%>
</SELECT></TD> </tr>
</tr>
<TR>
<TD>ProblemWorkstation:</TD>
<TD>
<INPUT TYPE="Text" NAME="ProblemWorkstation"
VALUE="<% response.write rsJob("ProblemWorkstation") %>" </TD
size="20">
</TD size="20">
</TR>
<TR>
<TD>ProblemSummary:</TD>
<TD>
<INPUT TYPE="Text" NAME="ProblemSummary"
VALUE="<% response.write rsJob("ProblemSummary") %> "
</TR size="20">
<TR>
<TD>Responsible</td>
<TD><SELECT NAME="Responsible" ><OPTION VALUE="<% response.write
rsJob("Responsible") %>" SELECTED><% response.write rsJob("Responsible")
%></OPTION>
</OPTION><OPTION VALUE="Aparna Susarla">Aparna Susarla</OPTION><OPTION
VALUE="Bill Smith">Bill Smith</OPTION><OPTION VALUE="Jamie McEwen">Jamie
McEwen</OPTION><option value="Matt Steinbauer">Matt
Steinbauer</option><OPTION VALUE="Roy Bowman">Row Bowman</OPTION><OPTION
VALUE="Shiela Toppin">Shiela Toppin</OPTION><OPTION VALUE="Terry
Ennis">Terry Ennis</OPTION></SELECT></TD>
</TR>
<TR>
<TD>RequestorName:</TD>
<td>
<SELECT NAME="RequestorName" >
<OPTION VALUE="<% response.write rsJob("RequestorName") %>" SELECTED><%
response.write rsJob("RequestorName") %></OPTION>
<%
Do Until RSCategories.EOF
%>
<OPTION VALUE="<% response.write RSCategories("RequestorName") %>"><%
response.write RSCategories("RequestorName") %> </OPTION>
<%
RSCategories.MoveNext
loop
%>
</SELECT></TD> </tr>
<TR>
<TD>DateCompleted:</TD>
<TD><INPUT TYPE="Text" NAME="DateCompleted"
VALUE=" <% response.write rsJob("DateCompleted") %>"
SIZE="40"> </TD>
</TR>
<TR>
<TD>DateOfEnquiry:</TD>
<TD><INPUT TYPE="Text" NAME="DateOfEnquiry"
VALUE="<% response.write rsJob("DateOfEnquiry") %> "
SIZE="40"> </TD>
</TR>
<TR>
<TD>AssignedTo</td>
<TD><SELECT NAME="AssignedTo" ><OPTION VALUE="<% response.write
rsJob("AssignedTo") %>" SELECTED><% response.write RSJob("AssignedTo")
%></OPTION><OPTION VALUE="Aparna Susarla">Aparna Susarla</OPTION><OPTION
VALUE="Bill Smith">Bill Smith</OPTION><OPTION VALUE="Jamie McEwen">Jamie
McEwen</OPTION><option value="Matt Steinbauer">Matt
Steinbauer</option><OPTION VALUE="Roy Bowman">Row Bowman</OPTION><OPTION
VALUE="Shiela Toppin">Shiela Toppin</OPTION><OPTION VALUE="Terry
Ennis">Terry Ennis</OPTION></SELECT></TD>
</TR>
<TR>
<TD>ProblemType:</TD>
<TD><Select NAME="ProblemType"><OPTION Value="<% response.write
rsJob("ProblemType") %>" SELECTED><% response.write RSJob("ProblemType")
%></option><option value="Software">Software </option> <option
value="Hardware">Hardware </option><option value="Programming">Programming
</option><option value="Network">Network </option> <option
value="Training">Training </option><option value="H&S">H&S </option><option
value="S&P">S&P </option><option value="S&T">S&T </option></SELECT>
</TR>
<TR>
<TD>AssignDate:</TD>
<TD><INPUT TYPE="Text" NAME="AssignDate"
VALUE=" <% response.write rsJob("AssignDate") %>"
SIZE="40"> </TD>
</TR>
<TR>
<TD>AssignedBy:</TD>
<TD><INPUT TYPE="Text" NAME="AssignedBy"
VALUE="<% response.write rsJob("AssignedBy") %> "
SIZE="40"> </TD>
</TR>
<TR>
<TD>Priority</td>
<TD><SELECT NAME="Priority" ><OPTION VALUE="<% response.write
rsJob("Priority") %>" SELECTED><% response.write RSJob("Priority")
%></OPTION><OPTION VALUE="High">High</OPTION><OPTION
VALUE="Medium">Medium</OPTION><OPTION VALUE="Low">Low</OPTION></SELECT></TD>
</TR>
<TR>
<TD>ProblemDescription:</TD>
<TD><TEXTAREA NAME="ProblemDescription" COLS="40" ROWS="3"
WRAP="VIRTUAL">
<% response.write rsJob("ProblemDiscription") %>
</TEXTAREA></TD>
</TR>
<TR>
<TD>Solution:</TD>
<TD><TEXTAREA rows = "5" NAME="Solution" COLS="44" ROWS="3"
WRAP="VIRTUAL">
<% response.write rsJob("Solution") %>
</TEXTAREA></TD>
</TR>
<TR>
<TD>JobStatus</td>
<TD><SELECT NAME="JobStatus" ><OPTION VALUE="<% response.write
rsJob("JobStatus") %>" SELECTED><% response.write RSJob("JobStatus")
%></OPTION><OPTION VALUE="Assigned">Assigned</OPTION><OPTION
VALUE="Closed">Closed</OPTION><OPTION
VALUE="InProgress">InProgress</OPTION></SELECT></TD>
</TR>
<TR VALIGN="top" ALIGN="left">
<TD HEIGHT =24></TD>
<TD WIDTH=36><INPUT TYPE="submit" NAME="OK" VALUE="OK" ></TD>
<TD></TD>
</TR>
</TABLE>
</FORM></BODY>
</body>
</HTML>
View Cart
