Link

http://www.netcoders.dk/sources.asp?mode=view_source&id=30&tech_id=1
http://www.netcoders.dk/sources.asp?mode=view_source&id=591&tech_id=1

jeg kan ikke få den øverste til at virke..

her er koden:

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"database/db.mdb\")
Conn.Open DSN

strSQL = \"Select top 5 * from nyheder ORDER BY ID DESC\"
Set rs = Conn.Execute(strSQL)


%>
<%
Do While Not rs.EOF
besked = rs(\"besked\")
besked = Replace(besked,\":)\",\"<img src=\"\"smile/smile0.gif\"\">\")
besked = Replace(besked,\";)\",\"<img src=\"\"smile/smile1.gif\"\">\")
besked = Replace(besked,\":D\",\"<img src=\"\"smile/smile3.gif\"\">\")
besked = Replace(besked,\":\\\",\"<img src=\"\"smile/smile5.gif\"\">\")
besked = Replace(besked,\":(\",\"<img src=\"\"smile/smile9.gif\"\">\")
besked = Replace(besked,\":-)\",\"<img src=\"\"smile/smile11.gif\"\">\")
besked = Replace(besked,\":o)\",\"<img src=\"\"smile/smile13.gif\"\">\")
besked = Replace(besked,vbcrlf,\"<br>\")

LinkTekst = \"\"
A_Start = 1

if InStr(Tekst, \"http://\") then
  do until A_Start >= len(besked)
  LinkChr = InStr(A_Start, besked, \"http://\")
  NextSpace = InStr(LinkChr, besked, \" \")

  if NextSpace = 0 then NextSpace = Len(besked) + 1

  URL = Mid(Tekst, LinkChr, NextSpace - LinkChr)

  LinkTekst = LinkTekst & Mid(besked, A_Start, LinkChr - A_Start)
  LinkTekst = LinkTekst & \"<A Href=\" & Chr(34) & URL & Chr(34) & \">\" & URL & \"</A>\"

  if Int(LinkChr) = Int(InStrRev(besked, \"http://\")) then
    LinkTekst = LinkTekst & Mid(besked, NextSpace, Len(Tekst) - A_Start)
    A_Start = Len(besked)
  else
    A_Start = NextSpace
  end if
  loop
else
  LinkTekst = besked
end if
%>
<p>&nbsp;</p>
<div align=\"center\">
<table border=\"0\" width=\"83%\" cellspacing=\"0\" cellpadding=\"0\" height=\"6\"
style=\"border: 1 solid #000000\">
<tr>
<td width=\"100%\" height=\"9\" background=\"overskrift2.gif\"
style=\"border-bottom: 1 solid #000000\">
<div align=\"center\">
<table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<td width=\"50%\"><b><font face=\"Arial\" color=\"#FFFFFF\">..: <%=rs(\"overskrift\")%> :..</font></b></td>
</center>
<td width=\"50%\" valign=\"middle\">
<p align=\"right\"><font size=\"1\">af:&nbsp;<%=rs(\"navn\")%><br>Dato:&nbsp;<%=rs(\"dato\")%></font></td>
</tr>
</table>
</div>
</td>
</tr>
<tr>
<td width=\"100%\" height=\"1\" bgcolor=\"#6699FF\" valign=\"top\">
<p align=\"left\"><%=LinkTekst(besked)%></td>
</tr>
</table>
</div>
<%
  rs.MoveNext
Loop

Conn.Close
Set Conn = Nothing

%>

et sted kigger du på variablen \"besked\" - på andre hedder den pludselig \"tekst\" - så prøv at bruge \"besked\" hele vejen igennem...

???

????