Korta ner kod

Hej

Kan man korta ner den här koden på något bra sätt och så att den fortfarande fungerar.

IF NOT lankRS.EOF THEN
IF isdate(lankRS( "sida_datum_start" )) THEN
  IF NOT date() < cDate(lankRS( "sida_datum_start" )) THEN 
END IF
IF isdate(lankRS( "sida_datum_slut" )) THEN
IF NOT date() > cDate(lankRS( "sida_datum_slut" ))  THEN 
END IF%>
<a href='http://localhost/cm/pages/86.asp' target=''>Test</a>
<% 
IF isdate(lankRS( "sida_datum_start" )) THEN
  END IF
END IF
IF isdate(lankRS( "sida_datum_slut" )) THEN
  END IF
END IF

Den här koden visar heller inte länken om datumslut och datumStart är null. Det ska den göra

Knepig kod...

IF NOT lankRS.EOF THEN
    IF isdate(lankRS( "sida_datum_start" )) THEN
        IF NOT date() < cDate(lankRS( "sida_datum_start" )) THEN END IF [blue]'Gör ingeting[/blue]

    IF isdate(lankRS( "sida_datum_slut" )) THEN
        IF NOT date() > cDate(lankRS( "sida_datum_slut" ))  THEN END IF [blue]' Gör ingenting[/blue]
%>
<a href='http://localhost/cm/pages/86.asp' target=''>Test</a>
<% 
    IF isdate(lankRS( "sida_datum_start" )) THEN END IF [blue]' Gör ingenting[/blue]
END IF

IF isdate(lankRS( "sida_datum_slut" )) THEN END IF [blue]' Gör ingenting[/blue] 
END IF

Vad är det du ska göra egentligen?

Typ kanske?

IF NOT lankRS.EOF THEN
	IF isdate(lankRS("sida_datum_start")) AND isdate(lankRS("sida_datum_slut")) THEN
%>
<a href='http://localhost/cm/pages/86.asp' target=''>Test</a>
<% 
	END IF
'verkar sakna ett "End If", men det kanske finns kvar i din org.kod?

Förklarar med ord istället, Det är en kodn för tidspublicering av en länk.

Om datumStart inte innhåller något så ska inte kollen på datumStart göras. Kollen är att kontrollera om dagens datum är större än datumStart.

Samma sak för datumslut.

Den här koden nedan fungerar så länge inget av datumfälten i databasen är tomma då får man ett felmeddelande på cDate.
Länken ska ju också visas om datumfälten är tomma. Det ska också fungera om sida_datum_start är tomt och sida_datum_slut har exempelvis värdet 2004-05-12.

IF NOT lankRS.EOF THEN
IF NOT date() < cDate(lankRS( "sida_datum_start" )) THEN
IF NOT date() > cDate(lankRS( "sida_datum_slut" )) THEN %>
<a href='http://localhost/cm/pages/86.asp' target=''>Test</a>
<% END IF
END IF
END IF

Det här fungerar tror jag har inte testat alla möjligheter än men borde det inte gå att korta ner den här koden på något sätt eller hitta en bättre lösning på problemet.

IF NOT lankRS.EOF THEN
IF isDate(lankRS( "sida_datum_start" )) THEN
  datumStart = cDate(lankRS( "sida_datum_start" ))
ELSE
  datumStart = cDate("1999-01-01")
END IF
IF isDate(lankRS( "sida_datum_slut" )) THEN
  datumSlut = cDate(lankRS( "sida_datum_slut" ))
ELSE
  datumSlut = cDate("2028-01-01")
END IF

IF NOT date() < datumStart THEN
IF NOT date() > datumSlut THEN %>
<a href='http://localhost/cm/pages/86.asp' target=''>Test</a>
<% END IF
END IF
END IF

Dim dtmStart, dtmSlut
If Not lankRS.EOF Then
    If IsNull(lankRS("sida_datum_start")) Then
        dtmStart = Date()
    Else
        dtmStart = CDate(lankRS("sida_datum_start"))
    End If

    If IsNull(lankRS("sida_datum_slut")) Then
        dtmSlut = Date()
    Else
        dtmSlut = CDate(lankRS("sida_datum_slut"))
    End If

    If Not Date() =< dtmStart And Not Date() => dtmSlut Then
%>
<a href='http://localhost/cm/pages/86.asp' target=''>Test</a>
<% 
    End If
End If