<% If trim(Request.Form(\"name\")) = \"\" Then %> <h1>Welcome to the Chat</h1> The cafe is a casual gethering place to meet new friends nad chat with old ones.<p> To enter the Chat, type the name you wish to use below and click the button.<p> <form action=\"default.asp\" method=\"post\"> <p> Your Name : <input type=\"text\" size=\"20\" name=\"Name\"></p> <p><input type=\"submit\" name=\"Submit\" value=\"Enter\"></p> </form> <% Else Dim users, refresh session(\"name\") = Request.Form(\"name\")
If Application(\"NumUsers\") = 0 Then \' Initialize (or re-initialize the user list \' and the converrsation ReDim temp1(50) ReDim temp2(50) Application(\"users\") = temp1 Application(\"refresh\") = temp2 End If
\' Fint an empty spot and add the new user Dim i For i = 1 to 50 If users(i) = \"\" Then users(i) = Session(\"name\") refresh(i) = time Application.Lock Application(\"NumUsers\") = Application(\"NumUsers\") + 1 Application.Unlock Exit For End If Next If i = 51 Then Response.Redirect \"toomany.asp\"
\' Put the arrays back in the application vars Application.Lock Application(\"users\") = users Application(\"refresh\") = refresh Application.Unlock
If not IsEmpty(Application(\"conversation\")) Then Application.Lock Application(\"conversation\") = \"<b><i>\" & Session(\"name\") &_ \" Enters The Room</b></i><br>\" & Application.Unlock End If
Response.Redirect \"cafe.asp\" End If %> ******************************
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
<% If trim(Request.Form(\"name\")) = \"\" Then %> <h1>Welcome to the Chat</h1> The cafe is a casual gethering place to meet new friends nad chat with old ones.<p> To enter the Chat, type the name you wish to use below and click the button.<p> <form action=\"default.asp\" method=\"post\"> <p> Your Name : <input type=\"text\" size=\"20\" name=\"Name\"></p> <p><input type=\"submit\" name=\"Submit\" value=\"Enter\"></p> </form> <% Else Dim users, refresh session(\"name\") = Request.Form(\"name\")
If Application(\"NumUsers\") = 0 Then \' Initialize (or re-initialize the user list \' and the converrsation ReDim temp1(50) ReDim temp2(50) Application(\"users\") = temp1 Application(\"refresh\") = temp2 End If
\' Fint an empty spot and add the new user Dim i For i = 1 to 50 If users(i) = \"\" Then users(i) = Session(\"name\") refresh(i) = time Application.Lock Application(\"NumUsers\") = Application(\"NumUsers\") + 1 Application.Unlock Exit For End If Next If i = 51 Then Response.Redirect \"toomany.asp\"
\' Put the arrays back in the application vars Application.Lock Application(\"users\") = users Application(\"refresh\") = refresh Application.Unlock
If not IsEmpty(Application(\"conversation\")) Then Application.Lock Application(\"conversation\") = \"<b><i>\" & Session(\"name\") &_ \" Enters The Room</b></i><br>\" Application.Unlock End If
<% If trim(Request.Form(\"name\")) = \"\" Then %> <h1>Welcome to the Chat</h1> The cafe is a casual gethering place to meet new friends nad chat with old ones.<p> To enter the Chat, type the name you wish to use below and click the button.<p> <form action=\"default.asp\" method=\"post\"> <p> Your Name : <input type=\"text\" size=\"20\" name=\"Name\"></p> <p><input type=\"submit\" name=\"Submit\" value=\"Enter\"></p> </form> <% Else Dim users, refresh session(\"name\") = Request.Form(\"name\")
If Application(\"NumUsers\") = 0 Then \' Initialize (or re-initialize the user list \' and the converrsation ReDim temp1(50) ReDim temp2(50) Application(\"users\") = temp1 Application(\"refresh\") = temp2 End If
\' Fint an empty spot and add the new user Dim i For i = 1 to 50 If users(i) = \"\" Then users(i) = Session(\"name\") refresh(i) = time Application.Lock Application(\"NumUsers\") = Application(\"NumUsers\") + 1 Application.Unlock Exit For End If Next If i = 51 Then Response.Redirect \"toomany.asp\"
\' Put the arrays back in the application vars Application.Lock Application(\"users\") = users Application(\"refresh\") = refresh Application.Unlock
If not IsEmpty(Application(\"conversation\")) Then Application.Lock Application(\"conversation\") = \"<b><i>\" & Session(\"name\") & \" Enters The Room</b></i><br>\" Application.Unlock End If
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.