26. juli 2002 - 19:25Der er
11 kommentarer og 1 løsning
Udtræk fra to tabeller
Jeg har et problem med at trækker ting ud fra 2 tabeller. Nyheder, TingOgSager. Det er ikke noget problem at trække noget ud fra en enkel tabel men problemet opstå når jeg tilføjer udtræk fra den anden. Så laver browseren bare timeout (stå og tænker) Jeg poster lige noget code hvordan det ser ud lige nu.
//-----Select sætninger <% 'Recordset til nyheder SQLstmtNyhed = "SELECT top 3 * FROM nyhed ORDER BY ID desc;" Conn.Execute (SQLstmtNyhed) Set rsNyhed = conn.Execute(SQLstmtNyhed) %>
<% 'Recordset til ting og sager SQLstmtSager = "SELECT top 3 * FROM sager ORDER BY ID desc;" Conn.Execute (SQLstmtSager) Set rsSager = conn.Execute(SQLstmtSager) %>
//-----Udtræk sætning nyhed <% DO WHILE NOT rsNyhed.EOF ID = rsNyhed("ID") overskrift = rsNyhed("overskrift") besked = rsNyhed("besked") %> <% rsNyhed.MoveNext LOOP %> //-----Udtræk sætning ting og sager <% DO WHILE NOT rsSager.EOF ID1 = rsSager("ID") overskrift1 = rsSager("overskrift") besked1 = rsSager("besked") %> <% rsSager.MoveNext LOOP %>
Der bliver investeret massivt i AI. Teknologien er mere tilgængelig end nogensinde, og ambitionerne er høje. Alligevel oplever mange virksomheder, at resultaterne udebliver.
<% 'Recordset til nyheder SQLstmtNyhed = "SELECT top 3 * FROM nyhed ORDER BY ID desc;" ' behøves ikke Conn.Execute (SQLstmtNyhed) Set rsNyhed = conn.Execute(SQLstmtNyhed) %>
<% 'Recordset til ting og sager SQLstmtSager = "SELECT top 3 * FROM sager ORDER BY ID desc;" 'behøves ikke Conn.Execute (SQLstmtSager) Set rsSager = conn.Execute(SQLstmtSager) %>
ja for pokker det er da rigtigt nok det execute havde jeg sku ikke set....alletiders.... Men nu løber jeg sku ind i et problem mere. Jeg har en funktion der cutter en string ned til x antal tegn den virker godt nok med et udtræk f.eks nyheder men lige så snart den anden bliver koblet på kan det ikke finde ud af bruge funktionen....jeg poster lige funktionen.......Kan det være at det går for stærk med at læse ind at den ikke kan nå at køre funktionen får den næste bliver læst ind ??? Håber i har et svar
<% 'Cutter tekststreg fra database og sætter det antal tegn af der specificeret af brugeren + efterfølgende ...(punktum) Function CutString (YouString, intCut) if len(YouString) > intCut then posstart=instr (intCut, YouString, " ") if (posstart <> 0) then CutString = Left(YouString, posstart) & "..." Exit Function end if end if CutString = YouString End function %>
Det kender jeg ikke noget til, såvidt jeg ved kører scriptet fortløbende - og functionen kan godt følge med afviklingen af din kode. spørgsmålet er HVAD du forventer fuktionen gør.
1. posstart er et tal for, hvor første position af et mellemrum (" ") i youstring er, efter intcut. Hvis du sender en streng UDEN mellemrum sker der IKKE noget. 2 HVIS mellemrumet (" ") er FØR intcut sker der IKKE noget. 3 HVIS mellemrummet er EFTER intCut bliver strengen klippet ved mellemrummet og IKKE ved intcut + der bliver tilføjet "..."
ja den skal bare sæt punktummer hvis antal tegn i string er størrer end det antal specificeret af programøren virker ok men et udtræk men ikke med 2 udtræk. findes der andre funktioner som den jeg har postet....det er en jeg har funder på nettet ???
Function CutString(YourString, intCut) CutString = Trim(YourString) If Len(YourString) > intCut Then CutString = Left(CutString, intCut) & "..." End If End Function
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.
