Datumformat

går att göra bättre, men du får en humm i alla fall

<%
datum = "1999-05-21"
z1 = split(datum, "-")
If Ubound(z1) < 2 Then 
	f = True
Else
	If len(z1(0)) = 4 AND IsNumeric(z1(0)) Then
		If len(z1(1)) = 2 AND IsNumeric(z1(1)) Then
			If len(z1(2)) = 2 AND IsNumeric(z1(2)) Then
			else
				f = True
			End Id
		else
			f = True
		End If
	else
		f = True
	End If
End If
%>

Om f = TRUE måste du avbryta all aktivitet annars kommer inte det inte att fungera mot slutet...

kanske borde skriva om det lite

vad skulle hända om datum="femtonde mars 2001", alltså utan - som avskiljare.

If Ubound(z1) < 2 Then

Hur gör man för att avbryta all aktivitet då?

Det vore kanon om Brimba eller någon annan kunde förklara vad som menas med detta:

Om f = TRUE måste du avbryta all aktivitet annars kommer inte det inte att fungera mot slutet...

...för jag begriper inte riktigt.

Det du kan göra för att lösa det riktigt enkelt är att byta ut f = true till response.redirect "fail.asp?id=1"

fail.asp kan ju sedan se ut något sådant här...

<%
Select Case trim(Request.QueryString("id"))
	Case "1"
		rubtext = "Det saknas -"
		texten  = "I det datum du skrev in saknas -. Tänk på att det skall matas in enligt aaaa-mm-dd."
	Case "2"
		rubtext = "Inte enbart siffror..."
		texten = "Du matade inte in enbart siffror... passa dig!"
	Case else
		rubtext = "Något oväntat (lol) fel har uppstått."
		texten = "Humma humma"
End Select
%>

Tack, tack!

Den funkar nu i stort sett. Det som inte funkar är om man skriver 2001-13-13, dvs ett datum i rätt format som inte finns.

det kan du kolla med isdate().

skulle inte:

if isdate(datum) = FALSE then
response.write("du gjorde fel, pucko")
else
'sidan
end if

kunna ersätta hela funktionen här ovan. i alla fall får jag felmeddelandet från isdate vad jag än gör för fel i datumfältet.