lille syntaksfejl

tror jeg vil få en fejl i dette stykke også men ved ikek hvilken og hvad der evt skal rettes.

response.write "<b>"&MyDateFormat(date())

Hvad er fejlen?

Prøv evt uden ()
MyDateFormat date()

Flyt definitionen af funktionen ud af loopet

---- jeg har dette hvor den melder en fejl syntaksfejl ved: ---
Function MyDateFormat(thedate)

det er ved

Function MyDateFormat(thedate)

og det er den linje/code den nævner !!

.. og ud af if'en..

okay nu får jeg denne fejl

Der er en syntaksfejl
/Default.asp, line 50
&strTekst&"<br /><br />" & _

og det er selvf. denne linje

&strTekst&"<br /><br />" & _ (er i bunden)


min code er nu:

        strForfatter = rs("Forfatter")
        strOverskrift = rs("Overskrift")
        strTekst = rs("Tekst")
        strDate = rs("Dato")

        Function MyDateFormat(thedate)
              Dim m, d, y, mdArr
              mdArr = Split("Januar,Februar,Marts,April,Maj,Juni,Juli,August,September,Oktober,November,December",",")
              m = mdArr(Month(CDate(thedate))-1)
              d = day(Cdate(thedate))
              y = year(Cdate(thedate))
              MyDateFormat = m & " " & d & ". " & y
        End Function

If Not (rs.BOF Or rs.EOF) Then
    response.write "nyheder"

    Do While Not rs.EOF
       
          response.write "<b>"&MyDateFormat(date()) & strOverskrift&"<b/><br /><br />" & _
                      &strTekst&"<br /><br />" & _
                      "Skrevet af "&strForfatter"."
    rs.MoveNext
    Loop

"Skrevet af "&strForfatter"."
skal være    "Skrevet af " & strForfatter & "."

strForfatter = rs("Forfatter")
        strOverskrift = rs("Overskrift")
        strTekst = rs("Tekst")
        strDate = rs("Dato")

        Function MyDateFormat(thedate)
              Dim m, d, y, mdArr
              mdArr = Split("Januar,Februar,Marts,April,Maj,Juni,Juli,August,September,Oktober,November,December",",")
              m = mdArr(Month(CDate(thedate))-1)
              d = day(Cdate(thedate))
              y = year(Cdate(thedate))
              MyDateFormat = m & " " & d & ". " & y
        End Function

If Not (rs.BOF Or rs.EOF) Then
    response.write "nyheder"

    Do While Not rs.EOF
       
          response.write "<b>"&MyDateFormat(date()) & strOverskrift&"<b/><br /><br />" strTekst&"<br /><br />Skrevet af " & strForfatter"."
    rs.MoveNext
    Loop
end if..

nå ja... Min fejl ;-)

okay så jeg ikke lige men hvad med den fejl lige før skrevet af !?

Der er en syntaksfejl
/Default.asp, line 50
&strTekst&"<br /><br />" & _

okay så det selv det var & tegnet i starten der skulel slettes så nu udskriver den det men den udskriver KUN den første record 10-14 gange hvad er fejlen når den gør det !?

den skal jo skrive den første og så den næste osv og ikek den første det antal gange som der findes recorder i min database !!

prøv at lave linien om til...
response.write "<b>"&MyDateFormat(date()) & strOverskrift&"<b/><br /><br />" &strTekst&"<br /><br />Skrevet af " & strForfatter & "."

det er fordi du definere dine variable inden du starter din løkke..

Sådan her virker det:


        Function MyDateFormat(thedate)
              Dim m, d, y, mdArr
              mdArr = Split("Januar,Februar,Marts,April,Maj,Juni,Juli,August,September,Oktober,November,December",",")
              m = mdArr(Month(CDate(thedate))-1)
              d = day(Cdate(thedate))
              y = year(Cdate(thedate))
              MyDateFormat = m & " " & d & ". " & y
        End Function

If Not (rs.BOF Or rs.EOF) Then
    response.write "nyheder"

    Do While Not rs.EOF
        strForfatter = rs("Forfatter")
        strOverskrift = rs("Overskrift")
        strTekst = rs("Tekst")
        strDate = rs("Dato")

          response.write "<b>"&MyDateFormat(date()) & strOverskrift&"<b/><br /><br />" & _
                      &strTekst&"<br /><br />" & _
                      "Skrevet af "&strForfatter &"."
    rs.MoveNext
    Loop

RETRY & ELLEBAEK

vil I ligge et svar !?

BTW jeg har oprettet et spm der hedder "opsætning af recorder" som har med denne code at gøre hvis I vil kigge på det !!

Jeg smider et svar, og kigger på det andet spg.

det andet spm er oprettet ;)

RETRY ville du også venligst lægge et svar !??

Jeg samler ikke på points, men ellers tak.

NP