Hej
Jeg sider op roder med en side der gerne skulle vise nogle vare efter en
bestamt kategori, det virker også fint, men jeg vil gerne have sorteret de
viste poster efter navn, hvordan kan jeg det ?
--------KODEN-------
Response.Buffer = true
Dim catid, strcat
catid = Request.QueryString("id")
strcat = Request.QueryString ("cat")
If catid = "" OR (IsNumeric(catid) = false) Then
Response.Redirect "default.asp"
End if
Dim catname, productslist
sub productInfo(connObj,category)
q = chr(34)
set cmd = server.CreateObject("ADODB.Command")
cmd.ActiveConnection = connObj
cmd.CommandText = "qryProdsCategory"
cmd.CommandType = adCmdStoredProc
set param = cmd.CreateParameter("theCategory",adInteger,adParamInput,4)
cmd.Parameters.Append(param)
cmd("theCategory") = Cint(category)
set rs = server.CreateObject("ADODB.Recordset")
set rs = cmd.Execute
if not rs.EOF then
catname = rs("catdescription")
strHTML = "<table border=0 cellPadding=0 cellSpacing=0 width='100%'>"
strHTML = strHTML & "<tr>"
i = 1
while not rs.EOF
------KODE SLUT----------
Resten af siden bygger så bare en tabel som udskrives på skærmen.
Jeg har forsøgt at sætte en ODRE BY cname ind hist og pist men den virker
ikke.
Venlig hilsen
Torben
|