---
title: "Kan detta fungera?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/102704-kan-detta-fungera"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "voigtann1"
published: "2004-05-01T07:01:53.000Z"
updated: "2004-05-01T09:37:43.000Z"
replies: 5
views: 227
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/102704-kan-detta-fungera"
---

# Kan detta fungera?

## #1 — voigtann1, 2004-05-01T07:01Z

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)"

Permalänk: https://www.webforum.nu/p/102704

## #2 — @nders, 2004-05-01T07:13Z

Kolla dina tabell- och fältnamn så de stämmer.

Permalänk: https://www.webforum.nu/p/1336230

## #3 — PDahlen, 2004-05-01T08:17Z

Jag ä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.

Permalänk: https://www.webforum.nu/p/1336238

## #4 — voigtann1, 2004-05-01T09:13Z

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?

Permalänk: https://www.webforum.nu/p/1336267

## #5 — m_soderlund, 2004-05-01T09:32Z

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.

Permalänk: https://www.webforum.nu/p/1336274

## #6 — voigtann1, 2004-05-01T09:37Z

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 :(

Permalänk: https://www.webforum.nu/p/1336277

---

Tråden på webben: https://www.webforum.nu/amne/asp/102704-kan-detta-fungera