Har prøvet dit eksempel og det virker fint. Jeg kan dog ikke få det til at virke sammen med min eksisterende kode. Nedenfor er al koden til siden. Jeg giver op til 200 point for en løsning der virker, afhængigt af omfanget.
<script language="JavaScript">
<!--
function checkClick(mycounter){
tmpvar = 'pictureok'+mycounter
document.all[tmpvar].checked=false;
}
//-->
</script>
<script language="javascript" type="text/javascript">
<!--
function ToggleSelect(){
el = document.picform.NotOkBecause;
if (el.disabled){
el.disabled = false;
} else {
el.disabled = true;
}
}
//-->
</script>
<%
SQL = "SELECT COUNT(*) AS antal FROM users where ((doc_picture_verified is null) or (doc_picture_verified = 0)) AND doc_picture = 'J'"
Set objRS = cn.execute(SQL)
If not objRS.EOF Then
antal = objRS("antal")
End if
objRS.close
Set objRS = nothing
SQL = "SELECT TOP 10 imageid,id,username, sex, doc_picture,doc_picture_verified FROM users where ((doc_picture_verified is null) or (doc_picture_verified = 0)) AND doc_picture = 'J' order by doc_date"'
Set objRS = cn.execute(SQL)
myCounter = 0
If not objRS.eof Then
Response.Write "<div align=""center""><table width=""450"" cellspacing=""0"" border=""0"" class=""std"">"
Response.Write "<form name='picform' method='post' action='picturedo.asp'>"
Do while not objRS.eof
Response.Write "<tr bgcolor='#FFF7B5'>"
Response.Write "<td width='225'><a href='pictures/" & objRS("imageid") & ".jpg' target='_blank'><img src='/images/" & objRS("imageid") & "thumb.jpg' border='0' alt='Se billede i stor størrelse'></td>"
Response.Write "<td valign='top'><span class='h1r'><br>" & SexIcon(objRS("sex")) & " - " & "<a href='a.profile.show.asp?id=" & objRS("id") & "' target='_new'>" & objRS("username") & "</a></span><br><br><input type='checkbox' name='pictureok" & myCounter & "' value='" & objRS("id") & "' checked> <span class='h1'>OK</span><br><br><input type='checkbox' name='picturenotok" & myCounter & "' onClick=""checkClick('" & myCounter & "'); ToggleSelect();""> <span class='h1'>Ikke OK</span><br><br><select name='NotOkBecause" & objRS("id") & "' class='std' disabled><option selected value=''>- Afvisnings årsag -</option><option value='test1'>test1</option><option value='test2'>test2</option><option value='test3'>test3</option></select></td>"
Response.Write "</tr>"
Response.Write "<tr><td colspan='4' bgcolor='#ffffcc' height='5' ></td></tr>"
objRS.movenext
myCounter = myCounter +1
Loop
Response.Write "<tr><td colspan='4' align='right'><input type='submit' name='b1' class='back' value='Gem'>"
Response.Write "</form></table></div>"
Else
Response.Redirect("picturelist.asp")
end if
Hslut
objRS.close
Set objRS = nothing
cn.close
set cn = nothing
%>
Ny bruger
Nybegynder
Opret
Preview
