Hurtigt hjælp til Update database

Evt på ICQ: 259566168

Prøv det her:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("Database.mdb")
Conn.Open DSN
strSQL = "SELECT * FROM Min tabel her Where Id = " & Request.Querystring("id")
Set rs = Conn.Execute(strSQL)

%>
     
</font></p><form action="Updateminpostsidenher.asp?id=<%=rs("id")%>" method="post"><div align="center">
  <center>
<table border="1" width="500" cellspacing="0" cellpadding="2" id="table1" bordercolor="#003265">
  <tr>
    <td width="100%" style="border: 1 solid #000000" bgcolor="#003265">
    <font face="verdana" size="1" color="#FFFFFF"><b>Redigere:</b> <%=rs("Dato")%>
    |<b>Indlæg nr:</b> <%=rs("id")%></font></td>
  </tr>
  <tr>
    <td width="100%" style="border-left: 1 solid #000000; border-right: 1 solid #000000; border-bottom: 1 solid #000000" bgcolor="#003265">
      <table border="0" width="100%" cellpadding="0" id="table2">
        <tr>
          <td width="16%"><b><font face="verdana" size="1" color="#FFFFFF">Navn</font></b></td>
          <td width="84%"><font color="#FFFFFF" face="verdana" size="1">
    <input type="text" name="Navn" size="62" style="font-size: 8pt; font-family: Verdana; border: 1 solid #000000" value="<%=rs("Navn")%>"></font></td>
        </tr>
        <tr>
          <td width="16%"><b><font face="verdana" size="1" color="#FFFFFF">Klub</font></b></td>
          <td width="84%"><font color="#FFFFFF" face="verdana" size="1">
    <input type="text" name="Klub" size="62" style="font-size: 8pt; font-family: Verdana; border: 1 solid #000000" value="<%=rs("Klub")%>">
            </font>
          </td>
        </tr>
        <tr>
          <td width="16%"><b><font face="verdana" size="1" color="#FFFFFF">Email</font></b></td>
          <td width="84%"><font color="#FFFFFF" face="verdana" size="1">
    <input type="text" name="Email" size="62" style="font-size: 8pt; font-family: Verdana; border: 1 solid #000000" value="<%=rs("Email")%>">
            </font>
          </td>
        </tr>
        <tr>
          <td width="16%"><b><font face="verdana" size="1" color="#FFFFFF">Hjemmeside</font></b></td>
          <td width="84%">
          <font color="#FFFFFF" face="verdana" size="1">
    <input type="text" name="Hjemmeside" size="62" style="font-size: 8pt; font-family: Verdana; border: 1 solid #000000" value="<%=rs("Hjemmeside")%>"></font></td>
        </tr>
        <tr>
          <td width="16%"><b><font face="verdana" size="1" color="#FFFFFF">Kommentar</font></b></td>
          <td width="84%">
          <font color="#FFFFFF">
          <textarea rows="16" name="Kommentar" cols="61" style="font-size: 8pt; font-family: Verdana; border: 1 solid #000000"><%=rs("Kommentar")%></textarea></font></td>
          <input type="hidden" name="ID" value="<%=ID%>">
        </tr>
        <tr>
          <td width="16%"><font face="verdana" size="1" color="#FFFFFF">&nbsp;</font></td>
          <td width="84%"><font color="#FFFFFF" face="verdana" size="1">
    <input type="submit" value=" Ret denne post nu" name="Rette" style="background-color: #0066FF; font-size: 8pt; font-family: Verdana">
            </font>
          </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
  </center>
</div>
</form>
<font face="Verdana">
<p align="left">
</font></p>
</body>

<%
Conn.Close
Set Conn = Nothing
%>




Siden som man bliver sendt til for at Update posten i tabellen.
--------------------------------------
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("Databasen.mdb")
Conn.Open DSN

strNavn = replace(request.form("Navn"), "'", "''")
strKlub = replace(request.form("Klub"), "'", "''")
strEmail = replace(request.form("Email"), "'", "''")
strHjemmeside = replace(request.form("Hjemmeside"), "'", "''")
strKommentar = replace(request.form("Kommentar"), "'", "''")

strSQL = "UPDATE DISTINCTROW Min tabel her SET Navn='" & StrNavn & "',Klub='" & strKlub & "',Email='" & strEmail & "',hjemmeside='" & strHjemmeside & "',kommentar='" & strKommentar & "' WHERE id=" & Request.querystring("id")
Conn.Execute (strSQL)
conn.Close
Set conn = nothing

response.redirect "Retgaest.asp"

%>

/Goose

Jeg prøver goose

Det virker ikke desværre
For denne fejl:
The page cannot be found
The page you are looking for might have been removed, had its name changed, or is temporarily unavailable.

i selve adresse http:// linjen står der dette når jeg har trykket på ret knappen.
Updateminpostsidenher.asp?id=32

eller retter det er mig der brøvler
jeg for denne fejl:


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

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

/gaestbog/Retgaest.asp, line 17

Linie 17 er:
Set rs = Conn.Execute(strSQL)

ja så er det før retgaest.asp det går galt.
I din gæstebog må du have et link du klikker på for at rette et indlæg, det er her du ikke får id nummeret med ud:

linie 16 & 17:

strSQL = "SELECT * FROM Min tabel her Where Id = " & Request.Querystring("id")
Set rs = Conn.Execute(strSQL)

I linie 16 fortæller du din strSQL at den skal finde alle data fra [min tabel her] hvor id nummeret er det id nummer den får fra querystringen.

I linie 17 prøver den så at eksekvere strSQL men den går i fejl da den ikke har nogen id at hente ud fra.

Hvordan kommer du ind på retgaest.asp ?

/Goose

Det virker nu goose jeg havde glemt et bogstav i min form som sender oplysningerne videre til Update siden.(Idiot siger jeg til mig selv he he)

Men jeg bruger dette her til at linke ind til siden:
<A href="Retgaest.asp?id=<%=rs("ID")%>">
        <font size="1">Ret post</font></A><font size="1">
Altså fra Oversigtsiden hvor man starter.

Men det havde nu altså været genialt hvis jeg kunne:
Response.redirect "Retgaest.asp" til selve det indlæg som jeg lige har opdateret.
isteden for at sende en tilbage til oversigt siden og så derfra igen at klikke på indlægget for at se om oplysningerne nu er korrekt ændret.
Håber du forstå mig.

Har lige fået lidt hjælp fra en Ven på MSN til hvordan og hvorledes.
Således:
Response.redirect "Retgaest.asp?id=" & request.querystring("ID")
Jeg lukker og slukker dette spørgsmål.
Jeg takker mange gange for den hurtige hjælp goose.
Point er på vej.

jamen jeg siger da tak for point :o)

/Goose