<% If 1=1 Then RecId = Request("RecID") If RecId <> "" Then SQL = "Select * From Sider Where RecId = " & RecId Set Rs = dba.Execute(SQL) Overskrift = Rs("Overskrift") Beskrivelse = Rs("Beskrivelse") Beskrivelse2 = Rs("Beskrivelse2") DBRef = Rs("DBRef") DBRefTekst = Rs("DBRefTekst") Rs.Close SQL = "Select * From SideLink, Kontakter Where SideLink.SideID = " & RecId & " And Kontakter.RecId = SideLink.KontaktId Order By SideLink.SideID" Set RsLink = dba.Execute(SQL) %> <%=Overskrift%> <%If Overskrift <> "" Then%>

<%=Overskrift%>

<%End if%> <%If Beskrivelse <> "" Then%>

<%=Beskrivelse%>

<%End if%> <%If Beskrivelse <> "" Then%>

<%=Beskrivelse2%>

<%End If Do While Not RsLink.EOF HttpAdresse = "" HttpVisTekst = "" HttpTekst = "" EmailAdresse = "" EmailVisTekst = "" EmailTekst = "" If RsLink("NejJaHttp") > 0 Then 'Anvend http adresse 'Find overskrift til httpadresse If RsLink("HttpTekst") <> "" Then HttpTekst = RsLink("HttpTekst") Else HttpTekst = "" End If 'URL If RsLink("Http") <> "" Then HttpAdresse = RsLink("Http") Else HttpAdresse = "" End If 'Teksten der skal vises for URL If RsLink("VisHttp") <> "" Then HttpVisTekst = RsLink("VisHttp") Else HttpVisTekst = HttpAdresse End If End If If RsLink("NejJaEmail") > 0 Then 'Anvend email adresse 'Find overskrift til emailadresse If RsLink("EmailTekst") <> "" Then EmailTekst = RsLink("EmailTekst") Else EmailTekst = "" End If 'URL If RsLink("Email") <> "" Then EmailAdresse = "mailto:" & RsLink("Email") Else EmailAdresse = "" End If 'Teksten der skal vises for URL If RsLink("VisEmail") <> "" Then EmailVisTekst = RsLink("VisEmail") Else EmailVisTekst = EmailAdresse End If End If %>

<%=HttpTekst%><%=HttpVisTekst%>

<%=EmailTekst%><%=EmailVisTekst%>

<% RsLink.MoveNext Loop If Trim(DBRefTekst) <> "" Then %>

<%=DBRefTekst%>

<% End If %> <% RsLink.Close End If End If %>