Ayuda por favor con esta busqueda!!!

16/03/2006 - 22:55 por Marcos Galaviz | Informe spam
Tengo el siguiente codigo pero me manda error en la sentencia select por la
variable RFC :( si le asigno un valor directo a RFC de algo si me funciona
la consulta pero asi como lo tengo no, y asi lo queiro porque ese valor
viene de otra pagina :( alguien puede decirme que esta mal?

Mil gracias...

<%@ Language=VBScript%>
<!-- #include file="conn.asp" -->
<!-- #include file="utilerias.asp" -->
<%
Dim oRs,RFC
RFC=CStr(Request.QueryString("RFC"))
RFC=trim(RFC)
response.Write(RFC)
'RFC="MCU830218QR5" OJOOOOOO ESTO ES DE PRUEBA Y SI LO UTILIZO SI
FUNCIONA!!!
Set oRs = CREATEOBJECT("ADODB.RecordSet")
oRs.Open "SELECT refcia01, nomcli01, rfccli01 FROM ssdagi01 WHERE rfccli01=
= '"&RFC&"' ", oConn
%>
<html>
<body bgcolor="#E0EAFC">
<h3>Listado de Clientes al: <% =Now() %></h3>
<table border=1 width0% cellspacing="1" cellpadding="2">
<tr>
<% For i = 0 to oRS.Fields.Count - 1 %>
<th><% = UCASE(oRS(i).Name) %></th>
<% Next %>
</tr>
<% Do While Not oRS.EOF %>
<tr bgcolor="#FFFFFF">
<% For i = 0 to oRS.Fields.Count - 1 %>
<td><% = oRS(i) %></td>
<% Next %>
</tr>
<%
oRs.MoveNext
Loop
oRs.Close
oConn.Close
Set oRs = Nothing
Set oConn = Nothing
%>
</table>
</body>
</html>

Preguntas similare

Leer las respuestas

#1 German Saer
17/03/2006 - 05:39 | Informe spam
Marcos,

La sentencia es:

oRs.Open "SELECT refcia01, nomcli01, rfccli01 FROM ssdagi01 WHERE rfccli01'" & Request("RFC") &"'", oConn

Espero te sirva.

Thanks,

_______________
German Saer
Orlando, FL 32810



"Marcos Galaviz" wrote in message
news:
Tengo el siguiente codigo pero me manda error en la sentencia select por


la
variable RFC :( si le asigno un valor directo a RFC de algo si me funciona
la consulta pero asi como lo tengo no, y asi lo queiro porque ese valor
viene de otra pagina :( alguien puede decirme que esta mal?

Mil gracias...

<%@ Language=VBScript%>
<!-- #include file="conn.asp" -->
<!-- #include file="utilerias.asp" -->
<%
Dim oRs,RFC
RFC=CStr(Request.QueryString("RFC"))
RFC=trim(RFC)
response.Write(RFC)
'RFC="MCU830218QR5" OJOOOOOO ESTO ES DE PRUEBA Y SI LO UTILIZO SI
FUNCIONA!!!
Set oRs = CREATEOBJECT("ADODB.RecordSet")
oRs.Open "SELECT refcia01, nomcli01, rfccli01 FROM ssdagi01 WHERE


rfccli01> = '"&RFC&"' ", oConn
%>
<html>
<body bgcolor="#E0EAFC">
<h3>Listado de Clientes al: <% =Now() %></h3>
<table border=1 width0% cellspacing="1" cellpadding="2">
<tr>
<% For i = 0 to oRS.Fields.Count - 1 %>
<th><% = UCASE(oRS(i).Name) %></th>
<% Next %>
</tr>
<% Do While Not oRS.EOF %>
<tr bgcolor="#FFFFFF">
<% For i = 0 to oRS.Fields.Count - 1 %>
<td><% = oRS(i) %></td>
<% Next %>
</tr>
<%
oRs.MoveNext
Loop
oRs.Close
oConn.Close
Set oRs = Nothing
Set oConn = Nothing
%>
</table>
</body>
</html>


Respuesta Responder a este mensaje
#2 Marcos Galaviz
17/03/2006 - 15:46 | Informe spam
No me funciona!! :( el navegador me dice que esa linea es incorrecta :(
¿faltara algo?

"German Saer" escribió en el mensaje
news:54rSf.79704$
Marcos,

La sentencia es:

oRs.Open "SELECT refcia01, nomcli01, rfccli01 FROM ssdagi01 WHERE
rfccli01> '" & Request("RFC") &"'", oConn

Espero te sirva.

Thanks,

_______________
German Saer
Orlando, FL 32810



"Marcos Galaviz" wrote in message
news:
Tengo el siguiente codigo pero me manda error en la sentencia select por


la
variable RFC :( si le asigno un valor directo a RFC de algo si me
funciona
la consulta pero asi como lo tengo no, y asi lo queiro porque ese valor
viene de otra pagina :( alguien puede decirme que esta mal?

Mil gracias...

<%@ Language=VBScript%>
<!-- #include file="conn.asp" -->
<!-- #include file="utilerias.asp" -->
<%
Dim oRs,RFC
RFC=CStr(Request.QueryString("RFC"))
RFC=trim(RFC)
response.Write(RFC)
'RFC="MCU830218QR5" OJOOOOOO ESTO ES DE PRUEBA Y SI LO UTILIZO SI
FUNCIONA!!!
Set oRs = CREATEOBJECT("ADODB.RecordSet")
oRs.Open "SELECT refcia01, nomcli01, rfccli01 FROM ssdagi01 WHERE


rfccli01>> = '"&RFC&"' ", oConn
%>
<html>
<body bgcolor="#E0EAFC">
<h3>Listado de Clientes al: <% =Now() %></h3>
<table border=1 width0% cellspacing="1" cellpadding="2">
<tr>
<% For i = 0 to oRS.Fields.Count - 1 %>
<th><% = UCASE(oRS(i).Name) %></th>
<% Next %>
</tr>
<% Do While Not oRS.EOF %>
<tr bgcolor="#FFFFFF">
<% For i = 0 to oRS.Fields.Count - 1 %>
<td><% = oRS(i) %></td>
<% Next %>
</tr>
<%
oRs.MoveNext
Loop
oRs.Close
oConn.Close
Set oRs = Nothing
Set oConn = Nothing
%>
</table>
</body>
</html>






Respuesta Responder a este mensaje
#3 German Saer
19/03/2006 - 07:09 | Informe spam
Como abres la conexion oConn?

Thanks,

_______________
German Saer
Orlando, FL 32810



"Marcos Galaviz" wrote in message
news:
No me funciona!! :( el navegador me dice que esa linea es incorrecta :(
¿faltara algo?

"German Saer" escribió en el mensaje
news:54rSf.79704$
> Marcos,
>
> La sentencia es:
>
> oRs.Open "SELECT refcia01, nomcli01, rfccli01 FROM ssdagi01 WHERE
> rfccli01> > '" & Request("RFC") &"'", oConn
>
> Espero te sirva.
>
> Thanks,
>
> _______________
> German Saer
> Orlando, FL 32810
>
>
>
> "Marcos Galaviz" wrote in message
> news:
>> Tengo el siguiente codigo pero me manda error en la sentencia select


por
> la
>> variable RFC :( si le asigno un valor directo a RFC de algo si me
>> funciona
>> la consulta pero asi como lo tengo no, y asi lo queiro porque ese valor
>> viene de otra pagina :( alguien puede decirme que esta mal?
>>
>> Mil gracias...
>>
>> <%@ Language=VBScript%>
>> <!-- #include file="conn.asp" -->
>> <!-- #include file="utilerias.asp" -->
>> <%
>> Dim oRs,RFC
>> RFC=CStr(Request.QueryString("RFC"))
>> RFC=trim(RFC)
>> response.Write(RFC)
>> 'RFC="MCU830218QR5" OJOOOOOO ESTO ES DE PRUEBA Y SI LO UTILIZO SI
>> FUNCIONA!!!
>> Set oRs = CREATEOBJECT("ADODB.RecordSet")
>> oRs.Open "SELECT refcia01, nomcli01, rfccli01 FROM ssdagi01 WHERE
> rfccli01> >> = '"&RFC&"' ", oConn
>> %>
>> <html>
>> <body bgcolor="#E0EAFC">
>> <h3>Listado de Clientes al: <% =Now() %></h3>
>> <table border=1 width0% cellspacing="1" cellpadding="2">
>> <tr>
>> <% For i = 0 to oRS.Fields.Count - 1 %>
>> <th><% = UCASE(oRS(i).Name) %></th>
>> <% Next %>
>> </tr>
>> <% Do While Not oRS.EOF %>
>> <tr bgcolor="#FFFFFF">
>> <% For i = 0 to oRS.Fields.Count - 1 %>
>> <td><% = oRS(i) %></td>
>> <% Next %>
>> </tr>
>> <%
>> oRs.MoveNext
>> Loop
>> oRs.Close
>> oConn.Close
>> Set oRs = Nothing
>> Set oConn = Nothing
>> %>
>> </table>
>> </body>
>> </html>
>>
>>
>
>


email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida