27 svar · 623 visningar · startad av Choronzon · sida 2 av 2
Vad gör jag för fel, och hur gör jag det bättre? Jag skulle alltså vilja skicka innehållet i formuläret till databasen, och dessutom se innehållet i formulärfälten. En sorts adminsida hade jag tänkt alltså! :/ Skulle uppskatta om någon vill hjälpa mig på traven! :) <!-- #include file="adovbs.inc" --> <% If Session("login") <> "ok" Then Session("meddelande") = " utloggad, logga in igen!"
Läs frågan i sin helhet →Vad skrivs ut om du bytar din förra kodsnutt mot denna?
strSQL = "UPDATE Members SET " & _
"leftoverone = '" & leftoverone & "', leftone = '" & leftone & "'," & _
"leftovertwo = '" & leftovertwo & "', lefttwo = '" & lefttwo & "'," & _
"leftoverthree = '" & leftoverthree & "', leftthree = '" & leftthree & "'," & _
"WHERE id = " & Request.QueryString("checkid")
response.write strSQL
'Connect.Execute strSQL,,128
alltså bara denna markerade del:
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/text.mdb")&";pwd=pwd"
If Cstr(request.querystring("change")) = "codes" then
leftoverone = replace(request("leftoverone"),"'","''")
leftone = replace(request("leftone") ,"'","''")
leftovertwo = replace(request("leftovertwo"),"'","''")
lefttwo = replace(request("lefttwo") ,"'","''")
leftoverthree = replace(request("leftoverthree"),"'","''")
leftthree = replace(request("leftthree") ,"'","''")
[red]strSQL = "UPDATE Members SET " & _
"leftoverone = '" & leftoverone & "', leftone = '" & leftone & "'," & _
"leftovertwo = '" & leftovertwo & "', lefttwo = '" & lefttwo & "'," & _
"leftoverthree = '" & leftoverthree & "', leftthree = '" & leftthree & "'," & _
"WHERE id = " & Request.QueryString("checkid")
Connect.Execute strSQL,,128[/red]
End If
Set RecSet = Server.CreateObject("ADODB.Recordset")
strSQL = "Select * From members Where id = " & Request.QueryString("checkid")
RecSet.Open strSQL, Connect, adOpenStatic, adLockOptimistic
if not RecSet.EOF then
%>
<html>
<body>
<a href="settings.asp?change=codes&checkid=213">länk</a>
<a href="settings.asp?change=codes&checkid=214">länk</a>
<a href="settings.asp?change=codes&checkid=215">länk</a>
<form method="post" name="213" action="settings.asp?change=codes&checkid=<%=request.querystring("checkid")%>">
<input type="text" name="leftoverOne" size="60" value="<%=RecSet("leftoverone")%>">
<textarea cols="45" rows="12" name="leftone"><%=RecSet("leftone")%></textarea>
<input class="input" type="text" name="leftovertwo" size="60" value="<%=RecSet("leftovertwo")%>">
<textarea cols="45" rows="12" name="lefttwo"><%=RecSet("lefttw")o%></textarea>
<input type="text" name="leftoverthree" size="60" value="<%=RecSet("leftoverthree")%>">
<textarea cols="45" rows="12" name="leftthree"><%=RecSet("leftthree")%></textarea>
<input type="submit" value="Skicka">
</form>
</body>
</html>
<%
End If
RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
%>
Såhär står det då:
UPDATE Members SET leftoverone = '', leftone = '',leftovertwo = '', lefttwo = '',leftoverthree = '', leftthree = '',WHERE id = 213
ADODB.Recordset fel '800a0bb9'
Parametrarna är felaktiga, ligger utanför tillåtet intervall eller skapar en inbördes konflikt.
settings.asp, rad 40
rad 40:
RecSet.Open strSQL, Connect, adOpenStatic, adLockOptimistic
strSQL = "UPDATE Members SET " & _
"leftoverone = '" & leftoverone & "', leftone = '" & leftone & "'," & _
"leftovertwo = '" & leftovertwo & "', lefttwo = '" & lefttwo & "'," & _
"leftoverthree = '" & leftoverthree & "', leftthree = '" & leftthree & "'" & _
"WHERE id = " & Request.QueryString("checkid")
Det skall inte vara något komma innan where.
Felmeddelandet om felaktiga parametrar beror på att du inte har inkluderat filen adovbs.inc
oops! Sorry.
Men jag får fortfarande samma felmeddelande :l
byta ut:
Set RecSet = Server.CreateObject("ADODB.Recordset")
strSQL = "Select * From members Where id = " & Request.QueryString("checkid")
RecSet.Open strSQL, Connect, adOpenStatic, adLockOptimistic
mot
strSQL = "Select * From members Where id = " & Request.QueryString("checkid")
set RecSet = Connect.execute(strSQL)
så slipper du infoga en fil på 17 kb
Aha, jo adobd filen var visst något jag hade rensat bort utan att sätta dit den igen :)
Nu till ett annat litet problem, när jag klickar på länken så rensas ju db-n, jag hade tänkt att det gamla innehållet ska vara kvar ända tills man skickar, och om jag inte väljer att skicka, utan klickar på en annan länk så ska det inte heller bytas ut. Annars måste man ju byta innehåll varje gång man öppnar db-n. Hur ska jag göra då?