Problema Con Ejecutar 2 Consultas

darkmcloud · #1 (**permalink**) 25/11/2007, 23:21

buenas amigos de foros del web.........
tengo un formulario el cual recibe un registro llamado csr.... y si se intenta modificar los datos y el estado del registro (csr) se encuentra en estado entregado....el navegador redirige a una pantalla que dice "no se pueden modificar datos"
pero no logro hacer que se ejecute bien la segunda consulta...que tiene que seleccionar los datos para mostrarlos en el formulario para poder modificarlos...este es el codigo:

Cita:

<%

if Not IsEmpty(Request("csr")) then
csr = Request("csr")
end if

On Error Resume next

Dim Rs, Cnn, strSQL,usuarioconta,fechacuenta,timecuenta,ip,hech o, strSQL2, rs2
set Cnn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
Cnn.Open Session("cnx")

if Err.number <> 0 then
session("ErrorTitle")="Error prueba funka"
session("ErrorText")= "Error de Conexion :" & Err.description
Response.Redirect "onerror.asp"
end if

usuarioconta=Session("id_usuario")
fechacuenta=date()
timecuenta=time()
ip= Request.ServerVariables("REMOTE_HOST")

strSQL = "select * from Tblcliente"

se_encuentra = False

if se_encuentra then
strSQL=strSQL & " AND estado LIKE '%entregado'"
else
strSQL=strSQL & " WHERE estado LIKE '%entregado'"
se_encuentra=True
end if

if csr <> "" then
if se_encuentra then
strSQL=strSQL & " AND csr LIKE '%"&csr&"'"

se_encuentra=True
end if
end if

rs.Open strSQL, Cnn, 1, 2

If Not rs.EOF then
Response.Write "<SCRIPT LANGUAGE='JAVASCRIPT'>"
Response.Write "window.close()"
Response.Write "</SCRIPT>"
Response.Redirect("../existecsr.asp")

Else

strSQL2 = "select * from Tblcliente where csr='" & csr & "'"
rs.Open strSQL, Cnn, 1, 2

If Not rs.EOF then

csr = rs.Fields("csr")
nombre_cliente= rs.Fields ("nombre_cliente")
fecha_in= rs.Fields("fecha_in")
artefacto= rs.Fields("artefacto")
serie= rs.Fields("serie")
estado= rs.Fields("estado")

fecha_ret= rs.Fields("fecha_ret")

gtia= rs.Fields("gtia")
tecnico= rs.Fields("tecnico")

comentarios= rs.Fields("comentarios")

End If

end if

if not rs.EOF then

%>

<%

%>
<font face="Verdana" color="BLACK">
<h2>
<%
Response.Write( "Los Datos del Cliente De CSR: ")
%>
</h2>
<h3>
<%
Response.Write( "<TD><b>" & rs.Fields("csr")& "</b></TD>" ) %>
<b>-</b>
<%
Response.Write( "<TD><b>"& rs.Fields("nombre_cliente")& "</b></TD>" )
%>   

</h3>
</font>
<%
end if
rs.Close
set rs = nothing
Cnn.Close
set Cnn = nothing
%>

<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></HEAD>
<body BACKGROUND ="2.jpg" bgcolor="#000000" text="#000000" vlink="#ffffff" alink="#ffffff">
<script language="javascript">

function envia()
{
alert ('SE VA MODIFICAR LOS DATOS DEL CLIENTE')
document.valactual.action = '/bodega/scripts/actualcorreclie.asp?csr=' + document.valactual.csr.value + '&nombre_cliente='+ document.valactual.nombre_cliente.value + '&artefacto=' + document.valactual.artefacto.value + '&serie='+ document.valactual.serie.value + '&estado='+ document.valactual.estado.value + '&gtia='+ document.valactual.gtia.value + '&tecnico='+ document.valactual.tecnico.value + '&comentarios='+ document.valactual.comentarios.value ;

document.valactual.method="POST";
document.valactual.submit();
}

</script>

<center>
<FORM ACTION='' METHOD='POST' id=valactual name=valactual>
<font face="Verdana" color="BLACK">
<b>
<TABLE WIDTH=402 BORDER=1 align="center" CELLPADDING="5" CELLSPACING="1" bordercolor="#0000FF">

<tr>
<td width="386" ><b>Csr :</b>      
<input type="text" name="csr" id="csr" size=10 readonly="readonly" Value="<%=csr%>" onKeyPress="numero('%n',this);">
<tr>
<td ><b>Nombre Cliente :</b>   
<input type="text" name="nombre_cliente" id="nombre_cliente" size=30 Value="<%=nombre_cliente%>" >
</tr>
<tr>

<tr> <td ><b>Artefacto :</b>   
<input type="text" name="artefacto" id="artefacto" size=30 Value="<%=artefacto%>" onKeyPress="guias('%g',this);"></td>
<tr> <td ><b>Serie :</b>  
<input type="text" name="serie" id="serie" size=15 Value="<%=serie%>" onKeyPress="guias('%g',this);"> </td> </tr>
<tr> <td ><b>Estado :</b> 
<select name="estado">
<option selected><%=estado%></option>
<option>REVISION</option>
<option>PXR</option>
<option>SCA</option>
<option>OK</option>
<option>ENTREGADO</option>
<option>EN PROCESO</option>
<option>COTIZACION</option>
<option>DC</option>
</select></td> </tr>
<td ><b>Fecha Ingreso:</b>    
<input type="text" name="fecha_in" id="fecha_in" size=15 readonly="readonly" Value="<%=fecha_in%>" onKeyPress="fecha('%f',this);"></td>
</tr>

<tr>
<td ><b>Fecha de Status / Retiro :</b>   
<input type="text" name="fecha_ret" id="fecha_ret" size=15 readonly="readonly" Value="<%=fecha_ret%>" onKeyPress="fecha('%f',this);">
</tr>

<tr>
<td ><b>Tipo de Garantía:</b>   
<select name="gtia">
<option selected><%=gtia%></option>
<option>DG</option>
<option>FG</option>
<option>GE</option>
<option>GTIA TALLER</option>

</select></td> </tr>

<tr>
<td ><b>Técnico Asignado :</b>   
<select name="tecnico">
<option selected><%=tecnico%></option>
<option>HH</option>
<option>CM</option>
<option>VA</option>
<option>AA</option>
<option>AK</option>
<option>SM</option>
<option>JLV</option>
<option>GP</option>
<option>JD</option>
</select></td> </tr>
<tr> <td bgcolor><b>Comentarios :</b>
<input type="text" name="comentarios" id="comentarios" size=30 Value="<%=comentarios%>" ></td> </tr>

</table> <br> <br>
<center> <input type="button" name="grabar" value="Modificar Datos" onclick='envia()'>  

</tr> </table> </b>

<hr size=1> <center> <b> <i>

<BR>
<BR>

</form>
</BODY>
</HTML>

el codigo marcado con rojo es la segunda consulta que no se me quiere ejecutar.....asi que por favor les pido de su ayuda !!

De antemano muchas gracias

mc_quake · #2 (**permalink**) 26/11/2007, 07:54

a simple vista el error es que tiene

Dim Rs, Cnn, strSQL,usuarioconta,fechacuenta,timecuenta,ip,hech o, strSQL2, rs2
set Cnn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
Cnn.Open Session("cnx")

dentrol del if y tu consulta

strSQL2 = "select * from Tblcliente where csr='" & csr & "'"
rs.Open strSQL, Cnn, 1, 2

If Not rs.EOF then

csr = rs.Fields("csr")
nombre_cliente= rs.Fields ("nombre_cliente")
fecha_in= rs.Fields("fecha_in")
artefacto= rs.Fields("artefacto")
serie= rs.Fields("serie")
estado= rs.Fields("estado")

fecha_ret= rs.Fields("fecha_ret")

gtia= rs.Fields("gtia")
tecnico= rs.Fields("tecnico")

comentarios= rs.Fields("comentarios")

esta dentro del else lo que aria es sacar esto fuera del if

Dim Rs, Cnn, strSQL,usuarioconta,fechacuenta,timecuenta,ip,hech o, strSQL2, rs2
set Cnn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
Cnn.Open Session("cnx")

suerte

darkmcloud · #3 (**permalink**) 26/11/2007, 08:43

no compadre.........la linea que tu me dices esta fuera del if........la primera consulta....se ejecuta bien....el problema es la segunda......o sea cuando el campo csr no tiene el valor 'entregado'...tendria que seleccionar los datos para mostrarlos en el formulario para que el usuario pueda modificar los datos

De antemano muchas gracias