Detta är ett enkelt datumformulär som
har dagens datum och tid som default, tyvärr är inte minuterna det eftersom de då måste avrundas till närmaste 5 min intervall, vilket krånglar till det hela...
Har inte lagt upp nån demo eftersom det är så enkel kod att prova själv
Mvh Macce Diskussionstråd
-------------------------------------
<HTML>
<body>
<form name="datum" method="post" action="dennas_ida.asp?action=update">
Datum: <SELECT NAME="Ar"><%For i = 0 to 5%>
<OPTION VALUE="<%=left(DateAdd("yyyy",i,Now),4)%>">
<%=left(DateAdd("yyyy",i,Now),4)%>
</option><%Next%></SELECT>-
<SELECT NAME="Manad"><%For i = 0 to 11%>
<OPTION VALUE="<%=mid(DateAdd("m",i,Now),6,2)%>">
<%=left(Ucase(MonthName(mid(DateAdd("m",i,Now),6,2),true)),1)%>
<%=mid(MonthName(mid(DateAdd("m",i,Now),6,2),true),2,2)%>
</option><%Next%></SELECT>-
<SELECT NAME="Dag">
<%For i = 1 to 31%>
<%If i = DatePart("d",date) then sel="selected" else sel="" end if%>
<OPTION VALUE="<%=i%>" <%=sel%>>
<%=i%> </option><%Next%>
</SELECT> Kl:
<SELECT NAME="Timme"><%For i = 0 to 23%>
<OPTION VALUE="<%=mid(DateAdd("h",i,Now),12,2)%>">
<%=mid(DateAdd("h",i,Now),12,2)%> </option>
<%Next%></SELECT>
<SELECT NAME="Minut"><%For i = 0 to 59 step 5 %>
<%If i < 10 then u="0" else u="" end if%>
<OPTION VALUE="<%=u&i%>"> <%=u&i%>
</option><%Next%></SELECT>
<input type="submit" name="Submit" value=" Spara ">
</body>
</html>
<%
if request.querystring("action")="update" then
strDatum= Request.Form("Ar") & "-" & Request.Form("Manad") & "-" & Request.Form("Dag") & " "
strDatum= strDatum & Request.Form("Timme") & ":" & Request.Form("Minut")
if IsDate(strDatum) = true then
strdatum = cdate(strDatum)%\>
lagra osv..............
\<%else%\>
skicka felmeddelande..........
\<%end if
end if %>
-----------------------------------