Hvis IP-nummer er...

Skriver IP nummeret på den eksterne (?) host:

Response.Write Request.ServerVariables("REMOTE_ADDR")

Andre sjove ting er:

Response.Write Request.ServerVariables("REMOTE_HOST")
Response.Write Request.ServerVariables("REMOTE_USER")

Jeg tror ikke det kan betale sig at lave det efter IP , da de fleste har dynamisk IP adresse, som derfor skifter hele tiden ... 

Jeg er godt nok ikke den store ASP haj, men jeg tror det kan betale sig at lave det med sessions i stedet :o)

/KingMedia

Ja, der er nok smartest at lave det med sessions, men jeg leder efter en lille hurtig løsning, som kun skal benyttes af mig og min side-kammerat, som har et lille netværk.

Men jeg kan godt finde IP-adressen, og den skriver den også, men jeg vil have ASP'en til at bytte de to adresser om til to navne.

Hmmm  hvad med...
<%
if Request.ServerVariables("REMOTE_ADDR") = xxx.xxx.xxx.xxx
Then
Response.Write "Peter: "
Else
Response.Write "DitNavn: "
End if
%>

Jeg er ikke sikker på om det virker, men det skulle jeg da mene.. 

ved xxx.xxx.xxx.xxx skriver du din vens IP .. 
Hvis de stemmer overens, vil den udskrive "Peter" .. 
Hvis det er en anden ip vil den udskrive "DitNavn" ( som du så bare retter til dit eget navn ;o) )

Dette burde kunne lade sig gøre, når i kun skal bruge det to personer :o)

/KingMedia

Da det åbenbart er statiske IP'er kan du smide det i en database eller et XML dokument.

Det kan oz være at det skal være

if Request.ServerVariables("REMOTE_ADDR") = 'xxx.xxx.xxx.xxx'

med plinger omkring..    er ikke sikker :o)

kingmedia: Too simple :)))

sn0wflake >>  Hvad mener du ? :o)

Som sagt.. jeg er ikke den store ASP haj ..  er sq ret n00b .. 
Men det burde da kunne lade sig gøre ikke ??

Hvordan kobler jeg så kingmedias forslag sammen med dette:

<%
strUser = "<b>" & Request.ServerVariables("REMOTE_USER") & "</b>: "
%>

IP-nummeret (strUser) skal nemlig bruges senere... øhhh... er selv lidt forvirret... Kan I bruge det fulde dokument?

<%
Response.Buffer = True

Select Case LCase(Request.QueryString("mode"))
Case "chat"
%>

<html>
<head>
<meta http-equiv="REFRESH" content="3; URL=chat.asp?mode=chat">
<title>Chatroom</title>
</head>
<body><font face="verdana, arial" size="2">
<%
strUser = "<b>" & Request.ServerVariables("REMOTE_USER") & "</b>: "
strMessage = Server.HTMLEncode(Trim(Request.Form("Message")))

'her ryddes chat loggen, hvis den overstiger 1000 karakterer
    If Len(Application("ChatLog")) > 1000 Then
        Application.Lock
        Application("ChatLog") = ""
        Application.UnLock
    End If

    If Request.Form("Action") = "Send" Then
        If Len(strMessage) > 0 Then
        strChatContent = strUser & strMessage & "<br>" & Application("ChatLog")
        Application.Lock
        Application("ChatLog") = strChatContent
        Application.Unlock
        End If
    End If
    Response.Write Application("ChatLog")
Case "send"
%>
<body bgcolor="#37618E">
<form method="POST" action="chat.asp?mode=chat" target="Top">
<input type="text" name="message" size="30">&nbsp;
<input type="submit" name="Action" value="Send">
</form>

<% Case Else %>
<frameset rows="70%,*" frameborder="no">
<frame name="Top" src="chat.asp?mode=chat" scrolling="auto" marginwidth="4" marginheight="4" noresize>
<frame name="Buttom" src="chat.asp?mode=send" scrolling="auto" marginwidth="4" marginheight="4">
<noframes>
<body>
noframes
</body>
</noframes>
</frameset>
<% End Select %>

</body>
</html>

intet virker... æv.