Träningskalender

Jag såg nån sån funktion och sättet man gjorde det på var att man loopade igenom en insert x antal gånger.

Jag har en liknande kod på min sida för att köra återkommande aktiviteter:

<select name="steg" class="textfieldtop">
    <option value="1" selected>Varje</option>
    <option value="2">Varannan</option>
    <option value="3">Var tredje</option>
    <option value="4">Var fj&auml;rde</option>
    <option value="5">Var femte</option>
    <option value="6">Var sj&auml;tte</option>
  </select>
  <select name="typ" class="textfieldtop">
          <option value="d" selected>Dag 
          <option value="ww">Vecka 
          <option value="m">Månad 
        </select><br>
  Varaktighet: 
  <input type="text" class="textfieldtop" name="intervall" size="5" value="1" maxlength="3" onKeyPress="event.returnValue = (event.keyCode >= 48) && (event.keyCode <= 57);">
  <select name="intSel" class="textfieldtop">
    <option value="datDay" selected>Dag/ar</option>
    <option value="datWeek">Vecka/or</option>
    <option value="datMonth">M&aring;nad/er</option>
  </select>
  <input type="image" border="0" name="imageField" src="icons/button_ok.gif" width="33" height="15" alt="Ok">

<%
Dim strTyp,datDatum,steg,intervall,intSel,intAntal,i,Antal
'populera
strTyp = request.form("typ")
datDatum = datevalue(datDate)
steg= cint(request.form("steg"))
intSel=request.form("intSel")
intAntal= cint(request.form("intervall"))
'Klura ut enheterna
select case intSel
  case "datDay"
     select case strTyp
        case "d"   Antal=intAntal
        case "ww"  Antal=intAntal/7
        case "m"   Antal=intAntal/31
end select
   case "datWeek"
   select case strTyp
        case "d"   Antal=intAntal*7
        case "ww"  Antal=intAntal
        case "m"   Antal=intAntal/4
  end select
  case "datMonth"
     select case strTyp
        case "d"   Antal=intAntal*31
        case "ww"  Antal=intAntal*7
        case "m"   Antal=intAntal
end select
end select

dim myArray
redim myArray(Antal-1)
'skapa datum
for i  = lbound(myArray) to ubound(myArray)
myArray(i) = dateAdd(strTyp,i,datDatum)
next 

for i  = lbound(myArray) to ubound(myArray) step steg
SQL = "SELECT N_datum FROM Notes WHERE N_datum=#"& myArray(i) & "# and N_kat="& katNo &" and N_Namn_id="& Id
	Set RS = con.Execute(SQL)
	If RS.EOF Then
		SQL = "INSERT INTO Notes (N_Namn_id,N_datum,Notes,N_kat) VALUES (" & Id & ",'" & myArray(i) & "','" & strNotes & "'," & cint(katNo) &")"
		con.Execute(SQL),,128
	Else
	
		SQL = "UPDATE Notes SET Notes='" & strNotes & "',N_kat="& katNo &" WHERE N_Namn_id="& Id &" AND N_Datum=#"& datDate &"# AND N_kat=" & Oldkat
		con.Execute(SQL),,128
	End If
 next
%>

du menar att jag gör en instert på tex första måndagen
och sen automatiskt loopar jag in nya poster med 7 dagars mellanrum ?
kanske var en idé
så kan man ställa in antal veckor
tex
börjar måndag vecka 22
pågår i 5 veckor
så loppar den 5 gånger...

japp...

Jesper T: Snygg kod tycker jag :e

mycket snygg kad, ja... men fattar inte tillräckligt av koden för att kunna modifiera
I mitt fall har jag ett aktivitet= tvättstuga som varar i 4 dagar, mellan dag1 och dag 4. Jag matar in detta m.h.a. eh formulär
Mina frågor:

1. hur skulle INSERT kunna se ut?
2. om jag vill skriva ut:
   dag 1 tvättstuga
   dag 2 tvättstuga
   dag 3 tvättstuga
   dag 4 tvättstuga
   Hur skulle den koden kunna se ut?