31. marts 2003 - 07:05Der er
3 kommentarer og 1 løsning
Random poster fra Access
Jeg har et random script som trækker 10 tilfældige poster ud af en Access database og det virker fint, men de skal omsættes til link, det vil sige at jeg skal ha trukket kolonnen "url" og sat ind i flg. script.
Count = 0 Do While Count < 10 objRs.MoveFirst Randomize objRs.Move(int(objRs.RecordCount * rnd())) If Not objRs.EOF And Not objRs.BOF Then Count = Count + 1 Response.Write objRs ("navn") response.write ("<br>") End If Loop %>
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.
Do While Count < 10 objRs.MoveFirst Randomize objRs.Move(int(objRs.RecordCount * rnd())) If Not objRs.EOF And Not objRs.BOF Then Count = Count + 1 Response.Write objRs ("navn") Response.Write "<a href=" & ObjRs("url")& ">" & objRs("url") & "</a>" response.write ("<br>") End If Loop %>
Ovenstående viser url'en som et link denne viser navnet som et link til url'en
Do While Count < 10 objRs.MoveFirst Randomize objRs.Move(int(objRs.RecordCount * rnd())) If Not objRs.EOF And Not objRs.BOF Then Count = Count + 1 Response.Write "<a href=" & ObjRs("url")& ">" & objRs("navn") & "</a>" response.write ("<br>") End If Loop %>
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.