Försöker lista ut ur databasen ord som finns i databasen med detta:
SQL = "SELECT ord,id from words ORDER BY datum DESC"
set Recset = databas.execute(SQL)
if not recset.eof then
myArray = recset.GetRows()
end if
recset.close
set recset = nothing
Function Free(f2)
Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true
f2 = Server.HTMLEncode(f2)
For i = 0 To Ubound(myArray)
objRegExp.Pattern = "(" &myArray(i) &")"
f2 = objRegExp.Replace(f2,"<b>$1:e</b>")
Next
free = f2
End Function
vet inte om koden fungera men jag får detta fel meddelande:
Feltyp:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][Drivrutin för ODBC Microsoft Access] För få parametrar angavs. 1 förväntades.
/voigt/page/news.asp, line 6
line 6 är "set Recset = databas.execute(SQL)"
@ndersMedlem sedan juni 200032 969 inläggKolla dina tabell- och fältnamn så de stämmer.
PDahlenMedlem sedan apr. 2004778 inläggJag är inte säker på att du kan använda "datum" som namn. Om du har en svensk Access kan det vara ett skyddat ord.
Du kan ju prova att döpa om kolumnen om alla kolumnnamn stämmer i övrigt.
Dum som jag var så hade jag ingen datum fält :e men det var mer:
<%
SQL = "SELECT ord,id from words"
set Recset = databas.execute(SQL)
if not recset.eof then
myArray = recset.GetRows()
end if
recset.close
set recset = nothing
Function Free(f2)
Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true
f2 = Server.HTMLEncode(f2)
For i = 0 To Ubound(myArray)
objRegExp.Pattern = "(" &myArray(0,i) &")"
f2 = objRegExp.Replace(f2,"<b>$1:e</b>")
Next
free = f2
End Function
%>
Saken jag var intresserad av... det fungera inte just nu att få ett ord <B>ord1</b>... kommer det att fungera någonsin med denna kod?
tex
Vi har databasen med @nders,webforum,blåbär
och meningen:
"Idag så åt @nders ett blåbär här på webforum"
Så ska @nders,blåbär och webforum bli Tjock eller är jag helt ute och cykla?
Problemet ligger i din for-loop antar jag. Kan du inte testa med att ha en vanlig loop där du lägger in fälten i en variabel, och sen skickar du med variabelns värde till funktionen, och skriver objRegexp.Pattern = variabeln?
if not recset.eof then
do while not recset.eof
variabel = variabel & "|" & recset("databasfalt")
end while
end if
function free(variabel)
.....
end function
Hoppas du förstår mig.
problemet är nog att med att jag vill även ha myarray(1,i) eller ID:et på texten för att göra det till länkar sen... och att få dom tjocka :(
