webForumDet fria alternativet
Logga in / Bli medlem

Datum inmattning

ASP

14 svar · 426 visningar · startad av freeman

freemanMedlem sedan juni 200327 inlägg
Frågan#1

Hej

Jag skulle behöva koden för att få fram datum inmattning.
Det ska alltså finnas 3 st "listor" en för år, en för månad och en för dag. Dessa ska sedan skickas till en access databas men detta kan jag fixa själv.

Edit: efter lite sökningar på google kom jag fram till att det jag söker kallas, date drop down så en sådan kod behöver jag.

/mvh Niclas S

m_soderlunds avatarm_soderlundMedlem sedan sep. 20026 425 inlägg
#2

Vad är "datum inmattning"? Du menar inte datuminmatning?
Listorna kan man lätt fixa med en For-Next-loop, men här kommer lite kod:

<form name="search" action="sida.asp" method="get">
<select size="1" name="day">
<option>Dag</option>
<option></option>
<option value="01"<% If Day(Now())="1" And Len(Request.Querystring("s"))=0 Then Response.Write " selected=""selected""" %><% If Request.Querystring("day")="01" Then Response.Write "selected=""selected""" %>>1</option>
<option value="02"<% If Day(Now())="2" And Len(Request.Querystring("s"))=0 Then Response.Write " selected=""selected""" %><% If Request.Querystring("day")="02" Then Response.Write "selected=""selected""" %>>2</option>
<option value="03"<% If Day(Now())="3" And Len(Request.Querystring("s"))=0 Then Response.Write " selected=""selected""" %><% If Request.Querystring("day")="03" Then Response.Write "selected=""selected""" %>>3</option>
<option value="04"<% If Day(Now())="4" And Len(Request.Querystring("s"))=0 Then Response.Write " selected=""selected""" %><% If Request.Querystring("day")="04" Then Response.Write "selected=""selected""" %>>4</option>
<option value="05"<% If Day(Now())="5" And Len(Request.Querystring("s"))=0 Then Response.Write " selected=""selected""" %><% If Request.Querystring("day")="05" Then Response.Write "selected=""selected""" %>>5</option>
<option value="06"<% If Day(Now())="6" And Len(Request.Querystring("s"))=0 Then Response.Write " selected=""selected""" %><% If Request.Querystring("day")="06" Then Response.Write "selected=""selected""" %>>6</option>
<option value="07"<% If Day(Now())="7" And Len(Request.Querystring("s"))=0 Then Response.Write " selected=""selected""" %><% If Request.Querystring("day")="07" Then Response.Write "selected=""selected""" %>>7</option>
<option value="08"<% If Day(Now())="8" And Len(Request.Querystring("s"))=0 Then Response.Write " selected=""selected""" %><% If Request.Querystring("day")="08" Then Response.Write "selected=""selected""" %>>8</option>
<option value="09"<% If Day(Now())="9" And Len(Request.Querystring("s"))=0 Then Response.Write " selected=""selected""" %><% If Request.Querystring("day")="09" Then Response.Write "selected=""selected""" %>>9</option>
<option value="10"<% If Day(Now())="10" And Len(Request.Querystring("s"))=0 Then Response.Write " selected=""selected""" %><% If Request.Querystring("day")="10" Then Response.Write "selected=""selected""" %>>10</option>
<option value="11"<% If Day(Now())="11" And Len(Request.Querystring("s"))=0 Then Response.Write " selected=""selected""" %><% If Request.Querystring("day")="11" Then Response.Write "selected=""selected""" %>>11</option>
<option value="12"<% If Day(Now())="12" And Len(Request.Querystring("s"))=0 Then Response.Write " selected=""selected""" %><% If Request.Querystring("day")="12" Then Response.Write "selected=""selected""" %>>12</option>
<option value="13"<% If Day(Now())="13" And Len(Request.Querystring("s"))=0 Then Response.Write " selected=""selected""" %><% If Request.Querystring("day")="13" Then Response.Write "selected=""selected""" %>>13</option>
<option value="14"<% If Day(Now())="14" And Len(Request.Querystring("s"))=0 Then Response.Write " selected=""selected""" %><% If Request.Querystring("day")="14" Then Response.Write "selected=""selected""" %>>14</option>
<option value="15"<% If Day(Now())="15" And Len(Request.Querystring("s"))=0 Then Response.Write " selected=""selected""" %><% If Request.Querystring("day")="15" Then Response.Write "selected=""selected""" %>>15</option>
<option value="16"<% If Day(Now())="16" And Len(Request.Querystring("s"))=0 Then Response.Write " selected=""selected""" %><% If Request.Querystring("day")="16" Then Response.Write "selected=""selected""" %>>16</option>
<option value="17"<% If Day(Now())="17" And Len(Request.Querystring("s"))=0 Then Response.Write " selected=""selected""" %><% If Request.Querystring("day")="17" Then Response.Write "selected=""selected""" %>>17</option>
<option value="18"<% If Day(Now())="18" And Len(Request.Querystring("s"))=0 Then Response.Write " selected=""selected""" %><% If Request.Querystring("day")="18" Then Response.Write "selected=""selected""" %>>18</option>
<option value="19"<% If Day(Now())="19" And Len(Request.Querystring("s"))=0 Then Response.Write " selected=""selected""" %><% If Request.Querystring("day")="19" Then Response.Write "selected=""selected""" %>>19</option>
<option value="20"<% If Day(Now())="20" And Len(Request.Querystring("s"))=0 Then Response.Write " selected=""selected""" %><% If Request.Querystring("day")="20" Then Response.Write "selected=""selected""" %>>20</option>
<option value="21"<% If Day(Now())="21" And Len(Request.Querystring("s"))=0 Then Response.Write " selected=""selected""" %><% If Request.Querystring("day")="21" Then Response.Write "selected=""selected""" %>>21</option>
<option value="22"<% If Day(Now())="22" And Len(Request.Querystring("s"))=0 Then Response.Write " selected=""selected""" %><% If Request.Querystring("day")="22" Then Response.Write "selected=""selected""" %>>22</option>
<option value="23"<% If Day(Now())="23" And Len(Request.Querystring("s"))=0 Then Response.Write " selected=""selected""" %><% If Request.Querystring("day")="23" Then Response.Write "selected=""selected""" %>>23</option>
<option value="24"<% If Day(Now())="24" And Len(Request.Querystring("s"))=0 Then Response.Write " selected=""selected""" %><% If Request.Querystring("day")="24" Then Response.Write "selected=""selected""" %>>24</option>
<option value="25"<% If Day(Now())="25" And Len(Request.Querystring("s"))=0 Then Response.Write " selected=""selected""" %><% If Request.Querystring("day")="25" Then Response.Write "selected=""selected""" %>>25</option>
<option value="26"<% If Day(Now())="26" And Len(Request.Querystring("s"))=0 Then Response.Write " selected=""selected""" %><% If Request.Querystring("day")="26" Then Response.Write "selected=""selected""" %>>26</option>
<option value="27"<% If Day(Now())="27" And Len(Request.Querystring("s"))=0 Then Response.Write " selected=""selected""" %><% If Request.Querystring("day")="27" Then Response.Write "selected=""selected""" %>>27</option>
<option value="28"<% If Day(Now())="28" And Len(Request.Querystring("s"))=0 Then Response.Write " selected=""selected""" %><% If Request.Querystring("day")="28" Then Response.Write "selected=""selected""" %>>28</option>
<option value="29"<% If Day(Now())="29" And Len(Request.Querystring("s"))=0 Then Response.Write " selected=""selected""" %><% If Request.Querystring("day")="29" Then Response.Write "selected=""selected""" %>>29</option>
<option value="30"<% If Day(Now())="30" And Len(Request.Querystring("s"))=0 Then Response.Write " selected=""selected""" %><% If Request.Querystring("day")="30" Then Response.Write "selected=""selected""" %>>30</option>
<option value="31"<% If Day(Now())="31" And Len(Request.Querystring("s"))=0 Then Response.Write " selected=""selected""" %><% If Request.Querystring("day")="31" Then Response.Write "selected=""selected""" %>>31</option>
</select>

<select size="1" name="month">
<option>Månad</option>
<option></option>
<option value="01"<% If Month(Now())="1" And Len(Request.Querystring("s"))=0 Then Response.Write " selected=""selected""" %><% If Request.Querystring("month")="01" Then Response.Write "selected=""selected""" %>>Januari</option>
<option value="02"<% If Month(Now())="2" And Len(Request.Querystring("s"))=0 Then Response.Write " selected=""selected""" %><% If Request.Querystring("month")="02" Then Response.Write "selected=""selected""" %>>Februari</option>
<option value="03"<% If Month(Now())="3" And Len(Request.Querystring("s"))=0 Then Response.Write " selected=""selected""" %><% If Request.Querystring("month")="03" Then Response.Write "selected=""selected""" %>>Mars</option>
<option value="04"<% If Month(Now())="4" And Len(Request.Querystring("s"))=0 Then Response.Write " selected=""selected""" %><% If Request.Querystring("month")="04" Then Response.Write "selected=""selected""" %>>April</option>
<option value="05"<% If Month(Now())="5" And Len(Request.Querystring("s"))=0 Then Response.Write " selected=""selected""" %><% If Request.Querystring("month")="05" Then Response.Write "selected=""selected""" %>>Maj</option>
<option value="06"<% If Month(Now())="6" And Len(Request.Querystring("s"))=0 Then Response.Write " selected=""selected""" %><% If Request.Querystring("month")="06" Then Response.Write "selected=""selected""" %>>Juni</option>
<option value="07"<% If Month(Now())="7" And Len(Request.Querystring("s"))=0 Then Response.Write " selected=""selected""" %><% If Request.Querystring("month")="07" Then Response.Write "selected=""selected""" %>>Juli</option>
<option value="08"<% If Month(Now())="8" And Len(Request.Querystring("s"))=0 Then Response.Write " selected=""selected""" %><% If Request.Querystring("month")="08" Then Response.Write "selected=""selected""" %>>Augusti</option>
<option value="09"<% If Month(Now())="9" And Len(Request.Querystring("s"))=0 Then Response.Write " selected=""selected""" %><% If Request.Querystring("month")="09" Then Response.Write "selected=""selected""" %>>September</option>
<option value="10"<% If Month(Now())="10" And Len(Request.Querystring("s"))=0 Then Response.Write " selected=""selected""" %><% If Request.Querystring("month")="10" Then Response.Write "selected=""selected""" %>>Oktober</option>
<option value="11"<% If Month(Now())="11" And Len(Request.Querystring("s"))=0 Then Response.Write " selected=""selected""" %><% If Request.Querystring("month")="11" Then Response.Write "selected=""selected""" %>>November</option>
<option value="12"<% If Month(Now())="12" And Len(Request.Querystring("s"))=0 Then Response.Write " selected=""selected""" %><% If Request.Querystring("month")="12" Then Response.Write "selected=""selected""" %>>December</option>
</select>
m_soderlunds avatarm_soderlundMedlem sedan sep. 20026 425 inlägg
#3

Mer kod, allt kom inte med (mer än 10000 tecken):

<select size="1" name="year">
<option>År</option>
<option></option>
<option value="2003"<% If Year(Now())="2003" Then Response.Write " selected=""selected""" %>>2003</option>
<option value="2004"<% If Year(Now())="2004" Then Response.Write " selected=""selected""" %>>2004</option>
<option value="2005"<% If Year(Now())="2005" Then Response.Write " selected=""selected""" %>>2005</option>
<option value="2006"<% If Year(Now())="2006" Then Response.Write " selected=""selected""" %>>2006</option>
</select>

<!--
mer formulärfält
-->

</form>
freemanMedlem sedan juni 200327 inlägg
#4

:)

gjorde en väldigt primitiv lösning men den fungerar iaf :)

<tr>
    <td><b>Anbudsdatum:</b><br><br>

År: <select name="ar">
<option value="2003" selected>2003</option>
<option value="2004">2004</option>
<option value="2005">2005</option>
<option value="2006">2006</option>
<option value="2007">2007</option>
</select> Månad: <select Datum :select name="manad">
<option value="01" selected>01</option>
<option value="02">02</option>
<option value="03">03</option>
<option value="04">04</option>
<option value="05">05</option>
<option value="06">06</option>
<option value="07">07</option>
<option value="08">08</option>
<option value="09">09</option>
<option value="10">10</option>
<option value="11">11</option>
<option value="12">12</option>
</select> Dag: <select Dag: select name="dag">
<option value="01" selected>01</option>
<option value="02">02</option>
<option value="03">03</option>
<option value="04">04</option>
<option value="05">05</option>
<option value="06">06</option>
<option value="07">07</option>
<option value="08">08</option>
<option value="09">09</option>
<option value="10">10</option>
<option value="11">11</option>
<option value="12">12</option>
<option value="13">13</option>
<option value="14">14</option>
<option value="15">15</option>
<option value="16">16</option>
<option value="17">17</option>
<option value="18">18</option>
<option value="19">19</option>
<option value="20">20</option>
<option value="21">21</option>
<option value="22">22</option>
<option value="23">23</option>
<option value="24">24</option>
<option value="25">25</option>
<option value="26">26</option>
<option value="27">27</option>
<option value="28">28</option>
<option value="29">29</option>
<option value="30">30</option>
<option value="31">31</option>
</select></td>

Det jag inte får att fungera är när man vill editera nyheten då hämtar inte sidan värdet för "ar", "manad" och "dag" tyvärr, ngn som vet hur man gör detta?

Jag har provat detta

value="<%=RecSet("dag")%>"

men det ville inte fungera

Har exact samma problem med mina checkboxes, den vägrar förstå att en av boxarna är iklickade redan utan man måste klicka i dom igen :/

/mvh Niclas S

m_soderlunds avatarm_soderlundMedlem sedan sep. 20026 425 inlägg
#5

Testat min kod ovan? Med den får du ut värdet så här:

Dim ar, manad, dag
If Len(Request.Querystring("year"))>0 Then

ar = Request.Querystring("year")
manad = Request.Querystring("month")
dag = Request.Querystring("day")

End If
Erik Juhlins avatarErik JuhlinMedlem sedan maj 200010 687 inlägg
#6

Fes någon i er kuvös eller? ;)
Ni verkar vara lite skadade som hårdkodar allt det där...

Erik Juhlins avatarErik JuhlinMedlem sedan maj 200010 687 inlägg
#7

Lite mindre kod. :)

<%
Dim lYear, lMonth, lDay, i

lYear = Year(Now) 'lYear = rs("...")
lMonth = Month(Now) 'lMonth = rs("...")
lDay = Day(Now) 'lDay = rs("...")
%>
<form>
<select name="Year">
<%	For i = Year(Now) To Year(DateAdd("yyyy", 4, Now))
		%><option value="<%=i%>"<%If i = lYear Then Response.Write " selected"%>><%=i%></option><%
	Next 'i	%>
</select>

<select name="Month">
<%	For i = 1 To 12
		%><option value="<%=i%>"<%If i = lMonth Then Response.Write " selected"%>><%=MonthName(i)%></option><%
	Next 'i	%>
</select>

<select name="Day">
<%	For i = 1 To 31
		%><option value="<%=i%>"<%If i = lDay Then Response.Write " selected"%>><%=i%></option><%
	Next 'i	%>
</select>
</form>
m_soderlunds avatarm_soderlundMedlem sedan sep. 20026 425 inlägg
#8

Erik Juhlin skrev:

Fes någon i er kuvös eller? ;)
Ni verkar vara lite skadade som hårdkodar allt det där...

Onödigt att servern använder sig av ASP för att skriva ut allt det där. ;) Bättre att hårdkoda då, och det blev ju inte jobbigt för mig eftersom jag bara kopierade kod från en HTML-sida, eftersom jag körde For-Next precis som du nu. :D

Erik Juhlins avatarErik JuhlinMedlem sedan maj 200010 687 inlägg
#9

Ojojoj vad tungt det är för servern. Tar säkert flera millisekunder längre tid att exekveras.
Och bra sen om några år när det nuvarande året inte finns med i listan.

Nej, var smart och tänk lite större. Skriv snygg kod som sköter sig själv och är enkel att ändra i.

freemanMedlem sedan juni 200327 inlägg
#10

Erik Juhlin skrev:

Lite mindre kod. :)

<%
Dim lYear, lMonth, lDay, i

lYear = Year(Now) 'lYear = rs("...")
lMonth = Month(Now) 'lMonth = rs("...")
lDay = Day(Now) 'lDay = rs("...")
%>
<form>
<select name="Year">
<%	For i = Year(Now) To Year(DateAdd("yyyy", 4, Now))
		%><option value="<%=i%>"<%If i = lYear Then Response.Write " selected"%>><%=i%></option><%
	Next 'i	%>
</select>

<select name="Month">
<%	For i = 1 To 12
		%><option value="<%=i%>"<%If i = lMonth Then Response.Write " selected"%>><%=MonthName(i)%></option><%
	Next 'i	%>
</select>

<select name="Day">
<%	For i = 1 To 31
		%><option value="<%=i%>"<%If i = lDay Then Response.Write " selected"%>><%=i%></option><%
	Next 'i	%>
</select>
</form>

Formen fungerar men hur jag den att skrivas ut såhär 2003-02-02 och inte så här 2003-2-2

m_soderlunds avatarm_soderlundMedlem sedan sep. 20026 425 inlägg
#11

Kanske du redan tidigare i din kod skrivit Dim i? ;)

freemanMedlem sedan juni 200327 inlägg
#12

Och hur hämtar jag hem värdet när jag vill redigera nyheten?

Erik Juhlins avatarErik JuhlinMedlem sedan maj 200010 687 inlägg
#13

Var vill du skriva ut 2003-02-02?
Skickar du inte det till databasen så ska den själv kunna tolka det om fältet är av typen datetime eller motsvarande.

När du ska hämta värde så tar du bara värdet från databasen och lägger in ivariablerna lYear, lMonth och lDay.

freemanMedlem sedan juni 200327 inlägg
#14

Nu har jag gjort att ar, manad och dag har varsin kolum, hur gör jag för att få som du säger alla 3 värdena till en kolum?

Erik Juhlins avatarErik JuhlinMedlem sedan maj 200010 687 inlägg
#15

På sidan du sparar:

Dim lYear, lMonth, lDay, dDate
lYear = CLng( Request("Year") )
lMonth = CLng( Request("Month") )
lDay = CLng( Request("Day") )

dDate = CDate( lYear & "-" & lMonth & "-" & lDay )

Släng sen in dDate i dattabassen! :)

384 ms totalt · 4 externa anrop · v20260731065814-full.e96017d9
116 ms — deklarationer (db)
124 ms — hämta statistik (db)
141 ms — hämta tråd, inlägg och bilagor (db)
117 ms — ändringar (db)