<% nyhetsbrev = "13" navn = "3/04" KFinfoserie = "uid=sa;pwd=kfmdb;Driver={SQL Server};database=KFInfoserie;Server=192.168.1.25" SMSKF = "uid=sa;pwd=kfmdb;Driver={SQL Server};database=SMSKF;Server=192.168.1.25" KFinfoserie = "uid=smskf;pwd=liver1pool;Driver={SQL Server};database=KFInfoserie;Server=192.168.1.118" SMSKF = "uid=smskf;pwd=liver1pool;Driver={SQL Server};database=SMSKF;Server=192.168.1.118" set cn = Server.CreateObject("ADODB.CONNECTION") cn.Open KFinfoserie sql = "SELECT RTRIM(Email + ';' + Navn + ';' + 'http://213.225.106.81/nyhet/nyhetsbrev" _ & nyhetsbrev & ".asp?ID=' + CONVERT(char, ID)) + ';' liste FROM nhb WHERE (Aksept = '1')" set rs = cn.execute(sql) strListe = "" do until rs.EOF strlist = strlist & "" rs.movenext loop cn.close set cn = nothing %> Nyhetsbrevliste test <%= strListe %>
" & rs("liste") & "