LINKADDER

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

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!