<%
svarsID = request("svarsID")
show = request("show")
result = request("result")
ttt = " LIKE "
if request("string") = "yes" then
fnutt = "'%"
fnutt2 = "'"
end if
if show = "anteckning" or request("like") = "yes" then
fnutt = "'%"
fnutt2 = "%'"
ttt = " LIKE "
end if
if svarsID <> "" then
show = "ID"
result = svarsID
end if
newwindow = request("newwindow")
if newwindow <> "no" then newwindow = "yes"
session.LCID = 1053
objConn.Open koppling&"mbs.mdb"&koppling2
SQL = "SELECT Count(*) FROM anteckningar WHERE " & show & ttt & fnutt & result & fnutt2
'response.write(SQL)
'response.end
objRS.open SQL,objConn
if objRS.Fields(0)>20 then
%>
Klocklös i Tiden
Freudianska felskrivningar
<%
objConn2.Open koppling&"mbs.mdb"&koppling2
SQL = "SELECT * FROM anteckningar WHERE anteckning LIKE '%" & request("result") & "%' ORDER by ID DESC"
objRS2.Open SQL, objConn2
while not objRS2.EOF
response.write ("" & objRS2("comments") & ": " & objRS2("rubrik") & "
| ")
objRS2.MoveNext
wend
objRS2.Close
else
objRS.Close
SQL = "SELECT * FROM anteckningar WHERE " & show & ttt & fnutt & result & fnutt2 &" ORDER BY comments DESC, ID DESC"
'response.write (SQL)
datumcheck = ""
a = 0
'response.write (SQL)
'response.end
objRS.Open SQL, objConn
tid = now
antal = 0
if objRS.EOF then
response.write ("Sökningen fick inga träffar.
Tillbaka till Klocklös i Tiden.")
objRS.Close
response.end
end if
WHILE NOT objRS.EOF
upptid = objRS("comments") & " " & objRS("senast") & ":00"
a = a + 1
antal = antal + 1
tid = left(tid,16)
upptid = left(upptid,16)
'response.write (tid &" : "&upptid)
'if tid > upptid then response.write ("A")
'if tid = upptid then response.write ("B")
'if tid < upptid then response.write ("C")
if tid > upptid or tid = upptid then
dagr = objRS("dag")
session("dag") = Ucase(left(dagr,1)) & right(dagr,len(dagr)-1)
session("comments") = objRS("comments")
session("filnamn") = objRS("filnamn")
session("senast") = objRS("senast")
session("rubrik") = objRS("rubrik")
session("anteckning") = objRS("anteckning")
mmm = request("ord")
if mmm = "" then mmm = request("result")
if request("ord") <> "" or show = "anteckning" then session("anteckning") = replace(session("anteckning"),mmm, "" & mmm & "")
'response.write (response.write(replace(objRS3("anteckning"), session("sok"), "" & session("sok") & "")))
session("svarsID") = objRS("ID")
fext = ""
cc = session("anteckning")
for i = 1 to len(cc)
if lanknej = 2 then lanknej = 0
if lankbb = 1 and mid(cc,i,1) = "<" then lanknej = 1
if lankbb = 1 and mid(cc,i,1) = ">" then lanknej = 2
if mid(cc,i,1) <> "{" and mid(cc,i,1) <> "}" and mid(cc,i,1) <> "£" and lanknej = 0 then fext = fext & mid(cc,i,1)
if mid(cc,i,1) = "{" then
fext = fext & ""
if mid(cc,i,1) = "}" then
fext = fext & ""
lankbb = 0
end if
next
session("anteckning") = fext
'response.write ("")
if datumcheck <> session("comments") then
response.write (" | ")
if ghj>0 then response.write (" ")
ghj=1
response.write ("" & session("dag") & "en den ")
cx = 9
if mid(session("comments"),9,1) = "0" then cx = 10
response.write (mid(session("comments"),cx,11-cx) & " ")
if mid(session("comments"),6,2) = "01" then manad = "januari"
if mid(session("comments"),6,2) = "02" then manad = "februari"
if mid(session("comments"),6,2) = "03" then manad = "mars"
if mid(session("comments"),6,2) = "04" then manad = "april"
if mid(session("comments"),6,2) = "05" then manad = "maj"
if mid(session("comments"),6,2) = "06" then manad = "juni"
if mid(session("comments"),6,2) = "07" then manad = "juli"
if mid(session("comments"),6,2) = "08" then manad = "augusti"
if mid(session("comments"),6,2) = "09" then manad = "september"
if mid(session("comments"),6,2) = "10" then manad = "oktober"
if mid(session("comments"),6,2) = "11" then manad = "november"
if mid(session("comments"),6,2) = "12" then manad = "december"
response.write (manad & " " & left(session("comments"),4) & "")
else
response.write ("")
session("svarsID") = objRS("ID")-1
'
ghs=1
session("svarsID") = objRS("ID")
'response.write (" ")
end if
response.write ("")
'Kommentarerna börjar här!
if show = "ID" then
antal = 1
SQL = "SELECT * FROM blogg WHERE svarsID = " & result & " ORDER BY ID"
objRS.Open SQL, objConn
' antal = 0
' WHILE NOT objRS.EOF
'antal = antal + 1
'objRS.MoveNext
'wend
'objRS.Close
' objRS.Open SQL, objConn
response.write ("
")
while not objRS.EOF
response.write ("")
response.write (" " & antal & ". ")
if objRS("url")<>"" then
response.write ("" & objRS("hemsida") & ": ")
end if
'if objRS("email") <> "" then
' response.write ("")
'end if
response.write (objRS("Namn") & " " & left(objRS("tid"),4) & "-" & mid(objRS("tid"),6,2) & "-" & mid(objRS("tid"),9,2) & " " & mid(objRS("tid"),12,5) & "
")
kommentar = (replace(objRS("kommentar") & "", VbCrLf, " ")) & " "
bok = ""
linka = ""
hh = 0
if len(kommentar)>4 then
for ff = 1 to len(kommentar)-4
if mid(kommentar,ff,1) <> "h" then
bok = bok & mid(kommentar,ff,1)
else
if mid(kommentar,ff+1,1) = "t" and mid(kommentar,ff+2,1) = "t" and mid(kommentar,ff+3,1) = "p" then
gg = ff
bok = bok & ""&linka&""
ff=gg-1
if gg = len(kommentar) then hh = 1
else
bok = bok & "h"
end if
end if
next
end if
if hh = 0 then bok = bok & right(kommentar,4)
response.write(bok)
response.write (" | ")
objRS.MoveNext
antal = antal + 1
Wend
objRS.Close
end if
if svarsID <> "" then
response.write (" ")
response.write ("Kommentera ")
end if
end if
objConn.Close
%>
Klocklös i Tiden
|