<% fler = 2 %> Klocklös i Tiden - Visa anteckningar
<% 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 ("") end if objRS.MoveNext wend objRS.Close response.write ("
") if objRS("rubrik") <> "" then response.write ("
" & session("rubrik") & "

") response.write (session("anteckning")) datumcheck = objRS("comments") end if %>
<% response.write ("
") response.write ("
" & session("senast") & " | Kommentarer (" & session("antalcomments") & ") | TrackBack (" & session("antaltrackbacks") & ")
") response.write ("
") if objRS("kategori") <> "" and (show<>"kategori" or request("like") = "yes") then response.write ("Läs mer inom kategorin: " & objRS("kategori") & "") 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 ("") objRS.MoveNext antal = antal + 1 Wend objRS.Close end if if svarsID <> "" then 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 ("

") response.write ("Kommentera
") end if end if objConn.Close %>
Klocklös i Tiden
Bloggtoppen.se