dubbla inlägg

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

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%\>

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.

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

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

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 " br "

 sText = Server.HTMLEncode(sText)

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

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

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

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

Vad returnerar showAll("klotterText") egentligen?

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")

Nej, hur ser funktionen showAll ut?

showAll är ett RS

sText är denna

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

objRegExp.Pattern = "<link>(.*?)</link>"
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

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?

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

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?

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")

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

Visa gärna mer av koden.

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

Ge ett exempel

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

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.