tengo un sistema de casos el cual presenta problemas al colocar el status finalizado este sistema actua como helpdesk la idea es que si el caso esta resuelto se pueda poner estatus de finalizado el codigo es algo largo aqui les va en realidad no se cual es el problema pero no me permite modificar el estatus:
--------------------------------------------------------------------------
<form action="Caso.asp" method="post" name="form2">
<table width="78%" border="1" cellspacing="0" cellpadding="0" align="center" bordercolor="#000000">
<tr>
<td width="19%" height="27" bgcolor="#FF9900"><div align="right"><strong><font color="#FFFFFF">*
Cliente: </font></strong></div></td>
<td colspan="4"> <select name="cliente" id="cliente" onChange="renviarCliente(this.form)">
<option>Seleccione</option>
<%
sql="SELECT * FROM Casos WHERE nro_caso = "& Request.QueryString("id")
set result= conex.execute(sql)
sql="SELECT id_empresa,nombre FROM Empresa ORDER BY nombre"
set rs= conex.execute(sql)
while (not rs.eof)
if ( int(rs("id_empresa")) = int(Request.QueryString("idCliente"))) then
response.Write "<option value='caso.asp?op=mod&id="&Request.QueryString("i d")&"&idCliente="&rs("id_empresa")&"' selected>"&rs("nombre")&"</option>"
else
response.Write "<option value='caso.asp?op=mod&id="&Request.QueryString("i d")&"&idCliente="&rs("id_empresa")&"'>"&rs("nombre ")&"</option>"
end if
rs.movenext
wend
%>
</select> </td>
</tr>
<%
if Request.QueryString("idCliente") <> "" then
sql="SELECT * FROM Empresa WHERE id_empresa = "& Request.QueryString("idCliente")
set rs= conex.execute(sql)
mensaje= "Sin Información"
%>
<tr>
<td height="19" bgcolor="#FF9900"> <div align="right"><font color="#FFFFFF"><strong>Dirección: </strong></font></div></td>
<td height="19" colspan="4"><div align="justify"> <%=Escribir(Existe(rs),rs("direccion") , mensaje)%></div></td>
</tr>
<tr>
<td height="19" bgcolor="#FF9900"> <div align="right"><font color="#FFFFFF"><strong>Ciudad: </strong></font></div></td>
<td height="19" colspan="2"><div align="justify"> <%=Escribir(Existe(rs) ,rs("ciudad"), mensaje)%></div></td>
<td width="10%" bgcolor="#FF9900"><div align="center"><font color="#FFFFFF"><strong>Estado:</strong></font></div></td>
<td width="30%"> <%=Escribir(Existe(rs),rs( "estado"), mensaje)%></td>
</tr>
<tr>
<td height="19" bgcolor="#FF9900"> <div align="right"><font color="#FFFFFF"><strong>Teléfono: </strong></font></div></td>
<td height="19" colspan="4"><div align="justify"> <%=Escribir(Existe(rs) ,rs("telefono"), mensaje)%></div></td>
</tr>
<%end if%>
<%
if Request.QueryString("idCliente") <> "" then
sql= "SELECT * FROM Contacto_Empresa WHERE id_empresa = "& Request.QueryString("idCliente")
set rs= conex.execute(sql)
%>
<tr>
<td bgcolor="#FF9900"><div align="right"><font color="#FFFFFF"><strong>*
Contacto: </strong></font> </div></td>
<td colspan="4"> <select name="contacto" id="contacto">
<option>Seleccione</option>
<%
while(not rs.eof)
if(rs("id_contacto")= result("contacto")) then
%>
<option value="<%=rs("id_contacto")%>" selected><%=nombreContacto(rs("id_contacto"))%></option>
<%
else
%>
<option value="<%=rs("id_contacto")%>"><%=nombreContacto(r s("id_contacto"))%></option>
<% end if
rs.movenext
wend
%>
</select> </td>
</tr>
<%end if%>
<tr>
<td height="26" bgcolor="#FF9900"> <div align="right"><font color="#FFFFFF"><strong>Técnico: </strong></font></div></td>
<td colspan="4"> <select name="tecnico">
<option>Seleccione</option>
<%
sql= "SELECT * FROM usuario ORDER BY nombre, apellido"
set rs = conex.execute(sql)
while not rs.eof
if (ExisteUsuarioCaso(conex,Request.QueryString("id") ,rs("login")) = true) then
%>
<option value="<%=rs("login")%>" selected><%=rs("nombre")&" "&rs("apellido")%></option>
<%else%>
<option value="<%=rs("login")%>"><%=rs("nombre")&" "&rs("apellido")%></option>
<%
end if
rs.movenext
wend
%>
</select></td>
</tr>
<tr>
<td height="29" bgcolor="#FF9900"> <div align="right"><font color="#FFFFFF"><strong>*
Estatus: </strong></font></div></td>
<td colspan="4"> <select name="estatus" id="estatus" onChange="verificarestatus(this.form)">
<option>Seleccione</option>
<%
for pos=1 to 5
if (getEstatus(pos)= result("estatus")) then
%>
<option value=<%=getEstatus(pos)%> selected><%=getEstatus(pos)%></option>
<%else%>
<option value=<%=getEstatus(pos)%>><%=getEstatus(pos)%></option>
<%end if
next
if result("estatus")="Sin Asignar" then
%>
<script>form2.tecnico.disabled = true</script>
<%
end if
%>
</select> </td>
</tr>
<tr>
<td height="25" nowrap bgcolor="#FF9900"> <div align="right"><font color="#FFFFFF"><strong>*
Actividad: </strong></font></div></td>
<td colspan="4"> <input name="actividad" type="text" id="actividad" size="50" maxlength="100" value="<%=result("actividad")%>" onKeyPress="valcomilla()"></td>
</tr>
<tr>
<td height="74" bgcolor="#FF9900"> <div align="right"><font color="#FFFFFF"><strong>*
Descripción: </strong></font></div></td>
<td colspan="4" valign="top"> <textarea name="descripcion" cols="50" rows="5" id="descripcion" onKeyPress="valcomilla()"><%=result("descripcion") %></textarea>
</td>
</tr>
<tr>
<td height="74" bgcolor="#FF9900"> <div align="right"><font color="#FFFFFF"><strong>Observaciones
y Recomendaciones: </strong></font></div></td>
<td colspan="4"> <textarea name="observacion" cols="50" rows="5" id="observacion" onKeyPress="valcomilla()"><%=result("observacion") %></textarea></td>
</tr>
<tr>
<td height="19" bgcolor="#FF9900"><strong><font color="#FFFFFF"> Días
de Alarma:</font></strong></td>
<td width="21%" height="19">
<%
sql= "SELECT * FROM Alerta WHERE nro_caso = "&Request.QueryString("id")
set rs= conex.execute(sql)
if not rs.eof then
response.Write(rs("dias")&" días")
end if
%>
</td>
<td height="19" bgcolor="#FF9900"><div align="center"><strong><font color="#FFFFFF">Días
de Activación:</font></strong></div></td>
<td height="19" colspan="2">
<%
if not rs.eof then
if ( rs("fechaPendiente") <> "" AND rs("fechaReasignacion")<> "") then
dias = calcularDiasPendientes(Request.QueryString("id"))
' casos con otros estatus
else
dias= DateDiff("d", rs("fechaInicio"),date())
end if
totalDias= dias-rs("dias")
if totalDias = rs("dias") then
response.Write("Hoy")
elseif totalDias <= rs("dias") then
response.Write(totalDias&" días")
elseif totalDias > rs("dias")then
response.Write(totalDias&" días ya activada")
end if
end if
%>
</td>
</tr>
<tr>
<td height="19" colspan="5" bgcolor="#FF9900"> <div align="center"><strong><font color="#FFFFFF">Los
campos con (*) son obligatorios</font></strong></div></td>
</tr>
<tr>
<td colspan="5"> <div align="center"><br>
<input type="hidden" name="id_cliente" value="<%=Request.QueryString("idCliente")%>">
<input type="hidden" name="tip_estatus" value="<%=result("estatus")%>">
<input type="hidden" name="oc" value="mod">
<input type="hidden" name="nro_caso" value="<%=Request.QueryString("id")%>">
<input name="guardar" type="submit" id="guardar" value="Modificar Nro Caso" onClick="return validar(this.form)">
<input type="reset" name="Submit2" value="Restablecer">
</div></td>
</tr>
</table>
</form>