Jag har en liten kod här som gör så att man kan uppdatera inlägg. Nu klickar man på länken som du ser nedan så kommer man till formuläret, dock så är bara det senaste inläggets värden i formuläret, oavsett om man klickar på redigera inlägg ex. 12.
Här är koden för att redigera inlägget. Jag tror det har något att göra med . If Request.QueryString("redigera") = "" & id & "" Then
If Len(namn) > 0 Then
Conn.Execute("UPDATE Post SET "& namn &"','"& epost &"','"& ort &"','"& meddelande & " WHERE Id = " & Request.Querystring("redigera"))
End if
If Request.QueryString("redigera") = "" & id & "" Then
Response.Write"<form method='post' name='post' action='gb.asp?visa=spara'><br>"
Response.Write"<input type='text' name='namn' value='"& rs("namn") &"'<br>"
Response.Write"<input type='text' name='epost' value='"& rs("epost") &"'<br>"
Response.Write"<input type='text' name='ort' value='"& rs("ort") &"'<br>"
Response.Write"<textarea style='height: 100' name='meddelande'>"& rs("meddelande") &"</textarea><br>"
Response.Write"<input type='submit' value='Uppdatera'>"
Response.Write"</form>"
End if
If Request.QueryString("redigera") = "" & id & "" Then
[b]'Här måste du också hämta posterna med ett recset[/b]
Response.Write"<form method='post' name='post' action='gb.asp?visa=spara'><br>"
Response.Write"<input type='text' name='namn' value='"& rs
End if
'Öppna din databas på lämpligt sätt(Conn)
strSQL = "SELECT * FROM post WHERE id = "& id
set objRS = Conn.Execute(strSQL)
Skriver ut med [red]objRS("meddelande")[/red] osv.
If Request.QueryString("redigera") <> "" Then
strSQL = "SELECT * FROM Post WHERE Id = " & CInt(Request.QueryString("redigera"))
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "" ' Öppna databasen
Set objRS = objConn.Execute(strSQL)
If NOT objRS.EOF Then
%>
<form action="redigera.asp" method="post">
<input type="hidden" name="id" value="<%=Request.QueryString("redigera")%>">
Namn: <input type="text" name="namn" value="<%=objRS("namn")%>"><br>
Epost: <input type="text" name="mail" value="<%=objRS("epost")%>"><br>
Ort: <input type="text" name="ort" value="<%=objRS("ort")%>"><br>
<textarea cols="25" rows="4" name="meddelande"><%=objRS("meddelande")%></textarea><p>
<input type="submit" value="Redigera!">
</form>
<%
End If
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
End If
%>
i redigera.asp:
<%
Dim strNamn, strMail, strOrd, strMeddelande, strSQL, objConn
strNamn = Replace(Request.Form("namn"),"'","''")
strMail = Replace(Request.Form("mail"),"'","''")
strOrt = Replace(Request.Form("ort"),"'","''")
strMeddelande = Replace(Request.Form("meddelande"),"'","''")
strSQL = "UPDATE Post SET namn = '" & strNamn & "', epost = '" & strMail & "', ort = '" & strOrt & "', meddelande = '" & strMeddelande & "' WHERE Id = " & CInt(Request.Form("id"))
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "" ' Öppna databasen
objConn.Execute(strSQL),,128
objConn.Close
Set objConn = Nothing
Response.Redirect("gb.asp")
%>
258 ms totalt · 4 externa anrop · v20260731065814-full.a51de22e
