Notifikationer

Markér alle som læst Log ud

chaser64 Nybegynder

31. oktober 2005 - 10:00 Der er 4 kommentarer og
1 løsning

Replace tekst med asp-kode

Hej Eksperter,

Jeg har tidligere benyttet mig af en lille replace-funktion hvor man kan skrive eks. <-@Navn@-> i et html-dokument.. det kører jeg så igennen en asp-fil, hvor jeg replacer <-@Navn@-> med rs("Navn")...

Det virker fint..

Mit problem er nu at jeg skal replace <-@KODE@-> med mange liniers kode..

eks.:
---------------------------------------------------------
Calender = Calender & If dtmCurDate = dtmToday Then
Calender = Calender & Response.Write ""
Calender = Calender & End If
Calender = Calender & Response.Write Day(dtmCurDate)
Calender = Calender & If Len(Title) <> "" AND Date_From = dtmCurDate Then
Calender = Calender & Response.Write " "&Title&"</a>"
Calender = Calender & End If
---------------------------------------------------------

Men det vil ikke virke :o(

Er der nogen som kan se hvad jeg gør forkert?

På forhånd tak...

//Chaser

Synes godt om

softspot Forsker

31. oktober 2005 - 10:08 #1

Jeg ville nok gøre sådan her:

If dtmCurDate = dtmToday Then
replaceText = "" & Day(dtmCurDate) & ""
else
replaceText = Day(dtmCurDate)
End If

Calender = Calender & replaceText

Synes godt om

softspot Forsker

31. oktober 2005 - 10:12 #2

Eller rettere, sådan (titlen skal jo lige med):

if len(title) > 0 and date_from = dtmCurDate then
titleText = " & title & ""
else
titleText = ""
end if

If dtmCurDate = dtmToday Then
replaceText = "" & Day(dtmCurDate) & titleText & ""
else
replaceText = Day(dtmCurDate) & titleText
End If

Calender = Calender & replaceText

Men rent bort set fra det, så er der ikke ret meget af den kode du har lavet der kan køre... :)

Synes godt om

softspot Forsker

31. oktober 2005 - 10:14 #3

...og det kan min heller ikke. Strengen skal lige startes foran titleText:

if len(title) > 0 and date_from = dtmCurDate then
titleText = " " & title & ""
else
titleText = ""
end if

If dtmCurDate = dtmToday Then
replaceText = "" & Day(dtmCurDate) & titleText & ""
else
replaceText = Day(dtmCurDate) & titleText
End If

Calender = Calender & replaceText

Synes godt om

softspot Forsker

08. november 2005 - 11:17 #4

chaser64, kom du videre?

Synes godt om

softspot Forsker

21. november 2005 - 14:38 #5

OK, det tolker jeg som et "Ja"... :D

Tak for point :)

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	9	25/06/202622:20	29/06/202621:55
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