Hvor \" & tirs & \"( jeg er i tvivl om det skal være \" & tirs & \" eller tirs i min anvendelse af denne variabel i If.. sætningen) er en lokal variabel, som jeg får fra et script der regner ud hvilke dato\'er vi har på ugedagene i denne uge.
Også har jeg en Recordset der hedder Kalender, hvor jeg henter mine oplysninger fra.
Med version 7 af TeamShare tager Lector næste skridt og bygger en platform for AI-agenter, der i højere grad kan følge medarbejderen gennem hele arbejdsprocessen.
Jeg ved ikke om man kan gøre det jeg forestiller mig. Jeg siger jo faktisk at den skal finde de steder i Recordset hvor der er en Tid1 der er -5, derefter skal den finde den mængde af disse der er sammenfaldende med den dato jeg stiller efter. Kan man søge på den måde i en Recordset?
Det kan man vist godt, men det er ikke det du gør, det du tjekker nu er om der er en indgang i din database der på kalender(0) = -5 OG i kalender(3) = tirs.... Hvordan ser din SQL sætning ud, måske kan den optimeres så det du skal bruge kommer rigtigt ud...
<% Dim man,tirs,ons,tors,fre,lor,son,idag idag = date if datePart(\"w\",idag) = 2 Then man = idag tirs = idag + 1 ons = idag + 2 tors = idag + 3 fre = idag + 4 lor = idag + 5 son = idag + 6 else if datePart(\"w\",idag) = 3 Then man = idag + 6 tirs = idag ons = idag + 1 tors = idag + 2 fre = idag + 3 lor = idag + 4 son = idag + 5 else if datePart(\"w\",idag) = 4 Then man = idag + 5 tirs = idag + 6 ons = idag tors = idag + 1 fre = idag + 2 lor = idag + 3 son = idag + 4 else if datePart(\"w\",idag) = 5 Then man = idag + 4 tirs = idag + 5 ons = idag + 6 tors = idag fre = idag + 1 lor = idag + 2 son = idag + 3 else if datePart(\"w\",idag) = 6 Then man = idag + 3 tirs = idag + 4 ons = idag + 5 tors = idag + 6 fre = idag lor = idag + 1 son = idag + 2 else if datePart(\"w\",idag) = 7 Then man = idag + 2 tirs = idag + 3 ons = idag + 4 tors = idag + 5 fre = idag + 6 lor = idag son = idag + 1 else man = idag + 1 tirs = idag + 2 ons = idag + 3 tors = idag + 4 fre = idag + 5 lor = idag + 6 son = idag
end if end if end if end if end if end if <% response.write \"Mandag : \" & man & \"<br>\" %> <% response.write \" Tirsdag : \" & tirs& \"<br>\" %> <% response.write \"Onsdag: \" & ons & \"<br>\" %> <% response.write \"Tordag: \" & tors & \"<br>\" %> <% response.write \"Fredag: \" & fre & \"<br>\" %> <% response.write \"Lørdag: \" & lor& \"<br>\" %> <% response.write \"søndag: \" & son& \"<br>\" %>
function MM_validateForm() { //v3.0 var i,p,q,nm,test,num,min,max,errors=\'\',args=MM_validateForm.arguments; for (i=0; i<(args.length-2); i+=3) { test=args[i+2]; val=MM_findObj(args[i]); if (val) { nm=val.name; if ((val=val.value)!=\"\") { if (test.indexOf(\'isEmail\')!=-1) { p=val.indexOf(\'@\'); if (p<1 || p==(val.length-1)) errors+=\'- \'+nm+\' must contain an e-mail address.\\n\'; } else if (test!=\'R\') { num = parseFloat(val); if (val!=\'\'+num) errors+=\'- \'+nm+\' must contain a number.\\n\'; if (test.indexOf(\'inRange\') != -1) { p=test.indexOf(\':\'); min=test.substring(8,p); max=test.substring(p+1); if (num<min || max<num) errors+=\'- \'+nm+\' must contain a number between \'+min+\' and \'+max+\'.\\n\'; } } } else if (test.charAt(0) == \'R\') errors += \'- \'+nm+\' is required.\\n\'; } } if (errors) alert(\'The following error(s) occurred:\\n\'+errors); document.MM_returnValue = (errors == \'\'); } //--> </script> </head> <% Dim man,tirs,ons,tors,fre,lor,son,idag idag = date if datePart(\"w\",idag) = 2 Then man = idag tirs = idag + 1 ons = idag + 2 tors = idag + 3 fre = idag + 4 lor = idag + 5 son = idag + 6 else if datePart(\"w\",idag) = 3 Then man = idag + 6 tirs = idag ons = idag + 1 tors = idag + 2 fre = idag + 3 lor = idag + 4 son = idag + 5 else if datePart(\"w\",idag) = 4 Then man = idag + 5 tirs = idag + 6 ons = idag tors = idag + 1 fre = idag + 2 lor = idag + 3 son = idag + 4 else if datePart(\"w\",idag) = 5 Then man = idag + 4 tirs = idag + 5 ons = idag + 6 tors = idag fre = idag + 1 lor = idag + 2 son = idag + 3 else if datePart(\"w\",idag) = 6 Then man = idag + 3 tirs = idag + 4 ons = idag + 5 tors = idag + 6 fre = idag lor = idag + 1 son = idag + 2 else if datePart(\"w\",idag) = 7 Then man = idag + 2 tirs = idag + 3 ons = idag + 4 tors = idag + 5 fre = idag + 6 lor = idag son = idag + 1 else man = idag + 1 tirs = idag + 2 ons = idag + 3 tors = idag + 4 fre = idag + 5 lor = idag + 6 son = idag
end if end if end if end if end if end if %> <body bgcolor=\"#000000\" text=\"#FFFFFF\" link=\"#FF0033\" vlink=\"#CCCCCC\" alink=\"#FF6600\"> <% set conn = server.createobject(\"ADODB.Connection\") DBPath = \"DBQ=\" & server.mappath(\"data1.mdb\") conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBPath %> <% SQL3 = \"SELECT Tid1, Tid2, Tid3, Dato FROM Kalend\" set kalender = conn.execute(SQL3) %> <table width=\"100%\" height=\"323\" align=\"center\"> <tr> <td width=\"130\" height=\"320\" valign=\"top\" align=\"center\"> <p><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\" color=\"#660000\"><b><font color=\"#FF0033\"><br> <br> <br> <br> <br> <br> BAND LOGIN<br> </font><font color=\"#006666\"><br> </font></b></font><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\" color=\"#006666\"><b><a href=\"nologin-submit.asp\"><font color=\"#FF0033\">OPRET BANDNAVN</font></a></b></font></p> <p><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\" color=\"#660000\"><b><font color=\"#FF0033\">KALENDER<br>
<% if request.querystring(\"error\") = 1 then%> <font color=\"#FF6600\"> <%response.write \"Den øvetid er reserveret\"%></font> <%else%> <font color=\"#FF6600\"><%response.write \"\"%></font> <%end if %></font></b><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\"> </font> </font></p>
Har du prøvet at udskrive hele dit kalender recordset ? Det script som jeg lavede til dig, altså det som du postede først har jo ingen relation til din database, det er ikke en funktion du kan kalde...Det der står i din database i Dato feltet er det ikke en Dato og ikke tirs....?
Naarj, OK, nu er jeg med, bare glem den sidste kommentar. Men har du prøvet at udskrive hele dit recordset. Evt. prov at tage DateValue(kalender(3)) istedet, og se om ikke at det hjælper....
Det hjalp ikke noget. Er det et problem at jeg bruger en lokal variabel til at styrer et valg i en DB. Kan det faktisk lade sig gøre. Og hvis ikke hvordan skal man så styrer at det er de rigtige dato\'er der bliver valgt udfra?
Det er et gammelt spørgsmål, som ikke er blevet svaret på. Jeg tillader mig selv at tage de 30 point.
Synes godt om
Ny brugerNybegynder
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.