Split dato
Jeg har en del problemer med at "omrokere" på datoformatet inden det skal gemmes i MySQL. Der skal omrokeres, så det gemmes iYYYY-MM-DD
i stedet for
DD-MM-YYYY
På https://bytes.com/topic/asp-classic/answers/544544-split-convert-date-question har jeg fundet noget, som umiddelbart ligger lige til højrebenet, men den giver hele tiden denne fejl:
Microsoft VBScript runtime error '800a0009'
Subscript out of range: '[number: 1]'
Og det skyldes denne linie:
result(1) = temp(1)
Jeg søgte på Microsoft's sider, og fandt dette, som umiddelbart ikke gjorde mig meget klogere, udover at der kan være noget uoverensstemmelse i indexet i arrayet ............
MIN SIDE (meget forenklet)
-------------------------------------------------------------------------------------------------
<html>
<%
Function changeUserDate(userDate)
Dim result(3)
temp = Split(userDate,"/")
result(2) = temp(0)
result(1) = temp(1)
result(0) = temp(2)
changeUserDate = Join(result,"-")
End Function
If Request("mode") = "createnewbulletin" Then
Dim removemessage
removemessage = changeUserDate(Request.Form("ChooseDate"))
Conn.Execute("INSERT INTO messages (removeat) VALUES ("removemessage")")
%>
<body>
<%
Dim ChooseDato, FirstOfThisMonth, FirstOfNextMonth, FirstOfNextNextMonth
ChooseDato = date()
FirstOfThisMonth = DateAdd("d", -day(ChooseDato) + 1, ChooseDato)
FirstOfNextMonth = DateAdd("m", 1, FirstOfThisMonth)
FirstOfNextNextMonth = DateAdd("m", 2, FirstOfThisMonth)
%>
<input type="radio" name="ChooseDate" id="ChooseDate2" value="<%=FirstOfNextMonth%>" class="mb-1"><label for "ChooseDate2" class="offset-sm-03"><%=FirstOfNextMonth%> - Med dette valg fjernes din besked om <%=FirstOfNextMonth - date()%><% If FirstOfNextNextMonth - date() > 1 Then %> dage<% Else %> dag<% End If %> klokken 00:15</label>
<form>
<input type="radio" name="ChooseDate" id="ChooseDate3" value="<%=FirstOfNextNextMonth%>" class="mb-1"><label for "ChooseDate3" class="offset-sm-03"><%=FirstOfNextNextMonth%> - Med dette valg fjernes din besked om <%=FirstOfNextNextMonth - date()%><% If FirstOfNextNextMonth - date() > 1 Then %> dage<% Else %> dag<% End If %> klokken 00:15</label>
</form>
</body>
</html>
Men der er åbenbart noget galt med den function. Jeg har forsøgt at rette op og ned på
result(2) = temp(0)
result(1) = temp(1)
result(0) = temp(2)
Håber der er en med et godt kendskab
