onlinescript

Hej!
Jag har gjort mej ett community.
Nu håller jag på att uppdatera hela alltett.
Ett problem jag har är att jag ska ett onlinescript.
när man går in på en användares pres så ska det stå om användaren är online/offline genom bilder.
man ska kunna klicka på bilden och se när användaren loggade in senast.
vet du hur jag gör ett online-script så räcker det.
snälla hjälp mej.
jag skickar med online/offline-bilderna här.

Offline:

Online:

Om du har ett fält i databasen som lagrar statusen på medlemen så kan du göra så här.

	if Rs("status") = "offline" then
		response.write("<img border='0' src='http://217.211.71.59/anton/community/bilder/offline.png'  alt='Jag är offline'>")
    else
		response.write("<img border='0' src='http://217.211.71.59/anton/community/bilder/online.png' alt='Jag är online'> ")
	end if

Bosse168 skrev:

Om du har ett fält i databasen som lagrar statusen på medlemen så kan du göra så här.

	if Rs("status") = "offline" then
		response.write("<img border='0' src='http://217.211.71.59/anton/community/bilder/offline.png'  alt='Jag är offline'>")
    else
		response.write("<img border='0' src='http://217.211.71.59/anton/community/bilder/online.png' alt='Jag är online'> ")
	end if

vartska jag skriva det?
i userview.asp ?
jag skickar med den så kanske någon snäll person kan lägga in den.
här är koden.
vet inte var jag ska lägga asp-satserna

<!-- #include file="design.asp" --><!-- #include file="includes/login.asp" --><!-- #include file="includes/andratext.asp" --><!-- #include file="includes/alder.asp" -->

<%
	' Medlem visas här.
	strSQL = "Select * From members where username='"&Fixbug(Request.Querystring("view"))&"'"
	Set ObjRS = ObjConn.Execute(strSQL)

		IF ObjRS.Eof then
			Response.Write "Finns ingen medlem här."
		else

		IF ObjRS("username")=Session("username") then
			Response.Write "<a href=""userview.asp?view="&ObjRS("username")&""">Presentation</a>  | <a href=""dagbok_self.asp?dagbok="&Session("username")&""">Din dagbok</a> | <a href=""userview_visited.asp"">Besökare</a> | <a href=""list_self.asp?view="&Session("username")&""">Listor</a><p></p>"
		Else
			Response.Write "<a href=""userview.asp?view="&ObjRS("username")&""">Första sida</a> | <a href=""gb_read.asp?to_user="&ObjRS("username")&""">Gästboken</a> | <a href=""mess_skicka.asp?to_user="&ObjRS("username")&"&direct=yes"">Messa</a> | <a href=""friend_show.asp?view="&ObjRS("username")&""">Vänner</a> | <a href=""dagbok.asp?dagbok="&ObjRS("username")&""">Dagbok</a> | <a href=""list.asp?view="&ObjRS("username")&""">Listor</a><p></p>"
		End if 
%>
<% If len(ObjRS("bild") & "") > 0 THEN Response.Write "<img src='"&ObjRS("bild")&"' width='55' height='67'><br>" %>

<% If len(ObjRS("alder") & "") > 0 THEN Response.Write "Är "&GetAge(ObjRS("alder"))&" år gammal<br>" %>
Sist här <b><% Response.Write ""& FormatDateTime(ObjRS("datum"),vbshorttime)&" "&FormatDateTime(ObjRS("datum"),vblongdate) &"" %></b><br>
Registrerades <b><% Response.Write ""& FormatDateTime(ObjRS("reggade"),vbshorttime)&" "&FormatDateTime(ObjRS("reggade"),vblongdate) &"" %></b><br>
Har besökt detta community <b><%=ObjRS("besok")%></b> antal ggr.<p></p><%

		If len(ObjRS("kryp") & "") > 0 THEN Response.Write "<hr class='hr'>"&byt(ObjRS("kryp"))&""

			Response.Write "<tr><td colspan='5'><hr class='hr'></td></tr>"
		' Skriver ut värden.
		If len(ObjRS("epost") & "") > 0 THEN Response.Write "<tr><td>Epost</td><td><a href='mailto:"&ObjRS("epost")&"'>"&ObjRS("epost")&"</a></td><td><img src='bilder/mail.png'></td></tr>"
		If len(ObjRS("ICQ") & "") > 0 THEN Response.Write "<tr><td>ICQ</td><td>"&Server.HtmlEncode(ObjRS("ICQ"))&"</td><td><img src='bilder/icq.png'></td></tr>"
		If len(ObjRS("MSN") & "") > 0 THEN Response.Write "<tr><td>MSN</td><td>"&Server.HtmlEncode(ObjRS("MSN"))&"</td><td><img src='bilder/msn.png'></td></tr>"
		If len(ObjRS("irc") & "") > 0 THEN Response.Write "<tr><td>IRC</td><td>"&Server.HtmlEncode(ObjRS("IRC"))&"</td><td><img src='bilder/irc.png'></td></tr>"
		If len(ObjRS("personligURL") & "") > 0 THEN Response.Write "<tr><td>Hemsida</td><td><a href='"&Server.HtmlEncode(ObjRS("personligURL"))&"' target='_blank'>"&Server.HtmlEncode(ObjRS("personligURL"))&"</a></td><td><img src='bilder/url.png'></td></tr>"
		If len(ObjRS("favoURL") & "") > 0 THEN Response.Write "<tr><td>Favorit hemsida</td><td><a href='"&Server.HtmlEncode(ObjRS("favoURL"))&"' target='_blank'>"&Server.HtmlEncode(ObjRS("favoURL"))&"</a></td><td><img src='bilder/url.png'></td></tr>"

		If len(ObjRS("intresse") & "") > 0 THEN Response.Write "<tr><td>Intresse</td><td>"&Server.HtmlEncode(ObjRS("intresse"))&"</td><td><img src='bilder/user.png'></td></tr>"
		If len(ObjRS("civil") & "") > 0 THEN Response.Write "<tr><td>Civilstatus</td><td>"&Server.HtmlEncode(ObjRS("civil"))&"</td></tr>"
		If len(ObjRS("politik") & "") > 0 THEN Response.Write "<tr><td>Politik</td><td>"&Server.HtmlEncode(ObjRS("politik"))&"</td></tr>" 
		If len(ObjRS("favomat") & "") > 0 THEN Response.Write "<tr><td>Favorit mat</td><td>"&Server.HtmlEncode(ObjRS("favomat"))&"</td></tr>" 
		If len(ObjRS("harfarg") & "") > 0 THEN Response.Write "<tr><td>Hårfärg</td><td>"&Server.HtmlEncode(ObjRS("harfarg"))&"</td></tr>" 
		If len(ObjRS("live") & "") > 0 THEN Response.Write "<tr><td>Bor</td><td>"&Server.HtmlEncode(ObjRS("live"))&"</td></tr>" 
		If len(ObjRS("personlighet") & "") > 0 THEN Response.Write "<tr><td>Personlighet</td><td>"&Server.HtmlEncode(ObjRS("personlighet"))&"</td></tr>" 
		If len(ObjRS("favomusik") & "") > 0 THEN Response.Write "<tr><td>Favorit musik</td><td>"&Server.HtmlEncode(ObjRS("favomusik"))&"</td></tr>" 
		If len(ObjRS("favofilm") & "") > 0 THEN Response.Write "<tr><td>Favorit film</td><td>"&Server.HtmlEncode(ObjRS("favofilm"))&"</td></tr>"

			Response.Write "<tr><td colspan='5'><hr class='hr'></td></tr>"

		IF not ObjRS("username") = Session("username") then
			Response.Write "<tr><td colspan='5' align='center'><a href=""friend_add.asp?add="&ObjRS("username")&""">Bli "&ObjRS("username")&"´s vän?</a></td></tr>"

	ObjRS.Close
	Set ObjRS = Nothing

	' Här skapas en besökare. Men inte på din egen sida.
	strSQL = "Select * From visitor where to_user='"&Fixbug(Request.Querystring("view"))&"'" & " and from_user='"&Fixbug(Session("username"))&"'"
	Set ObjRS = ObjConn.Execute(strSQL)

		IF ObjRS.Eof then

	strSQL = "Insert into visitor (from_user, to_user, datum) values ('" & Fixbug(Session("username")) & "','" & Fixbug(Request.Querystring("view")) &"', '"&now& "' )"
	ObjConn.Execute(strSQL)

	ObjRS.Close
	Set ObjRS = Nothing
	ObjConn.Close
	Set ObjConn = Nothing

		else

	' Uppdaterar tiden, om "besökaren" redan finns.
	strSQL = "Update visitor set datum='"&now&"'" & " where to_user='"&Fixbug(Request.Querystring("view"))&"'" & " and from_user='"&Fixbug(Session("username"))&"'"
	ObjConn.Execute(strSQL)

	ObjRS.Close
	Set ObjRS = Nothing
	ObjConn.Close
	Set ObjConn = Nothing

		End if
		End if
		End if
%>

<!-- #include file="design_ner.asp" -->

Bosse168 skrev:

Om du har ett fält i databasen som lagrar statusen på medlemen så kan du göra så här.

	if Rs("status") = "offline" then
		response.write("<img border='0' src='http://217.211.71.59/anton/community/bilder/offline.png'  alt='Jag är offline'>")
    else
		response.write("<img border='0' src='http://217.211.71.59/anton/community/bilder/online.png' alt='Jag är online'> ")
	end if

men hur ska jag skapa ett databasfält som lagrar statusen då?
jag har ett fält på pressen där det står när man senast loggade in men kan jag utnytja det och bara lägga till en funktion som kollar om man har loggat ut sedan man loggade in.
det bästa vore om jag kan göra ett separat script till det hela men jag vill inte krångla för mycket.
det skulle vara schysst om nån kan göra hela scriptet och skicka viewuser.asp till mej sen.
jag har inte jobbat så jättelänge med asp så jag är en avancerad nybörjare som behöver lite hjälp på traven.
ni kan gå in på communityt under url:en http://www.dragon-place.tk.
koden som ni ska utgå ifrån har jag lagt till ovanför men jag skapar en databaspost under members (där listas alla medlemmarna och info om dem) som jag döper till status.behöver ni veta namnet på databasen så adda mej på msn:antongildebrand1@hotmail.com
jag vill nämligen inte lämna ut databasens namn tillgängligt på webforum för den är inte riktigt säker än.
jag har online/offline-bilderna och dom når du under följande adresser:

Onlinebilden:

och offline