udfylde image-array via asp til TinyMce

Nu er jeg ikke liiige skarp i vbscript, men noget à la:

<%
'sæt et sql-statement og slå op
strSQL = "Select fil,filLocation From tabel"
Set rs = DataConn.Execute(strSQL)
%>

var tinyMCEImageList = [];
<%
do while rs.getNext() 'hent næste -- hvad hedder det ?-)
  Response.Write "tinyMCEImageList[tinyMCEImageList.length] = ['" & rs.fil & "','" & rs.filLocation & "']"
loop
%>;

-- du kan forhåbentlig selv rette det til, så det er ordentlig vbscript !-)

Tak for forslaget. Jeg ser nærmere på det i eftermiddag.

do while rs.getNext() 'hent næste -- hvad hedder det ?-)

Det skrives sådan i vb-script:

<%
do while NOT rs.EOF '=hent næste record
  Response.Write "tinyMCEImageList[tinyMCEImageList.length] = ['" & rs.fil & "','" & rs.filLocation & "']"
rs.movenext '=henter næste record i recordset
loop
%>;

Nu har jeg modificeret lidt på det :

var tinyMCEImageList = new Array(
<%
Dim antal : antal = 10
For i = 1 To antal
Response.write "['"&i&"','"&i+1&"']"
// Print comma, except at last record
  If i <> antal Then
  Response.write ","
  End If
Next
%>);

Det er gemt i en js-fil image_list.js

Den inkluderes i tinyMce med linien :
external_image_list_url : "../incfiler/js/image_list.js"


Det virker ikke...

Er det fordi det gemmes i en js-fil?

I flg. dokumentationen til tinyMce burde arrayets indhold kunne genereres med bla. ASP og SQL-udtræk.

<ole>

"Det er gemt i en js-fil image_list.js" ... så er det nok derfor. ASP-kode kan jo ikke afvikles i et *.js dokument  ;o)

Hvad sker der, hvis du i FF skriver adressen til js-filen direkte i adresse-feltet? Hvad står der så i filen?

/mvh
</bole>

- hvis fejlen er den, jeg tror, kan du prøve at ændre navnet på 'image_list.js' til 'image_list.asp' - og så:
    external_image_list_url : "../incfiler/js/image_list.asp";

Jo, det hjalp at ændre filen til asp.

Har nu prøvet at generere indhold med en For..Next.

Virker også fint, men ved udtræk fra DB, jvf. neden for virker det så ikke...


var tinyMCEImageList = Array(
<%
Dim SQLpic, rsPic
SQLpic = "SELECT f_id, f_filnavn FROM filertodownload_gym;"
Set rsPic = Server.CreateObject("ADODB.Recordset")
Set rsPic.ActiveConnection = dbc
rsPic.CursorLocation = 3
rsPic.Open SQLpic
Dim i_alt : i_alt = rsPic.RecordCount

Do While NOT rsPic.EOF
Response.write "['"&rsPic("f_filnavn")&"','../../uploadfiler/"&rsPic("f_filnavn")&"']"
i_alt = i_alt-1

' hvis det ikke er sidste record sattes komma
If i_alt > 0 Then
response.write ","
End if

rsPic.MoveNext
Loop
%>);

Så virker det! :-)

Skulle blot også huske at inkludere filen med connenction-strengen.

Fandt med jeres hjælp frem til løsningen.

Så hvis I afgiver er svar er der point på vej.

Ok, lukker spørgsmålet.

Prøver igen...