<%@ LANGUAGE="VBSCRIPT" %> <% Response.Buffer = True %> <% Sub GoSomeWhere Response.Redirect("afvist.htm") End Sub If GetHttp() = "OK" Then ByRefId = GetByRefId() If ByRefId <> "" Then SQL = "Select * From Byer Where " & ByRefId & " Order By ById" Set Rs = dba.Execute(SQL) If Rs.EOF = False And Rs.BOF = False Then Session("ByNavn") = "" Session("BySQL") = ByRefId Do While Not Rs.EOF If Session("ByNavn") = "" Then Session("ByNavn") = Session("ByNavn") & Trim(Rs("ByNavn")) Else Session("ByNavn") = Session("ByNavn") & ", " & Trim(Rs("ByNavn")) End If Rs.MoveNext Loop Response.Redirect("kalendlh.asp") Else GoSomeWhere End If Else GoSomeWhere End If Else GoSomeWhere End If %> Page not found