enkel if sats fungerar inte

12 svar · 274 visningar · startad av Gimbo 11 mars 2003

GimboMedlem sedan dec. 20001 626 inlägg

Frågan11 mars 2003 16:22#1

fdatum = rs("fdatum")
tdatum = rs("tdatum")
vecka = DatePart("ww", fdatum, 2)
tvecka = DatePart("ww", tdatum, 2)

if (fdatum <> "" ) AND (tdatum = "" ) then

Response.write "<font face=""Monotype Corsiva"" size=""6""><b>"& rs("Rubrik") &"</b></font> <br> " &rs("innehall")&" <br><br> Denna meny är avsedd vecka:<b> " &vecka& "</b> "
'end if
	
elseif (fdatum <> "" ) AND (tdatum <> "" ) then

Response.write "<font face=""Monotype Corsiva"" size=""6""><b>"& rs("Rubrik") &"</b></font> <br> " &rs("innehall")&" <br><br> Denna meny är avsedd vecka:<b> " &vecka& " till " &tvecka& "</b> "

else 

Response.write "<font face=""Monotype Corsiva"" size=""6""><b>"& rs("Rubrik") &"</b></font> <br> " &rs("innehall")&" <br><br> Denna meny är avsedd vecka:<b> Ej angiven</b> "
end if

Det jag vill är att när endast fdatum är ifyllt så ska den visa den
om det är så att både fdatum och tdatum är ifyllda så ska den visa båda två. Men nu är det så när jag har både fdatum och tdatum ifyllda så visar den texten jag vill att den ska visa, men när bara fdatum är ifyllt och tdatum ej ifyllt så står det Ej angivet, dvs den hoppar ner till else raden.

NickemannenMedlem sedan aug. 20003 575 inlägg

11 mars 2003 16:30#2

Varför använder du inte Len istället ?

SebbeMedlem sedan jan. 20032 285 inlägg

11 mars 2003 16:34#3

fdatum = rs("fdatum")
tdatum = rs("tdatum")
vecka = DatePart("ww", fdatum, 2)
tvecka = DatePart("ww", tdatum, 2)

if (CStr(fdatum) <> "") AND (CStr(tdatum) = "") then

Response.write "<font face=""Monotype Corsiva"" size=""6""><b>"& rs("Rubrik") &"</b></font> <br> " &rs("innehall")&" <br><br> Denna meny är avsedd vecka:<b> " &vecka& "</b> "
'end if
	
elseif (CStr(fdatum) <> "") AND (CStr(tdatum) <> "") then

Response.write "<font face=""Monotype Corsiva"" size=""6""><b>"& rs("Rubrik") &"</b></font> <br> " &rs("innehall")&" <br><br> Denna meny är avsedd vecka:<b> " &vecka& " till " &tvecka& "</b> "

else 

Response.write "<font face=""Monotype Corsiva"" size=""6""><b>"& rs("Rubrik") &"</b></font> <br> " &rs("innehall")&" <br><br> Denna meny är avsedd vecka:<b> Ej angiven</b> "
end if

Kankse?

NickemannenMedlem sedan aug. 20003 575 inlägg

11 mars 2003 16:36#4

blir inte detta fel om det inte finns något datum i den ena ?

vecka = DatePart("ww", fdatum, 2)
tvecka = DatePart("ww", tdatum, 2)

GimboMedlem sedan dec. 20001 626 inlägg

11 mars 2003 16:44#5

vad gör Len för något?

när jag gjorde som sebbe sa fick jag detta felmeddelande:

Ogiltig användning av Null: 'Cstr'

på raden 66 dvs.

if (CStr(fdatum) <> "") AND (CStr(tdatum) = "") then

GimboMedlem sedan dec. 20001 626 inlägg

11 mars 2003 16:46#6

jag ändrade Cstr mot Len och då får jag samma problem som i bröjan dvs. den hoppar till else raden då jag bara har fdatum i fyllt

SebbeMedlem sedan jan. 20032 285 inlägg

11 mars 2003 16:49#7

Denna då?

fdatum = rs("fdatum")
tdatum = rs("tdatum")
vecka = DatePart("ww", fdatum, 2)
tvecka = DatePart("ww", tdatum, 2)

if (CStr(fdatum) & "" <> "") AND (CStr(tdatum) & "" = "") then

Response.write "<font face=""Monotype Corsiva"" size=""6""><b>"& rs("Rubrik") &"</b></font> <br> " &rs("innehall")&" <br><br> Denna meny är avsedd vecka:<b> " &vecka& "</b> "
'end if
	
elseif (CStr(fdatum) & "" <> "") AND (CStr(tdatum) & "" <> "") then

Response.write "<font face=""Monotype Corsiva"" size=""6""><b>"& rs("Rubrik") &"</b></font> <br> " &rs("innehall")&" <br><br> Denna meny är avsedd vecka:<b> " &vecka& " till " &tvecka& "</b> "

else 

Response.write "<font face=""Monotype Corsiva"" size=""6""><b>"& rs("Rubrik") &"</b></font> <br> " &rs("innehall")&" <br><br> Denna meny är avsedd vecka:<b> Ej angiven</b> "
end if

GimboMedlem sedan dec. 20001 626 inlägg

11 mars 2003 17:03#8

exakt samma felmeddelande som innan

SebbeMedlem sedan jan. 20032 285 inlägg

11 mars 2003 18:46#9

Detta kan funka...

fdatum = rs("fdatum")
tdatum = rs("tdatum")
vecka = DatePart("ww", fdatum, 2)
tvecka = DatePart("ww", tdatum, 2)

If NOT IsNull(fdatum) AND NOT IsNull(tdatum) Then

If (CStr(fdatum) <> "") AND (CStr(tdatum) = "") Then

Response.Write "<font face=""Monotype Corsiva"" size=""6""><b>" & rs("Rubrik") & "</b></font> <br> " & rs("innehall") & " <br><br> Denna meny är avsedd vecka:<b> " & vecka & "</b> "
	
ElseIf (CStr(fdatum) <> "") AND (CStr(tdatum) <> "") Then

Response.Write "<font face=""Monotype Corsiva"" size=""6""><b>" & rs("Rubrik") & "</b></font> <br> " & rs("innehall") & " <br><br> Denna meny är avsedd vecka:<b> "  & vecka & " till " & tvecka & "</b> "

Else 

Response.Write "<font face=""Monotype Corsiva"" size=""6""><b>" & rs("Rubrik") & "</b></font> <br> " &  rs("innehall") & " <br><br> Denna meny är avsedd vecka:<b> Ej angiven</b> "
End If

Else
Response.Write "Något av fälten tdatum och fdatum är null"
End If

solbulleMedlem sedan mars 20015 287 inlägg

11 mars 2003 19:00#10

Eller kanske så här:

fdatum = rs("fdatum")
tdatum = rs("tdatum")
vecka = DatePart("ww", fdatum, 2)
tvecka = DatePart("ww", tdatum, 2)

if IsDate(fdatum) AND NOT IsDate(tdatum) then
	Response.write "<font face=""Monotype Corsiva"" size=""6""><b>"& rs("Rubrik") &"</b></font> <br> " &rs("innehall")&" <br><br> Denna meny är avsedd vecka:<b> " &vecka& "</b> "
elseif IsDate(fdatum) AND IsDate(tdatum) then
	Response.write "<font face=""Monotype Corsiva"" size=""6""><b>"& rs("Rubrik") &"</b></font> <br> " &rs("innehall")&" <br><br> Denna meny är avsedd vecka:<b> " &vecka& " till " &tvecka& "</b> "
else 
	Response.write "<font face=""Monotype Corsiva"" size=""6""><b>"& rs("Rubrik") &"</b></font> <br> " &rs("innehall")&" <br><br> Denna meny är avsedd vecka:<b> Ej angiven</b> "
end if

solbulleMedlem sedan mars 20015 287 inlägg

11 mars 2003 19:04#11

Och om det nu skulle fungera, kan man ju skriva så här:

fdatum = rs("fdatum")
tdatum = rs("tdatum")
vecka = DatePart("ww", fdatum, 2)
tvecka = DatePart("ww", tdatum, 2)

if IsDate(fdatum) AND NOT IsDate(tdatum) then
	strperiod = vecka
elseif IsDate(fdatum) AND IsDate(tdatum) then
	strperiod = vecka& " till " &tvecka
else
	strperiod = "Ej angiven"
end if
	Response.write "<font face=""Monotype Corsiva"" size=""6""><b>"& rs("Rubrik") &"</b></font> <br> " &rs("innehall")&" <br><br> Denna meny är avsedd vecka: <b>" & strperiod & "</b> "

GimboMedlem sedan dec. 20001 626 inlägg

11 mars 2003 22:06#12

Man tackar!
den sista koden fungerade fin fint!
men får man fråga vad IsDate gör??
dvs denna rad:

if IsDate(fdatum) AND NOT IsDate(tdatum) then

NickemannenMedlem sedan aug. 20003 575 inlägg

11 mars 2003 22:10#13

Den kollar om det är ett datum.

Är det det så ger den värdet true om inte false

Len("hejsan") ger 6 alltså antalet tecken inne i strängen
Len är förkortningen på Length