\ \ \ \

\\\<% =titel1 %\>\\\\\<% =date1 %\>\\ \<% =date2 %\>\\\\ $\<% =image1%\>$ \\<%response.write replace(name1, vbCrLf, "\")%\>\\\ \ \ Hur och vad ska man lägga koden för att få det fungera och hur gör man ett sådant, går det ?????? Tack snälla på förhand...... Permalänk: https://www.webforum.nu/p/82801 ## #2 — Inferis, 2003-07-26T15:13Z Ska du hämta flera poster så måste du loppa ut datan. exempel ``` response.write "" Antal=10 ' Hur många vill du visa do until antal=10 or rs.eof response.write "" Antal = Antal + 1 rs.movenext loop rs.close Set rs = nothing response.write "

'"& titel1 &"'

``` Du kanske ska använda ORDER BY DATE1 också istället för ID. Permalänk: https://www.webforum.nu/p/1121673 ## #3 — ragnared, 2003-07-26T15:16Z nej jag menar att den ska känna av texten som hämtas ifrån databasen om det är @ eller en www.hejhopp.com. Och då automatiskt göra den till email klickbar eller www adress klickbar hoppas ni förstår Permalänk: https://www.webforum.nu/p/1121681 ## #4 — Inferis, 2003-07-26T15:20Z Provade att söka och fann [detta](http://www.webforum.nu/showthread.php?s=&forumid=22&threadid=79454&highlight=klickbar+l%E4nk). Permalänk: https://www.webforum.nu/p/1121684 ## #5 — ragnared, 2003-07-26T15:23Z Tack snälla men det har jag redan hittat men jag fattar inte ett dyft hur det fungerar. Vet du det är jag tacksam förhjälp. Vad man ska lägga in det i mitt script... Permalänk: https://www.webforum.nu/p/1121687 ## #6 — solbulle, 2003-07-28T15:25Z Lägg in hela funktionen som ligger på sidan som ni länkar till, sen behöver du ju bara i utskriften av dina variabler, eller kanske enklare däör du lägger allt i variabler köra funktionen: ``` date1 = rs("pdate") date2 = rs("pdate1") image1 = rs("image") id = rs("id") name1 = convertLink(rs("pentry")) titel1 = rs("titel") ``` Om nu då tex name1 innehåller nyheten där länkar kan finnas. Jag ser inte att du stänger ditt rs, fast du kanske använder det mer längre ner på sidan? Permalänk: https://www.webforum.nu/p/1122571 ## #7 — ragnared, 2003-07-28T17:22Z Jag provade att lägga in det som du menar men får upp detta meddelande. Feltyp: Kompileringsfel i Microsoft VBScript (0x800A0401) Slut på programsats förväntas. /fastighet/boinfo.asp, line 47, column 20 date1 = convertLink rs("pentry") \-------------------^ Du skrev också att det skulle finnas något slut på sidan,vad menar du med det. Permalänk: https://www.webforum.nu/p/1122653 ## #8 — Inferis, 2003-07-28T17:32Z ``` date1 = convertLink rs("pentry") ``` Permalänk: https://www.webforum.nu/p/1122658 ## #9 — Inferis, 2003-07-28T17:34Z Sorry... Ska nog vara ``` date1 = convertLink(rs("pentry")) ``` Permalänk: https://www.webforum.nu/p/1122660 ## #10 — ragnared, 2003-07-28T17:35Z Jag får då upp detta meddelande: Körningsfel i Microsoft VBScript (0x800A000D) Inkompatibla typer: 'convertLink' Permalänk: https://www.webforum.nu/p/1122661 ## #11 — Inferis, 2003-07-28T18:20Z Har du tagit med en funktion som heter Function convertLink? Permalänk: https://www.webforum.nu/p/1122685 ## #12 — ragnared, 2003-07-28T19:23Z Vad menar du med det fattar inte det tyvärr Permalänk: https://www.webforum.nu/p/1122711 ## #13 — Inferis, 2003-07-28T19:25Z Du måste ju ha med en funktion som gör om din data till klickbara länkar. Antar att det är denna som du har följt. ``` Function convertLink(ByVal strText) Dim mDelimit Dim re mDelimit = Chr(0) Set re = New RegExp re.Global = True re.IgnoreCase = true re.Pattern = "(\w+((-\w+)|(\.\w+))*\@[A-Za-z0-9]+((\.|-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+)" strText = re.Replace(strText, "$1") re.Pattern = "([url]http://[/url]|[url]https://[/url]|[url]ftp://[/url]|mailto:)(\S)(\S+)" strText = re.Replace(strText, "$2" & mDelimit & "$3") re.Pattern = "(www\.(\S)(\S+))" strText = re.Replace(strText, "$1") strText = Replace(strText, mDelimit, "") convertLink=strText End Function ``` Permalänk: https://www.webforum.nu/p/1122713 ## #14 — Inferis, 2003-07-28T19:26Z Lägg den i din asp-sida och sen kan du använda dig av ``` response.write convertLink(rs("pentry")) ``` Permalänk: https://www.webforum.nu/p/1122714 ## #15 — Inferis, 2003-07-28T19:29Z Lite OT, men om du ska använda dig av \<% =date1 %\> så kan du lika gärna köra med \<%=rs("pdate") %\> istället. Så slipper du skriva: ``` date1 = rs("pdate") ``` Permalänk: https://www.webforum.nu/p/1122715 ## #16 — ragnared, 2003-07-28T19:29Z Tack så himla mycket Permalänk: https://www.webforum.nu/p/1122716 ## #17 — Inferis, 2003-07-28T19:33Z Kul att jag kan hjälpa till ibland och inte bara ställa frågor! :e Permalänk: https://www.webforum.nu/p/1122717 ## #18 — solbulle, 2003-07-28T20:21Z > **ragnared skrev:** > > ...Du skrev också att det skulle finnas något slut på sidan,vad menar du med det. Kanske syftar du på det jag skrev om att stänga ditt rs? Typ: ``` '...diverse kod.. date1 = convertLink(rs("pdate")) date2 = rs("pdate1") image1 = rs("image") id = rs("id") name1 = rs("pentry") titel1 = rs("titel") DSNtemp.close set DSNtemp = nothing set rs = nothing %> ... mera kod... ``` Permalänk: https://www.webforum.nu/p/1122739 --- Tråden på webben: https://www.webforum.nu/amne/asp/82801-hjälp-mig-snälla