hjælp til mit retnyhed.asp

jeg har dette script

retnyhed.asp


<!-- #include file="databaseforbindelse.asp" -->

<%
Id = Request.Form ("id")
Tabelnavn = "nyhed"

If Request.ServerVariables("CONTENT_LENGTH") <> 0 Then ' Opdatering
  sql="update nyhed set nyhed='" & request.form("nyhed") & "' where id="& request.form("id")
  conn.execute(sql)
  response.redirect "../default.asp?emne=admin"
Else
  Id = Request.QueryString ("id")
' ** Inserted by Jon Brohauge 2002/08/02
' ** Hvis der ikke er specificeret et id, så vis liste over alle nyheder sorteret efter dato, nyest først.
  If Id = 0 Then
' ** Vis nyhedsliste
  Set rs=Conn.Execute ("Select * from " & Tabelnavn & " WHERE emne LIKE '%nyhed'")
%>

<center>
<br>
<table cellspacing=0 border=0 cellspacing="0" cellpadding="5" width=320>
<tr>
  <td class="green"><b>Dato:</b></td>
  <td class="green"><b>Nyheder:</b>  </td>
  <td class="green"><b>Ret/Slet:</b>
  </td>
</tr>
<%
  If not(rs.bof or rs.eof) Then
    while not(rs.eof)
%>
<tr>
  <td class="menutxt"><%=rs("dato")%>&nbsp;</td>
  <td class="menutxt"><%=rs("nyhed")%>&nbsp;</td>
  <td class="menutxt"><a href="admin/retnyhed.asp?id=<%=rs("id")%>">Ret</a> / <a href="sletny.asp?id=<%=rs("id")%>">Slet</a>
  </td>
</tr>
<%
      rs.movenext
    wend
  Else
    Response.Write "Ingen nyheder at rette"
  End If
%>
</table>


<%
  Else
' ** Vis valgte nyhed
  Set rs=Conn.Execute ("Select * from " & Tabelnavn & " Where id=" & Id & "")
%>

<center>

<table cellspacing=0 border=1 cellspacing="0" cellpadding="5" width=320>
<Form Action=retnyhed.asp method="post">
<tr>
  <td colspan=2 height=20  width="310" class="green"><b>Ret Nyhed:</b>
  </td>
</tr>
<tr>
  <td width="64" valign="top" class="green">Tekst:</td>
  <td align=right width="236"><textarea rows="15" name="nyhed" cols="29"><%=rs("nyhed")%></textarea></td>
</tr>
<tr>
  <td colspan=2 width="310" align="right" class="green"><Input type="submit" Value="Ret"></td>
</tr>
<input type="hidden" name="id" value="<%=Id%>">
</form>
</table>

<%
  End If
End If
%>

som jeg bruger til at rette min nyheds database del med.


jeg vil gerne have denne fil lagt i en mappe som hedder admin + jeg lægger også databaseforbindelse.asp i sammen mappe for at connete til min database


databaseforbindelse.asp


<%
Response.Expires = 0
Response.Expiresabsolute = DateAdd("d", -2, Now())
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "private"

' ** Changed by Jon Brohauge 2002/08/02
' ** Jeg har ændret i stien STRDBNAVN, da mit system ikke ville godtage sti-formatet: ../xx.mdb
' ** Det har noget med sikkerheden at gøre. Det kan være at du skal ændre på stien igen.

STRDBNAVN="../xx.mdb" 'her tilføjes databasen navn
DSN = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""& STRDBNAVN & "") 
Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.Open DSN
%>

ude på min website htpp://remo.lir.dk/kps kommer der en fejl 500.


Hvem kan hjælpe mig.