Den ovenstående kode mangler et input til funktionen GetWordsOccurrences(text,apID)
De to ord i parantesen betyder, at der skal to værdier ind i funktionen for at den fungerer.
Dene første er teksten fra forespørgslen select * from articles where aArticletext LIKE '%[pic id=" & rsCategories("apID") & "]%
og den anden er er værdien af den forespørgsel rsCategories jeg regnede med de havde lavet ´´udenom´´ den viste kode......
prøv nedenstående, men husk at udskifte ????? med tabelnavn
<%
strSQL1 = "select apID from ????? " 'Jeg ved ikke hvad den tabel hvor du henter apID fra hedder, så udskift ????? med tabelnavnet
Set rsCategories = ConnMain.Execute(strSQ1)
if not rsCategories.eof then
do until rsCategories.eof
strSQL = "select * from articles where aArticletext LIKE '%[pic id=" & rsCategories("apID") & "]%'"
Set rs = ConnMain.Execute(strSQL)
If not rs.EOF or not rs.BOF Then
Do until rs.eof
used = used+1
response.write(GetWordsOccurrences(rs("aArticletext"),rsCategories("apID")))
rs.MoveNext
Loop
End If
rsCategories.movenext
loop
end if
Function GetWordsOccurrences(text,apID)
OrdArr= split(text,"[pic id=" & apID &"]")
GetWordsOccurrences=UBound(OrdArr)
End Function
%>