<% If (Session("UserID") = "") Then Response.Redirect("startsidan.asp?action=alert") Dim strAction, strSmeknamn, intID strAction = Request.QueryString("action") %> Stacy
<% If (strAction = "visa") Then Dim intDid intDid = Request.QueryString("did") getConn() doSQL("UPDATE Dagbok SET AntalLast=AntalLast+1 WHERE DagboksID="& intDid) getRS("SELECT Users.UserID, Users.Smeknamn, Users.Kon, Users.Fodelsedata, Users.Ort, Dagbok.* FROM Users, Dagbok WHERE Users.UserID=Dagbok.UserID AND Dagbok.DagboksID = "& intDid) intID = objRS("UserID") strSmeknamn = objRS("Smeknamn") %>
DAGBOK - <% =UCase(strSmeknamn) &" ("& UCase(objRS("Kon")) & (Year(Date())-Year(objRS("Fodelsedata"))) &" från "& objRS("Ort") &")" %>

Rubrik: <% =objRS("Rubrik") %>
Datum: <% =formatDate(objRS("Datum")) %>
Läst: <% =objRS("AntalLast") %> ggr


<% =objRS("Inlagg") %>

[ Tillbaka ]
<% Else getConn() getRS("SELECT Users.UserID, Users.Smeknamn, Users.HarBild, Users.BildTyp, Users.BildBredd, Users.BildHojd, Dagbok.Rubrik, Dagbok.DagboksID, Dagbok.Datum FROM Users, Dagbok WHERE Users.UserID=Dagbok.UserID ORDER BY Dagbok.Datum DESC LIMIT 15") If (objRS.BOF) Then %>
DE 15 SENASTE DAGOKS INLÄGGEN

Inga dagboksinlägg skrivna

<% Else %>
DE 15 SENASTE DAGOKS INLÄGGEN
<% Dim strFarg, strBild strFarg="#FFFFFF" Do Until objRS.EOF If (strFarg="#F8FAFC") Then strFarg="#FFFFFF" Else strFarg="#F8FAFC" End If %> <% objRS.MoveNext() Loop %>
Skriven av:
Rubrik:
Datum:
<% If (objRS("HarBild") = "j") Then strBild = "" %> );" onmouseover="return overlib('<% =strBild %>',FULLHTML);" onmouseout="return nd();"> <% Else Response.Write "" End If %> <% Response.Write ""& objRS("Smeknamn") &"" %>
<% =formatDate(objRS("Datum")) %>
<% End If End If closeAll() %>
Copyright © 2003 Stacy [info] [Kontakt]
Regeringsgatan 61, 111 56 Stockholm | Tel: 08-411 59 00 | Fax: 08-411 59 32
<% Response.Write UCase(strSmeknamn) If Not(UCase(Right(strSmeknamn,1)) = "S") Then Response.Write "S" %> MENY
PRESENTATION
GÄSTBOK
DAGBOK
FOTOALBUM
VÄNNER
 
BLI VÄN MED
SKICKA MEDDELANDE
BLOCKERA