rs.update - en database fil - HJÆLP
<% if mode = "profil" thenSet Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("user.mdb")
sql = "select * from user_profile where ID = '" & Session("ID") & "'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql, conn, 1, 3
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
'Opdaterer felterner
rs.update
rs("Brugernavn") = Request.form("Brugernavn")
rs("Brugerkode") = Request.form("Brugerkode")
rs("Fornavn") = Request.form("Fornavn")
rs("Efternavn") = Request.form("Efternavn")
rs("By") = Request.form("By")
rs("Koen") = Request.form("Koen")
rs("Fritekst") = Request.form("Fritekst")
rs("mail_adresse") = Request.form("mail_adresse")
rs("Icq") = Request.form("Icq")
rs("Msn") = Request.form("Msn")
rs("Hjemmeside") = Request.form("Hjemmeside")
rs.update
end if
%>
<form method="post" action="default.asp?cmd=profil" style="margin:0px;">
<table border="0" cellspacing="0" cellpadding="0" width="100%">
<tr>
<td class="index_txt">Brugernavn</td>
<td class="index_txt"><input type="text" name="Brugernavn" value="<%=rs("Brugernavn")%>"></td>
</tr>
<tr>
<td class="index_txt">Brugerkode</td>
<td class="index_txt"><input type="text" name="Brugerkode" value="<%=rs("Brugerkode")%>"></td>
</tr>
<tr>
<td class="index_txt">Fornavn</td>
<td class="index_txt"><input type="text" name="Fornavn" value="<%=rs("Fornavn")%>"></td>
</tr>
<tr>
<td class="index_txt">Efternavn</td>
<td class="index_txt"><input type="text" name="Efternavn" value="<%=rs("Efternavn")%>"></td>
</tr>
<tr>
<td class="index_txt">By</td>
<td class="index_txt"><input type="text" name="By" value="<%=rs("By")%>"></td>
</tr>
<tr>
<td class="index_txt">Køn</td>
<td class="index_txt"><input type="text" name="koen" value="<%=rs("koen")%>"></td>
</tr>
<tr>
<td class="index_txt">Fritekst</td>
<td class="index_txt"><input type="text" name="Fritekst" value="<%=rs("Fritekst")%>"></td>
</tr>
<tr>
<td class="index_txt">E-mail</td>
<td class="index_txt"><input type="text" name="mail_adresse" value="<%=rs("mail_adresse")%>"></td>
</tr>
<tr>
<td class="index_txt">Icq</td>
<td class="index_txt"><input type="text" name="Icq" value="<%=rs("Icq")%>"></td>
</tr>
<tr>
<td class="index_txt">Msn</td>
<td class="index_txt"><input type="text" name="Msn" value="<%=rs("Msn")%>"></td>
</tr>
<tr>
<td class="index_txt">Hjemmeside</td>
<td class="index_txt"><input type="text" name="Hjemmeside" value="<%=rs("Hjemmeside")%>"></td>
</tr>
<tr>
<td class="index_txt"> </td>
<td class="index_txt"><input type="submit" value="Opdater"></td>
</tr>
</table>
</form>
<%
' og for god ordens skyld lukker vi lige for databaseorbindelsen
Conn.Close
Set Conn = Nothing
end if %>