Ayuda con SQL

Una opcion es esta:

Set rst = rst.Execute("select * from Razas_Animales where tb1_id = " &
request("tb1_id") & " order by nombre")

FF
www.francofigun.com.ar
MSN:
Yahoo MSN:
"ZMGestion" wrote in message
news:cdvsbg$3o$

Tengo la siguientes lineas de código en un if, etc:

sql2="select * from Razas_Animales where tb1_id=" & request("combo1")

sql2="select * from Razas_Animales where tb1_id= (select top 1 id from
Especies)"

Tengo que ordenarlas por Raza , mi pregunta es como y donde le inserto el
ORDER BY Raza

Gracias

Realmente el codigo que tengo es este:
<%
if trim(request("combo2")) <> "" then
sql2="select * from Razas_Animales where tb1_id=" & request("combo1")
Response.write CargarCombos (sql2, "tb2_id", "Raza", "combo2",
request("combo2"), con, " onchange='enviar()'") & "<br>"
else
sql2="select * from Razas_Animales where tb1_id= (select top 1 id from
Especies)"
Response.write CargarCombos (sql2, "tb2_id", "Raza", "combo2",
request("combo2"), con, " onchange='enviar()'") & "<br>"
end if
%>



"Franco Figún" escribió en el mensaje
news:O6f$

Una opcion es esta:

Set rst = rst.Execute("select * from Razas_Animales where tb1_id = " &
request("tb1_id") & " order by nombre")

FF
www.francofigun.com.ar
MSN:
Yahoo MSN:
"ZMGestion" wrote in message
news:cdvsbg$3o$
> Tengo la siguientes lineas de código en un if, etc:
>
> sql2="select * from Razas_Animales where tb1_id=" & request("combo1")
>
> sql2="select * from Razas_Animales where tb1_id= (select top 1 id from
> Especies)"
>
> Tengo que ordenarlas por Raza , mi pregunta es como y donde le inserto

el

> ORDER BY Raza
>
> Gracias
>
>

Te incluyo el codigo de la funcion a la que hace referencia
<%
Function CargarCombos (StrSQL, sCodigo, sDescri, sControl, sSelected, conn,
js)
'*** esta función Carga un combo con codigo y descri
' StrSQL = Store Procedure
' sCodigo = Campo que contiene el codigo
' sDescri = Campo que contiene la descripcion
' sControl = Control a llenar
' sSelected = Variable de sesion


dim conCombo, cmdCombo, resCombo

'(Objetos de conexion a la base de datos)
Set conCombo = Server.CreateObject("ADODB.Connection")
Set cmdCombo = Server.CreateObject("ADODB.Command")

'(Abrir la conexion)
conCombo.Open conn
cmdCombo.ActiveConnection = conCombo
cmdCombo.CommandType = 1

cmdCombo.CommandText = strSQL

Set resCombo = cmdCombo.Execute

Response.Write "<SELECT NAME='" & sControl & "' " & js &">"
if not resCombo.Eof then
Do While Not resCombo.Eof
If UCase(Trim(CStr(resCombo(sCodigo)))) = UCase(Trim(CStr(sSelected)))
Then
Response.Write "<OPTION VALUE = " & "'" & CStr(resCombo(sCodigo)) & "'"
& " SELECTED>" & CStr(resCombo(sDescri)) & "</OPTION>"
Else
Response.Write "<OPTION VALUE = " & "'" & CStr(resCombo(sCodigo)) & "'"
& ">" & CStr(resCombo(sDescri)) & "</OPTION>"
End If
Response.Write vbCrlf
resCombo.MoveNext
Loop
else
Response.Write "<OPTION>--</OPTION>"
end if

Response.Write "</SELECT>"
resCombo.close
Set resCombo = Nothing
Set cmdCombo = Nothing
conCombo.close
Set conCombo = Nothing
End Function
%>

"Franco Figún" escribió en el mensaje
news:O6f$

Una opcion es esta:

Set rst = rst.Execute("select * from Razas_Animales where tb1_id = " &
request("tb1_id") & " order by nombre")

FF
www.francofigun.com.ar
MSN:
Yahoo MSN:
"ZMGestion" wrote in message
news:cdvsbg$3o$
> Tengo la siguientes lineas de código en un if, etc:
>
> sql2="select * from Razas_Animales where tb1_id=" & request("combo1")
>
> sql2="select * from Razas_Animales where tb1_id= (select top 1 id from
> Especies)"
>
> Tengo que ordenarlas por Raza , mi pregunta es como y donde le inserto

el

> ORDER BY Raza
>
> Gracias
>
>