asp string manipulation

<%
Function quotes(strInput)

Set objRegExpHTTP1 = New RegExp
objRegExpHTTP1.Global = True
objRegExpHTTP1.IgnoreCase = True

objRegExpHTTP1.Pattern = "(\[QUOTE])(.*?)(\[/QUOTE])"
set rs = server.createobject("adodb.connection")
rs.open str
sql = "select * from tabel where id = $2"
set rs = rs.execute(sql)
if not rs.eof
strOutput = objRegExpHTTP1.Replace(strInput, rs.fields("feltnavn"))
else
strOutput = objRegExpHTTP1.Replace(strInput, "")
end if

set objRegExpHTTP1 = Nothing
quotes = strOutput
end function
%>


Det kan muligvis gøres med denne funktion...
Så kalder du den bare

quotes(request.form("form navn"))

glemte lige lidt \...

Dette burde være bedre.

<%
Function quotes(strInput)

Set objRegExpHTTP1 = New RegExp
objRegExpHTTP1.Global = True
objRegExpHTTP1.IgnoreCase = True

objRegExpHTTP1.Pattern = "\[QUOTE\](.*?)\[/QUOTE\]"
set rs = server.createobject("adodb.connection")
rs.open str
sql = "select * from tabel where id = $1"
set rs = rs.execute(sql)
if not rs.eof
strOutput = objRegExpHTTP1.Replace(strInput, rs.fields("feltnavn"))
else
strOutput = objRegExpHTTP1.Replace(strInput, "")
end if

set objRegExpHTTP1 = Nothing
quotes = strOutput
end function
%>

kan du forklare hvad koden går ud på?

Sådan som jeg ser det der er det en funktion der kaldes inden et nyt indlæg smides i databasen. Det jeg gerne vil have er noget i denne retning:

Inden et indlæg skrives ud køres følgende for at sætte en smiley ind:

strTekst = rs("tekst")
strTekst = Replace(strTekst, ":)","<img src='grafik/smiley_smile.gif'>")
Response.Write strTekst

Derved er feltet tekst i databasen altid ":)" og ikke hele url'en

så gør du bare det samme... så kan du skrive teksten ud med...

<%
Function quotes(strInput)

Set objRegExpHTTP1 = New RegExp
objRegExpHTTP1.Global = True
objRegExpHTTP1.IgnoreCase = True

objRegExpHTTP1.Pattern = "\[QUOTE\](.*?)\[/QUOTE\]"
set rs = server.createobject("adodb.connection")
rs.open str
sql = "select * from tabel where id = $1"
set rs = rs.execute(sql)
if not rs.eof
strOutput = objRegExpHTTP1.Replace(strInput, rs.fields("feltnavn"))
else
strOutput = objRegExpHTTP1.Replace(strInput, "")
end if
rs.close
set objRegExpHTTP1 = Nothing
quotes = strOutput
end function


strTekst = rs("tekst")
strTekst = quotes(strTekst)
strTekst = Replace(strTekst, ":)","<img src='grafik/smiley_smile.gif'>")
Response.Write strTekst
%>
Koden er en funktion der finder alle forekomster af [quote] og tager teksten imellem, denne tekst skulle gerne smides i en sql, og derefter vha. en connection
og denne teksten fra databasen sættes så ind på pladsen i stedet for [quote]1234[/quote]
Husk at rette tabelnavnet samt denne feltnavnet i denne linie.. strOutput = objRegExpHTTP1.Replace(strInput, rs.fields("feltnavn"))

virkede det ?

Jeg har ikke haft tid til at prøve det endnu. Jeg prøver det i eftermiddag.

Uha, jeg fik en underlig fejl...


Microsoft VBScript compilation error '800a03ea'

Syntax error

/debat2.asp, line 10

Set objRegExpHTTP1 = New RegExp
---------------------^

har du fået den fejl før ?

eller rettere, hvilken webserver bruger du ?

Nej, jeg prøver lige at sidde og rode med det. JEg har fjernet new, og så har jeg sat et then ind i then ind i if sætningen.

Nu har jeg "støvsuget" koden og får følgende fejl når jeg køre asp filen:

Microsoft VBScript runtime error '800a01a8'

Object required: 'RegExp'

/debat2.asp, line 10

Hvad er det for noget trylleri RegExp objektet lavar?

regexp kører hele koden igennem hvor den leder efter elementer der matcher pattern der er defineret.
Derefter replacer den i de forekomster som den kender.

Hvilken webserver har du ?

Unix med ChilliASP

Men never mind. Jeg finder på en anden løsning.

Tak for hjælpen

Husk at lukke her...

Men problemet er at RegExp ikke kører under ChiliASP..