Avatar billede malte Nybegynder
22. september 2001 - 20:10 Der er 154 kommentarer og
1 løsning

Hvem er online?

Jeg har lidt problemer med det her script, det er som om det er ustabilt. Nogen gange virker det, nogen gange ikke. Nor siden reloader vil den ikke virke, jeg får denne fejl:
Error Type:
(0x80020009)
Exception occurred.
/dev/whoson.asp, line 174


Browser Type:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)

Page:
POST 22 bytes to /dev/whoson.asp

POST Data:
RefreshTime=1&Cookie=1

Her er scriptet:
<%
\' WHOS ONLINE SCRIPT


\'Dim strOnlinePathInfo, strOnlineQueryString, strOnlineLocation
\'Dim strOnlineUser, strOnlineDate, strOnlineCheckInTime, strOnlineTimedOut
\'Dim strOnlineUsersCount, strOnlineGuestsCount, strOnlineMembersCount
\'Dim strOnlineGuestUserIP
function StrToDate(strDateTime)
    if ChkDateFormat(strDateTime) then
        StrToDate = cdate(\"\" & Mid(strDateTime, 5,2) & \"/\" & Mid(strDateTime, 7,2) & \"/\" & Mid(strDateTime, 1,4) & \" \" & Mid(strDateTime, 9,2) & \":\" & Mid(strDateTime, 11,2) & \":\" & Mid(strDateTime, 13,2) & \"\")
    else
        tmpDate = DatePart(\"m\",strForumTimeAdjust) & \"/\" & DatePart(\"d\",strForumTimeAdjust) & \"/\" & DatePart(\"yyyy\",strForumTimeAdjust) & \" \" & DatePart(\"h\",strForumTimeAdjust) & \":\" & DatePart(\"n\",strForumTimeAdjust) & \":\" & DatePart(\"s\",strForumTimeAdjust)
        StrToDate = \"\" & tmpDate
    end if
end function

function DateToStr(dtDateTime)
    if not isDate(strForumTimeAdjust) then
        strForumTimeAdjust = strToDate(strForumTimeAdjust)
    end if

    DateToStr = year(dtDateTime) & doublenum(Month(dtdateTime)) & doublenum(Day(dtdateTime)) & doublenum(Hour(dtdateTime)) & doublenum(Minute(dtdateTime)) & doublenum(Second(dtdateTime)) & \"\"
end function
function chkDateFormat(strDateTime)
    chkDateFormat = isdate(\"\" & Mid(strDateTime, 5,2) & \"/\" & Mid(strDateTime, 7,2) & \"/\" & Mid(strDateTime, 1,4) & \" \" & Mid(strDateTime, 9,2) & \":\" & Mid(strDateTime, 11,2) & \":\" & Mid(strDateTime, 13,2) & \"\")
end function

function OldstrToDate(strDateTime)
    if chkDateFormat(strDateTime) then
        StrToDate = cdate(\"\" & Mid(strDateTime, 5,2) & \"/\" & Mid(strDateTime, 7,2) & \"/\" & Mid(strDateTime, 1,4) & \" \" & Mid(strDateTime, 9,2) & \":\" & Mid(strDateTime, 11,2) & \":\" & Mid(strDateTime, 13,2) & \"\")
    else
        strToDate = \"\" & strForumTimeAdjust
    end if
end function
function doublenum(fNum)
    if fNum > 9 then
        doublenum = fNum
    else
        doublenum = \"0\" & fNum
    end if
end function

function widenum(fNum)
    if fNum > 9 then
        widenum = \"\"
    else
        widenum = \"&nbsp;\"
    end if
end function

function chked(fYN)
  if fYN = \"yes\" or fYN = \"1\" or fYN = 1 then \'**
      chked = \" Checked\"
  else
      chked = \"\"
  end if   
end function

\' LETS GET WHAT PAGE THEY ARE ON


strOnlinePathInfo = Request.ServerVariables(\"Path_Info\")
strOnlineQueryString = Request.QueryString
pagename = sPageTitle
pagename = Replace(pagename,\"Counselor - \",\"\")
pagename = Replace(pagename,\"Counselor -\",\"\")
pagename = Replace(pagename,\"Counselor \",\"\")
pagename = Replace(pagename,\"Counselor\",\"\")
pagename = Replace(pagename,\"Counselor - \",\"\")
pagename = Replace(pagename,\"Counselor -\",\"\")
pagename = Replace(pagename,\"Counselor \",\"\")
pagename = Replace(pagename,\"Counselor\",\"\")

\'#####################################################
strOnlineLocation = \"<a href=\"\"\" & lcase(strOnlinePathInfo) & \"\"\">\" & pagename & \"</a>\"
\'#######################################################

\' FIND OUT IF THEY ARE A GUEST, OR A USER
if session(\"devUserName\") = \"\" then
    strOnlineUser = \"Guest\"
else
    strOnlineUser = Request.Cookies(\"devUserName\")
end if

strOnlineUserIP = Request.ServerVariables(\"REMOTE_ADDR\")


\' SET WHEN TO TIMEOUT THE USER
\' DO THIS IN SECONDS
strOnlineDate = DateToStr(Date)
strOnlineCheckInTime = DateToStr(Now())

strOnlineTimedOut = strOnlineCheckInTime - 660      \'time out the user after 11 minutes ( 660 seconds )


set my_Conn = Server.CreateObject(\"ADODB.Connection\")
strConnString1 = \"Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=\" & Server.MapPath(\"/data/users.mdb\")
my_Conn.ConnectionString = strConnString1
my_Conn.Open

Set objConn = Server.CreateObject(\"ADODB.Connection\")
strConnString = \"Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=\" & Server.MapPath(\"/data/users.mdb\")
objConn.ConnectionString = strConnString
objConn.Open

strSql = \"SELECT ONLINE.UserID,ONLINE.UserIP,ONLINE.LastChecked\"
strSql = strSql & \" FROM ONLINE \"
strSql = strSql & \" WHERE ONLINE.UserIP=\'\" & strOnlineUserIP & \"\' AND ONLINE.UserID=\'\" & strOnlineUser & \"\'\"
set rsWho =  my_Conn.Execute (strSql)

if rsWho.eof or rsWho.bof then
    \' THEY ARE A NEW USER SO INSERT THERE USERNAME
   
    on error resume next
    Set objRS2 = Server.CreateObject(\"ADODB.Recordset\")
    strSQL =  \"INSERT INTO ONLINE (UserID,UserIP,DateCreated,CheckedIn,LastChecked,M_BROWSE) VALUES (\'\"
    strSql = strSQL & strOnlineUser & \"\',\'\" & strOnlineUserIP & \"\',\'\" & strOnlineDate & \"\',\'\" & strOnlineCheckInTime & \"\',\'\" & strOnlineCheckInTime & \"\',\'\" & strOnlineLocation & \"\')\"
    my_Conn.Execute (strSql)
    if err.number <> 0 then response.write err.number & \"|\" & err.description
else
    \' THEY ARE A ACTIVE USER
    strSql = \"SELECT ONLINE.UserID,ONLINE.UserIP,ONLINE.LastChecked\"
    strSql = strSql & \" FROM ONLINE \"
    strSql = strSql & \" WHERE ONLINE.UserID=\'\" & strOnlineUser & \"\' AND ONLINE.UserIP = \'\" & strOnlineUserIP & \"\'\"
    set rsLastChecked =  my_Conn.Execute (strSql)

    \' LETS UPDATE THE TABLE SO IT SHOWS THERE LAST ACTIVE VISIT
    strSql = \"UPDATE ONLINE SET M_BROWSE=\'\" & strOnlineLocation & \"\' , LastChecked=\'\" & strOnlineCheckInTime & \"\' WHERE UserID=\'\" & strOnlineUser & \"\' AND ONLINE.UserIP=\'\" & strOnlineUserIP & \"\'\"
    my_Conn.Execute (strSql)
end if

\' LETS DELETE ALL INACTIVE USERS
SQL = \"DELETE FROM ONLINE WHERE LastChecked < \'\" & strOnlineTimedOut & \"\'\"
Sql = Sql & \" OR (ONLINE.UserIP=\'\" & strOnlineUserIP & \"\' AND ONLINE.UserID <> \'\" & strOnlineUser & \"\')\"
objConn.Execute SQL

set rsOnline = Server.CreateObject(\"ADODB.Recordset\")


    strSqL = \"SELECT count(UserID) AS [onlinecount] \"


strSql = strSql & \"FROM ONLINE \"
Set rsOnline = my_Conn.Execute(strSql)
onlinecount = rsOnline(\"onlinecount\")
strOnlineUsersCount = rsOnline(\"onlinecount\")

\' Get Guest count for display on Default.asp
set rsGuests = Server.CreateObject(\"ADODB.Recordset\")

    strSqL = \"SELECT count(UserID) AS [Guests] \"

strSql = strSql & \"FROM ONLINE \"
strSql = strSql & \" WHERE Right(UserID, 5) = \'Guest\' \"

Set rsGuests = my_Conn.Execute(strSql)
Guests = rsGuests(\"Guests\")
strOnlineGuestsCount = rsGuests(\"Guests\")


\' Get Member count for display on Default.asp
set rsMembers = Server.CreateObject(\"ADODB.Recordset\")

    strSqL = \"SELECT count(UserID) AS [Members] \"

strSql = strSql & \"FROM ONLINE \"
strSql = strSql & \" WHERE Right(UserID, 5) <> \'Guest\' \"

Set rsMembers = my_Conn.Execute(strSql)
Members = rsMembers(\"Members\")
strOnlineMembersCount = rsMembers(\"Members\")
\' END WHOS ONLINE SCRIPT
%>    line 174
Avatar billede eagleeye Praktikant
25. oktober 2001 - 23:08 #1
er der fejl i den sidste linie???
Avatar billede malte Nybegynder
26. oktober 2001 - 06:37 #2
<%   
                Response.Write(\"<a href=\"\"myDeV/users.asp?username=\" & rsMember(\"UserName\") & \"\"\">\")\' 174
       
            Response.Write(rs(\"UserID\") & \"</a>\")
%>
Avatar billede malte Nybegynder
26. oktober 2001 - 06:39 #3
Den virker nogengange men den er holdt op med at vise brugernavn. Når den reloader lave den helt sikkert fejl?
Avatar billede malte Nybegynder
26. oktober 2001 - 06:40 #4
http://www.counselor.dk/dev/whoson.asp
Du kan jo selv prøve.Det kræver du melder dig ind med brugernavn og email:-)
Avatar billede mora Nybegynder
26. oktober 2001 - 10:42 #5
Response.Write(\"<a href=\"\"\"myDeV/users.asp?username=\" & rsMember(\"UserName\") & \"\">\")

Hmm prøv ovenstående, er ikke helt sikker
Avatar billede eagleeye Praktikant
26. oktober 2001 - 10:57 #6
malte jeg har prøvet at oprette mig som bruger hvordan ser jeg så listen med alle som er online?
Avatar billede eagleeye Praktikant
26. oktober 2001 - 10:58 #7
har du oversat fra engelsk?

1 medlemmer and 1 gæster
Avatar billede malte Nybegynder
26. oktober 2001 - 11:07 #8
Ja jeg har oversat det fra engelsk.
Du skal bare være logget ind og så skrive http://www.counselor.dk/dev/whoson.asp
jeg har fjernet linket
Avatar billede eagleeye Praktikant
26. oktober 2001 - 11:12 #9
hvad er der i line 174?

der kommer en exception
Avatar billede malte Nybegynder
26. oktober 2001 - 11:48 #10
det er der der er brugere. Jeg sidder på arbejdet nu, jeg bliver nødt til at vente til i aften med at gå videre. http://www.counselor.dk/dev/myDeV/users.asp
Avatar billede eagleeye Praktikant
26. oktober 2001 - 12:48 #11
Jeg tror der er et problem med nogle do while eller for i=x to y ..
der er 3 online lige nu og den viser 2 af dem. Den sidste fejler. Det kunne tyde på at det er en fejl i et index eller loop.
Avatar billede malte Nybegynder
26. oktober 2001 - 20:13 #12
Er det noget du kan hjælpe med??
Avatar billede eagleeye Praktikant
26. oktober 2001 - 20:54 #13
måske det har noget med dette at gøre:

\' LETS DELETE ALL INACTIVE USERS
SQL = \"DELETE FROM ONLINE WHERE LastChecked < \'\" & strOnlineTimedOut & \"\'\"
Sql = Sql & \" OR (ONLINE.UserIP=\'\" & strOnlineUserIP & \"\' AND ONLINE.UserID <> \'\" & strOnlineUser & \"\')\"
objConn.Execute SQL

Men jeg er meget i tvivl. Jeg kan ikke lige se hvordan den laver listen antalet online.
Avatar billede malte Nybegynder
26. oktober 2001 - 20:57 #14
skal jeg sende sitet til dig så kan du prøve?? Jeg kan også lave et testeite på min egen server og give dig ftpadgang.
Avatar billede eagleeye Praktikant
26. oktober 2001 - 21:00 #15
Er det hele filen som laver liste på siden whois.asp?

Hvis du kan sende en tom database og filen(erne) som skal brugess til at lave whois listen.

aoe@earthling.net
Avatar billede malte Nybegynder
26. oktober 2001 - 21:17 #16
Har du fået det??
Avatar billede eagleeye Praktikant
26. oktober 2001 - 21:19 #17
Jow tak der er mange filer jeg tror jeg har fået fat i den rigtige.
Avatar billede malte Nybegynder
26. oktober 2001 - 21:20 #18
ok
Avatar billede eagleeye Praktikant
26. oktober 2001 - 21:51 #19
det må være rsMember som er tom når der udskrives:

Response.Write(\"<a href=\"\"myDeV/users.asp?username=\" & rsMember(\"UserName\") & \"\"\">\")

Prøv at sætte dette ind:
if not (rsMember.BOF AND rsMember.EOF) then
  rsMember.Movefirst
  Response.Write(\"<a href=\"\"myDeV/users.asp?username=\" & rsMember(\"UserName\") & \"\"\">\")
end if
Avatar billede malte Nybegynder
26. oktober 2001 - 21:54 #20
Det hjalp på opdateringerne
Den viser bare ikke brugernavnet?
Avatar billede eagleeye Praktikant
26. oktober 2001 - 22:05 #21
HVad er forskellen på USER.UserID og ONLINE.UserName? ?
Avatar billede malte Nybegynder
26. oktober 2001 - 22:09 #22
userid ligger i en anden tabel der hedder ONLINE
Username ligger i users. Der er en tabel editor med i det site du har fået det er smadder godt til at redigere i databaserne(hvis man kan finde ud af det). Den ligger i mappen dev/cm/te/
Avatar billede eagleeye Praktikant
26. oktober 2001 - 22:11 #23
Denne SQL skulle hendte UserNAme ind i rsMember()


if Right(rs(\"UserID\"), 5) <> \"Guest\" then
strSql = \"SELECT users.UserName,  ONLINE.UserID \"
strSql = strSql & \" FROM users, ONLINE \"
strSql = strSql & \" WHERE users.UserName = \'\" & rs(\"UserID\") & \"\' \"
set rsMember =  my_Conn.Execute (strSql)
end if


Bemærk WHERE:
users.UserName = \'\" & rs(\"UserID\") & \"\' \"

og rs(\"UserID\") kommer fra:
strSql =\"SELECT ONLINE.UserID,

Som jeg lige ser det så hendter man UserName ud men man har det alderede.
Avatar billede malte Nybegynder
26. oktober 2001 - 22:14 #24
Hvad skal vi gøre ved det??  :-) (jeg lærer meget af at skrive med dig) men det er svært
Avatar billede eagleeye Praktikant
26. oktober 2001 - 22:15 #25
kan du prøve at rette denne:

Response.Write(\"<a href=\"\"myDeV/users.asp?username=\" & rs(\"UserID\") & \"\"\">\")

Og så lige udkommenter den if not (rsMember.BOF AND ...
og rsMember.movefirst

Avatar billede malte Nybegynder
26. oktober 2001 - 22:26 #26
så får jeg fejl HTTP 500 - Intern serverfejl
Internet Explorer
Avatar billede eagleeye Praktikant
26. oktober 2001 - 22:30 #27
arh og udkommenter end if

\'if not (rsMember.BOF AND rsMember.EOF) then
\'  rsMember.Movefirst
  Response.Write(\"<a href=\"\"myDeV/users.asp?username=\" & rs(\"UserID\") & \"\"\">\")
\'end if
Avatar billede eagleeye Praktikant
26. oktober 2001 - 22:31 #28
den glemte jeg vist at nævne
Avatar billede malte Nybegynder
26. oktober 2001 - 22:35 #29
kan du ikke give mig hele den \"afdeling\" jeg tror jeg har rodet rundt i det
Avatar billede eagleeye Praktikant
26. oktober 2001 - 22:40 #30
skal jeg sende hele koden?

Det er der hvor det stod i den rigtige fil:

Response.Write(\"<a href=\"\"myDeV/users.asp?username=\" & rsMember(\"UserName\") & \"\"\">\")

Avatar billede malte Nybegynder
26. oktober 2001 - 22:42 #31
bare det afsnit
Avatar billede eagleeye Praktikant
26. oktober 2001 - 22:43 #32
        do until rs.EOF or (rec = mypagesize+1)
            if strI = 0 then
                CColor = \"#FFFFE0\"
            else
                CColor = \"#DDDDDD\"
            end if

              strTheUserID = rs(\"UserID\")
              \'strTheUserID = OnlineSQLdecode(strTheUserID)

              if Right(rs(\"UserID\"), 5) <> \"Guest\" then
              strSql = \"SELECT users.UserName,  ONLINE.UserID \"
              strSql = strSql & \" FROM users, ONLINE \"
              strSql = strSql & \" WHERE users.UserName = \'\" & rs(\"UserID\") & \"\' \"
              set rsMember =  my_Conn.Execute (strSql)
            end if
            if Right(rs(\"UserID\"), 5) = \"Guest\" then
              num = num + 1
            end if
            whereat = rs(\"M_BROWSE\")
            whereat = Replace(whereat,\"ASP DeV WorX\",\"\")
            strRSCheckedIn = rs(\"CheckedIn\")
            strOnlineLastDateChecked = rs(\"LastChecked\")
            strOnlineDateCheckedIn = StrToDate(strRSCheckedIn)
            strOnlineLastDateChecked = StrToDate(strOnlineLastDateChecked)
            rightnow = now()

            strOnlineTotalTime = DateDiff(\"n\",strOnlineDateCheckedIn,rightnow)

            If strOnlineTotalTime > 60 then
              \' they must have been online for like an hour or so.
              strOnlineHours = 0
              do until strOnlineTotalTime < 60
                strOnlineTotalTime = (strOnlineTotalTime - 60)
                strOnlineHours = strOnlineHours + 1
              loop
              strOnlineTotalTime = strOnlineHours & \" Hours \" & strOnlineTotalTime & \" Minutes\"
            Else
              strOnlineTotalTime = strOnlineTotalTime & \" Minutes\"
            End If

%>
  <tr bgcolor=\"<% =CColor %>\">
<%  if Right(rs(\"UserID\"), 5) = \"Guest\" then %>
    <td valign=\"middle\" align=\"center\">Guest #<% =num %></td>
    <% else %>
    <td valign=\"middle\" align=\"center\">
<%   
            Response.Write(\"<a href=\"\"myDeV/users.asp?username=\" & rs(\"UserID\") & \"\"\">\")
       
            Response.Write(rs(\"UserID\") & \"</a>\")
%>
 
<%    end if %>
    <td valign=\"middle\" align=\"center\"><% =rs(\"M_BROWSE\")%></A></td>
    <td align=\"center\" valign=\"middle\" width=\"100\" nowrap><%=strOnlineDateCheckedIn%></td>
    <td align=\"center\" valign=\"middle\" width=\"100\" nowrap><%=strOnlineLastDateChecked%></td>
    <td align=\"center\" valign=\"middle\" width=\"100\" nowrap><%=strOnlineTotalTime%></td>
  </tr>
<%
            rs.MoveNext
            strI = strI + 1
            if strI = 2 then
                strI = 0
            end if
            rec = rec + 1
        loop
Avatar billede malte Nybegynder
26. oktober 2001 - 22:47 #33
Stadig ingen navne :-(
Når jeg tager det originale du har fået og kører det på min interne maskine er der ingen fejl???.
Ligesåsnart jeg kommer \"udefra\" virker det ikke :-(
Avatar billede malte Nybegynder
26. oktober 2001 - 22:48 #34
Tror du det er myDeV/users.asp filen det er galt med??
Avatar billede eagleeye Praktikant
26. oktober 2001 - 22:52 #35
underligt. Nej det er bare et link.


Den her linie udskriver det som sår på siden som (Username) i tabellen
Response.Write(rs(\"UserID\") 
Avatar billede eagleeye Praktikant
26. oktober 2001 - 22:59 #36
og det er den rigtge databasen den har fat i. Det ligger ikke to \"ens\" databaser i fil strukturen?
Avatar billede eagleeye Praktikant
26. oktober 2001 - 22:59 #37
det lyder lidt underligt men alle user names er tomme det er lidt underligt
Avatar billede malte Nybegynder
26. oktober 2001 - 22:59 #38
Når vi er færdige med det her har jeg et nyt spørgsmål til dig
Avatar billede malte Nybegynder
26. oktober 2001 - 23:01 #39
Jeg kan se dig i databasen nu du hedder test og kommer ud i UserID
Avatar billede eagleeye Praktikant
26. oktober 2001 - 23:02 #40
jeps det er rigtigt
Avatar billede eagleeye Praktikant
26. oktober 2001 - 23:03 #41
Jeg kan se mig selv og en anden user på samme side men der er ikke noget UserName
Avatar billede malte Nybegynder
26. oktober 2001 - 23:03 #42
Nu er du også på siden??
Avatar billede malte Nybegynder
26. oktober 2001 - 23:04 #43
Der er også en på Counselor - Listen over medlemmerne men der er intet brugernavn, heller ikke på mig
Avatar billede eagleeye Praktikant
26. oktober 2001 - 23:12 #44
hvilken kode bruger du?
Response.Write(\"<a href=\"\"myDeV/users.asp?username=\" & rs(\"UserID\") & \"\"\">\")

eller
Response.Write(\"<a href=\"\"myDeV/users.asp?username=\" & rsMember(\"UserName\") & \"\"\">\")
Avatar billede malte Nybegynder
26. oktober 2001 - 23:14 #45
Response.Write(\"<a href=\"\"myDeV/users.asp?username=\" & rs(\"UserID\") & \"\"\">\")
Avatar billede malte Nybegynder
26. oktober 2001 - 23:19 #46
Det ligger ikke to \"ens\" databaser i fil strukturen?
Jeg mener at både database og tabel hedder det samme
Avatar billede eagleeye Praktikant
26. oktober 2001 - 23:21 #47
Nej det tænkte jeg nok....
Det vil sige at feltet UserID er tomt i online tabelle.

Avatar billede malte Nybegynder
26. oktober 2001 - 23:24 #48
Dit navn står der godt nok
Avatar billede eagleeye Praktikant
26. oktober 2001 - 23:26 #49
Hvor langt er dit UserName ?
Avatar billede malte Nybegynder
26. oktober 2001 - 23:27 #50
Jørgen M
Avatar billede malte Nybegynder
26. oktober 2001 - 23:27 #51
det kan være 100 tegn langt
Avatar billede eagleeye Praktikant
26. oktober 2001 - 23:30 #52
har du mulighed for at downloade databasen og så tjekke hvad der står i ONLINE.UserID  ?
Avatar billede malte Nybegynder
26. oktober 2001 - 23:32 #53
Ja, den ligger hos mig. Hvad mener du med downloade.
Avatar billede malte Nybegynder
26. oktober 2001 - 23:33 #54
Ved du hvad du får lov at logge ind i min tableeditor
Avatar billede malte Nybegynder
26. oktober 2001 - 23:34 #55
Avatar billede eagleeye Praktikant
26. oktober 2001 - 23:34 #56
køre det fra din egen PC ?
eller webhotel?
Avatar billede malte Nybegynder
26. oktober 2001 - 23:35 #57
egen pc
Avatar billede malte Nybegynder
26. oktober 2001 - 23:36 #58
vil du ind og se??
Avatar billede eagleeye Praktikant
26. oktober 2001 - 23:36 #59
I Online databasen er UserID tom for de andre brugere end mig ???
Avatar billede malte Nybegynder
26. oktober 2001 - 23:37 #60
ja
Avatar billede eagleeye Praktikant
26. oktober 2001 - 23:37 #61
:) jeg er inde og kikke nu er de bare et midlertidigt bruger/password.
Avatar billede eagleeye Praktikant
26. oktober 2001 - 23:37 #62
du har en rimelig rå PC  :)
Avatar billede malte Nybegynder
26. oktober 2001 - 23:38 #63
hvis du logger ud skulle du også gerne forsvinde
Avatar billede malte Nybegynder
26. oktober 2001 - 23:38 #64
ja jeg sletter det så snart du er færdig
Avatar billede malte Nybegynder
26. oktober 2001 - 23:39 #65
Husk, Du har det samme, jeg har lige givet dig det
Avatar billede eagleeye Praktikant
26. oktober 2001 - 23:40 #66
den logger ikke af når jeg trykker på log af..
Avatar billede malte Nybegynder
26. oktober 2001 - 23:41 #67
Så fjern fluebenet i \"ret profilen\" du bliver gemt i cookies
Avatar billede malte Nybegynder
26. oktober 2001 - 23:44 #68
Tror du det er fordi jeg går på med en intern ip??
Avatar billede malte Nybegynder
26. oktober 2001 - 23:45 #69
Nææ, den viste jo heller ikke ham henrik der var der før?
Avatar billede eagleeye Praktikant
26. oktober 2001 - 23:47 #70
hmm nu viser den heller ikke mig ?
Avatar billede malte Nybegynder
26. oktober 2001 - 23:47 #71
er du færdig inde i tableeditor??
Avatar billede eagleeye Praktikant
26. oktober 2001 - 23:50 #72
Ja det er jeg.
Avatar billede malte Nybegynder
26. oktober 2001 - 23:51 #73
Hvis vi nogensinde finder ud af det her er det et mirakel :-)

Noget helt andet: Jeg kunne godt tænke mig at brugerne kunne sende \"offentlige\" og \"private\" hilsner til hinanden. Tror du det er muligt??

Der ligger også noget der hedder minimessanger i webstedet, det kan jeg ikke få til at virke..
Avatar billede eagleeye Praktikant
26. oktober 2001 - 23:52 #74
Jeg undre mig lidt for mit navn forsvat da jeg loggede ind igen??

Jeg prøvede godt nok også at slå Offentli fra og til... ?? jeg ved ikke om det har noget med det at gøre. Hvor opdateres ONLINE tabellen når man logger ind?
Avatar billede malte Nybegynder
26. oktober 2001 - 23:52 #75
minimessenger :-)
Avatar billede malte Nybegynder
26. oktober 2001 - 23:53 #76
??
Offentlig fra, så er der ikke andre der kan se dig/din profil
Avatar billede eagleeye Praktikant
26. oktober 2001 - 23:59 #77
ja det tænkte jeg nok ..
Avatar billede malte Nybegynder
27. oktober 2001 - 00:05 #78
Nu viser den sgu heller ikke den sidst ankomne på forsiden::
Avatar billede malte Nybegynder
27. oktober 2001 - 00:07 #79
<%
\' WHOS ONLINE SCRIPT


\'Dim strOnlinePathInfo, strOnlineQueryString, strOnlineLocation
\'Dim strOnlineUser, strOnlineDate, strOnlineCheckInTime, strOnlineTimedOut
\'Dim strOnlineUsersCount, strOnlineGuestsCount, strOnlineMembersCount
\'Dim strOnlineGuestUserIP
function StrToDate(strDateTime)
    if ChkDateFormat(strDateTime) then
        StrToDate = cdate(\"\" & Mid(strDateTime, 5,2) & \"/\" & Mid(strDateTime, 7,2) & \"/\" & Mid(strDateTime, 1,4) & \" \" & Mid(strDateTime, 9,2) & \":\" & Mid(strDateTime, 11,2) & \":\" & Mid(strDateTime, 13,2) & \"\")
    else
        tmpDate = DatePart(\"m\",strForumTimeAdjust) & \"/\" & DatePart(\"d\",strForumTimeAdjust) & \"/\" & DatePart(\"yyyy\",strForumTimeAdjust) & \" \" & DatePart(\"h\",strForumTimeAdjust) & \":\" & DatePart(\"n\",strForumTimeAdjust) & \":\" & DatePart(\"s\",strForumTimeAdjust)
        StrToDate = \"\" & tmpDate
    end if
end function

function DateToStr(dtDateTime)
    if not isDate(strForumTimeAdjust) then
        strForumTimeAdjust = strToDate(strForumTimeAdjust)
    end if

    DateToStr = year(dtDateTime) & doublenum(Month(dtdateTime)) & doublenum(Day(dtdateTime)) & doublenum(Hour(dtdateTime)) & doublenum(Minute(dtdateTime)) & doublenum(Second(dtdateTime)) & \"\"
end function
function chkDateFormat(strDateTime)
    chkDateFormat = isdate(\"\" & Mid(strDateTime, 5,2) & \"/\" & Mid(strDateTime, 7,2) & \"/\" & Mid(strDateTime, 1,4) & \" \" & Mid(strDateTime, 9,2) & \":\" & Mid(strDateTime, 11,2) & \":\" & Mid(strDateTime, 13,2) & \"\")
end function

function OldstrToDate(strDateTime)
    if chkDateFormat(strDateTime) then
        StrToDate = cdate(\"\" & Mid(strDateTime, 5,2) & \"/\" & Mid(strDateTime, 7,2) & \"/\" & Mid(strDateTime, 1,4) & \" \" & Mid(strDateTime, 9,2) & \":\" & Mid(strDateTime, 11,2) & \":\" & Mid(strDateTime, 13,2) & \"\")
    else
        strToDate = \"\" & strForumTimeAdjust
    end if
end function
function doublenum(fNum)
    if fNum > 9 then
        doublenum = fNum
    else
        doublenum = \"0\" & fNum
    end if
end function

function widenum(fNum)
    if fNum > 9 then
        widenum = \"\"
    else
        widenum = \"&nbsp;\"
    end if
end function

function chked(fYN)
  if fYN = \"yes\" or fYN = \"1\" or fYN = 1 then \'**
      chked = \" Checked\"
  else
      chked = \"\"
  end if   
end function

\' LETS GET WHAT PAGE THEY ARE ON


strOnlinePathInfo = Request.ServerVariables(\"Path_Info\")
strOnlineQueryString = Request.QueryString
pagename = sPageTitle
pagename = Replace(pagename,\"ASP DeV WorX - \",\"\")
pagename = Replace(pagename,\"ASP DeV WorX -\",\"\")
pagename = Replace(pagename,\"ASP DeV WorX \",\"\")
pagename = Replace(pagename,\"ASP DeV WorX\",\"\")
pagename = Replace(pagename,\"ASP DeV WorX - \",\"\")
pagename = Replace(pagename,\"ASP DeV WorX -\",\"\")
pagename = Replace(pagename,\"ASP DeV WorX \",\"\")
pagename = Replace(pagename,\"ASP DeV WorX\",\"\")

\'#####################################################
strOnlineLocation = \"<a href=\"\"\" & lcase(strOnlinePathInfo) & \"\"\">\" & pagename & \"</a>\"
\'#######################################################

\' FIND OUT IF THEY ARE A GUEST, OR A USER
if session(\"devUserName\") = \"\" then
    strOnlineUser = \"Guest\"
else
    strOnlineUser = Request.Cookies(\"devUserName\")
end if

strOnlineUserIP = Request.ServerVariables(\"REMOTE_ADDR\")


\' SET WHEN TO TIMEOUT THE USER
\' DO THIS IN SECONDS
strOnlineDate = DateToStr(Date)
strOnlineCheckInTime = DateToStr(Now())

strOnlineTimedOut = strOnlineCheckInTime - 660      \'time out the user after 11 minutes ( 660 seconds )


set my_Conn = Server.CreateObject(\"ADODB.Connection\")
strConnString1 = \"Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=\" & Server.MapPath(\"/data/users.mdb\")
my_Conn.ConnectionString = strConnString1
my_Conn.Open

Set objConn = Server.CreateObject(\"ADODB.Connection\")
strConnString = \"Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=\" & Server.MapPath(\"/data/users.mdb\")
objConn.ConnectionString = strConnString
objConn.Open

strSql = \"SELECT ONLINE.UserID,ONLINE.UserIP,ONLINE.LastChecked\"
strSql = strSql & \" FROM ONLINE \"
strSql = strSql & \" WHERE ONLINE.UserIP=\'\" & strOnlineUserIP & \"\' AND ONLINE.UserID=\'\" & strOnlineUser & \"\'\"
set rsWho =  my_Conn.Execute (strSql)

if rsWho.eof or rsWho.bof then
    \' THEY ARE A NEW USER SO INSERT THERE USERNAME
   
    on error resume next
    Set objRS2 = Server.CreateObject(\"ADODB.Recordset\")
    strSQL =  \"INSERT INTO ONLINE (UserID,UserIP,DateCreated,CheckedIn,LastChecked,M_BROWSE) VALUES (\'\"
    strSql = strSQL & strOnlineUser & \"\',\'\" & strOnlineUserIP & \"\',\'\" & strOnlineDate & \"\',\'\" & strOnlineCheckInTime & \"\',\'\" & strOnlineCheckInTime & \"\',\'\" & strOnlineLocation & \"\')\"
    my_Conn.Execute (strSql)
    if err.number <> 0 then response.write err.number & \"|\" & err.description
else
    \' THEY ARE A ACTIVE USER
    strSql = \"SELECT ONLINE.UserID,ONLINE.UserIP,ONLINE.LastChecked\"
    strSql = strSql & \" FROM ONLINE \"
    strSql = strSql & \" WHERE ONLINE.UserID=\'\" & strOnlineUser & \"\' AND ONLINE.UserIP = \'\" & strOnlineUserIP & \"\'\"
    set rsLastChecked =  my_Conn.Execute (strSql)

    \' LETS UPDATE THE TABLE SO IT SHOWS THERE LAST ACTIVE VISIT
    strSql = \"UPDATE ONLINE SET M_BROWSE=\'\" & strOnlineLocation & \"\' , LastChecked=\'\" & strOnlineCheckInTime & \"\' WHERE UserID=\'\" & strOnlineUser & \"\' AND ONLINE.UserIP=\'\" & strOnlineUserIP & \"\'\"
    my_Conn.Execute (strSql)
end if

\' LETS DELETE ALL INACTIVE USERS
SQL = \"DELETE FROM ONLINE WHERE LastChecked < \'\" & strOnlineTimedOut & \"\'\"
Sql = Sql & \" OR (ONLINE.UserIP=\'\" & strOnlineUserIP & \"\' AND ONLINE.UserID <> \'\" & strOnlineUser & \"\')\"
objConn.Execute SQL

set rsOnline = Server.CreateObject(\"ADODB.Recordset\")


    strSqL = \"SELECT count(UserID) AS [onlinecount] \"


strSql = strSql & \"FROM ONLINE \"
Set rsOnline = my_Conn.Execute(strSql)
onlinecount = rsOnline(\"onlinecount\")
strOnlineUsersCount = rsOnline(\"onlinecount\")

\' Get Guest count for display on Default.asp
set rsGuests = Server.CreateObject(\"ADODB.Recordset\")

    strSqL = \"SELECT count(UserID) AS [Guests] \"

strSql = strSql & \"FROM ONLINE \"
strSql = strSql & \" WHERE Right(UserID, 5) = \'Guest\' \"

Set rsGuests = my_Conn.Execute(strSql)
Guests = rsGuests(\"Guests\")
strOnlineGuestsCount = rsGuests(\"Guests\")


\' Get Member count for display on Default.asp
set rsMembers = Server.CreateObject(\"ADODB.Recordset\")

    strSqL = \"SELECT count(UserID) AS [Members] \"

strSql = strSql & \"FROM ONLINE \"
strSql = strSql & \" WHERE Right(UserID, 5) <> \'Guest\' \"

Set rsMembers = my_Conn.Execute(strSql)
Members = rsMembers(\"Members\")
strOnlineMembersCount = rsMembers(\"Members\")

\' END WHOS ONLINE SCRIPT



%>
Avatar billede eagleeye Praktikant
27. oktober 2001 - 00:07 #80
jeg tror ikke jeg er med??
den skriver:
Velkommen til nykommeren Kim Ahrens Som ankom 26-10-2001 !
Avatar billede malte Nybegynder
27. oktober 2001 - 00:09 #81
der er 5 andre der er kommet siden bla 2 fup profiler jeg har lavet mens vi 2 var igang
Avatar billede eagleeye Praktikant
27. oktober 2001 - 00:09 #82
ja jeg har fundet den :)

Det er måske et skud i tågen men prøv at ændre denne if:
if session(\"devUserName\") = \"\" then
    strOnlineUser = \"Guest\"
else
    strOnlineUser = Request.Cookies(\"devUserName\")
end if


TIL:
if session(\"devUserName\") = \"\" then
  strOnlineUser = \"Guest\"
else
  strOnlineUser = Request.Cookies(\"devUserName\")
  if strOnlineUser = \"\" then   
    strOnlineUser = session(\"devUserName\")
  end if
end if
Avatar billede eagleeye Praktikant
27. oktober 2001 - 00:10 #83
fundet : altså filen hvor opdatereingen er..
Avatar billede malte Nybegynder
27. oktober 2001 - 00:12 #84
?
I hvilken fil?
Avatar billede eagleeye Praktikant
27. oktober 2001 - 00:14 #85
i _online.asp 
Avatar billede malte Nybegynder
27. oktober 2001 - 00:15 #86
Nu kom fff på???
Avatar billede malte Nybegynder
27. oktober 2001 - 00:16 #87
og henrik geertz
Avatar billede malte Nybegynder
27. oktober 2001 - 00:16 #88
er du også på??
Avatar billede malte Nybegynder
27. oktober 2001 - 00:18 #89
YES Nu er den der??:-)
Avatar billede eagleeye Praktikant
27. oktober 2001 - 00:18 #90
Ja det er jeg :)
Avatar billede eagleeye Praktikant
27. oktober 2001 - 00:19 #91
er du fff?
Avatar billede malte Nybegynder
27. oktober 2001 - 00:19 #92
Du er en hård mand :-)
Avatar billede malte Nybegynder
27. oktober 2001 - 00:20 #93
Ja, men jeg er ikke sidstankomne:-(
Avatar billede eagleeye Praktikant
27. oktober 2001 - 00:23 #94
Når nu kan jeg se hvad du mener med sidst ankommen...

Enten er min PC 3min eftr eller er din PC 3 min foran...  :)

Hvordan ser din kode ud som vælger den nyest ankomen?
Avatar billede eagleeye Praktikant
27. oktober 2001 - 00:23 #95
hmm det er vist min som er lidt bagud også i forhold til eksperten.
Avatar billede malte Nybegynder
27. oktober 2001 - 00:25 #96
    <%
    OpenDB sConnUsers
        sSQL = \"SELECT * FROM newusers\"
    rs.Open sSQL,,,adCmdTable
   
    newuser = rs(\"LastOfUserName\")
    signupdate = rs(\"LastOfCreateDate\")
    usercount = rs(\"CountOfeMail\")
    CloseDB%>
        » Velkommen til nykommeren <a href=\"myDeV/users.asp?UserName=<%=newuser%>\"><%=newuser%></a> Som ankom <%=signupdate%> !</td><tr>
Avatar billede malte Nybegynder
27. oktober 2001 - 00:25 #97
desc ??
Avatar billede eagleeye Praktikant
27. oktober 2001 - 00:28 #98
har du en tabel som indeholder newusers ? hvornår bliver man så flyttet fra newusers til user ?
Avatar billede malte Nybegynder
27. oktober 2001 - 00:30 #99
Det ved jeg ikke, når der kommer en ny vel. Man er i user fra starten men det er som om den ikke er blevet opdateret. Den har virket
Avatar billede malte Nybegynder
27. oktober 2001 - 00:31 #100
Query
SELECT Last(Users.UserName) AS LastOfUserName, Last(Users.CreateDate) AS LastOfCreateDate, Count(Users.eMail) AS CountOfeMail
FROM Users;
Avatar billede malte Nybegynder
27. oktober 2001 - 00:33 #101
Jeg har en tabel der hedder newest users. Der står de i rækkefølge??
Avatar billede malte Nybegynder
27. oktober 2001 - 00:37 #102
Jeg tror lige jeg har ødelagt en query
Avatar billede eagleeye Praktikant
27. oktober 2001 - 00:39 #103
så vidt jeg kan se hedder tabllen  newusers
Avatar billede malte Nybegynder
27. oktober 2001 - 00:41 #104
den har jeg lige spoleret. Når jeg prøver at gendanne den siger den Object \'newusers\' already exists
Avatar billede eagleeye Praktikant
27. oktober 2001 - 00:42 #105
Jeg tror faktisk newusers er en forspørgelse eller query.
Avatar billede malte Nybegynder
27. oktober 2001 - 00:42 #106
Jeg har lavet en der hedder newusers1
Avatar billede eagleeye Praktikant
27. oktober 2001 - 00:43 #107
forspørgelse og query  er det samme (dansk/engelsk)
Avatar billede malte Nybegynder
27. oktober 2001 - 00:44 #108
det er det også, men når jeg prøver at lave den får jeg den fejl Object \'newusers\' already exists
Avatar billede malte Nybegynder
27. oktober 2001 - 00:45 #109
Den kører igen nu bare som newusers1
Avatar billede eagleeye Praktikant
27. oktober 2001 - 00:46 #110
Ja der findes en query som hedder newuser og det er vel bare en SQL-sætning som se måske sådan her ud:
SELECT TOP 1 FROM user ORDER BY ID DESC;
Avatar billede malte Nybegynder
27. oktober 2001 - 00:48 #111
SELECT Last(Users.UserName) AS LastOfUserName, Last(Users.CreateDate) AS LastOfCreateDate, Count(Users.eMail) AS CountOfeMail
FROM Users;
Sådan ser den ud
Avatar billede malte Nybegynder
27. oktober 2001 - 00:49 #112
Jeg prøvede at lave den om til: SELECT Last(Users.UserName) AS LastOfUserName, Last(Users.CreateDate) AS LastOfCreateDate, Count(Users.eMail) AS CountOfeMail
FROM Newest Users;
Den gik ikke :-(
Den forsvandt?
Avatar billede malte Nybegynder
27. oktober 2001 - 00:51 #113
så nu har jeg lavet en anden der hedder newusers1 med denne query:
SELECT Last(Users.UserName) AS LastOfUserName, Last(Users.CreateDate) AS LastOfCreateDate, Count(Users.eMail) AS CountOfeMail
FROM Users; og den virker igen
Avatar billede eagleeye Praktikant
27. oktober 2001 - 00:52 #114
Nej det går ikke. Så skal du havde en tabel som indeholder den sidste bruger. Her ligger alle brugere i tabellen user og man bruger query\'en newuser til at finde den sidst oprettet.
Avatar billede eagleeye Praktikant
27. oktober 2001 - 00:52 #115
OK ja den sidste virker. :=)
Avatar billede malte Nybegynder
27. oktober 2001 - 00:53 #116
Det har jeg også: newest user, der ligger de i rækkefølge
Avatar billede malte Nybegynder
27. oktober 2001 - 00:56 #117
I den query der hedder newest user ligger de i rækkefølge. og så trodede jeg jeg bare kunne hente den sidstankomne der?
Avatar billede eagleeye Praktikant
27. oktober 2001 - 01:00 #118
Har du nogen som er kommet efter Kim Ahrens ?
Avatar billede malte Nybegynder
27. oktober 2001 - 01:02 #119
pp, henrik, fff
Avatar billede malte Nybegynder
27. oktober 2001 - 01:03 #120
Det er som om den ikke er blevet opdateret?
Avatar billede eagleeye Praktikant
27. oktober 2001 - 01:03 #121
hehe man kan tilføje sig selv som ven :)
Avatar billede malte Nybegynder
27. oktober 2001 - 01:04 #122
:)
Avatar billede eagleeye Praktikant
27. oktober 2001 - 01:04 #123
har du kikket om de er rigtigt oprettet i user tabellen?
Avatar billede malte Nybegynder
27. oktober 2001 - 01:07 #124
de er i orden
Avatar billede malte Nybegynder
27. oktober 2001 - 01:07 #125
Prøv lige at opret en fake
Avatar billede eagleeye Praktikant
27. oktober 2001 - 01:13 #126
øv jeg er ikke nu :(
Avatar billede malte Nybegynder
27. oktober 2001 - 01:16 #127
Har du nogen ide om hvorfor det ikke virker??
Avatar billede eagleeye Praktikant
27. oktober 2001 - 01:24 #128
Kan du prøve at lave en ny query til at finde den nyeste.


SELECT top 1 Users.UserName AS LastOfUserName, Users.CreateDate AS LastOfCreateDate, Count(Users.eMail) AS CountOfeMail
FROM Users ORDER BY ID DESC;

Det forudsætter du har et autonummer felt ID i tabellen user
Avatar billede malte Nybegynder
27. oktober 2001 - 01:25 #129
Det er der ikke ingen ID
Avatar billede malte Nybegynder
27. oktober 2001 - 01:29 #130
der er et index??
Primarykey?
Avatar billede eagleeye Praktikant
27. oktober 2001 - 01:29 #131
ingen autonummer felt i user tabellen ?
Avatar billede malte Nybegynder
27. oktober 2001 - 01:31 #132
næ
Avatar billede malte Nybegynder
27. oktober 2001 - 01:31 #133
skal du ind og kikke igen??
Avatar billede malte Nybegynder
27. oktober 2001 - 01:32 #134
Error: You tried to execute a query that does not include the specified expression \'LastOfUserName\' as part of an aggregate function.

SQL : SELECT top 1 Users.UserName AS LastOfUserName, Users.CreateDate AS LastOfCreateDate, Count(Users.eMail) AS CountOfeMail FROM Users ORDER BY ID DESC;
Avatar billede eagleeye Praktikant
27. oktober 2001 - 01:34 #135
nej det behøver jeg ikke.

der et dato felt?

SELECT top 1 Users.UserName AS LastOfUserName, Users.CreateDate AS LastOfCreateDate, Count(Users.eMail) AS CountOfeMail
FROM Users ORDER BY CreateDate DESC;
Avatar billede malte Nybegynder
27. oktober 2001 - 01:35 #136
Error: You tried to execute a query that does not include the specified expression \'LastOfUserName\' as part of an aggregate function.

SQL : SELECT top 1 Users.UserName AS LastOfUserName, Users.CreateDate AS LastOfCreateDate, Count(Users.eMail) AS CountOfeMail FROM Users ORDER BY CreateDate DESC;
Avatar billede malte Nybegynder
27. oktober 2001 - 01:36 #137
Jeg får denne fejl når jet tester den query
Avatar billede malte Nybegynder
27. oktober 2001 - 01:39 #138
Jeg oprettede ham Kim Klokken 16.30.
Jeg tror det er noget af alt det andet vi har lavet der snyder
Avatar billede eagleeye Praktikant
27. oktober 2001 - 01:42 #139
Ja det skulle man tror men vi har jo kun lavet om to steder. Det ene hvor man hendter USerID fra en cookie og det andet hvor man laver et link tilen user.asp side. Der må være noget som snyder den last function. Ved du hvordan den virker?
Avatar billede malte Nybegynder
27. oktober 2001 - 01:44 #140
Nej, men jeg tror den user.asp side er med i det.
Avatar billede eagleeye Praktikant
27. oktober 2001 - 01:46 #141
du kan jo prøve at rette koden i whoson.asp tilabge til det oprindelige mht linket:

Response.Write(\"<a href=\"\"myDeV/users.asp?username=\" & rs(\"UserID\") & \"\"\">\")

Tilbage til

Response.Write(\"<a href=\"\"myDeV/users.asp?username=\" & rsMember(\"UserName\") & \"\"\">\")
Avatar billede malte Nybegynder
27. oktober 2001 - 01:47 #142
Skal vi ikke vente til imorgen ??
Avatar billede eagleeye Praktikant
27. oktober 2001 - 01:48 #143
Jeg vil i seng nu jeg skal tideligt op imorgen..
Jeg kikker lige ind imorgen eftermiddag eller søndag.
Avatar billede eagleeye Praktikant
27. oktober 2001 - 01:48 #144
ok det vi to om ;)
Avatar billede malte Nybegynder
27. oktober 2001 - 01:49 #145
ok
Avatar billede eagleeye Praktikant
28. oktober 2001 - 00:27 #146
har du slettet mit bruger navn ? test jeg kan ikke logge ind
Avatar billede malte Nybegynder
28. oktober 2001 - 00:29 #147
Ja du hedder eagleye2
Avatar billede eagleeye Praktikant
28. oktober 2001 - 00:32 #148
ok
Avatar billede eagleeye Praktikant
28. oktober 2001 - 01:15 #149
Hej

Jeg ville ikke forlade dig på den måde men jeg røg vist af på en eller anden måde. Jeg kunne ikke komme ind i chantten igen.
Avatar billede eagleeye Praktikant
28. oktober 2001 - 01:18 #150
Den minimessanger >> jeg har prøvet at sende Reply til dig men jeg ved ikke om du har fået nogle for vinduet bliver bare hængene og jeg kan trykke flere gange på send uden der tilsyneladne sker noget??
Avatar billede malte Nybegynder
28. oktober 2001 - 01:20 #151
Det gør den også for mig, den holder også op med at opdatere når man har sendt sin hilsen?
Avatar billede malte Nybegynder
28. oktober 2001 - 01:21 #152
Kender du en god chat der er bedre end den jeg har??
Avatar billede eagleeye Praktikant
02. november 2001 - 23:10 #153
Denne kunne jeg huske :) så jeg svare lige.
Avatar billede eagleeye Praktikant
02. november 2001 - 23:10 #154
hmmm hvis jeg da kan finde ud af det...
Avatar billede malte Nybegynder
02. november 2001 - 23:13 #155
153 indlæg, det må da være ny rekord :)
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester