22. oktober 2002 - 17:05Der er
5 kommentarer og 1 løsning
Asp
Jeg har et lille problem med min kode:
If not booWeekend then bookedtider = "11:30" End If
Do while NOT Rs.EOF If bookedtider <> "" Then bookedtider = Rs("start") Else bookedtider = Rs("start") End If Rs.MoveNext Loop
Hvis jeg bruger overstående så lagre den kun den sidste Rs("Start") i bookedtider og ikke dem alle ... eller den bruger ihvertifald ikke dem alle når den skal checke for booked tider i følgende:
For EACH tid In Split(tider, ",") If tid = requesttid OR vivisertiderher = 1 Then vivisertiderher = 1 'vi viser tider sålænge værdi=1 End If If InStr(bookedtider, tid)=0 AND vivisertiderher = 1 Then Response.write "<option>" & tid & "</option>" & VBCrLf Else vivisertiderher = 0 End If Next
De fleste virksomheder har efterhånden bevist, at AI virker.
Pilotprojekter leverer resultater. Medarbejdere bruger generative AI-værktøjer. Nye use cases dukker op på tværs af organisationen.
Dette sætter bookedtider lig rs("start") og det vil være den sidste rs("start")
bookedtider = Rs("start")
Hvis du vil gemme alle i en liste så skal du skriver:
bookedtider = bookedtider & "," & Rs("start")
Hvor komma så er skille tegn.
Do while NOT Rs.EOF If bookedtider <> "" Then bookedtider = bookedtider & "," & Rs("start") Else bookedtider = bookedtider & "," & Rs("start") End If Rs.MoveNext Loop
Så skal denne tilføjes for at fjerne det første komma som kommer med: bookedtider = Mid(bookedtider,2)
Ups det kan jeg godt se ... det var noget jeg brugte før ... jeg skal kun bruge en der hedder: bookedtider = Rs("start") og ikke alt det med if og then ... hvordan skal jeg lave den der array?
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.
