Vad blir fel?
variablen pn finns inte i querystring.
och varför använda dubbla negationer?
"om inte inte likamed tom sträng"
if-satsen borde vara:
if pn = "invalid" or pn = "" then
response.redirect "?step=3&err=1"
end if
Frågan#1
hur kollar jag
Function GetDate(boxname)
dim strTemp,strYear,strMonth,strDay
strYear = Request(boxname & "_year")
strMonth = Request(boxname & "_month")
strDay = Request(boxname & "_day")
if strYear = "" or strMonth = "" or strDay = "" then
GetDate = "invalid"
else
'strTemp = strMonth & "/" & strDay & "/" & right(strYear,2)
strTemp = DateSerial(strYear, strMonth, strDay)
if not isDate(strTemp) then
GetDate = "invalid"
else
GetDate = strTemp
end if
end if
End Function
med denna sats
pn = getDate("txtPersonnr")
if not request.querystring("pn") <> "" then
response.redirect "?step=3&err=1"
end if
får det inte att funka