<% fler = 0 %> Klocklös i Tiden - Kommentera
<% filnamn="postakommentar.asp?svarsID=" & request("svarsID") namn = request.cookies("namn") email = request.cookies("email") url = request.cookies("url") hemsida = request.cookies("hemsida") %>
Namn:
Emailadress:
URL till hemsida:
Hemsidans namn:
Fyll i
alfabetets
sista bokstav:

Använd inte A HREF-taggen för att länka!
Om du inleder url:en med http:// så blir den automatiskt en länk.

Kom ihåg min info

<% objConn.Open koppling&"mbs.mdb"&koppling2 antal = 1 result = request("svarsID") 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 objConn.Close %>
") 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 ("