MySQL igen igen update where
Det er noget være rod med MySQL når man nu er vandt til Access :-S *GG* Nå, nok om det....Jeg trækker en liste ud fra DB'en hvor jeg gerne skulle kunne rette i nogle felter i posten eller slette en post....
Selve listen bliver også truket fint ud.... Men når jeg vil rette/slette i en post retter/sletter DB'en den sidste og ikke den jeg klikker på.....
Lidt kode til hjælp:
<%mode = request("mode")%>
<html>
<head>
<title>~ ADMIN</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<h1>ADMIN SITE</h1>
<br>
if mode="list" then
if NOT session("login") = True and session("Admin") = True then
response.Redirect("default.asp")
end if
session.LCID = 1030
set conn = server.createobject("ADODB.connection")
conn.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=db.min-server.com; DATABASE=xxxxxxxx; UID=xxxxxxxx; PWD=Mypass;"
Set rs = Server.CreateObject("ADODB.RecordSet")
rsSQL = "SELECT * FROM freeware where accept = 'Nej' ORDER BY 'added' DESC"
rs.Open rsSQL, conn
do while not (rs.BOF or rs.EOF)
response.Write(rs("title"))%> <br><%response.Write(rs("About"))%><br>added: <%response.Write(rs("added"))%><br><a href="default.asp?mode=del">Afvis</a> <a href="default.asp?mode=notdel">Accept</a><br><br><%
session("title") = rs("title")
rs.movenext
loop
rs.Close
Conn.Close
Set rs = Nothing
response.Write("End of list")
end if
if mode= "del" then
set conn = server.createobject("ADODB.connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
conn.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=db.min-server.com; DATABASE=xxxxxxxxxx; UID=xxxxxxxx; PWD=Mypass;"
'strSQL = "SELECT * FROM freeware where title = '" & session("title") & "'"
strSQL = "UPDATE `freeware` SET`accept` = 'NOT' WHERE `title` = '"& session("title")&"' LIMIT 1" 'VALUES('NOT');"
set rs = conn.execute(strSQL)
response.Write("opdateret<br><br>Du føres tilbage til listen om få sekunder...")
%><META HTTP-EQUIV="REFRESH" CONTENT="5;URL=default.asp?mode=list"><%
end if
if mode= "notdel" then
set conn = server.createobject("ADODB.connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
conn.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=db.only-freeware.com; DATABASE=xxxxxxxx; UID=xxxxxxxx; PWD=Mypass;"
strSQL = "UPDATE `freeware` SET`accept` = 'Ja' WHERE `title` = '"& session("title")&"' LIMIT 1" 'VALUES('NOT');"
set rs = conn.execute(strSQL)
response.Write("Opdateret<br><br>Du føres tilbage til listen om få sekunder...")
%>
<META HTTP-EQUIV="REFRESH" CONTENT="5;URL=default.asp?mode=list"><%
end if
%>
</body>
</html>
Jeg håber I kan hjælpe mig....
