jo det har du nog rätt i... hur har dagen försvunnit?
så här ser koden ut (lång):
set rubrik = request.Form("rubrik")
set beskrivning = request.Form("beskrivning")
set aret = request.Form("ar")
set manaden = request.Form("manad")
set dag = request.Form("dag")
if rubrik = "" then
%>
Nu gjorde du nått fel.
<%
end if
if beskrivning = "" then
%>
Nu gjorde du nått fel.
<%
end if
if aret = "" then
%>
Nu gjorde du nått fel.
<%
end if
if manaden = "" then
%>
Nu gjorde du nått fel.
<%
end if
if dag = "" then
%>
Nu gjorde du nått fel.
<%
end if
set nummermanad = manaden
if nummermanaden = "Januari" then
set nummermanaden = "01"
end if
if nummermanaden = "Februari" then
set nummermanaden = "02"
end if
if nummermanaden = "Mars" then
set nummermanaden = "03"
end if
if nummermanaden = "April" then
set nummermanaden = "04"
end if
if nummermanaden = "Maj" then
set nummermanaden = "05"
end if
if nummermanaden = "Juni" then
set nummermanaden = "06"
end if
if nummermanaden = "Juli" then
set nummermanaden = "07"
end if
if nummermanaden = "Augusti" then
set nummermanaden = "08"
end if
if nummermanaden = "September" then
set nummermanaden = "09"
end if
if nummermanaden = "Oktober" then
set nummermanaden = "10"
end if
if nummermanaden = "November" then
set nummermanaden = "11"
end if
if nummermanaden = "December" then
set nummermanaden = "12"
end if
Datum = aret & nummermanaden & dag
Har städat upp i din kod lite, det kanske blir bättre såhär?
rubrik = request.Form("rubrik")
beskrivning = request.Form("beskrivning")
aret = request.Form("ar")
manaden = request.Form("manad")
dag = request.Form("dag")
if rubrik = "" then blnFel = True
if beskrivning = "" then blnFel = True
if aret = "" then blnFel = True
if manaden = "" then blnFel = True
if dag = "" then blnFel = True
If blnFel Then Response.Write("Nu gjorde du nått fel.")
Select Case manaden
Case "Januari"
intManad = "01"
Case "Februari"
intManad = "02"
Case "Mars"
intManad = "03"
Case "April"
intManad = "04"
Case "Maj"
intManad = "05"
Case "Juni"
intManad = "06"
Case "Juli"
intManad = "07"
Case "Augusti"
intManad = "08"
Case "September"
intManad = "09"
Case "Oktober"
intManad = "10"
Case "November"
intManad = "11"
Case "December"
intManad = "12"
Case Else
intManad = "01"
End Select
Datum = CDate(aret & "-" & intManad & "-" & dag)
Om du har en form som skickar dig månaden, varför låter du den skicka namnet och inte numret direkt?
rubrik = request.Form("rubrik")
beskrivning = request.Form("beskrivning")
aret = request.Form("ar")
manaden = request.Form("manad")
dag = request.Form("dag")
if rubrik = "" then blnFel = True
if beskrivning = "" then blnFel = True
if aret = "" then blnFel = True
if manaden = "" then blnFel = True
if dag = "" then blnFel = True
If blnFel Then Response.Write("Nu gjorde du nått fel.")
Datum = CDate(aret & "-" & manaden & "-" & dag)