Updatere et kursus

Dette er den side informationerne kommer fra :

<% Response.Expires = -1 %>
<html>
<head>
<title>Ny side 1</title>
</head>
<body>
<%

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("Database.mdb")

TheId = Trim(Request.QueryString("id"))

strSQL = "SELECT * FROM kursus Where Id = " & Request.querystring("id")
Set rs = conn.Execute(strSQL)
  %>
<div align="left">
  <table border="0" width="100%" height="204">
    <tr>
      <form method="POST" action="Kursus_Rediger_Handler.asp?id=<% Request.Querystring("id") %>">
      <td width="24%" height="25" bgcolor="#C0C0C0"><b><font size="1" face="Verdana">Kursus</font></b></td>
      <td height="25">
        <input type="text" name="Kursus" size="32" value="<%=rs("Kursus")%>"></td>
    </tr>
    <tr>
      <td width="24%" height="62" valign="top" bgcolor="#C0C0C0"><b><font face="Verdana" size="1">Kursus Beskrivelse</font></b></td>
      <td height="62">
        <p><textarea rows="9" name="kursus_beskrivelse" cols="30"><%=rs("Kursus_beskrivelse")%></textarea></p>
      </td>
    </tr>
    <tr>
      <td width="24%" height="20" bgcolor="#C0C0C0"><b><font size="1" face="Verdana">Pris</font></b></td>
      <td height="20"><input type="text" name="Pris" size="20" value="<%=rs("Pris")%>"></td>
    </tr>
    <tr>
      <td width="24%" valign="top" align="left" height="27" bgcolor="#C0C0C0">
        <b><font face="Verdana" size="1">Kursus Dato</font></b></td>
      <td height="20">
        <input type="text" name="Dato" size="20" value="<%=rs("Dato")%>"></td>
    </tr>
    <tr>
      <td width="24%" valign="top" align="left" height="27" bgcolor="#C0C0C0"> </td>
      <td height="27">
        <p>
        <input type="submit" value="Opdater Produkt" style="font-family: Verdana; font-size: 10px; font-weight: bold"></p>
      </td>
    </tr>
    </table>
  </form>
</div>
<%
conn.Close
Set conn = nothing
Set strSQL = nothing
%>
</body>
</html>

hmm .. umiddelbart et hurtigt kig gennem koden siger mig at du skal fjerne sidste " i din update-sætning:

strSQL = "Update kursus set "
strSQL = strSQL & "Navn='" & replace(request.form("kursus"),"'","''") & "', "
strSQL = strSQL & "Beskrivelse='" & replace(request.form("Kursus_beskrivelse"),"'","''") & "', "
strSQL = strSQL & "Pris='" & replace(request.form("pris"),"'","''") & "', "
strSQL = strSQL & "Tema='" & replace(request.form("Tema"),"'","''") & "', "
strSQL = strSQL & "Dato='" & replace(request.form("Dato"),"'","''") & "', "
strSQL = strSQL & " Where Id = " & Request.querystring("id")

Ikke komma før where. Ret
strSQL = strSQL & "Dato='" & replace(request.form("Dato"),"'","''") & "', "
til
strSQL = strSQL & "Dato='" & replace(request.form("Dato"),"'","''")

Er det ikke dejligt at Access ved en masse mere om fejlen og hvor den er, men
ikke gider fortælle dig det?

Ups. Ret til
strSQL = strSQL & "Dato='" & replace(request.form("Dato"),"'","''") & "' "

det kan også være en kombo af mit og erik's  ;o)

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'Id ='.

/tradeart/Kursus_Rediger_Handler.asp, line 14

Ikke noget af det virkedes

det er din form...
<form method="POST" action="Kursus_Rediger_Handler.asp?id=<% Request.Querystring("id") %>">
skal være
<form method="POST" action="Kursus_Rediger_Handler.asp?id=<%=Request.Querystring("id") %>">

Formoder at denne linie skal rettes
      <form method="POST" action="Kursus_Rediger_Handler.asp?id=<% Request.Querystring("id") %>">
Til:
      <form method="POST" action="Kursus_Rediger_Handler.asp?id=<%=Request.Querystring("id") %>">

Den er rettet, virker heller ikke

Har du rettet alle de ting, der er påpeget?
Hvad får du af fejl nu ?

hehe... var sq ikk hurtig nok :-)

nope ;o)

Microsoft OLE DB Provider for ODBC Drivers error '80040e10'

[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 2.

/tradeart/Kursus_Rediger_Handler.asp, line 14

Der er intet input med navnet Tema?

Prøv lige at sætte en

response.write strSQL

ind lige før

Conn.Execute (strSQL)

Så kan du se om din string er korrekt i forhold til dine feltnavne
Desuden skal du sikre dig at der ikke er nogen databasefelter der er talfelter, for så skal der ikke ' om

Nej det er fordi det er en vælge menu http://www.pivskid.dk/tradeart/kursus_opret.asp

Det er jo under opret, er vi ikke igang med rediger siden?

hehe

1. hvis det er en <option> er der vel ikke grund til at replace
2. den skal med, når du nu laver replacen

www.pivskid.dk/tradeart/her.rar

det hele samlet i en pakke :)

hvad skal vi med "opret_kursus" ???

det var bare det hele, så ikke kunne kigge og se om der er noget der skulle rettes

du har kun laget kursus_opret i og det er altså nemmest, hvis du poster det herinde..

Kursus_Opret.asp til at oprette kursus i
Kursus.asp til at se dem med
Kursus_List.asp bruges i sammenhæng med redigering
Kursus_Rediger.asp siden hvor man redigere tingene
Kursus_Rediger_Handler.asp den der udføre handlingen
Kursus_Slet_Handler.asp bruges til at slette et kursus med
Og dertil, den tilhørende DB

den fil jeg henter ned indeholder kun kursus_opret.asp
- jeg står af her

kunne jeg se pis

www.pivskid.dk/tradeart/Kursus_opret.asp

Sådan ser oprettelses side ud.

www.pivskid.dk/tradeart/Kursus_List.asp

Sådan ser redigere / slet siden ud

Hvilke sider skal bruges ?

Du har jo slet ikke "tema med.. denne skal jo derfor ikke opdateres:

strSQL = "Update kursus set "
strSQL = strSQL & "Navn='" & replace(request.form("kursus"),"'","''") & "', "
strSQL = strSQL & "Beskrivelse='" & replace(request.form("Kursus_beskrivelse"),"'","''") & "', "
strSQL = strSQL & "Pris='" & replace(request.form("pris"),"'","''") & "', "
strSQL = strSQL & "Dato='" & replace(request.form("Dato"),"'","''") & "'"
strSQL = strSQL & " Where Id = " & Request.querystring("id")

arbejder ikke længere med siden