---

Jeg forsøger at udskrive alle Application-variable, som er på min server.
For at teste koden indskriver jeg først i variable, og dernæst har jeg et
Array, som burde udskrive alle disse variable. Men det gør det ikke. Der
kommer en fejlmelding (se nedenfor) på linie 22 (hvor jeg har skrevet =>).

Her er min kode:

<%
..........
Application.Contents("olsen") = 1948
Application.Contents("olsen2") = "Olsen er flink"
Application.Contents("var03") = "Soren"
Application.Contents("var04") = "Det gaer rigtig godt"

' burde udskrive alle application-variable, men gør det ikke:
For Each Item In Application.Contents
Response.Write "<p><strong>" & Item & "</strong><br>"
If isArray(Application(Item)) = False Then
=> Response.Write "<em>" & Application(Item) & "</em></p>"
End If
Next
..........
%>

Her er fejlmeldingen:

Der opstod en Microsoft VBScript-kørselsfejl (0x800A005B)
Objektvariablen er ikke angivet
/get2you/applicationvariable_udskriv_ok.asp, line 22


Hvad gør jeg galt?

v.h.
Jakob Munck

---

> <%
> .........
> Application.Contents("olsen") = 1948
> Application.Contents("olsen2") = "Olsen er flink"
> Application.Contents("var03") = "Soren"
> Application.Contents("var04") = "Det gaer rigtig godt"
>
> ' burde udskrive alle application-variable, men gør det ikke:
> For Each Item In Application.Contents
> Response.Write "<p><strong>" & Item & "</strong><br>"
> If isArray(Application(Item)) = False Then
> => Response.Write "<em>" & Application(Item) & "</em></p>"
> End If
> Next
> .........
> %>

Jeg plejer at bruge denne:

<%@Language=VBScript EnableSessionState=False%>
<%
Response.Write("<table border=1 cellspacing=0 cellpadding=0
width='100%'>")
For Each Var In Application.Contents
Response.Write("<tr>")
Response.Write("<td>" & Application.Contents.Key(Var) & "</td>")
Response.Write("<td>" & Application.Contents.Item(Var) & "<br></td>")
Response.Write("</tr>")
Next
Response.Write("</table>")
%>

---

Desværre, det virker ikke. Jeg får stadig denne fejlmelding:

Der opstod en Microsoft VBScript-kørselsfejl (0x800A000D)
Typerne passer ikke sammen
/get2you/udskriv_applicationvariable2.asp, line 10


og der henvises til koden her, hvor jeg har sat =>=>


<%@Language=VBScript EnableSessionState=False%>
<%
Response.Write("<table border=1 cellspacing=0 cellpadding=0
width='100%'>")
For Each Var In Application.Contents
Response.Write("<tr>")
Response.Write("<td>" & Application.Contents.Key(Var) & "</td>")
=>=> Response.Write("<td>" & Application.Contents.Item(Var) &
"<br></td>")
Response.Write("</tr>")
Next
Response.Write("</table>")
%>


Hvad er det jeg gør galt ? Den kode jeg skriver til Application-objektet ser
sådan ud:

Application("conversation") = "her er en tekststreng...."


Hvad gør jeg galt?

v.h.
Jakob Munck

---

> Hvad er det jeg gør galt ? Den kode jeg skriver til Application-objektet
ser
> sådan ud:
>
> Application("conversation") = "her er en tekststreng...."

Du glemmer Contents - du skriver blot Application(Item) - det skal være
Application.Contents.Item(Item)

/jesper/

---

Nej, det drejer sig ikke bare om at skrive "Contents" ved indskrivningen af
variablen, for det har jeg gjort i koden herunder, og den kan alligevel ikke
udskrives. Der kommer en fejlmelding på linien jeg her har afmærket med =>

<%@Language=VBScript EnableSessionState=False%>

<%
Application.Contents("navne") = "Henrik"
Application.Contents("aarstal") = 1949
Application.Contents("saetninger") = "Det er en dejlig dag"

Response.Write("<table border=1 cellspacing=0 cellpadding=0 width='100%'>")
For Each Var In Application.Contents
Response.Write("<tr>")
Response.Write("<td>" & Application.Contents.Key(Var) & "</td>")
=> Response.Write("<td>" & Application.Contents.Item(Var) &
"<br></td>")
Response.Write("</tr>")
Next
Response.Write("</table>")
%>


Hvor ligger fejlen så?


v.h.
Jakob Munck