---
title: "dubbla inlägg"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/135073-dubbla-inlägg"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "WebbisNet"
published: "2005-10-01T12:56:26.000Z"
updated: "2005-10-02T09:54:57.000Z"
replies: 19
views: 766
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/135073-dubbla-inlägg"
---

# dubbla inlägg

## #1 — WebbisNet, 2005-10-01T12:56Z

I mitt community så visas vissa klotterinlägg dubbelt troots att det inte är nåt fel med inserten eller visningen på sidan, i db sparas inga dubbla poster men ändå för VISSA medlemmar så visas det de skriver dubbelt, varken jag eller sb kan komma på vad som spökar

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

## #2 — webbSAJTEN, 2005-10-01T12:58Z

Visa din kod så kanske jag kan hjälpa till :D

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

## #3 — WebbisNet, 2005-10-01T13:12Z

> **webbSAJTEN skrev:**
>
> Visa din kod så kanske jag kan hjälpa till :D

			\<%If CBool(showAll("vip")) Then%\>
			\<%=replace(maketext(makeHtml(showAll("klotterText"))),vbCrLf,"\<br\>")%\>
			\<%'sText = parseHTML(showAll("klotterText"))
			'Response.Write sText%\>
			
			\<%Else
			
			sText = replace(showAll("klotterText"),vbCrLf,"\<br\>")
			sText = replace(showAll("klotterText"),"\<","&nbsp;")
			sText = replace(showAll("klotterText"),"\>","&nbsp;")
			sText = Server.HTMLEncode(showAll("klotterText"))
			sText = parseHTML(showAll("klotterText"))
			sText = convertLink(showAll("klotterText"))
			Response.Write sText%\>
			\<%End If%\>

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

## #4 — emission, 2005-10-01T23:06Z

Men hur hämtar du ut informationen?

Dessutom är koden konstig. Som det ser ut är det endast convertLink som körs, eftersom du skriver över variabeln sText hela tiden.

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

## #5 — WebbisNet, 2005-10-01T23:12Z

hur skulle du skriva om den på enklast sätt för att få med allt?

parseHTML används inte....tog bort den innan

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

## #6 — emission, 2005-10-01T23:33Z

Mja, för att råda bot på det problem jag nämnde så...

```
 sText = replace(showAll("klotterText"),vbCrLf,"<br>")
sText = replace(sText ,"<","&nbsp;")
sText = replace(sText ,">","&nbsp;")
sText = Server.HTMLEncode(sText )
sText = parseHTML(sText )
sText = convertLink(sText )
```

Men det är ändå lite lurigt, eftersom

```
 sText = replace(showAll("klotterText"),vbCrLf,"<br>")
```

ersätter alla radbrytningar med "\<br\>"

```
sText = replace(sText,"<","&nbsp;")
sText = replace(sText,">","&nbsp;")
```

ersätter alla "\<" och "\>" med "&nbsp", vilket gör att alla "\<br\>" från förra funktionen blir "&nbsp;br&nbsp;"

```
 sText = Server.HTMLEncode(sText)
```

ersätter alla "&" ,med "&amp;", dvs. "&amp;nbsp;br&amp;nbsp;"

Möjligtvis kan man tänka sig följande:

```
sText = Server.HTMLEncode(showAll("klotterText"))
sText = replace(sText,vbCrLf,"<br>")
sText = convertLink(sText )
```

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

## #7 — WebbisNet, 2005-10-01T23:47Z

med
sText = Server.HTMLEncode(showAll("klotterText"))
sText = replace(sText,vbCrLf,"\<br\>")
sText = convertLink(sText )
blir det fortfarande bara text och ingen länk :-(

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

## #8 — emission, 2005-10-01T23:55Z

Vad returnerar showAll("klotterText") egentligen?

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

## #9 — WebbisNet, 2005-10-01T23:56Z

den returnerar de 20 senaste posterna

Set showAll=objConn.Execute("SELECT TOP 20 tblUsers_klotterplanket.wap,tblUsers_klotterplanket.mobil,tblUsers.vip,tblUsers.userID, tblUsers.username, tblUsers.persnr, tblUsers.Sex, tblUsers.picture, tblUsers_klotterplanket.klottrare, tblUsers_klotterplanket.klotterID, tblUsers_klotterplanket.klotterIP, tblUsers_klotterplanket.klotterDatum, tblUsers_klotterplanket.klotterText "&\_
"FROM tblUsers INNER JOIN tblUsers_klotterplanket ON tblUsers.username = tblUsers_klotterplanket.klottrare order by tblUsers_klotterplanket.klotterDatum Desc")

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

## #10 — emission, 2005-10-01T23:59Z

Nej, hur ser funktionen showAll ut?

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

## #11 — WebbisNet, 2005-10-02T00:06Z

showAll är ett RS

sText är denna

```
Dim objRegExp
Set objRegExp = New RegExp
objRegExp.Global = True
objRegExp.IgnoreCase = True

objRegExp.Pattern = "&lt;link&gt;(.*?)&lt;/link&gt;"
sText = objRegExp.Replace(sText,"<a class=""chattText"" href=""$1"" target=""_blank"">$1</a>")

RegExp = sText

sText = Replace(sText,":-)"," <img src=""/images/smileys/happy.gif"">")
sText = Replace(sText,":-D"," <img src=""/images/smileys/happy1.gif"">")
sText = Replace(sText,":-()"," <img src=""/images/smileys/angry.gif"">")
sText = Replace(sText,";-("," <img src=""/images/smileys/sad.gif"">")
sText = Replace(sText,";-)"," <img src=""/images/smileys/flirt.gif"">")
sText = Replace(sText,"8-)"," <img src=""/images/smileys/cool.gif"">")
sText = Replace(sText,"beer"," <img src=""/images/smileys/beer.gif"">")
sText = Replace(sText,":-p"," <img src=""/images/smileys/tounge.gif"">")
sText = Replace(sText,":-L"," <img src=""/images/smileys/love.gif"">")
sText = Replace(sText,":-%"," <img src=""/images/smileys/devil.gif"">")
sText = Replace(sText,"rose"," <img src=""/images/icons/rose1.gif"">")
RegExp = sText
End Function
```

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

## #12 — emission, 2005-10-02T00:10Z

OK, då är jag med. 

1\. Funktionen heter RegExp, vilket inte är så lyckat, eftersom det är ett namn på en klass
2\. Jag omformulerar. Vad innehåller showAll("klotterText")?
3\. När använder du funktionen som du skrev ovan?

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

## #13 — WebbisNet, 2005-10-02T00:17Z

Hur ska jag göra med nummer 1 då
vad showAll som är ett RS innehåller har jag redan visat
använder den i klotterplanket

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

## #14 — emission, 2005-10-02T00:20Z

> **WebbisNet skrev:**
>
> Hur ska jag göra med nummer 1 då

Byt namn på funktionen

> **WebbisNet skrev:**
>
> vad showAll som är ett RS innehåller har jag redan visat
> använder den i klotterplanket

Men vad innehåller showAll("klotterText")? Ge ett exempel som strular.

Hur ser koden ut nu?

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

## #15 — WebbisNet, 2005-10-02T00:22Z

koden innehåller 

```
Set showAll=objConn.Execute("SELECT TOP 20 tblUsers_klotterplanket.wap,tblUsers_klotterplanket.mobil,tb lUsers.vip,tblUsers.userID, tblUsers.username, tblUsers.persnr, tblUsers.Sex, tblUsers.picture, tblUsers_klotterplanket.klottrare, tblUsers_klotterplanket.klotterID, tblUsers_klotterplanket.klotterIP, tblUsers_klotterplanket.klotterDatum, tblUsers_klotterplanket.klotterText "&_
"FROM tblUsers INNER JOIN tblUsers_klotterplanket ON tblUsers.username = tblUsers_klotterplanket.klottrare order by tblUsers_klotterplanket.klotterDatum Desc")
```

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

## #16 — emission, 2005-10-02T00:26Z

Men vad innehåller showAll("klotterText")?! Står det "laktosintolerans", "Ronja Rövardotter" eller vad?

Visa gärna mer av koden.

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

## #17 — WebbisNet, 2005-10-02T00:40Z

showAll innehåller klotterdatan från den tabellen, har över 3600 poster där

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

## #18 — emission, 2005-10-02T00:41Z

Ge ett exempel

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

## #19 — WebbisNet, 2005-10-02T01:06Z

```
klotterID	klottrare	klotterIP	klotterDatum	klotterText	mobil	wap
68	Onkelborg	217.210.208.121	1905-05-30	Klottrar................ Stör ej!	No	No
70	kusin vitamin	82.117.98.146	1905-05-29	tjena! fick regga ett nytt.fin sida,du e sååå duktig! hälsa farmor (mormor) från mig, är du snäll.	No	No
72	Admin	213.65.33.77	1905-05-21	Har lite problem med datumet, men arbetar på att lösa problemet	No	No
74	preciousgirl	217.75.122.252	2004-08-09	"HÅRDROCK & PARADIS!

Check this out! :)

Metalcamp 2004 <big>( [url]www.metalcamp.com[/url] )</big> är en för oss helt ny festival. Den är belägen i en stad som heter Tolmin i Slovenien. När vi först såg affischerna och flygbladen blev vi helt paffa. En festival i bästa paradiset. Vi insåg ganska fort att vi helt enkelt var tvungna att försöka få ihop folk till detta grymt fräcka arrangemang. 
Banden som spelar är bland annat Danzig, Apocalyptica, Hypocrisy, Primal fear, Sentenced, Destruction, Finntroll och många många andra..........

[Hela texten återfinns under Skrivklådan]"	No	No
75	kilju	81.226.115.26	1905-06-07	hej	No	No
76	preciousgirl	217.75.122.252	1905-06-07	Nån som är intresserad av att haka på oss till Metalcamp? :)	No	No
77	kusin vitamin	82.117.98.146	1905-06-03	hej hej!!	No	No
78	kilju	81.226.115.26	1905-05-31	xc<xz	No	No
83	snuttis	212.247.246.46	1905-05-31	min sida funkar ju inte ens???	No	No
84	Becke	81.224.245.228	1905-05-27	Inte min heller	No	No
85	kusin vitamin	82.117.98.146	1905-05-27	bara vänta vänner ,han e ju inte helt klar med sidan än!!	No	No
86	Test	217.209.227.11	1905-05-27	"Jag har fixat problemet med att sidan inte visas, ska bara ordna med notifikationen nu
"	No	No
```

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

## #20 — emission, 2005-10-02T09:54Z

Bra.

Jag provkörde din kod med inlägg 74, och det fungerar klockrent, förutom url-taggen, men det finns ju ingen funktion som löser den biten ännu.

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/135073-dubbla-inlägg