ikke noget.. den retter bare ikke i teksten...
<%
' ADODB connection objektet
Set Conn = Server.CreateObject("ADODB.Connection")
' Husk at angive den rigtige sti til din database
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/crm.mdb")
' Åben databaseforbindelsen
Conn.Open DSN
%>
<% set rskunder = Conn.execute("SELECT * FROM Kontakpersoner WHERE kontaktpersonid=" & request("kontaktpersonid"))
%>
<body bgcolor="#FFFFFF">
<table width="962" border="0" height="257">
<tr>
<td width="553" height="263" valign="top">
<form name="form1" method="post" action="nyKontaktpersonkort.asp?mode=gem">
<table width="53%" border="0" height="130" bgcolor="#000000" bordercolor="#000000" cellpadding="1" cellspacing="1">
<tr>
<td height="220" bgcolor="#CCCCCC">
<table width="507" border="0" cellspacing="0">
<tr>
<td colspan="7" height="21"> <b><font size="4"><font face="Verdana, Arial, Helvetica, sans-serif">
<input type="text" name="Navn" maxlength="50" size="37" value="<%Response.Write rskunder("Navn")%>">
</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"><b><font size="4"><font face="Verdana, Arial, Helvetica, sans-serif">
<input type="text" name="Efternavn" maxlength="50" size="37" value="<%Response.Write rskunder("Efternavn")%>">
</font></font></b> </font> <font face="Verdana, Arial, Helvetica, sans-serif" size="1">
</font></td>
</tr>
<tr>
<td width="136" height="21"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Titel.:</font></td>
<td colspan="2" height="21"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
<input type="text" name="Titel" size="20" value="<%Response.Write rskunder("Titel")%>">
</font></td>
<td width="47" height="21"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Notat.:</font></td>
<td colspan="3" rowspan="5" valign="top"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
<textarea name="notat" rows="8" cols="20"><%Response.Write rskunder("notat")%></textarea>
</font></td>
</tr>
<tr>
<td width="136" height="21"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Direkte
Telefon:</font></td>
<td colspan="2" height="21">
<div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
<input type="text" name="direkte telefon" size="20" value="<%Response.Write rskunder("Direkte Telefon")%>">
</font></div>
</td>
<td width="47" height="21"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"></font></td>
</tr>
<tr>
<td width="136" height="21"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Direkte
Fax:</font></td>
<td colspan="2" height="21"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
<input type="text" name="direkte fax" size="20" value="<%Response.Write rskunder("Direkte Fax")%>">
</font></td>
<td width="47" height="21"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"></font></td>
</tr>
<tr>
<td width="136" height="21"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Mobil.:</font></td>
<td colspan="2" height="21"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
<input type="text" name="Mobil" size="20" value="<%Response.Write rskunder("mobil")%>">
</font></td>
<td width="47" height="21"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"></font></td>
</tr>
<tr>
<td width="136" height="21"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Email.:</font></td>
<td colspan="2" height="21"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
<input type="text" name="email" size="20" value="<%Response.Write rskunder("Email")%>">
</font></td>
<td width="47" height="21"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"></font></td>
</tr>
<tr>
<td width="136" height="19"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Fødselsdato.:</font></td>
<td colspan="2" height="19"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
<input type="text" name="født" size="20" value="<%Response.Write rskunder("fødselsdato")%>">
</font></td>
<td width="47" height="19"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"></font></td>
<td width="189" height="19"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
</font></td>
<td colspan="2" height="19" width="14"> </td>
</tr>
</table>
</td>
</tr>
</table>
<table width="546" border="0">
<tr>
<td width="73" height="2"><b>
<Input type=submit Value=Tilføj>
<input type=hidden name=mode value=gem></b></td>
<td width="463" height="2"><b></b></td>
</tr>
</table>
<p> </p>
</form>
<p> </p>
<p> </p>
<p> </p>
</td>
</tr>
</table>
<p>
</p>
<% 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 "kontakpersoner", DSN, 1, 3
rskunder("Navn") = request.form("Navn")
rskunder("efternavn") = request.form("efternavn")
rskunder("titel") = request.form("titel")
rskunder("Direkte telefon") = request.form("direkte telefon")
rskunder("direkte fax") = request.form("direkte fax")
rskunder("mobil") = request.form("mobil")
rskunder("email") = request.form("email")
rskunder("fødselsdato") = request.form("født")
rskunder("notat") = request.form("notat")
rskunder.update
%>
<%
rskunder.Close
set rskunder = Nothing
end if
%>
