Gemme information i DB
<!-- #include file = "meny.asp" --><table width="677" border="1" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF" bordercolor="#FFFFFF">
<tr>
<td height="20" background="bilder/ruta_bak.gif"><div align="center">
<strong><font size="1">Profiltekst & Profilbillede </font></strong></div></td>
</tr>
<tr>
<td bgcolor="f0f0f0">
<form name="form1" method="post" action="install.asp?action=spara">
<font size="1">
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("databas/databas.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM anv where id='"&session("id")&"'"
rs.Open Addera, Connect, 3, 3
if request.QueryString("action")="spara" then
rs("info") = request.form("info")
if request.form("bild")&"" = "" then
rs("bild")=request.form("radiobutton")
else
rs("bild")=request.form("bild")
end if
rs("farg")=request.form("farg")
rs.update
response.Redirect "install.asp"
end if
%>
</font>
<div align="center"><font size="1"><br>
Min info <br>
<textarea name="info" cols="40" rows="5"><%=rs("info")%></textarea>
<br>
</font>
</div>
<div align="center"> </div>
<div align="center"><font size="1">Adresse til profilbillede<br>
<input name="bild" type="text" value="<% if left(rs("bild"),6)<>"bilder" then %><%=rs("bild")%><% end if %>" size="60">
</font>
</div>
<div align="center"> </div>
<div align="center"><font size="1">Der vil snart komme så du kan ligge dit eget billede
ud! (:</font></div>
<div align="center"> </div>
<div align="center"><font size="1">Humor<br>
<input name="humor" type="text" value="<%=rs("humor")%" size="60">
<br>
<br>
<input type="submit" name="Submit" value="Gem">
</font>
</div>
</form>
<font size="1">
<br> </font> </td>
</tr>
</table>
<font size="1">
<br>
<br>
Sådan ser min kode ud.. Jeg har selv prøvet at lave det med Humør ( humor ) men den gemmer ikke informationerne i databasen, når jeg klikker gem! Hvorfor?
