 |
» Gästboken |
|
|
|
|
|
<%
' -- // Kollar så att det finns inlägg
If IsArray(arrGB) Then
' -- // Visa antal inlägg per sida
intPostsPerPage = 20
' -- // Navigeringshantering
If IsNumeric(Trim(Request.Querystring("pg"))) Then
intPage = CInt(Trim(Request.Querystring("pg")))
Else
intPage = 1
End If
intFirstPost = (intPage - 1) * intPostsPerPage
intTotalPosts = UBound(arrGB, 2)
intPages = ((intTotalPosts)\intPostsPerPage)+1
If intFirstPost + (intPostsPerPage - 1) >= UBound(arrGB,2) Then
intLastPost = UBound(arrGB, 2)
Else
intLastPost = intFirstPost + (intPostsPerPage - 1)
End If
' -- // Klart med det =)
' -- // Skriv ut inläggen på den valda sidan
For i = intFirstPost To intLastPost
If i Mod 2 = 0 then
color = "426278"
Else
color = "365062"
End If
' -- // Hämtar alla värden från arrayn (databasen...)
strFran = CStr(arrGB(0, i))
intFranid = CLng(arrGB(1, i))
strDatum = CDate(arrGB(2, i))
id = CLng(arrGB(3, i))
intPrivat = CLng(arrGB(4, i))
strInlagg = CStr(arrGB(5, i))
intSvarid = CLng(arrGB(6, i))
fBild = CStr(arrGB(9, i))
fSenaste = arrGB(10, i)
fFotoStatus = CLng(arrGB(11, i))
fStrNick = arrGB(12, i)
kon = arrGB(13, i)
alder = arrGB(14, i)
intUserID = Cint(arrGB(15, i))
%>
| <% IF FstrNick <> "" Then %><%=strFran%><% Else %><%=strFran%><% End IF %> <% If kon = "Pojke" Then
Response.Write "P"
Else
Response.Write "F"
End If%> <%
IF not alder = "0000-00-00" Then
strBirth = CDate(alder)
strAge = Int(DateDiff("d", strBirth, Date)/365)
Else
strBirth = 0
End IF
%>
<%=strAge%>
|
<% if DateDiff("d", strDatum, now()) = 0 then
response.write "idag " & FormatDateTime(strDatum,3)
elseif DateDiff("d", strDatum, now()) = 1 then
response.write "Igår " & FormatDateTime(strDatum,3)
else
response.write Mid(FormatDateTime(strDatum,1), 4) & " " &FormatDateTime(strDatum,3)
end if
If lngID = Session("id") then %>
| Svara
|
Ta bort
<% ElseIf strFran = Session("user") Then %>
|
Ta bort
<% End If %>
| H
<% If cint(intUserid) = cint(Session("id")) then
SQL = "SELECT intSvarid FROM gb WHERE intSvarid=" & id
Set svar = Connect.Execute(SQL)
If svar.EOF Then
Response.Write "(Obesvarat)"
End If
svar.close
Set svar = Nothing
End If%>
<% if intPrivat = 1 then%>
| P
<% end if %>
|
<% If DateDiff("n", fSenaste, Now()) <= 30 Then %>
<% Else %>
<% End If %>
|
|
<% if fBild<>"" then %>
<% IF fFotoStatus = 0 Then %>
<% Elseif fFotoStatus = 1 Then %>
<% Else %>
%>)
<% End IF %>
<% Else %>
<% End IF %>
|
<% If intPrivat = 1 then%>
<% If cint(lngID) = cint(Session("id")) OR cint(intFranid) = cint(Session("id")) OR Session("User") = "Thomsson" then %>
<% Else %>
-- Privat inlägg --
<% End if %>
<% Else %>
<% End if %>
|
<%
Next
' -- // Och så var alla inlägg utskrivna
' -- // Det fanns inga inlägg, vi får ställa in lite annat
Else
intPages = 0
intTotalPosts = -1
End If
Response.write "" &"Sida "
' -- // Skriver ut navigering (sidorna)
For n = 1 To intPages
If intPage = n Then
Response.Write "" & n & " "
Else
Response.Write "" & n & " "
End If
If n = intPages Then Exit For
Next
' -- // And we are done!!! STÄNG DATABASEN =)
Connect.Close
Set Connect = Nothing
%>
<%=strUser & " har totalt " & intTotalPosts+1 & " antal gästboksinlägg!"%>
|