---
title: "Träningskalender"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/75850-träningskalender"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "firstchoice"
published: "2003-05-04T17:31:19.000Z"
updated: "2005-05-15T15:59:25.000Z"
replies: 6
views: 394
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/75850-träningskalender"
---

# Träningskalender

## #1 — firstchoice, 2003-05-04T17:31Z

Sitter och skissar på en träningskalender

inga större problem att fixa ett formulär där man väljer viljen dag samt tid och skriver en text
sen så precenterar man de aktiviteter för den aktuella veckan

men jag skulle vilja ha en funktion så att man kan göra en återkommande aktivitet...
tex skriva in att det är Nybörjarkurs VARJE måndag 18-19
så kommer det alltid upp...

någon idé?  :q

Permalänk: https://www.webforum.nu/p/75850

## #2 — Lukaspojken, 2003-05-04T19:36Z

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.

Permalänk: https://www.webforum.nu/p/1034648

## #3 — Jesper T, 2003-05-04T20:04Z

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
%>
```

Permalänk: https://www.webforum.nu/p/1034682

## #4 — firstchoice, 2003-05-04T20:06Z

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...

Permalänk: https://www.webforum.nu/p/1034684

## #5 — Jesper T, 2003-05-04T20:18Z

japp...

Permalänk: https://www.webforum.nu/p/1034698

## #6 — voigtann1, 2003-05-04T20:24Z

Jesper T: Snygg kod tycker jag :e

Permalänk: https://www.webforum.nu/p/1034704

## #7 — PLks, 2005-05-15T15:59Z

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?

Permalänk: https://www.webforum.nu/p/1612783

---

Tråden på webben: https://www.webforum.nu/amne/asp/75850-träningskalender