<% if session("bloggfodd") <> "on" then %>
<% session("bloggfodd") ="on"
end if %>
Min födelsedag
MIN FÖDELSEDAG!
<%
session.LCID = 1053
objConn.open koppling&"mbs.mdb"&koppling2
blogg = request("blogg")
if blogg = "yes" then
blogg = "blogg = True"
blo=1
else
blogg = ""
blo =0
end if
SQL = "SELECT COUNT(*) FROM fodd"
if blo=1 then SQL = SQL & " WHERE " & blogg
objRS.open SQL, objConn
antal = objRS.Fields(0)
objRS.Close
response.write ("Antal födelsedagar: " & antal)
SQL = "SELECT * FROM fodd WHERE manad = '"&mid(Date,6,2) & "' AND dag = '" & right(date,2) & "'"
if blo=1 then SQL = SQL & " AND " & blogg
'response.write(SQL)
'response.end
objRS.open SQL, objConn
x = 0
if not objRS.EOF then
response.write ("
Idag fyller vi år!
(Klicka på kuvertet för att
skicka ett grattismail.
")
while not objRS.EOF
response.write ("
" & objRS("namn") & "
")
objRS.MoveNext
x = 1
wend
else
objRS.Close
if antal>0 then response.write("
Nästa födelsedag:
")
SQL = "SELECT * FROM fodd"
if blo=1 then SQL = SQL & " WHERE " & blogg
SQL = SQL & " ORDER BY manad, dag"
objRS.open SQL, objConn
if not objRS.EOF then
datum = right(date,5)
koll = objRS("manad") & "-" & objRS("dag")
fx = 0
while not objRS.EOF
koll = objRS("manad") & "-" & objRS("dag")
if kolldatum and fx = 1 then
ID=objRS("ID")
fx = 2
end if
objRS.moveNext
wend
objRS.Close
SQL = "SELECT * FROM fodd WHERE ID = " & ID
objRS.open SQL, objConn
response.write ("" & objRS("ar") & "-" & objRS("manad") & "-" & objRS("dag") & ": " & objRS("namn") & "
")
end if
end if
objRS.Close
response.write("
Lägg till din födelsedag.
")
response.write("Visa alla födelsedagar.
")
response.write("Visa alla bloggares födelsedagar.
")
if blo = 1 then response.write ("Rensa inte bort ickebloggare.
")
if blo=0 then response.write ("Rensa bort ickebloggare.
")
objConn.Close
%>