Notifikationer

Markér alle som læst Log ud

tjaz Nybegynder

24. juli 2003 - 14:47 Der er 11 kommentarer og
1 løsning

Hjælp med replace

Hej!

Jeg har lavet en Fuction (som i nok kan se :)) der skal lave en replace af mit indhold i et notat felt fra min db, men med dette:

Function replaces(msg)
if id > "" then
msg = replace(msg, vbcrlf, " ")
end if
msg = replace(msg, "", "")
msg = replace(msg, "", "")
msg = replace(msg, "", "")
msg = replace(msg, "", "")
msg = replace(msg, "", "")
msg = replace(msg, "", "")
msg = replace(msg, "[img]", "<img src='")
msg = replace(msg, "[/img]", "' align='left'>")
response.write(msg)
End Function

får jeg denne besked:

Microsoft VBScript runtime error '800a005e'
Invalid use of Null: 'replace'

Hvis der IKKE er noget i db'en ... og jeg kan godt regne ud at det er fordi der ikke er noget at "replace", men hvad jeg hellere vil vide er hvordan jeg får den til at skrive: "Intet indtastet" hvis der IKKE står noget i db'en.

På forhånd tak :)

Synes godt om

medions Nybegynder

24. juli 2003 - 14:50 #1

Du gør sådan her:

If objRs.EOF Then
Response.Write("der findes ikke noget i databasen!")
Else

Function replaces(msg)
if id > "" then
msg = replace(msg, vbcrlf, " ")
end if
msg = replace(msg, "", "")
msg = replace(msg, "", "")
msg = replace(msg, "", "")
msg = replace(msg, "", "")
msg = replace(msg, "", "")
msg = replace(msg, "", "")
msg = replace(msg, "[img]", "<img src='")
msg = replace(msg, "[/img]", "' align='left'>")
response.write(msg)
End Function

replaces(objRs("feltnavn"))

End If

//>Rune

Synes godt om

jytte Nybegynder

24. juli 2003 - 14:55 #2

Er det ikke fordi der er udtrækkes en null-værdi fra databasen ?

msg = rs("feltnavn")
if not isnull(msg) then
replaces(msg)
end if

Synes godt om

medions Nybegynder

24. juli 2003 - 14:57 #3

Ja, han kunne selvfølgelig oxo gøre sådan her:

Function replaces(msg)
If Not Len(msg) = 0 Then
if id > "" then
msg = replace(msg, vbcrlf, " ")
end if
msg = replace(msg, "", "")
msg = replace(msg, "", "")
msg = replace(msg, "", "")
msg = replace(msg, "", "")
msg = replace(msg, "", "")
msg = replace(msg, "", "")
msg = replace(msg, "[img]", "<img src='")
msg = replace(msg, "[/img]", "' align='left'>")
Else
msg = "Der var ikke nogen tekst!"
End If
response.write(msg)
End Function

//>Rune

Synes godt om

tjaz Nybegynder

24. juli 2003 - 15:07 #4

nu er det sådan at min function ligger i en fil for sig selv så jeg kan kalde den frem når jeg skal bruge den ... så jeg kan ikke helt bruge den løsning du er kommet med ... eller er det bare mig der har misforstået noget ?

Synes godt om

medions Nybegynder

24. juli 2003 - 15:08 #5

Den jeg har givet dig her:

Fortsat svar: medions
24/07-2003 14:57:14

kan du godt bruge så !

//>Rune

Synes godt om

carpediem Nybegynder

24. juli 2003 - 15:12 #6

If LEN(rs("meg")) > 0 Then
msg = rs("msg")
Else
msg = "Intet indtastet"
End If

Call replaces(msg)

Synes godt om

medions Nybegynder

24. juli 2003 - 15:16 #7

carpediem> Øhh er det ikke mit svar bare i en anden model tror du???

//>Rune

Synes godt om

tjaz Nybegynder

24. juli 2003 - 15:18 #8

medions -> nu skriver den hvis der ikke er noget ... men skriver nu

Microsoft VBScript runtime error '800a005e'
Invalid use of Null: 'replace'

Hvis der ER noget ... (jeg har kopieret det ind du har skrevet)

Synes godt om

medions Nybegynder

24. juli 2003 - 15:22 #9

Function replaces(msg)
If Len(msg) > 1 Then

if Len(id) > 1 then
msg = replace(msg, vbcrlf, " ")
end if

msg = replace(msg, "", "")
msg = replace(msg, "", "")
msg = replace(msg, "", "")
msg = replace(msg, "", "")
msg = replace(msg, "", "")
msg = replace(msg, "", "")
msg = replace(msg, "[img]", "<img src='")
msg = replace(msg, "[/img]", "' align='left'>")
Else
msg = "Der var ikke nogen tekst!"
End If
response.write(msg)
End Function

//>Rune

Synes godt om

carpediem Nybegynder

24. juli 2003 - 15:33 #10

medions>> Nej, I dit er testen inde i funktionen, i min er den udenfor, men den minder meget om jyttes.

Synes godt om

tjaz Nybegynder

24. juli 2003 - 16:16 #11

jyttes virker max :) ... jytte giv et svar hvis du ønsker point plz :)

Synes godt om

jytte Nybegynder

24. juli 2003 - 16:32 #12

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS