%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
if request("P") = "" then response.Redirect("index.asp?P=Start")
Standardferg = "#00619C"
%>
<% 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 %>