polswedMedlem sedan aug. 2000129 inlägg hehe, är inte så bra på asp, så jag vet inte om det är så lönt att ge sig på detta ;)
Men iaf..
Här är felet:
Application-objekt fel 'ASP 0197 : 80004005'
Otillåten användning av objekt
/asp/chat/login.asp, rad 23
Det går inte att lägga till objekt med fristående modellbeteende till objektet som är inkapslat i programmet.
Rad 23 är
Set Application("users") = _
Och hela koden är
<% Response.Buffer = true %>
<HTML>
<head>
<title>hej</title>
</head>
<body>
<% If trim(Request.Form("name")) = " " Then %>
<form action="test.asp" medthod="POST">
<p>ditt namn: <input type="text" size="20"
name="Name"></p>
<p><input type="submit" name="Submit"
value="Chatta"></p>
</form>
<%
Else
If Not IsObject(Application("users")) Then
Application.Lock
Set Application("users") = _
Server.Createobject("Scripting.Dictionary")
Application.Unlock
End If
Session("name") = Request.Form("name")
Application.Lock
Application("users").Add Session("name"), Time
Application.Unlock
If not IsEmpty(Application("conversation")) Then
Application.Lock
Application("conversation") = "<b><i>" & _
Session("name") & _
" Enters The Room</b></i><br>" & _
Application("conversation")
Application.Unlock
End If
Response.Redirect "cafe.asp"
End If
%>
</body>
</HTML>
Har tagit exemplet ur en bok; Active Server Pages för Dummies
------------------
if(SmC==notHere)
then (SmC==backSoon)
else die;
VideMedlem sedan dec. 19998 577 inlägg Jag tror du måste använda dictionaryt utanför application, sedan när du har ändrat färdigt så kan du lägg in det i application...
------------------
Söndagen den 3 juni kommer webForum-servern att tas ner för systemunderhåll.
Avbrottet kommer att ske under dagtid. För uppdaterad information se Serverstatus.
nakozMedlem sedan dec. 1999653 inlägg har inte kollat så noga... men tror de saknas ett litet & där.
Set Application("users") = & _
eller så kanske de ska va såhär:
Set Application("users") = "_"
beroende på vilken effekt du vill ha. Men det kan absolut inte stå Set Application("users") = _. :)
mvh.
------------------
void[]
stash/$gu&-public(querystring)/n int{}bind "2" "say i own!" :)
@ndersMedlem sedan juni 200032 969 inlägg nakoz, jo, det kan det... :)
------------------
<A HREF="http://cartman.nu" TARGET=_blank>
nobody expects the spanish inquisition!</A>
polswedMedlem sedan aug. 2000129 inlägg nakoz: på ditt övre exempel tjatar den om ett syntax fel, och undre tjatar den om Objekt krävs.: 'Application'
Vide: Sorry, inte roligt att vara nybörjare, så alltså, ska jag klippa ut det i lägga in det ovanför eller?
------------------
if(SmC==notHere)
then (SmC==backSoon)
else die;
nakozMedlem sedan dec. 1999653 inlägg @nders:
har det nån funktion? :)
eller vill du bara kommentera att det kan stå så, men det gör ingen funktion?
------------------
void[]
stash/$gu&-public(querystring)/n int{}bind "2" "say i own!" :)
@ndersMedlem sedan juni 200032 969 inlägg nakoz:
Set objRS = _
Server.CreateObject("ADODB.Recordset")
Set objRS = Server.CreateObject("ADODB.Recordset")
prova...
------------------
<A HREF="http://cartman.nu" TARGET=_blank>
nobody expects the spanish inquisition!</A>
VideMedlem sedan dec. 19998 577 inlägg _ säger helt enkelt till tolken att fortsätta på nästa rad...
------------------
Vide rox = new Vide();
rox.learn("C#");
webeye.nu
