sortering i ASP
Jeg programmere hovedsagligt kun i php... men skal lige have sat et forum for en ven.Det virker helt fint problemet er at den viser nogle indlæg fra en kategori som den ikke skal.
Det den skal vise er indlæggende fra kategori "11" og ikke "12"
ved ikke om det er man skal begrænse det?
<!--#include file="functions.inc"-->
<%
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN
strSQL = "SELECT * FROM Forums WHERE (ID = " & Request("ForumID") & ")"
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
strForum = rs("Forum")
strDescription = rs("Description")
intForumID = rs("ID")
End If
strSQL = "SELECT *, Format$([date],'dd/mm/yyyy') AS FormDate, Format$([date],'hh:mm') AS FormTime FROM Entries WHERE (ForumID = " & Request("ForumID") & ")"
strSQL = strSQL & " AND (OrgThread = True) ORDER BY ID DESC"
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
Do While Not rs.EOF
strSQL = "SELECT Count(*) AS ItemCount FROM Entries WHERE (ReplyID = " & rs("Id") & ") AND (OrgThread <> TRUE)"
Set recordCount = myConn.Execute(strSQL)
strHTML = strHTML & "<tr><td><a href=""viewmsg.asp?id=" & rs("ID") & "&ForumID=" & intForumID & """>" & Server.HTMLEncode(rs("Subject")) & "</a></td>"
strHTML = strHTML & "<td valign=top>" & recordCount("ItemCount") & "</td>"
strHTML = strHTML & "<td valign=top>" & rs("FormDate") & "</td></tr>"
rs.MoveNext
Loop
End If
myConn.Close
Set myConn = Nothing
%>
eller vi funktion delen?
<%
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("Database/forum.mdb.asp")
Function DBFix(tempString)
tempString = Replace(Trim(tempString), "'", "''")
tempString = Replace(tempString, "|", "")
DBFix = tempString
End Function
%>
