FORMATO NUMEROS
Publicado por chavex (1 intervención) el 22/06/2005 17:13:10
TENGO UNA PEQUEÑA CONSULTA LA CUAL RECOJE DATOS MEDIANTE UN CODIGO EN ASP Y LUEGO LO LLEVO A FLASH MEDIANTE OTRA RUTINA.
LA IDEA ES QUE QUIERO LLEVAR LOS DATOS CON COMA (,) PARA SEPARAR LOS MILES, ES DECIR ASI 10,000 Y LA CONSULTA ME LOS ESTA DEVOLVIENDO ASI 10000
ESTE ES EL CODIGO SI LO PUEDEN MODIFICAR Y COLOCARLO MODIFICADO SERIA BUENO
<%@ Language=VBScript %>
<%Response.Expires=-10000
response.addHeader "pragma","no-cache"
response.addHeader "cache-control","private"
Response.CacheControl = "no-cache"
%>
<%
Dim oConn,strSQL,objRS
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("password.mdb"))
refer = Request("refe")
strSQL = "SELECT * FROM Lista WHERE id ="& refer & ""
Set objRS = oConn.Execute(strSQL)
If objRS.Eof Then
Response.Write "Referen= &Nomb= Datos no encontrados &Pob= &&Ulc= "
Else
Response.Write "Referen=" & objRS("total") & "&Nomb=" & objRS("hombres") & "&Pob=" & objRS("mujeres") & "&Ulc=" & objRS("urbano")
End If
oConn.Close
set objRS = nothing
set oConn = nothing
%>
GRACIAS DE ANTEMANO
ATT.: d. CHAVEZ
LA IDEA ES QUE QUIERO LLEVAR LOS DATOS CON COMA (,) PARA SEPARAR LOS MILES, ES DECIR ASI 10,000 Y LA CONSULTA ME LOS ESTA DEVOLVIENDO ASI 10000
ESTE ES EL CODIGO SI LO PUEDEN MODIFICAR Y COLOCARLO MODIFICADO SERIA BUENO
<%@ Language=VBScript %>
<%Response.Expires=-10000
response.addHeader "pragma","no-cache"
response.addHeader "cache-control","private"
Response.CacheControl = "no-cache"
%>
<%
Dim oConn,strSQL,objRS
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("password.mdb"))
refer = Request("refe")
strSQL = "SELECT * FROM Lista WHERE id ="& refer & ""
Set objRS = oConn.Execute(strSQL)
If objRS.Eof Then
Response.Write "Referen= &Nomb= Datos no encontrados &Pob= &&Ulc= "
Else
Response.Write "Referen=" & objRS("total") & "&Nomb=" & objRS("hombres") & "&Pob=" & objRS("mujeres") & "&Ulc=" & objRS("urbano")
End If
oConn.Close
set objRS = nothing
set oConn = nothing
%>
GRACIAS DE ANTEMANO
ATT.: d. CHAVEZ
Valora esta pregunta


0