<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/crm.mdb")
Conn.Open DSN
%>
<%
if Request.ServerVariables("REQUEST_METHOD") <> "POST" then
set rskunder = Conn.execute("SELECT * FROM udvalg WHERE id=" & request("id"))
%>
<body bgcolor="#FFFFFF">
<font face="Verdana, Arial, Helvetica, sans-serif"></font><table width="962" border="0" height="84">
<tr>
<td width="553" height="90">
<table width="54%" border="0" height="1" bgcolor="#000000" bordercolor="#000000" cellpadding="1" cellspacing="1">
<tr>
<td height="54" bgcolor="#CCCCCC">
<table width="546" border="0" cellspacing="0">
<tr>
<td colspan="2"> <b><font size="4"><font face="Verdana, Arial, Helvetica, sans-serif">
<%Response.Write rskunder("udvalgsnavn")%>
</font> </font></b> <b><font size="4"><font face="Verdana, Arial, Helvetica, sans-serif">
</font></font></b> <font face="Verdana, Arial, Helvetica, sans-serif" size="1">
</font> <font face="Verdana, Arial, Helvetica, sans-serif" size="1">
</font></td>
<td width="77"> <font face="Verdana, Arial, Helvetica, sans-serif" size="1">
</font></td>
</tr>
<tr>
<td width="55"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
Beskrivelse.:</font></td>
<td><font face="Verdana, Arial, Helvetica, sans-serif" size="2">
<%Response.Write rskunder("udvalgsbeskrivelse")%>
</font></td>
<td width="77"> </td>
</tr>
<tr>
<td width="55"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
Ansvarlige.:</font></td>
<td width="437">
<div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">
<%Response.Write rskunder("ansvarlige")%>
</font></div>
</td>
<td width="77"> </td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td width="399" height="90">
</td>
</tr>
</table>
<p>
</p>
<font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b>Kunder
</b></font><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b></b></font> <br>
<form name="form1" method="post" action="udvalgskort.asp?mode=gem">
<table width="913" border="0" height="1">
<tr>
<td height="1" bgcolor="#000000" bordercolor="#000000">
<% Set rsList = Conn.execute("SELECT kundeID FROM [udvalgs-kunder] WHERE udvalgsid = " & request("id") & "")
kundeIDlist = ","
do while not rsList.EOF
kundeIDlist = kundeIDlist & rsList("kundeID") & ","
rsList.Movenext
loop
rsList.Close
Set rsList = Nothing
set rskunder = Conn.execute("SELECT * FROM kunder")
do until rskunder.eof%>
<table width="85%" border="0" height="1" bgcolor="#CCCCCC" bordercolor="#CCCCCC">
<tr>
<td height="1" bgcolor="#CCCCCC">
<table width="904" border="0" cellspacing="1" bordercolor="#CCCCCC" bgcolor="#CCCCCC" height="20">
<tr bordercolor="1">
<td width="165" height="14">
<div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
<input type="checkbox" name="C1" value="<%=rskunder("kundeID")%>"
<% if inStr(1, kundeIDlist, ","&rskunder("kundeID")&",") > 0 then
Response.Write " checked"
end if %>
>
<%Response.Write rskunder("Firmanavn")%>
</font></a></div>
</td>
<td width="148" height="14"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
<%Response.Write rskunder("Adresse")%>
</font></a></td>
<td width="206" height="14"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
<%Response.Write rskunder("Postnr")%>
</font></td>
<td width="121" height="14"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
<%Response.Write rskunder("By")%>
</font></td>
<td width="121" height="14"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
<%Response.Write rskunder("kundeid")%>
</font></td>
</tr>
</table>
</td>
</tr>
</table>
<%
rskunder.movenext
loop
rskunder.Close
set rskunder = Nothing
%>
</td>
</tr>
</table>
<p><input type="hidden" value="<%=request("id")%>" name="udvalgID">
<input type="submit" value="gem" name="mode"><input type="reset" value="Nulstil" name="B2"></p>
</form>
<% end if %>
<% if request("mode") = "gem" then
set rs = server.createobject("adodb.recordset")
set rskunder = server.createobject("adodb.recordset")
'Sæt udvalgsid=0 for at få et tomt rs.
rskunder.open "SELECT * FROM [udvalgs-kunder] WHERE udvalgsid=0", Conn, 1, 3
kundeIDlist = Request.Form("C1")
udvalgID = Request.Form("udvalgID")
kundeIDlistArr = Split(kundeIDlist, ",")
for i = lbound(kundeIDlistArr) to ubound(kundeIDlistArr)
SQL = "SELECT * FROM kunder WHERE kundeID = " & kundeIDlistArr(i)
Set rs = Conn.Execute(SQL)
if NOT rs.EOF then
rskunder.addnew
rskunder("udvalgsid") = udvalgID
rskunder("kundeid") = kundeIDlistArr(i)
rskunder("kundenavn") = rs("Firmanavn")
rskunder("adresse") = rs("adresse")
rskunder("post") = rs("postnr")
rskunder("by") = rs("by")
rskunder.update
end if
next
%>
<%
rskunder.Close
set rskunder = Nothing
rs.Close
set rs = Nothing
%>
Projektet er gemt - <a href="udvalgsprojekt.asp">Tilbage</a>
<%end if%>
Ny bruger
Nybegynder
Opret
Preview
