Tjena!
Har en annonssida där jag på admin behöver godkänna annonser. Jag har över 4000 annonser och känner inte för att (som det är nu) klicka på godkänd på varje annons.
Hur skulle de se ut ifall man satte en checkbox bakom varje annons så att man kan klicka i flera och sen välja att godkänna så att de skulle gå lite fortare?
Såhär ser koden för listningen av annonserna ut:
<tr>
<td>
<%If RecSet("ursprung") = "5" Then%>
<a href=" http://www.annonseringdirekt.com/detail.asp?item=<%=RecSet("FromID")%>" target="_blank">
<%
stor = UCase(Left(lcase(trim(RecSet("subject"))),1)) & LCase(Mid(lcase(trim(RecSet("subject"))), 2))
strSubject = stor
intAntaltecken = 23
If Len(strSubject) < intAntaltecken Then
Response.Write strSubject
Else
response.write Left(strSubject,intAntaltecken)&".."
End If%>
</a>
<%Else%>
<a href="knut.asp?do=visaannons&id=<%=RecSet("ID")%>">
<%=RecSet("ID")%> -
<%
stor = UCase(Left(lcase(trim(RecSet("subject"))),1)) & LCase(Mid(lcase(trim(RecSet("subject"))), 2))
strSubject = stor
intAntaltecken = 35
If Len(strSubject) < intAntaltecken Then
Response.Write strSubject
Else
response.write Left(strSubject,intAntaltecken)&"..."
End If
End If
%>
</a></font></td>
<td align="center><%If RecSet("godkann") = "ok" Then%>
-
<%Else%>
<a href="knut.asp?do=godkann&id=<%=RecSet("ID")%">OK</a>
<%End If%>
</font></td>
</tr>
<%
RecSet.MoveNext
Loop
%>
</table>
Och såhär ser koden där jag godkänner annonserna ut:
<%If Request.QueryString("do") = "godkann" Then
Set Connect = Server.CreateObject("ADODB.Connection")
OpenDatabase
SQL ="Update annonser SET godkann = 'ok' WHERE id = '" & Request.QueryString("ID") & "'"
Connect.execute(SQL)
End If
%>
Nån som kan visa hur man gör ifall man vill ha checkboxar där "ok-länken" annars är?