---
title: "LINKADDER"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/70194-linkadder"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Jonte23"
published: "2003-03-06T00:32:09.000Z"
updated: "2003-03-06T03:32:03.000Z"
replies: 1
views: 210
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/70194-linkadder"
---

# LINKADDER

## #1 — Jonte23, 2003-03-06T00:32Z

Fel eller rätt forum kan diskuteras, men jag behöver ett snyggt litet script i form av linkadder så folk kan lägga in sin egen lilla länk på sin sida, samt gärna ge en liten kort komentar om vad det är för sida

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

## #2 — crisse6, 2003-03-06T03:32Z

Du soker ett fardigt? Ja da ar det fel (som nattvakt sager jag sa), formedling av jobb/tjanster ska nog vara det ratta, men for att jag ar sa snall kan jag ge dig ett som skrivs har nu:

Databasens uppbyggnad (Access):
ID \| Raknare/Autonumber
link \| Text
desc \| PM/Memo

```
[red]
<form method="post" name="glass" action="addLink.asp">
<input type="text" name="link">
<textarea cols="16" rows="6" name="desc"></textarea>
<input type="submit" value="Add my Link">
</form>
[/red]
```

```
[red]
<%
'detta ar addLink.asp
' db koppling
Dim strInsert, objConn, strLink, strDesc
strLink = request.form("link")
strDesc = request.form("desc")
strInsert = "Inser Into t_Links "&_
"(link, [desc]) "&_
"Values ('"&strLink&"','"&strDesc&"')"
objConn.execute strInsert,,128
objConn.close
set objConn = nothing
response.redirect "showLinks.asp"
%>
[/red]
```

```
[red]
<%
'showLinks.asp
'db koppling
Dim strPickItDude, rs, objConn
strPickItDude = "select top 10 * from t_Links Order by ID desc"
set rs = objConn.execute(strPickItDude)
If rs.eof then
response.write "No links in database"
Else
Do until rs.eof
response.write rs("link")&"<br>"&rs("desc")&"<hr>"
rs.movenext
loop
End IF
rs.close
set rs = nothing
objConn.close
set objConn = nothing
%>
[/red]
```

sa dar ;) Hoppas det funkar!

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/70194-linkadder