% 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) %>
<%=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 %> <% End If %> <% RsLink.Close End If End If %>