Diskusní fórum
<% Dim forum_jmeno, forum_email, forum_mesto, forum_pamatovat Dim forum_lastTime, forum_lastDate Dim forum_new Dim forum_add, forum_pocet, forum_is Function WriteStrankovani(strTable) Dim strThisPage, strStartWrite, strWritePage, strVypis, strPageTotal Dim I, J Dim Jp, Ip Dim Stranka Dim strPozadi If strTable <> "false" Then sql = "SELECT count(*) AS pocet FROM " & strTable & "" rs.open sql, cn pocetZaznamu=rs("pocet") rs.close End If ' strVypis = strDelka 'pocet odkazu na obe strany strVypis = 3 'pocet odkazu na obe strany strPozadi = "#fcfc28" If strPromene <> "" Then strPromene = strPromene Else strPromene = "&pocet=" & pocet & "&ID=" & ID & "&typ=" & typ & "&od=" & od & "" End If strThisPage = int((start/pocet) + 1) strPageTotal = int(pocetZaznamu/pocet) + 1 If strPageTotal>1 Then Response.Write ""
If start > 1 Then
Response.Write ""
Response.Write "<<"
End If
Ip = 0
I = strVypis
For Stranka = 1 to I
strWritePage = (strThisPage - I) + strVypis
If strWritePage > strPageTotal Then
Ip = Ip + 1
End If
I = I - 1
Next
Jp = 0
J = strVypis
For Stranka = 1 to J
strWritePage = strThisPage - J
If strWritePage > -1 Then
Jp = Jp + 1
End If
J = J - 1
Next
J = strVypis + Ip
For Stranka = 1 to J
strStartWrite = ((strThisPage - J)*pocet)
strWritePage = strThisPage - J
If strWritePage > -1 Then
Response.Write "" & strWritePage + 1
Response.Write ""
End If
J = J - 1
Next
I = 0
For Stranka = 1 to strVypis + (strVypis - Jp)
strStartWrite = ((strThisPage + I)*pocet)
If strStartWrite < pocetZaznamu Then
Response.Write ""
Response.Write (strThisPage + I) + 1
Response.Write ""
I = I + 1
End If
Next
If strThisPage < strPageTotal Then
Response.Write ""
Response.Write ">>"
End If
Response.Write "
"
End If
End Function
Set rs = Server.CreateObject("ADODB.Recordset")
forum_jmeno = Request.Cookies("forum_jmeno")
forum_email = Request.Cookies("forum_email")
forum_mesto = Request.Cookies("forum_mesto")
forum_pamatovat = Request.Cookies("forum_pamatovat")
forum_lastDate = Request.Cookies("forum_lastDate")
forum_lastTime = Request.Cookies("forum_lastTime")
forum_jmeno = Replace(forum_jmeno,"","")
If forum_lastTime<>"" AND forum_lastDate<>"" Then
If myDatum(now())>forum_lastDate Then
sql = "SELECT count(*) AS pocet FROM forum WHERE datum>'" & forum_lastDate & "' "
Else
sql = "SELECT count(*) AS pocet FROM forum WHERE cas>'" & forum_lastTime & "' AND datum='" & forum_lastDate & "' "
End If
rs.open sql, cn
forum_new = rs("pocet")
rs.close
If forum_new>0 Then
Select Case forum_new
Case 1
forum_is = "je"
forum_add = "nový"
forum_pocet = "příspěvek"
Case 2
forum_is = "jsou"
forum_add = "nové"
forum_pocet = "příspěvky"
Case 3
forum_is = "jsou"
forum_add = "nové"
forum_pocet = "příspěvky"
Case 4
forum_is = "jsou"
forum_add = "nové"
forum_pocet = "příspěvky"
Case else
forum_is = "je"
forum_add = "nových"
forum_pocet = "příspěvků"
End Select
Response.Write ""
Response.Write "V diskusním fóru " & forum_is & " " & forum_new & " " & forum_add & " " & forum_pocet & "." Response.Write "
" End If End If Response.Write "
"
Response.Write "Chcete-li udělat nový řádek, stačí zařádkovat enterem, netřeba používat html tagy. "
Response.Write "
Děkujeme, že se zde na fóru budete chovat jako slušní lidé." ' Response.Write "
Registrace - klikněte na ""heslo"" o kousek výš." Response.Write "
"
Response.Write "Děkujeme, že se zde na fóru budete chovat jako slušní lidé." ' Response.Write "
Registrace - klikněte na ""heslo"" o kousek výš." Response.Write "
" start = request("start") If start="" or start="1" Then start=0 pocet = request.querystring("pocet") If pocet=0 or pocet="" Then pocet=15 dim p dim id dim start Dim pocet Dim StartPos, EndPos Dim JmenoMail Dim cely_text Dim vysmaty, vysmatymoc, nadveci, smutny, udiv vysmatymoc = "
"
Response.Write ""
Response.Write "
"
Response.Write ""
Response.Write "
"
rs.MoveNext
Loop
End If
rs.close
strTable = "forum"
strVypis = "3"
WriteStrankovani(strTable)
Response.Cookies("forum_lastDate") = myDatum(date())
Response.Cookies("forum_lastTime") = time()
%>
| "
Response.Write "" & rs("jmeno") & " "
If left(rs("jmeno"),3)="" Then
Response.Write " | " Response.Write "" Response.Write rs("datum") Response.Write " / " Response.Write formatdatetime(rs("cas"),4) & "" Response.Write " |
"
cely_text = rs("cely_text")
' ------ bacha na to v jakem poradi jsou smajliky, nejdriv davat smajliky s vice zavorkami :))), :)), :)
' ------ vysmaty -----
cely_text = Replace(cely_text,":))",vysmatymoc)
cely_text = Replace(cely_text,":-))",vysmatymoc)
cely_text = Replace(cely_text,":)",vysmaty)
cely_text = Replace(cely_text,":-)",vysmaty)
cely_text = Replace(cely_text,";)",nadveci)
cely_text = Replace(cely_text,";-)",nadveci)
cely_text = Replace(cely_text,":(",smutny)
cely_text = Replace(cely_text,":-(",smutny)
cely_text = Replace(cely_text,":o))",udiv)
cely_text = Replace(cely_text,":o)",udiv)
Response.Write cely_text
Response.Write " |
ON-LINE PŘENOSY z MS
Doporučujeme
Novinka na trhu!!!
Nová kniha o českém hokeji od Karla Guta a Jaroslava Prchala
Podrobnosti a objednávky zde