<%
dim antal
antal = 10
dim arrManad
arrManad = array("", "JANUARI", "FEBRUARI", "MARS", "APRIL", "MAJ", "JUNI", "JULI", "AUGUSTI", "SEPTEMBER", "OKTOBER", "NOVEMBER", "DECEMBER")
dim arrVeckodag
arrVeckodag = array("", "SÖNDAG", "MÅNDAG", "TISDAG", "ONSDAG", "TORSDAG", "FREDAG", "LÖRDAG")
dim strSQL, records, countantal, antalsidor
strSQL = "SELECT COUNT(*) FROM gastbok"
set records = Conn.Execute(strSQL)
countantal = records(0)
antalsidor = (countantal - 1) / antal
dim sida
if request.querystring("sida") = "" then
sida = 0
else
sida = request.querystring("sida")
end if
dim i
response.write("sida: ")
for i = 0 to antalsidor
if not CInt(i) = CInt(sida) then
response.write("")
end if
response.write(i + 1)
if not CInt(i) = CInt(sida) then
response.write("")
end if
response.write(" ")
next
response.write("
")
strSQL = "SELECT * FROM gastbok ORDER BY ID DESC LIMIT " & sida * antal & ", " & antal
set records = Conn.Execute(strSQL)
Do While Not records.EOF
response.write("")
response.write(ucase(records("namn")) & "
")
response.write("")
response.write("")
response.write(arrVeckodag(datepart("w", records("tid"))))
response.write(", ")
response.write(datepart("d", records("tid")))
response.write(" ")
response.write(arrManad(datepart("m", records("tid"))))
response.write(" ")
response.write(datepart("yyyy", records("tid")))
response.write(" KLOCKAN ")
if len(datepart("h", records("tid"))) = 1 then response.write("0")
response.write(datepart("h", records("tid")))
response.write(":")
if len(datepart("n", records("tid"))) = 1 then response.write("0")
response.write(datepart("n", records("tid")))
response.write("
")
response.write(replace(records("inlagg"), vbcrlf, "
"))
response.write("
")
records.movenext
loop
records.close
set records = nothing
Set Conn = Nothing
%>
|
 |
Bloggen
Huset
Taket
Vardagsrum
Hall
Gula hallen
Fias rum
Badrum
Kök
Sovrum
Trädgård Fias pyssel
Krilles space
Gästbok
Om oss
www
|
