---
title: "Blir fel när objNews hämtar text"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/156115-blir-fel-när-objnews-hämtar-text"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "MadMange"
published: "2007-01-18T19:41:34.000Z"
updated: "2007-01-19T22:16:43.000Z"
replies: 13
views: 551
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/156115-blir-fel-när-objnews-hämtar-text"
---

# Blir fel när objNews hämtar text

## #1 — MadMange, 2007-01-18T19:41Z

Kunde inte komma på någon bättre rubrik.. men men =)

Nu har jag den koden nedan för att skriva ut nyheter, men det blir helt fel, koden skriver ut all text efter varann objNews("tbody") även fast jag har enterslag osv med. Någon som har lust att hälpa mig med detta problem?
Sen har jag även en önskan att bildlänkar skrivs ut som just bilder, nu skriver den bara ut som rent text tex

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

## #2 — @nders, 2007-01-18T20:01Z

Vi börjar väl med det första bekymret.

> koden skriver ut all text efter varann objNews("tbody") även fast jag har enterslag osv med.

Inte helt konstigt, eftersom radbrytningar visas som mellanslag i webbläsare. I HTML använder man ju \<br/\> som radbrytning. Därför måste du göra en replace:

```
Response.Write Replace(objNews("tbody"), vbcrlf, "<br/>") & "<br/>"
```

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

## #3 — MadMange, 2007-01-18T20:07Z

> **@nders skrev:**
>
> Vi börjar väl med det första bekymret.
>
> > koden skriver ut all text efter varann objNews("tbody") även fast jag har enterslag osv med.
>
> Inte helt konstigt, eftersom radbrytningar visas som mellanslag i webbläsare. I HTML använder man ju \<br/\> som radbrytning. Därför måste du göra en replace:
>
> ```
> Response.Write Replace(objNews("tbody"), vbcrlf, "<br/>") & "<br/>"
> ```

Och jag hade "nästan" klurat ut koden, men jag gav till sist upp och postade mitt problem här (kodar helt enkelt för sällan i .asp)
Och som blixten så har man fått svar.
Stort tack till dig @nders!   :) 

Nu är det bara det där "lilla" problemet med bilderna som sagt   :r

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

## #4 — MadMange, 2007-01-18T21:18Z

Blir tokig på detta, försöker få ihop det hela med bilder med hjälp av Replace, men jag lyckas bara inte!
Det är ju

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

## #5 — MadMange, 2007-01-19T16:29Z

upp!!

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

## #6 — Peter S, 2007-01-19T17:00Z

Samtliga förekomster av *![](https://foo.png)* kommer att ersättas av HTML:s \<img\>-tagg med "foo.png" som värde för src-attributet. Så

```
objRegExp.Pattern = "\[img\]([^\]]+)\[/img\]"
[red]objRegExp.Global = true[/red]
strText = objRegExp.Replace(objNews("tbody"),"<img border=""0"" src=""$1""><br/>")
response.write strText
```

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

## #7 — MadMange, 2007-01-19T19:25Z

> **Peter S skrev:**
>
> Samtliga förekomster av *![](https://foo.png)* kommer att ersättas av HTML:s \<img\>-tagg med "foo.png" som värde för src-attributet. Så
>
> ```
> objRegExp.Pattern = "\[img\]([^\]]+)\[/img\]"
> [red]objRegExp.Global = true[/red]
> strText = objRegExp.Replace(objNews("tbody"),"<img border=""0"" src=""$1""><br/>")
> response.write strText
> ```

OK.. hmm
Men helt ärligt så är jag vilse, med foo.png menar du då tex den sökvägen till vilken bild som helst (som jag lägger in i db:n)
Hur skall det se ut i min kod?   :r

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

## #8 — Peter S, 2007-01-19T19:27Z

Ja, som i ditt exempel:

```
&#91;img]http://forum.cvgty.nu/21.jpg[/img]
```

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

## #9 — MadMange, 2007-01-19T19:30Z

> **Peter S skrev:**
>
> Ja, som i ditt exempel:
>
> ```
> [img]http://forum.cvgty.nu/21.jpg[/img]
> ```

Jepp det är jag med på nu, men jag har försökt att få in den funktionen i koden, men det funkar inte.

Jag postar "hela" koden istället.

```
<%

Set objConn = Server.CreateObject("ADODB.Connection") 
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db.mdb")
'//Converts UNIX timestamps into the format the current webserver use.
Function uTimeStamp(byval dDate) '// Bring the date back from database and show in current session.LCID
on error resume next
uTimeStamp = DateAdd("s", dDate, "01/01/1970 00:00:00")
if err then
cTimeStamp = int(0)
end if
End Function

dim strSQL
strSQL = "SELECT TOP 10 * FROM aspbb_topics WHERE tforumid=6 ORDER BY tdatecreate DESC" 
set objNews = objConn.Execute(strSQL)

Do Until objNews.EOF
Response.Write "<p><div style=""background-color:#f1f1f1"" class=""aspbbcolormain"">" & objNews("ttitle") & "&nbsp;-&nbsp;" & uTimeStamp(objNews("tdatecreate")) & "</div><br/>" & vbNewLine
Response.Write Replace(objNews("tbody"), vbcrlf, "<br/>") & "<br/>"
Response.write "<div style=""text-align:right""><a href=""topic.asp?TID=" & objNews("tid") & """>Diskutera</a></div>" & vbNewLine
Response.Write "<br/></p>" & vbNewLine 
objNews.MoveNext
Loop
   
objNews.Close : Set objNews = Nothing
objConn.Close : Set objConn = Nothing
%>
```

Så var/hur ska det in?

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

## #10 — Peter S, 2007-01-19T19:35Z

```
[red]set objRegExp = new regexp
objRegExp.global = true
objRegExp.pattern = "\[img\]([^\]]+)\[/img\]"[/red]
Do Until objNews.EOF
 Response.Write "<p><div style=""background-color:#f1f1f1"" class=""aspbbcolormain"">" & objNews("ttitle") & "&nbsp;-&nbsp;" & uTimeStamp(objNews("tdatecreate")) & "</div><br/>" & vbNewLine
 [red]strText = Replace(objNews("tbody"), vbcrlf, "<br/>") & "<br/>"
 strText = objRegExp.replace(strText,"<img border=""0"" src=""$1""><br/>")[/red]
 Response.write "<div style=""text-align:right""><a href=""topic.asp?TID=" & objNews("tid") & """>Diskutera</a></div>" & vbNewLine
 Response.Write "<br/></p>" & vbNewLine 
 objNews.MoveNext
Loop
[red]set objRegExp = nothing[/red]
```

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

## #11 — MadMange, 2007-01-19T19:40Z

> **Peter S skrev:**
>
> ```
> [red]set objRegExp = new regexp
> objRegExp.global = true
> objRegExp.pattern = "\[img\]([^\]]+)\[/img\]"[/red]
> Do Until objNews.EOF
>  Response.Write "<p><div style=""background-color:#f1f1f1"" class=""aspbbcolormain"">" & objNews("ttitle") & "&nbsp;-&nbsp;" & uTimeStamp(objNews("tdatecreate")) & "</div><br/>" & vbNewLine
>  [red]strText = Replace(objNews("tbody"), vbcrlf, "<br/>") & "<br/>"
>  strText = objRegExp.replace(strText,"<img border=""0"" src=""$1""><br/>")[/red]
>  Response.write "<div style=""text-align:right""><a href=""topic.asp?TID=" & objNews("tid") & """>Diskutera</a></div>" & vbNewLine
>  Response.Write "<br/></p>" & vbNewLine 
>  objNews.MoveNext
> Loop
> [red]set objRegExp = nothing[/red]
> ```

Hmm ok nu skriver den ut rubriken, med inte texten eller nått, får inget felmeddelande eller så..

Edit: Fattades visst response.write strText  =)

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

## #12 — MadMange, 2007-01-19T20:14Z

Och sedan ändrade jag till objRegExp.pattern = "\\

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

## #13 — Peter S, 2007-01-19T21:42Z

Glöm inte:
<http://www.webforum.nu/faq.php?faq=vb_board_usage#faq_faq_acceptance>

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

## #14 — MadMange, 2007-01-19T22:16Z

> **Peter S skrev:**
>
> Glöm inte:
> <http://www.webforum.nu/faq.php?faq=vb_board_usage#faq_faq_acceptance>

Nej då.   :) 
Och tack till @nders med givetvis.

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/156115-blir-fel-när-objnews-hämtar-text