Udtræk fra database (ASP) i Array

Hej,

Du kan evt lave det på følgende måde:
<%
con.Open conStr
Set jsRS = Server.CreateObject("ADODB.RecordSet")
Set jsRS = conn.Execute("SELECT.....")
theStr = "'"
Do Until jsRS.EOF
  theStr = theStr & jsRS(værdi) & "',"
  jsRS.MoveNext
Loop
theStr = Left(theStr,Len(theStr)-1) 'fjerner det sidste (overflødige) komma
Set jsRS = Nothing
con.Close
%>
<script language="JavaScript">
var fruits = new Array(<%=theStr%>)
</script>

-------------
Håber det kan bruges, men koden skal nok lige optimeres lidt, for den er udfra fri fantasi :D

/Luzk

Hej Luzk,

Tusind tak for hjælpen.

Det godt slynget ud af fantasien. Krævede ikke ret meget tilretning :D

MVH
Wolfgang

Hej Wolfgang,

Super du kan bruge det :-)

tak for point :-)

/Luzk

*btw* kom lige til at tænke på, at du skal sikre dig at der ikke er pinger (') i dit output fra databasen - hvis der er, skal det omformeres - det gør du således:
theStr = theStr & Replace(jsRS(værdi),"'","\'") & "',"

istedet for
theStr = theStr & jsRS(værdi) & "',"

/Luzk