Upprepa insert

Sitter så här på kvällskvisten och funderar på om man på någe vis kan upprepa en aktivitet i en databastabell.

Låt säga att jag tränar en gång i veckan och skall lägga till min aktivitet i en kalender, då skulle det ju vara smidigt att kunna lägga till tex en promendad varje torsdag kommande år eller månad.

Alltså några selectlister med vilken frekvens som man skall göra sin syssla och en annan hur långt tid detta skall sträcka sig.

Är det någon som har något tips på principen på detta så skulle det vara en utmaning att lösa det?

Finns detta att läsa om någonstans kanske?

Jag, kanske får leta någon annan stans?!

Vad är problemet?

Jag hade nog gjort en selectlist med tidsmassan:

<select name="typ">
  <option value="n">Minut
  <option value="h">Timme
  <option value="d">Dag
  <option value="m">Månad
</select>

och en input med intervall:

<input type="text" name="intervall" size="10" value="1">

Och sedan posta det till denna sidan:

'populera
intAntal = cint(request.form("intervall"))
strTyp = request.form("typ")
datDatum = datevalue(date)

dim myArray(intAntal-1)

'skapa datum
for i  = lbound(myArray) to ubound(yArray)
   myArray(i) = dateAdd(strTyp,i,datDatum)
next   
   
'skriv ut datum
for i  = lbound(myArray) to ubound(yArray)
   response.write myArray(i) & "<br>"
next

Det som är value i select:en 'typ' representerar intervall-parametern som sedan används i en inbyggda VBScript-funktionen dateAdd(). Input:en 'intervall' innehåller antalet som används till samma funktion.

Förstår du? ;)

---
Tillägg) Läs mer om funktionen DateAdd här.

Tack, det är något liknande jag söker men sidan genererar massa fel.
Det första klagar den på: dim myArray(intAntal-1) Expected integer constant
Det andra lbound
Det tredje på ubound

Är det något som är glömt eller missat?

Jag kom på det:
dim myArray
redim myArray(intAntal-1)
+ lite stavfel i koden.

Bonusfråga:
Intervallet är ju baserat på valet i dropplisten, alltså anger du "dag" i dropplisen så är "1", en dag osv.
Hur skulle jag kunna sätta en dropplist och skriva: tex 1 [Dag, Vecka, Månad](i en dropplist), och få korrekt resultat?
*står still där uppe*

Sätt din input framför select-listan. Det går väl alltid att lösa med lite HTML? ;)

Nej, nej jag menar inte det. När jag skriver 10 och väljer, låt säga "dag", så listar den ut 10 dagar, och skriver jag 10 och väljer "timmar" så listar den ut 10 timmar. Men jag vill ha en dropplist där jag kan välja timmar, dagar, månader osv Och då blir det ju annorlunda.
Låt säga månad, 10, månader

Jag förstår inte alls vad du menar. :)

I dagsläget gör du ju exakt det. Är det en tidsspan du pratar om?

Jag gör inte det ju.
Väljer jag ["Dag","10","veckor"] är det ju inte det samma som ["Dag","10", "månader"]

Fet=Ny dropplist

-"Tidsspan"? Ja, kanske?

Ok. Jag förstår fortfarande ingenting, men om du förklarar vad du vill åstakomma med det hela så kanske jag gör det. :)

Vad skall den modifierade dropplisten göra? Vad skall hända?

Ha, ha, det var inte helt enkelt att förklara, men jag gör väl ett försök till.

I ditt kodexempel som du gav mig finns en dropplist för att välja "tidstyp" samt ett inputfält för att välja "intervall".

Jag skulle vilja komplettera detta med en till dropplist som ligger efter "intervall"
Som skall innehålla [Dagar], [veckor], [månader].
Skriver jag då i ex. [dag] i "dag", 10 i "intervall", och [veckor] i min nya dropplist.
Så får jag ju ett annat resultat om jag skulle skriva ex. [dag] i "dag", 10 i "intervall", och väljer [dagar] i min nya dropplist.

Alltså en enhet till tidsintervallet.

Förstår du eller är det svårt att lösa?

Den nya skall alltså bestämma hur länge aktiviteten sträcker sig?

japp, tillsammans med "intervallinputen"

Ok. Nu skall vi se. Jag kan vara ute och segla helt och hållet. :)
Jag utelämnade droplistorna, jag har lite ont om tid.

'populera
intInterVall = 10
intAntal = 2
strTyp = "YYYY"
datDatum = datevalue(date)

dim myArray
redim myArray(intAntal-1)

'skapa datum
for i = lbound(myArray) to ubound(myArray)
   intTempIntervall = intTempIntervall + intIntervall
   myArray(i) = dateAdd(strTyp,intTempIntervall,datDatum)
next   
   
'skriv ut datum
for i  = lbound(myArray) to ubound(myArray)
   response.write myArray(i) & "<br>"
next

Vad är "intInterVall", och hur kommer det funka?
*jag är seg*

Nej, nu ser jag. Det du skrivit ger 10 års steg. Det var ju inte tanken :(
ÅÅÅÅÅÅÅÅååååhhhh *** vad **** svårt att beskriva denna ***** *** ****.

Är det överhuvud taget någon som fattar vad jag menar, eller är jag så ******** ***** dålig på att beskriva den här ***** *****?

Lugna ner dig. :l

Jag tror att jag förstår, men jag har inte tid just nu. Jag återkommer. :)