---
title: "Automatisk länkning"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/5772-automatisk-länkning"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "fredrik99"
published: "2000-06-01T21:48:00.000Z"
updated: "2000-06-02T23:39:00.000Z"
replies: 17
views: 252
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/5772-automatisk-länkning"
---

# Automatisk länkning

## #1 — fredrik99, 2000-06-01T21:48Z

Jag har ett nyhetsscript i en databas.
När jag skriver en nyhet så är det rätt jobbigt att hålla på att länka en massa ord. Därför har jag gjort en ny tabell, och där jag har jag fälten: namn och url. Jag undrar hur man automastiskt länkar.
Ex: skriver man nokia i en nyhet så ska den automatiskt bli länkad till nokias hemsida.

\[Redigerat av fredrik99 den 01 jun 2000\]

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

## #2 — AG, 2000-06-02T07:25Z

Låter ju precis som det mikrodatorn avvände i ett exempel.
Kolla idg.se/mikrodatorn leta efter nyhetspublicering

Andreas

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

## #3 — fredrik99, 2000-06-02T09:17Z

Har laddat hem det...ändrade i global.asa som det stod på deras hemsida.. men det funkar ändå inte..
Varför?

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

## #4 — Vide, 2000-06-02T09:25Z

Lite kod skulle inte skada...

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

## #5 — fredrik99, 2000-06-02T09:31Z

Global.asa
ser ut så här:

```
<SCRIPT LANGUAGE=VBScript RUNAT=Server> 
Sub Session_OnStart 
Set Connection = Server.CreateObject("ADODB.Connection") 
Connection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\inetpub\wwwroot\new\news.mdb" 
SQLStmt = "SELECT Namn, Url FROM links" 
Set RS = Connection.Execute(SQLStmt) 
Session("MyArray") = RS.GetRows() 
RS.Close 
Connection.Close 
End Sub

</SCRIPT> 
<SCRIPT LANGUAGE=VBScript RUNAT=Server> 
Sub Application_OnStart 
Application("NewsDatabasePath")= "driver={Microsoft Access Driver (*.mdb)};dbq=c:\inetpub\wwwroot\new\news.mdb" 
End Sub 
</SCRIPT> 
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_OnEnd
End Sub
</SCRIPT>
```

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

## #6 — Danmagnus, 2000-06-02T12:18Z

Varför krångla?.
Här har jag satt ihop ett fint litet script till dig.
Har märkt att många programmerare försöker göra koden så invecklad
som möjligt bara för att dom ska verka duktiga. Men jag tycker man
ska hålla koden så enkel och kort som möjligt. Det är bättre.
Lycka till.

I tabellen "textbank" kan du lägga in sökord som scriptet letar i.

databasnamn = "databasen" i samma mapp
tabellnamn = "textbank"
fält = "namn" och "url"  ("namn"=sökord, "url"=adressen till sökordet)

```

<%
nyhetstexten=request.form("nyhetstext")

A=SERVER.MAPPATH("./")&"\databasen.mdb"   
Set databas = Server.CreateObject("ADODB.Connection")
databas.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&A
set poster=databas.execute("SELECT * FROM textbank")

nyhetstexten=SPLIT(nyhetstexten)

FOR x=0 TO UBOUND(nyhetstexten)
DO UNTIL poster.eof=true
IF poster.fields("namn")=nyhetstexten(x) THEN 
nyhetstexten(x)="<A HREF="&poster.fields("url")&">"&nyhetstexten(x)&"</A>"
END IF
poster.movenext
LOOP
poster.movefirst
NEXT

Set poster=Nothing
databas.Close
set databas=Nothing

nyhetstexten=JOIN(nyhetstexten)

response.write("<PRE>"&nyhetstexten&"<PRE>")

%>
```

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

## #7 — Danmagnus, 2000-06-02T12:20Z

Glöm inte "ID" (räknare) i tabellen "textbank"

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

## #8 — Vide, 2000-06-02T14:23Z

> Har märkt att många programmerare försöker göra koden så invecklad
> som möjligt bara för att dom ska verka duktiga.

Nja vissa kanske gör det... men min kod brukar jag göra så att man lätt kan utvekla den vid ett senare tillfälle. Detta kan i många fall göra så att koden ser mer komplicerad ut, men den gör samtidigt det lättare i framtiden... Så att göra koden komplicerad bara för syns skull kan jag inte hålla med om...

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

## #9 — Danmagnus, 2000-06-02T18:40Z

He he, det var inte riktat till nån härinne.

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

## #10 — fredrik99, 2000-06-02T19:16Z

Danmagnus\>\>
Den koden som du har gjort, hur ska den sparas? fö det ska funka.
som global.asa eller?

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

## #11 — Danmagnus, 2000-06-02T19:42Z

hmmm du torde lära dig lite om ASP.  annars blir det jobbigt att helt och hållet skriva script åt dig.

du använder INSERT INTO nyhetstexten
efter JOIN raden

 tycker det är lite konstigt det här med global.asa ... jag har gjort dussintals script, allt från chattar till register,forum, och jag har aldrig någonsin använt global.asa.

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

## #12 — emission, 2000-06-02T20:22Z

Ingen bra idé att lägga en potentiellt stor array som sessionsvariabel. Inte bra alls.

\[Redigerat av emission den 02 jun 2000\]

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

## #13 — sgtpepper, 2000-06-02T21:46Z

Från ww.4guysfromrolla.com:
[This FAQ describes why, exactly, Session variables are the minions of Satan.](http://www.4guysfromrolla.com/webtech/faq/Advanced/faq4.shtml)

 :e

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

## #14 — Danmagnus, 2000-06-02T22:11Z

Vadå?!.. 
här får du ett litet förbättrat script.

```
<%
nyhetstexten=request.form("nyhetstext")

A=SERVER.MAPPATH("./")&"\databasen.mdb"   
Set databas = Server.CreateObject("ADODB.Connection")
databas.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&A
set poster=databas.execute("SELECT * FROM textbank")

DO UNTIL poster.eof=true
nyhetstexten=REPLACE(nyhetstexten,poster.fields("namn"),"<A HREF="&poster.fields("url")&">"&poster.fields("namn")&"</A>")
poster.movenext
LOOP

Set poster=Nothing
databas.Close
set databas=Nothing

response.write("<PRE>"&nyhetstexten&"<PRE>")
%>
```

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

## #15 — Danmagnus, 2000-06-02T22:13Z

OBS REPLACE raden blev så stor att den sista biten hamnade på raden under.

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

## #16 — Danmagnus, 2000-06-02T22:14Z

OBS REPLACE raden blev så stor att den sista biten hamnade på raden under.

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

## #17 — Danmagnus, 2000-06-02T22:25Z

observera att REPLACE raden blev så stor att den den sista biten hamnade på raden inunder

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

## #18 — emission, 2000-06-02T23:39Z

Ja...du säger det ;)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/5772-automatisk-länkning
