<%@ Language=VBScript %> <% dim cn dim cmd dim ncmd dim id dim sql dim scr dim win 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") cn.Open cnstring cmd=request.querystring("cmd") id=request.querystring("") sql=request.querystring dir=request.querystring("dir") if cmd = "" then cmd="new" ncmd="ins" elseif cmd="get" then sql="SELECT ID, userNo, Navn, Firma, Email, Aksept, DateCreated, telefon, mobil FROM nbrev where id=" & request.querystring("id") sql=ddQuery(sql,cn) 'response.write sql response.redirect "nbreg.asp?cmd=chg&" & sql elseif cmd="chg" then ncmd="upd" elseif cmd="upd" or cmd="ins" or cmd="del" then if cmd="ins" then sql = dbCmd(sql,"ins") ncmd="ins" elseif cmd="upd" then sql = dbCmd(sql,"upd") ncmd="upd" else sql=dbCmd(sql,"del") ncmd="upd" end if if left(sql,3) <> "err" then response.write sql 'cn.execute(sql) if cmd="upd" then win="window.opener.location.reload();" elseif cmd="ins" then if dir="P" then win="window.opener.location.reload();" else win="window.opener.parent.main.location.href='tjenestekat.asp'" end if else win="window.opener.parent.location.href='tjenestekat.asp'" end if ' scr = "" end if elseif cmd="cls" then scr = "" end if if cmd="new" then 'ansvarlig=session("userid") else 'ansvarlig=request.querystring("n_ansvarlig") end if 'response.write sql 'scr="" %> Registrere data <%=scr%> Rediger mottaker av nyhetsbrev

"> ">
Navn " maxlength="100">
Firma " maxlength="100">
email " maxlength="100">
Telefon " maxlength="100">
Mobil " maxlength="100">

<% if cmd<>"new" then %>     <% end if %>