add nyhed og ret nyhed

hey jeg har lavet mit ejet nyheds system men jeg syntes ik rigtigt min add kode er så god :( så jeg skal have fat i en ny og så vil jeg have at man kan rette nyhedderne i et felt jeg har det sådan som jeg vil have det i asp men det kan jeg ik rigtigt bruge :(( snøft men måske nogen kan både asp og php så jeg skriver lige sourcen til min asp koder her

add nyhed koden:
<%
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
   
' Open your connection to the database as conn
' The (id, name) part is the name of the fields in the database
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; Dbq=C:\simon\wwwroot\eye-server\nyheder.mdb; uid=; pwd=;"

prefixSQL = "Insert into nyheder (Navn, Emne, besked, [E-mail], ip"
suffixSQL = "values ('" & request.form("navn") & "','" & request.form("emne") & "','" & request.form("besked") & "','" & request.form("E-mail") & "','" & request.form("ip") & "'"

if isdate(request.form("dato")) then
  prefixSQL = prefixSQL & ",dato) "
  suffixSQL = suffixSQL & ",#" & request.form("dato") & "#)"
else

end if
SQL = prefixSQL & suffixSQL
conn.execute(SQL)
conn.Close
  'sender os tilbage til start siden
  response.redirect("index.asp")
end if
%>

og min ret nyhed source:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; Dbq=C:\simon\wwwroot\eye-server\nyheder.mdb; uid=; pwd=;"

if Request.ServerVariables("REQUEST_METHOD") = "POST" then
  'Enten slet eller opdataer valgt via checkbox "Slet"
  FFnyhedsID = Clng(Request.Form("FFnyhedsID"))
  if Request.Form("slet") = "slet" then
    strSQL = "DELETE FROM nyheder WHERE ID = " & FFnyhedsID
  else
    strSQL = "UPDATE nyheder SET "
    strSQL = strSQL & "navn = '" & Request.Form("navn") & "', "
    strSQL = strSQL & "besked = '" & Request.Form("besked") & "', "
    strSQL = strSQL & "emne = '" & Request.Form("emne") & "', "
    strSQL = strSQL & "[e-mail] = '" & Request.Form("e-mail") & "', "
    'strSQL = strSQL & "dato = #" & Request.Form & "#, "
    strSQL = strSQL & "ip = '" & Request.Form("ip") & "' "
    strSQL = strSQL & " WHERE ID = " & FFnyhedsID
  end if
  conn.Execute(strSQL)
  conn.Close
 
  'Redirect her
  if Request.Form("slet") = "slet" then
    Response.Redirect("retnyhed.asp")  'Til side, ved sletning
  else
    Response.Redirect("index.asp")  'Til side, ved rettelse
  end if 
end if

strSQL = "SELECT * FROM nyheder;"
set rs = conn.Execute (strSQL)

if not rs.EOF then

do while not rs.EOF

%>

måske det kan hjælpe lidt