Opdatering af tabel
HejJeg har et kunde system i ASP hvor jeg lige har lavet noget nyt til, men jeg kan sgu ikke helt få det til at virke!!!
Jeg henter et bestemt UDVALG hvor jeg så bagefter henter alle mine kunder, nu har jeg lavet en chekcboks ud for hver kunde, de kunder der er krydset af, skal gemmes i en ny tabel med udvalgsid, kundeid, firmanavn, adresse, post og by..
Men hvordan gemmer jeg noget tekst fra siden, jeg har kun prøvet fra form felter.... Nedenstående er min kode
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/crm.mdb")
Conn.Open DSN
%>
<% 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>
<div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">
<%Response.Write rskunder("id")%>
</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 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="ON">
<%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="submit" value="gem" name="mode"><input type="reset" value="Nulstil" name="B2"></p>
</form>
<% if request("mode") = "gem" then
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/crm.mdb")
Conn.Open DSN
set rskunder = server.createobject("adodb.recordset")
rskunder.open "udvalgs-kunder", DSN, 1, 3
rskunder.addnew
rskunder ("udvalgsid") = request.form("id")
rskunder("kundeid") = request.form("kundeid")
rskunder("kundenavn") = request.form("kundenavn")
rskunder("adresse") = request.form("adresse")
rskunder("post") = request.form("post")
rskunder("by") = request.form("by")
rskunder.update
%>
<%
rskunder.Close
set rskunder = Nothing%>
Projektet er gemt - <a href="projektoversigt.asp">Tilbage</a><%end if%>
