Samle to arrays til et!?

Join(ka & da)

?

//>Rune

medions:

Fandt selv løsningen igår, samt fil lavet en sorteringsfunktion.
Hele løsningen er her:

dim temp()
function sortar(ar,f,g) ' Denne function sorterer et 2 dimensionalt array efter 2 kolonner i første dimension.
redim temp( ubound(ar,1))
s= true
do until not s
s= false
aa=0
do until ar(f,aa)="" or aa= ubound(ar,1)-1
if ar(f,aa) < ar(f,aa+1) then
s = true
    for flt = 0 to ubound(ar,1)
    temp(flt) = ar(flt,aa+1)
    ar(flt,aa+1)= ar(flt,aa)
    ar(flt,aa)= temp(flt)
    next
end if
aa=aa+1
loop
loop
if not isnull(g) then
s= true
do until not s
s= false
aa=0
do until ar(f,aa)="" or aa= ubound(ar,1)-1
if ar(g,aa) < ar(g,aa+1) and ar(f,aa) = ar(f,aa+1) then
s = true
    for flt = 0 to ubound(ar,1)
    temp(flt) = ar(flt,aa+1)
    ar(flt,aa+1)= ar(flt,aa)
    ar(flt,aa)= temp(flt)
    next
end if
aa=aa+1
loop
loop
end if

end function

If request.form("alle") = "OK" Then
all = True
wh = ""
Else
all = False
wh = " and (((Handbook.Clogdate)>Date()-60))"
End if
sql = "SELECT Handbook.Clog, Handbook.Clogdate , Handbook.Nr, Handbook.Navn FROM Handbook WHERE (((Handbook.Clogdate)>0))"&wh&" ORDER BY Handbook.Clogdate DESC"
set rs = con.execute(sql)
dim ka
if not rs.eof then
ska= true
    ka = rs.GetRows()
    ka_numcols = ubound(ka,1)
    ka_numrows = ubound(ka,2)
end if

If request.form("alle") = "OK" Then
all = True
wh = ""
Else
all = False
wh = " and (((doks.Clogdate)>Date()-60))"
End if
dSQL = "SELECT doks.Clog, doks.Clogdate, doks.Tilknyttet_dokument FROM doks WHERE (((doks.Clogdate)>0))"&wh&" ORDER BY doks.Clogdate DESC"
set rd = con.Execute(dSQL)
dim da
If not rd.eof then
sda = true
    da = rd.GetRows()
    da_numcols = ubound(da,1)
    da_numrows = ubound(da,2)
end if

if ska and sda then
kda_numrows = ka_numrows+da_numrows+1

redim preserve ka(ka_numcols,kda_numrows)

for p = 0 to da_numrows
    ka(0,ka_numrows+1+p) = da(0,p) 'clog
    ka(1,ka_numrows+1+p) = da(1,p) 'clogdate
    ka(3,ka_numrows+1+p) = da(2,p) 'handbook nr
next

sortar ka,1,1
else
if sda or ska then
kda_numrows = ka_numrows+da_numrows
else
none = true
end if
end if

medions:

Kender du noget til CDONTS?

Har et problem med en "Access denied" i følgende linie:

myMail.Send "intranet@kaiserplast.dk",tomail,"Ny bruger til Intranet",htmlText ,1