Då kan det bero på att incopming inte har någoit vettigt värde.
Lägg till lite utskrifter
response.write "incoming:" & incoming & "<br>"
if isnull(incoming) then response.write "incoming is null "
Frågan#1
Jag har denna kod för att "invertera" HTML-kod till min egen forumkod då en användare redigerar
sitt inlägg. Nu är det så att en URL liknande
<a href="http://www.dileno.cjb.net" target="_blank">http://www.dileno.cjb.net</a> enbart ska
visas som http://www.dileno.cjb.net eftersom jag har en annan funktion som gör länkar av
http://-text. Nu är det så att jag undrar hur jag tar ut http://www.dileno.cjb.net ur
strängen så att enbart det syns när användaren ska redigera sidan? Om jag enbart kör forumkoden längst ner
skrivs url:en ut två gånger i rad vilket inte ser så bra ut. Men om jag försöker plocka ut url:en
genom denna första kodsnutt så fungerar det på en oberoende sida men inte i forumfunktionen Felmeddelandet blir:
Körningsfel i Microsoft VBScript fel '800a0005'
Ogiltigt proceduranrop eller argument.: 'Mid'
Koden för utplockning av url:en:
<% Dim VStart, VEnd, ThisLink, LinkDone
VStart = Instr(incoming,"<a")
VEnd = Instr(incoming,">")+1
ThisLink = (VEnd-VStart)
LinkDone = Mid(incoming,VStart,ThisLink)
Linkdone = ""
LinkFinished = incoming %>
<% 'Funktion för "invertering" av kod från forum-databasen
Function forumCodeInvert(incoming)
Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true
objRegExp.Pattern = "<span class=""codebehind"">"
incoming = objRegExp.Replace(incoming,"")
objRegExp.Pattern = "\<(b|/b|i|/i|u|/u|p)\>"
incoming = objRegExp.Replace(incoming,"[$1]")
objRegExp.Pattern = "<span class=""citat"">Citat:<br><img src=""graphics/line.gif"" width=""500"" height=""11""><br>"
incoming = objRegExp.Replace(incoming,"{citat}")
objRegExp.Pattern = "</span><br><img src=""graphics/line.gif"" width=""500"" height=""11""><br>"
incoming = objRegExp.Replace(incoming,"{/citat}")
objRegExp.Pattern = "<span class=""forumkod"">Kod:<br><img src=""graphics/codeline.gif"" width=""500"" height=""11""><br>"
incoming = objRegExp.Replace(incoming,"{kod}")
objRegExp.Pattern = "</span><br><img src=""graphics/codeline.gif"" width=""500"" height=""11""><br>"
incoming = objRegExp.Replace(incoming,"{/kod}")
objRegExp.Pattern = "</span>"
incoming = objRegExp.Replace(incoming,"")
objRegExp.Pattern = "(<a href="")|("" target=""_blank"">)|(</a>)|"
incoming = objRegExp.Replace(incoming,"")
forumCodeInvert = incoming
'Slut foruminvertering
End Function %>
Jag är oerhört tacksam för svar!! OBS! { och } ska på egentligen ersättas med [ och ]..