Födelsedag i en sträng

<%
str = "1985-12-25"
myArray = Split(str,"-")

%>
<form method="post" action="save.asp">
<select name="ar">
<%  
For i = 1900 to 2000  
Response.Write "<option value=" & chr(34)& i & chr(34)
If Int(i) = Int(myArray(0)) Then Response.Write " selected"   
Response.Write ">" & i & vbCrLf
next
%>
</select><br>
<select name="manad">
<%  
For i = 1 to 12  
if i = 1 then
manad = "Januari"
Elseif i = 2 then
manad = "Februari"
Elseif i = 3 then
manad = "Mars"
Elseif i = 4 then
manad = "April"
Elseif i = 5 then
manad = "Maj"
Elseif i = 6 then
manad = "Juni"
Elseif i = 7 then
manad = "Juli"
Elseif i = 8 then
manad = "Augusti"
Elseif i = 9 then
manad = "September"
Elseif i = 10 then
manad = "Oktober"
Elseif i = 11 then
manad = "November"
Elseif i = 12 then
manad = "December"
end if
Response.Write "<option value=" & chr(34)& manad& chr(34)
If Int(i) = Int(myArray(1)) Then Response.Write " selected"   
Response.Write ">" & manad & vbCrLf
next
%>
</select><br>
<select name="datum">
<%  
For i = 1 to 31  
Response.Write "<option value=" & chr(34) & i & chr(34)
If Int(i) = Int(myArray(2)) Then Response.Write " selected"   
Response.Write ">" & i & vbCrLf
next
%>
</select><br>    
<input type="submit" name="Skicka" value="Spara ändringar!">
</form>

Lr har jag missuppfattat frågan? :q

<red>Tog bort en del onödiga saker bara </red>

Hur menar du ?

om vi säger att personen "X" vill registrera sej.. så ska han ha ett formulär.. där man skriver in datumet (med hjälp av select) och sen ska den sparas som: 2002-01-01
Om personen har skrevit fel så ska han/hon självklart kunna ändra om sin information. Där 3 select ska finnas en för år, månad och dag. här ska den ta ut infon från strängen "2002-01-01"

vet inte om Peeers fungera... men jag hade tänkt mej mer som en left() och right() sak.. kan du förklara lite mer hur det fungera med din kod?

typ så här eller?

[red]strDate =  "2002-01-01"
artal = left ( strDate, 4 )[/red] <-- läs de fyra första tecknen från vänster[red]
manad = mid ( strDate, 5, 2 )[/red] <-- börja läsa vid 5:e tecknet, läs 2 tecken[red]
dag = right ( strDate, 2 )[/red] <-- läs de 2 första tecknen från höger

Det bästa är väl om du provar den.
För jag tycker att min kod funkar enligt din beskrivning....Du får 3 selectfält. Ett för år (med värdet 1985 förvalt), ett för månader (med december förvalt) samt ett för datum (25 förvalt). De värdena får du ju naturligtvis pga. att det är dem värden som är i stränge ("str")

str = "1985-12-25"
myArray = Split(str,"-")

myArray(0) = "1985"
myArray(1) = "12"
myArray(2) = "25"

jag tror jag kör på det med :) tack!

You're welcome!