Extra felt?? kan ik rette kun oprette!!????
JEg har smidt et extra felt i min database og i min kode men den submitter ikke hvis jeg retter..!kun hvis jeg opretter.
ret.asp
<%Dim ID,opslag
id=Request.QueryString("ID")
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("../nyh73837.mdb")
if request.querystring("knap")<>"Ret" then
SQLstringK="SELECT * FROM jwnews WHERE id="&id
SET opslag=Connection.Execute(SQLstringK)
else
SQLstringK="UPDATE jwnews SET navn='"&Request.QueryString("navn")&"', email='"&Request.QueryString("email")&"', kommetare='"&Request.QueryString("kommetare")&"', url='"&Request.QueryString("url")&"' WHERE id="&id
Connection.Execute(SQLstringK)
response.buffer=true
response.clear
response.redirect "oversigt.asp"
response.end
end if
%>
<html>
<html>
<head>
<title>jwnews 1.0 ASP</title>
<link rel="stylesheet" href="../styles.css" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000" link="#006699" vlink="#006699" alink="#006699">
<p>
<table border="0" width="700" bgcolor="#000000" cellspacing="1" cellpadding="0" align="center">
<tr>
<td width="100%" bgcolor="#FFFFFF" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="3">
<tr bgcolor="#FFFFFF">
<td width="50%"><b>
<font face="Verdana, Arial, Helvetica, sans-serif" size="5">Admin
Login - Nyheder</font></b></td>
<td align="right" valign="bottom" nowrap width="50%">
<div align="right"></div>
</td>
</tr>
</table>
</td>
</tr>
</table>
<table border='0' cellspacing='0' cellpadding='0' width='700' align="center" height="19">
<tr>
<td width='1' valign='top' bgcolor='#000000'><img src="images/intet.gif" width='1'></td>
<td width='698' valign='top' bgcolor='#f7f7f7'>
<table width="100%" border="0" cellspacing="4" cellpadding="0" height="17">
<tr>
<td width="50%"><font face="Verdana, Arial, Helvetica, sans-serif"><b><font size="2"><a href="../index.asp">[
Hjem</a> </font><font face="Verdana, Arial, Helvetica, sans-serif"><b><font face="Verdana, Arial, Helvetica, sans-serif"><b><font size="2">|
</font></b></font></b></font><font size="2"><a href="../news.asp">Vis
Nyheder</a></font><font face="Verdana, Arial, Helvetica, sans-serif"><b><font face="Verdana, Arial, Helvetica, sans-serif"><b><font face="Verdana, Arial, Helvetica, sans-serif"><b><font size="2">
| <a href="login.asp" target="_self">Admin </a></font><font face="Verdana, Arial, Helvetica, sans-serif"><b><font face="Verdana, Arial, Helvetica, sans-serif"><b><font size="2">|
<a href="logoff.asp" target="_self">Log af</a></font></b></font></b></font><font size="2">
]</font></b></font></b></font></b></font></b></font></td>
</tr>
</table>
</td>
<td width='1' valign='top' bgcolor='#000000'><img src="intet.gif" width='1'></td>
</tr>
</table>
<table border="0" width="700" bgcolor="#000000" cellspacing="1" cellpadding="0" align="center">
<tr>
<td bgcolor="#FFFFFF" valign="top" colspan="2">
<div align="center"> <br>
<%if not opslag.eof then%>
<form method="GET" action="<%=request.servervariables("SCRIPT_NAME")%>">
<table width="400" border="0" cellspacing="1" cellpadding="3" class="bottom" align="center" bgcolor="#f7f7f7">
<tr>
<td width="134"><font size="2" face="tahoma">Tilføjet af<br>
<input type="text" name="navn" maxlength="100" class="bottom" value="<%=OPSLAG("navn")%>" size="20">
</font></td>
<td width="251"><font size="2" face="tahoma">Email<span class="rot"><br>
<input type="text" name="email" maxlength="100" class="bottom" value="<%=OPSLAG("email")%>" size="20">
</span></font></td>
</tr>
<tr>
<td colspan="2" height="167"><font size="2" face="tahoma"> Kommetare<span class="rot"><font color="#FFFFFF">
</font></span></font><font color="#FF0000" face="tahoma" size="2"><br>
</font> <font face="tahoma" size="2">
<textarea name="kommetare" cols="50" rows="8" class="bottom"><%=OPSLAG("kommetare")%></textarea>
</font></td>
</tr>
<tr>
<td colspan="2" height="47"><font size="2" face="tahoma"> Hjemmeside:</font>
<font face="tahoma" size="2"> <span class="rot">
<input type="text" name="url" maxlength="100" class="bottom" value="<%=OPSLAG("url")%>" size="20">
</span></font><font face="Verdana, Arial, Helvetica, sans-serif">
<font face=tahoma size=1>
U</font><font size=1>rl Tekst:</font><span class="rot"><font face=tahoma size=2><input type="text" name="url1" maxlength="100" class="bottom" size="15" value="<%=OPSLAG("url1")%>">
</font>
</span>
</font></td>
</tr>
</table>
<INPUT type="hidden" name="id" value="<%=opslag("id")%>">
<p><input type="submit" value="Ret" name="knap"><input type="reset" value="Nulstil" name="B2"></p>
</form>
<%end if%>
<br>
</div>
</td>
</tr>
</table>
</body>
</html>
add.asp
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("../nyh73837.mdb")
Conn.Open DSN
strSQL = "Select * from jwnews"
set rscount = conn.execute("select count(id) as antal from jwnews")
antal = rscount("antal")
set rscount = nothing
%>
<!--#include file=tjek.asp-->
<html>
<head>
<title>jwnews 1.0 ASP</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="../styles.css" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000" link="#006699" vlink="#006699" alink="#006699">
<table border="0" width="700" bgcolor="#000000" cellspacing="1" cellpadding="0" align="center">
<tr>
<td width="100%" bgcolor="#FFFFFF" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="3">
<tr bgcolor="#FFFFFF">
<td width="50%"><b>
<font face="Verdana, Arial, Helvetica, sans-serif" size="5">Admin
login - Nyheder</font></b></td>
<td align="right" valign="bottom" nowrap width="50%">
<div align="right"></div>
</td>
</tr>
</table>
</td>
</tr>
</table>
<table border='0' cellspacing='0' cellpadding='0' width='700' align="center" height="19">
<tr>
<td width='1' valign='top' bgcolor='#000000'><img src="images/intet.gif" width='1'></td>
<td width='698' valign='top' bgcolor='#f7f7f7'>
<table width="100%" border="0" cellspacing="4" cellpadding="0">
<tr>
<td width="50%"><font face="Verdana, Arial, Helvetica, sans-serif"><b><font size="2">
</font><font face="Verdana, Arial, Helvetica, sans-serif"><b><font size="2"><a href="../index.asp">[
Hjem</a> </font><font face="Verdana, Arial, Helvetica, sans-serif"><b><font face="Verdana, Arial, Helvetica, sans-serif"><b><font size="2">|
</font></b></font></b></font><font size="2"><a href="../news.asp">Vis
Nyheder</a></font><font face="Verdana, Arial, Helvetica, sans-serif"><b><font face="Verdana, Arial, Helvetica, sans-serif"><b><font face="Verdana, Arial, Helvetica, sans-serif"><b><font size="2">
| <a href="login.asp" target="_self">Admin </a></font><font face="Verdana, Arial, Helvetica, sans-serif"><b><font face="Verdana, Arial, Helvetica, sans-serif"><b><font size="2">|
<a href="logoff.asp" target="_self">Log af</a></font></b></font></b></font><font size="2">
]</font></b></font></b></font></b></font></b></font></b></font> </td>
<td width="50%">
<div align="right"><b><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Skrevet
nyheder: <b><%=antal%></b></font> <font face="Verdana, Arial, Helvetica, sans-serif" size="1"></font></b></div>
</td>
</tr>
</table>
</td>
<td width='1' valign='top' bgcolor='#000000'><img src="intet.gif" width='1'></td>
</tr>
</table>
<table border="0" width="700" bgcolor="#000000" cellspacing="1" cellpadding="0" align="center">
<tr>
<td bgcolor="#FFFFFF" valign="top" colspan="2">
<div align="center">
<p> <% mode = request("mode") %>
<%
Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../nyh73837.mdb") & ";UID=admin;PWD=;"
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From jwnews"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
%>
<% if mode ="" then %>
<form action="add.asp?mode=tilfojet" method="post">
<center>
<font face=tahoma size=2>
<div align="center">
<table width="400" border="0" cellspacing="1" cellpadding="3" class="bottom" align="center" bgcolor="#f7f7f7">
<tr>
<td width="134"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Dit
Navn <span class="rot"> <font color="#FF0000">*</font></span></font><br>
<input type="text" name="navn" maxlength="100" class="bottom" size="20">
</td>
<td width="251"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Email:</font><span class="rot"><br>
<input type="text" name="email" maxlength="100" class="bottom" size="20" value="clemen@helpmefast.dk">
</span></td>
</tr>
<tr>
<td colspan="2" height="167"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">
Kommetare<span class="rot"><font color="#FFFFFF"> <font color="#FF0000">*</font></font></span><font color="#FF0000">
</font></font><font color="#FF0000"><br>
</font>
<textarea name="kommetare" cols="50" rows="8" class="bottom"></textarea>
</td>
</tr>
<tr>
<td width="251"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Hjemmeside</font><span class="rot"><font face="Verdana, Arial, Helvetica, sans-serif"><br>
<input type="text" name="url" value="http://" maxlength="100" class="bottom" size="15">
</font></span></td>
</font>
<td width="251"><font face="Verdana, Arial, Helvetica, sans-serif">
<font face=tahoma size=1>
U</font><font size=1>rl Tekst</font><span class="rot"><font face=tahoma size=2><br>
<input type="text" name="url1" maxlength="100" class="bottom" size="15">
</font>
</span>
</font></td>
</tr>
<font face=tahoma size=2>
<tr>
<td colspan="2"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><span class="rot">
</span></font>
<table border="0" cellspacing="0" cellpadding="0" width="200">
<tr>
<td align="left">
<div align="left"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><span class="rot">
<font color="#FF0000">*</font></span><font color="#666666">
= Skal indtastes</font></font></div>
</td>
</tr>
</table>
</td>
</tr>
</table>
<br>
<b><font size="2" face="Verdana, Arial, Helvetica, sans-serif" class="mehr_platz">
</font></b> <br>
<table border="0" cellspacing="0" cellpadding="0" width="400">
<tr>
<td>
<div align="center"><font face="Verdana, Arial, Helvetica, sans-serif"><b>
<input type="Submit" value="Tilføj" name="Submit">
<input type="Reset" value="Slet Alt" name="Reset">
</b></font></div>
</td>
</tr>
</table>
<br>
</div>
</font>
</center>
<br>
</form>
<% end if %>
<% if mode ="tilfojet" then
rs.AddNew
rs("navn") = Request.form("navn")
rs("email") = Request.form("email")
rs("url") = Request.form("url")
rs("url1") = Request.form("url1")
rs("kommetare") = Request.form("kommetare")
rs("dato") = date()
rs("kl") = time()
rs("Ip") = Request.ServerVariables("REMOTE_ADDR")
rs.Update
%>
<p class="menuoverskrift2">Nyheden er blevet tilføjet.<br>
<br>
<font face="Verdana, Arial, Helvetica, sans-serif"><b><font face="Verdana, Arial, Helvetica, sans-serif"><b><font face="Verdana, Arial, Helvetica, sans-serif"><b><font size="2">Menu:
<br>
<a href="add.asp">Tilføj Nyhed</a><br>
<a href="oversigt.asp">Ret/Slet Nyhed</a></font></b></font></b></font></b></font> </p>
<p><span class="skriftype"></span><br>
<br>
<% end if %></p></div>
</td>
</tr>
</table>
</body>
</html>
