<% session.LCID = "1031" Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open strconn strID = request.QueryString("id") If strID = "" then frontpage = true else frontpage = false sql = "SELECT TOC.Navn, TOC.RID, TOC.RRID, Indhold.Tekst, Indhold.Billede, Indhold.Opdateret, Indhold.billedtekst, Indhold.emailtilalle FROM TOC, Indhold WHERE TOC.ID=Indhold.tekst_billedID AND TOC.ID = " & strID & "" set db = conn.execute (sql) sql2 = "Select Navn From TOC Where ID = " & db("RID") & "" sql3 = "Select Navn From TOC Where ID = " & db("RRID") & "" set H1 = conn.execute (sql2) set H2 = conn.execute (sql3) opdateret = db("Opdateret") H1 = H1("Navn") H2 = H2("Navn") udvalg = db("Navn") tekst = replace(db("Tekst"), vbcrlf, "
") billede = db("billede") billedtekst = db("billedtekst") emailalle = db("emailtilalle") end if %> <% if frontpage = true then response.Write("Odontologisk Forening") else response.write("Odontologisk Forening - " & H1 & " - " & H2 & " - " & udvalg & "") end if %>
<% if frontpage = false then %>  <% response.Write "Odontologisk Forening -> " & H1 & " -> " & H2 & " -> " & udvalg & "" %>

Opdateret d. <%= opdateret %>

<%= H2 %>

<%= udvalg %>

<%= tekst %>

<%= billede %>
<%= Billedtekst %>
<% email = "Select Titel, Navn, Semester, Email From UdvalgsEmail Where udvalgsID = " & strID & " order by Priotet" set email = conn.execute (email) do while not email.eof response.Write "" & email("Titel") & ": " & email("Navn") & ". " & email("Semester") & ". Semester
" alle_email = alle_email & "; " & email("Email") email.movenext loop if emailalle = "" then else alle_email = alle_email & "; " & emailalle end if alle_email = mid(alle_email, 3, (len(alle_email)-2)) %>
Send en mail til hele udvalget: her
<% else if request.QueryString("mode") <> "" then mode = request.QueryString("mode") %> <% else response.write "" response.write "
" response.write "" sql = "select created, header, body from news order by created desc" set news = conn.execute (SQL) do while not news.eof response.write "" response.write "" response.write "" response.write "" news.movenext loop response.write "
" & news("header") & "
" & replace(news("body"), vbcrlf, "
") & "
oprettet d. " & news("created") & "
 

 " 'KALENDER 'response.write "" 'MAILLISTE 'response.write font5 & "Mailliste
" 'if request("til") = 1 then ' response.write font & "Du er nu tilmeldt maillisten!" 'else ' response.write font & "Indtast din email og tilmeld dig til vores mailliste her!" 'end if 'response.write "


Via maillisten får du information om møder, fester og andre nyheder." response.write "

Billedarkiv - altid billeder på vej
" response.write "Se billeder" response.write "

Studieinformation:
" response.write "Odontologi" response.write "

OF's Velgører
" response.write "Odontologisk Boghandel!" response.write "

Få dit skema på Outlook/iCal/PDA/Telefon:
" response.write "Gylleplus" end if end if %>
<% Set H1 = Nothing Set H2 = Nothing Set email = Nothing Set db = Nothing Conn.Close Set Conn = Nothing %>