<%@ Language=VBScript %> <% 'Finner side pg=request.querystring("pg") if pg="" then pg=1 sql = "select * from v_logg" cnstring = "uid=sa;pwd=kfmdb;Driver={SQL Server};database=KFinfoserie;Server=192.168.1.25" cnstring = "uid=smskf;pwd=liver1pool;Driver={SQL Server};database=KFInfoserie;Server=192.168.1.118" set cn = server.CreateObject("ADODB.CONNECTION") set rs1 = server.createobject("ADODB.Recordset") cn.Open cnstring rs1.activeconnection=cn rs1.cursortype=3 rs1.pagesize=50 'Response.write sql rs1.Open sql rs1.absolutepage=pg %> Logg Datavask  

Nedenfor følger resultat av siste datavask:

<% i=0 do until rs1.eof or i>rs1.pagesize i=i+1 %> > <% rs1.movenext loop %>
Operasjon Antall Dato
<%= rs1("operasjon")%> <%= rs1("antall")%> <%= rs1("dato")%>

<% sql = "select count(*) antall from nhb where aksept = 1 union select count(*) antall from nhb where aksept = 0 order by antall desc" set rsAnt = cn.execute(sql) Response.write("Antall påmeldte nyhetsbrev: " & rsAnt("antall") & "
") rsAnt.Movenext() Response.write("Antall avmeldte nyhetsbrev: " & rsAnt("antall") & "
") set cn = nothing %>