<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% if request("P") = "" then response.Redirect("index.asp?P=Start") Standardferg = "#00619C" %> :: SweBCG :: Svenska Bröstcancergruppen :: <% if Session("Inloggad")="SweBCG" then %><% end if %>

<% if Request("Test") = "meny" then %>

<% else %> <% end if %>
<% if request("P")="Styrelse" then %> <% elseif request("P")="SOTA2012" then %> <% elseif request("P")="SOTA2014" then %> <% elseif request("P")="Test" then %> <% elseif request("P")="Javsdeklarationer" then %> <% elseif request("P")="Historia" then %> <% elseif request("P")="Stadgar" then %> <% elseif request("P")="Studier" then %> <% elseif request("P")="StudierEdit" then %> <% elseif request("P")="Dokument" then %> <% elseif request("P")="Publikationer" then %> <% elseif request("P")="Lankar" then %> <% elseif request("P")="Publ_regl" then %> <% elseif request("P")="NatRikt" then %> <% elseif request("P")="Nya_Viktiga_Mediciner" then %> <% elseif request("P")="Rikslikaren" then %> <% elseif request("P")="SOTA" then %> <% elseif request("P")="Tillampningar" then %> <% elseif request("P")="Teknik-vid-stralbehandling" then %> <% elseif request("P")="Sentinal-node-fore-neoadjuvant-behandling" then %> <% elseif request("P")="Aktuellt" then %> <% elseif request("P")="Ovrigt" then %> <% elseif request("P")="SweTRIBE" then %> <% elseif request("P")="SweQA" then %> <% elseif request("P")="SweQA-deklarationer" then %> <% elseif request("P")="SweQA-kvalitet" then %> <% elseif LCase(request("P"))="nimda" then %> <% else %> <% Rubrik = "Svenska BröstcancerGruppen" Text = "Svenska BröstcancerGruppens startsida" Tid = "2000-01-01 00:00:00" Set RS = Server.CreateObject("ADODB.Recordset") SQL="SELECT * FROM Start" RS.Open SQL, dbCon, 2, 3 if not RS.eof then RS.movefirst Rubrik = RS("Rubrik2") Text = RS("Text2") Tid = RS("Tid2") end if Set RS = Nothing %>

<%=Rubrik%>

<%=Text%>

Uppdaterat <%=Tid%>

<% end if %>