Ingen uppdatering??

Jag försöker att uppdatera min databas men det går inte, inget händer och inget felmess. :l

 <form name="form1" method="post" action="pagemake_adm.asp?">
  <select name="strPage" onChange="submit(this);">
    <option value="" selected>Välj en sida</option>
    <%
set ani = Server.CreateObject("ADODB.Recordset")
ani.Open "Pages", "DBQ=" & Server.Mappath("/db/pagemaker.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
					  
Do While not ani.EOF
response.write"<option value='"&ani("ID")&"'>"& ani("NAME")&"</option>"
ani.MoveNext
	Loop
	ani.Close
	set ani = Nothing
	%>
  </select>
</form>
<%
UPD=request("UPD")
strPage=request("strPage")
TEXT=request.form("TEXT")
if strPage <> "" then
Dim Conn, rs, SQLSats
Set Conn = Server.CreateObject("ADODB.Connection") 
Set rs = Server.CreateObject("ADODB.Recordset") 
Conn.Open "DBQ=" & Server.MapPath("\******.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};" 

SQLSats = "Select ID,NAME,TEXT,UPD from Pages Where ID="& strPage
SET rs = Conn.Execute(SQLSats)
 If UPD="yes" then
SQL = "Update Pages Set [text]='" & TEXT &"' Where ID="& strPage
conn.execute SQL,,128
end if%>

<form name="form1" method="post" action="pagemake_adm.asp?UPD=Yes&strPage=<%=rs("ID")%>">
  <p>Sida: <%=RS("NAME")%></p>
  <p> 
    <textarea name="TEXT" cols="70" rows="18"><%=rs("TEXT")%></textarea>
    <input type="hidden" name="UPD" value="<%=date()%>">
    <input type="submit" name="submit" value="Uppdatera">
  </p>
  <p>Uppdaterad senast: <%=RS("UPD")%></p>
</form>
<%

rs.Close
Set rs = Nothing
Conn.Close
Set Conn = Nothing

end if %>

Möjliga orsaker:

UPD är inte yes
Det finns ingen post som uppfyller villkoret

response.write "*Debug*Value of upd:" & upd & "<br>"
If UPD="yes" then
SQL = "Update Pages Set [text]='" & TEXT &"' Where ID="& strPage
conn.execute SQL,rows,128
response.write "*Debug*Rows updated: " & rows & "<br>"
end if

lite trace är nästan aldrig fel.

vad är UPD?

:)

UPD är en variabel i skriptet. Värdet på den avgör om man kommer in i den kod som gör update.

Det finns ingen post som uppfyller villkoret

Jag har kollat att post ID:et stämmer och jag har skrivit ut både UPD samt strPage och båda visar korrekt resultat ex. UPD=Yes, ID=24
Konstigt...

Yes är inte samma som yes.

Prova o skriv

If UPD="yes" then
SQL = "Update Pages Set [text]='" & TEXT &"' Where ID="& strPage
conn.execute SQL,rows,128
response.write "*Debug*Rows updated: " & rows & "<br>"
end [B]I[/B]f   '<--  end If med stort I

Kanske kan hjäpa :l

If cstr(UPD)="yes" Then

Har haft liknande probs själv och cstr() har hjälpt.

LarsG --> Du har så rätt!!