Hjælp til checkbox
jeg har 2 asp filer, den ene med en form og den anden der viser hvad der var i formenMit problem er at jeg kun får vist den der er "checked"
Nogen der kan se hvad der er galt ?
den første ser sådan ud:
<!--#include file="db.inc"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Galleriet</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" type="text/css" href="foto.css">
<style type="text/css">
html,body{height:100%;margin:0px;border:0px;padding:0px;font-family:tahoma,verdana,arial,sans-serif;font-size:small;}
</style>
<script language="javascript" type="text/javascript">
function boxe(dinForm){
el=dinForm.elements;
for(i=0;i<el.length;i++){
//alert(el[i].type+"\n"+el[i].checked)
if(el[i].type=='checkbox'&&el[i].checked){
return true;
}
}
alert("check en mindst en box");
return false;
}
</script>
</head>
<body>
<FONT SIZE="" class="lille"><H3>Vælg de fotos der skal vises i galeriet</H3></FONT>
<form id="sampleform" name="sampleform" action="Gem_godkendfoto.asp" method="post" onSubmit="return boxe(this);">
<table width="600" border="" cellspacing="0" cellpadding="0">
<%
antal_fotos=0
SQL_alle_foto ="SELECT * FROM `foto`"
Conn.Execute (SQL_alle_foto)
Set rs2 = conn.Execute(SQL_alle_foto)
if rs2.EOF or rs2.BOF then
Response.Write "Der er ingen fotos i galariet"
else
Do until rs2.EOF
%>
<td><IMG SRC="foto_upload/thumb/<%=rs2("billede")%>" WIDTH="100" HEIGHT="67" BORDER="0" ALT="nbsp">
<BR> Vis denne
<%
If rs2("godkendt") = 0 Then
Response.write "<input type='checkbox' name='"& rs2("fotoid")&"' value='True' checked>"
Elseif rs2("godkendt") = 1 Then
Response.write "<input type='checkbox' name='"& rs2("fotoid")&"' value='True'>"
END IF
Response.write "</td>"
rs2.MoveNext
Loop
end if
Conn.Close
Set Conn = Nothing
Set rs2 = Nothing
Set SQL_alle_foto = nothing
%>
</tr>
</table>
<input type="submit" value="Opdater galeriet" id="Send" name="Send" type="submit" style="width:140;" class="submitButton">
</body>
</html>
Den anden ser sådan du:
<%
Function CheckboxToDB(value)
if value = "True" then
CheckboxToDB = 1
else
CheckboxToDB = 0
end if
END FUNCTION
for each key in request.form
'if key ="Send" then
'else
Response.write "<BR>"&key& " ------" &CheckboxToDB(request.form(key))
'end if
next
%>
