Lister

Januar
Februar
Marts
April
Maj
Juni
Juli
August
September
Oktober
November
December

det var listen så kan du lave en database :)

Ha -ha.

Jeg har databasen. Jeg kan bare ikke lige finde ud af syntaksen for en liste. Den skal ikke have noget med databasen at gøre som sådan

altså det skal tjekke hvilken måned vi er i og så hvis der er indtastet i den måned så skal den ikke skrive noget igen eller hvad??

Nej, simplere endnu.

Hvis der i databasen står at der sidst er indtastet i februar, så skal den vide at disse indtastninger høre til marts.

Jeg skal bare bruge en liste, så jeg kan se hvilken måned der kommer efter den aktuelle

prøv dette:
<%=month(date()) + 1%>

Det duer bare ikke, for hvis de nu går ind 2 dage for sent, f.eks. d. 2. marts, så kan de ikke få lov til at taste data ind for februar.

Jeg er nødt til at kigge i min database, og hvis der står \"januar\", så skal jeg på en eller anden måde kunne \"regne ud\" at de næste indtastninger skal være for februar.

det fatter jeg intet af :)

forklaringen skal være længere før jeg kan hjælpe :)

Ok, altså:

En bruger logger sig ind. Der tjekkes i et felt i en database, lad os sige at der i dette felt står \"Januar\".

Så vil jeg gerne have at der på siden kommer til at stå følgende:
\"Der skal tastes data ind for februar måned\"

Og så var det at jeg tænkte, at for at computeren kan vide hvad måned der kommer efter januar, så er jeg nødt til at have en liste med alle månederne, så kan jeg gå ind i denne liste og finde januar (som jeg fik fra databasen) og så kan jeg se at den næste måned er februar.

Nu er det jo ikke verdens længste liste du søger, så der er da mange muligheder :

dim MyList[11]
MyList[0] = \"Januar\"
MyList[1] = \"Februar\"
MyList[2] = \"Marts\"
MyList[3] = \"April\"
MyList[4] = \"Maj\"
.....
Her tjecker du din database og gemmer måske værdien fra feltet ( måske Januar ) i en variabel måske maaned
.....
Dim counter
counter = 0
Dim fundet
Do While counter < 12
if maaned = MyList[counter] then
fundet = true
Exit Do
end if
counter = counter + 1
Loop
if fundet then
response.write \"Du skal indtaste data for \" & MyList[counter + 1]
else
response.write \"Det data der var i databasen var ikke lig en måned...\"
end if




****************************
En anden måde :
...
Igen hives data fra basen ud i en variabel maaned
....
Select Case maaned

Case \"Januar\"
  Response.write \"Du skal indtaste data for Februar :\"
Case \"Februar\"
  Response.write \"Du skal indtaste data for Marts :\"
Case \"Marts\"
  Response.write \"Du skal indtaste data for April :\"
....
Case \"December\"
  Response.write \"Du skal indtaste data for Januar :\"
Case Else
  Response.write \"Der var intet der passese\"
End Select

Det må du da kunne bruge ?????

Kasseper

OK, den øverste metode er lidt kikset, for den tager jo ikke højde for december, men det kan vi lige rette til :
counter = 0
Dim fundet
Do While counter < 12
if maaned = MyList[counter] then
if maaned = \"December\" then
fundet = \"December\"
else
fundet = \"fundet\"
end if
Exit Do
end if
counter = counter + 1
Loop
if fundet = \"fundet\" then
response.write \"Du skal indtaste data for \" & MyList[counter + 1]
else
if fundet = \"December\" then
response.write \"Du skal indtaste data for Januar \"
else
response.write \"Det data der var i databasen var ikke lig en måned...\"
end if
end if