Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Ayuda por favor con esta busqueda!!!

16/03/2006 - 22:55 por Marcos Galaviz | Informe spam
Ayuda Hacer una pregunta
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 debateRespuesta 3 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

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>


Preguntas similares

 

Busqueda sugerida :