8 svar · 213 visningar · startad av Jesper T
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.
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
LarsG --> Du har så rätt!!
