Søg
Avatar billede cort Nybegynder
21. januar 2001 - 15:26 Der er 11 kommentarer og
1 løsning

dags kalender

Hej alle er der nogen der hjælpe med at genere en tabel på denne måde:

Man skal kunne indtaste et start tidspunkt
og et sluttidspunkt samt et interval i minutter.
F.eks hvis man indtaster start tid til: kl. 9.00 og sluttid til kl. 15.00
og et interval til f.eks 20 minutter skal tabelen genere noget som på denne adresse:
http://www.pcl.dk/test.asp

Avatar billede cort Nybegynder
21. januar 2001 - 15:27 #1
Det er vel noget med en for løkke det der er problemmet er hvordan man laver det rette step altså minutterne.
Avatar billede tdaugaard Nybegynder
21. januar 2001 - 15:56 #2
Done :-)

Det virker helt fint. Der skal overføres 3 parametre til \"filen\" som er:

i = Interval i minutter
s = Start tid i hele timer
e = Slut tid i hele timer

Defaults er 20, 9, 15.

<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">

<html>
<head>
    <title>Untitled</title>
    <style type=\"text/css\">
        td { font-size: 9px; }
    </style>
</head>

<body>
<basefont face=\"Verdana, Arial\">
<p>
<table border=\"1\" cellpadding=\"2\" cellspacing=\"3\" width=\"400\">
    <tr><td width=\"50\">Tid:</td><td width=\"350\">Emne:</td></tr>
<%
    If Request(\"i\") > \"\" Then mInterval = Request(\"i\") Else mInterval = 20
    If Request(\"s\") > \"\" Then hStart = Request(\"s\") Else hStart = 9
    If Request(\"e\") > \"\" Then hEnd = Request(\"e\") Else hEnd = 15

    lTime = (hStart * 60)
    Do
        iHour = Int(lTime / 60)
        iMinute = Int(lTime - (iHour * 60))
        strTime = iHour & \".\" & iMinute & String(2 - Len(iMinute), \"0\")
       
        Response.Write \"<tr><td width=\'50\'>\" & strTime & \"</td><td width=\'350\'><a href=\'addOnDayEvent.asp?time=\" & strTime & \"\'>Tilmeld</a></td></tr>\"
        lTime = lTime + mInterval
    Loop Until lTime => (hEnd * 60)

    Response.Write \"<tr><td width=\'50\'>\" & hEnd & \".00</td><td width=\'350\'><a href=\'addOnDayEvent.asp?time=\" & hEnd & \".00\'>Tilmeld</a></td></tr>\"
%>
</table>
</body>
</html>
Avatar billede cort Nybegynder
21. januar 2001 - 17:31 #3
Du er da bare en gud til det her ASP.
Det er for fedt , det virker bare som det skal.

Tusind tak for hjælpen.
Avatar billede tdaugaard Nybegynder
21. januar 2001 - 17:34 #4
*S* det er da nemt :o)
Det var så lidt :-)
Avatar billede cort Nybegynder
22. januar 2001 - 10:41 #5
Du tdaugaard 
er der ok med et lille ekstra ?. Du skal nok få point.


Men hvis jeg nu har et link udfor hvert tidspunkt, ligesom på denne side: http://www.pcl.dk/fysio/OnDayEvent.asp?id=5

Det der skal ske er at hver gang man tilmelder sig ved at klikke på tilmeld udfor et bestemt tidspunkt, skal de tilmeldte oplysninger vises udfor det valgte tidspukt.
ALtså hvordan fanger man et at de dynamisk generede tidspunkter i Do løkken og hviser noget andet tekst udfor netop dette punkt , men ikke udfor det andre?
Avatar billede cort Nybegynder
22. januar 2001 - 18:12 #6
Da du ikke har svaret kan det være at du ikke har forstået mit spørgsmål, derfor prøver jeg her at omformulere det:

Mit problem er som følger:
Når man fra siden  http://www.pcl.dk/fysio/OnDayEvent.asp?id=6

klikker på knappen [Tilmeld], åbnes en formular hvori man kan indtaste en række oplysninger. Disse oplysninger bliver lageret ned i en Access database.

Problemmet består i at for vist de indtastede oplysninger på den korrekte plads på siden hvorfra man tilmeldte sig.
Altså hvis jeg har klikket Tilmeld udfor kl. 9.40 skal de indtastede oplysninger vises udfor kl. 9.40 istedet for Tilmeld teksten.

Hvordan skal man linke de oplysninger man henter fra sin database med tidspunkterne i sin Do-løkke??????

Her er koden til siden http://www.pcl.dk/fysio/OnDayEvent.asp?id=6:

<!--#include file=\"include/connect.asp\"-->
<%
Set connect = server.createobject(\"ADODB.connection\")
Connect.Open(DBConnLogin)

Query = \"SELECT EventID, Dato, Firma, Behandler, FraKl, TilKl, Interval FROM tblEvent WHERE EventID =\" & Request.QueryString(\"id\")
Set RS = Server.CreateObject(\"ADODB.RecordSet\")
RS.open Query, Connect

\'Det er oplysninger fra dette recordset der skal vises istedet for tilmeld teksten
\'Navn, Afdeling, Problem skal vises
Query = \"SELECT OnDayEventID, Navn, Afdeling, Problem, Tidspunkt, EventID FROM tblOnDayEvent WHERE EventID =\" & RS(0)
Set RSPerson = Server.CreateObject(\"ADODB.RecordSet\")
RSPerson.open Query, Connect

top = \"<table>\"
top = top & \"<tr><td valign=\"\"top\"\">Dato:</td>\"
top = top & \"<td valign=\"\"top\"\">\" & RS(1) & \"</td></tr>\"
top = top & \"<tr><td valign=\"\"top\"\">Behandler:</td>\"
top = top & \"<td valign=\"\"top\"\">\" & RS(3) & \"</td></tr></table>\"

DoHeader(\"Dagskalender for: \" & RS(2) & \"<br><br>\")
   
    Response.Write top
   
    Response.Write \"<p><table class=\"\"onDayEvent\"\" border=\"\"1\"\" bordercolor=\"\"Gray\"\" bordercolordark=\"\"Black\"\">\"
    Response.Write \"<tr>\"
    Response.Write \"<td width=\"\"50\"\" valign=\"\"top\"\">Tid:</td>\"
    Response.Write \"<td width=\"\"350\"\" valign=\"\"top\"\">Emne:</td>\"
    Response.Write \"</tr>\"

    If RS(6) > \"\" Then mInterval = RS(6) Else mInterval = 20 \'interval
    If RS(4) > \"\" Then hStart = RS(4) Else hStart = 8 \'start
    If RS(5) > \"\" Then hEnd = RS(5) Else hEnd = 16 \'slut
   
   
   
    lTime = (hStart * 60)
    Do
        iHour = Int(lTime / 60)
        iMinute = Int(lTime - (iHour * 60))
        strTime = iHour & \".\" & iMinute & String(2 - Len(iMinute), \"0\")

        Response.Write \"<tr><td width=\"\"50\"\" valign=\"\"top\"\">\" & strTime & \"</td><td width=\"\"350\"\" valign=\"\"top\"\"><a href=\'addOnDayEvent.asp?time=\" & strTime & \"&dato=\" & RS(1) & \"&int=\" & RS(6) & \"&id=\" & RS(0) & \"\'>Tilmeld</a></td></tr>\"
       
        lTime = lTime + mInterval
    Loop Until lTime => (hEnd * 60)

    Response.Write \"<tr><td width=\"\"50\"\" valign=\"\"top\"\">\" & hEnd & \".00</td><td width=\"\"350\"\" valign=\"\"top\"\">Slut</td></tr>\"
   
    Response.Write \"</table>\"

DoFooter(\"\")
%>
Avatar billede tdaugaard Nybegynder
22. januar 2001 - 20:00 #7
Det må du undskylde. Jeg ved godt hvad du mente/mener men jeg havde ikke tid til at forklare/lave det på det tidpunkt da jeg læste din kommentar.
Avatar billede tdaugaard Nybegynder
22. januar 2001 - 20:05 #8
Har du mulighed for at sende mig din database, eller en test database ?
Avatar billede cort Nybegynder
23. januar 2001 - 16:48 #9
Hej tdaugaard 
Fik du min mail?
Har du haft tid til at kigge lidt på sagerne?
Avatar billede cort Nybegynder
23. januar 2001 - 22:48 #10
Er det ikke noget i denne her stil?
Dey virker dog ikke helt men det er lige ved tror jeg.


    lTime = (hStart * 60)
    Do
        iHour = Int(lTime / 60)
        iMinute = Int(lTime - (iHour * 60))
        strTime = iHour & \".\" & iMinute & String(2 - Len(iMinute), \"0\")
       
    IF NOT RSPerson.EOF THEN
        tidspunkt = Cstr(RSPerson(4))
       
        IF strTime=tidspunkt THEN
              Response.Write \"<tr><td width=\"\"50\"\" valign=\"\"top\"\">\" & tidspunkt & \"</td><td width=\"\"350\"\" valign=\"\"top\"\">Noget tekst</td></tr>\"
          RSPerson.Movenext
        ELSE
          Response.Write \"<tr><td width=\"\"50\"\" valign=\"\"top\"\">\" & strTime & \"</td><td width=\"\"350\"\" valign=\"\"top\"\"><a href=\'addOnDayEvent.asp?time=\" & strTime & \"&dato=\" & RS(1) & \"&int=\" & RS(6) & \"&id=\" & RS(0) & \"\'>Tilmeld</a></td></tr>\"
        END IF
    ELSE
        Response.Write \"<tr><td width=\"\"50\"\" valign=\"\"top\"\">\" & strTime & \"</td><td width=\"\"350\"\" valign=\"\"top\"\"><a href=\'addOnDayEvent.asp?time=\" & strTime & \"&dato=\" & RS(1) & \"&int=\" & RS(6) & \"&id=\" & RS(0) & \"\'>Tilmeld</a></td></tr>\"
    END IF

        lTime = lTime + mInterval
    Loop Until lTime => (hEnd * 60)
Avatar billede cort Nybegynder
24. januar 2001 - 00:46 #11
Hej du jeg har fået det hele til at virke , så bare indstil skydningen hvis du var igang.

Tisind tak for hjælpen.
Avatar billede tdaugaard Nybegynder
24. januar 2001 - 13:15 #12
cort:> sorry jeg har haft lidt travlt, men det er godt du har fået det til at virke :-)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
ASP classic kopiere database fil på server Af bsn i ASP 7 31/10/202610:20 01/11/202620:28
Persits.Upload Af bsn i ASP 9 17/09/202611:37 21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 10 25/06/202622:20 04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 08:39 Produktnøgle Af hkv i Office & Kontorpakker
13/1116:59 Bitlocker Af nico i Windows
12/1116:30 Wlan i windows 11 home Af dcedata1977 i Windows
11/1121:19 Irriterende ikon på proceslinjen Af ErikHg i Windows
11/1116:33 Kan man slippe af med "msn" ? Af Ikke-ekspert i Windows
White papers
Flere white papers »