En förbättrning
Kod:
<%
Dim errormsg(10) errormsg(0)="error1" errormsg(5)="error6"
Session("meddelande")=errormsg If IsArray(Session("meddelande")) then   For i = LBound(session("meddelande")) to UBound(session("meddelande"))     If session("meddelande")(i) <> "" then response.write session("meddelande")(i) & "<br>"   next ElseIf Session("meddelande") <> "" then   Response.write "meddelande finns men utan array<br>" End If %> <hr> <%Session.Contents.Remove("meddelande")
Session("meddelande")="test" %>
<% If IsArray(Session("meddelande")) then   For i = LBound(session("meddelande")) to UBound(session("meddelande"))     If session("meddelande")(i) <> "" then response.write session("meddelande")(i) & "<br>"   next ElseIf Session("meddelande") <> "" then   Response.write "meddelande finns men utan array<br>" End If %>
|