script fejl ved validering af checkbox
jeg er ved at bliver sindsyg !Hvorfor for jeg et scrpit fejl : objektet understøtter ikke denne egenskab eller metode !
koden:
<script type="text/javascript">
<!-- Dette script og mange flere -->
<!-- findes hos http://www.html.dk -->
<!-- Start
function validering()
{
error = 0;
if(!(document.forms[0].a1_1.checked) && (error==0))
{
alert('Du skal aktivt sætte et hak i checkboxen!');
document.forms[0].a1_1.focus();
error = 1;
}
if(error == 0)
document.forms[0].submit();
}
// Slut -->
</script>
<%
if request.form("send") <> "" then
SQLserveradr="localhost"
SQLdatabase="_"
SQLlogin="_"
SQLpassword=""
Set DataConn = Server.CreateObject("ADODB.Connection")
conStr = "driver={MySQL ODBC 3.51 Driver};"& _
"server="& SQLserveradr &";"& _
"database="& SQLdatabase &";"& _
"uid="& SQLlogin &";"& _
"pwd="& SQLpassword &";"& _
"OPTION=3"
DataConn.Open conStr
strSQL = "Insert into skema (DateKolonne ,id,efternavn, fby,telefon,a1_1,a1_2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21,a22,a23,a24,text1,a25,a26,a27,a28,a29,a30,a31,a32,a33,a34,a35,a36,a37,a38,a39,a40,a41,a42,a43,a44,a45,a46,a47,a48,text2,a49,a50,a51,a52,a53,a54,a55,a56,a57,a58,a59,a60,a61,a62,a63,a64,a65,a66,a67,a68,a69,a70,a71,a72,text3,a73,a74,a75,a76,a77,a78,a79,a80,a81,a82,a83,a84,a85,a86,a87,a88,a89,a90,a91,a92,a93,a94,a95,a96,text4) values(now(),'" & replace(Request.Form("id"),"'","''") & "','" & replace(Request.Form("efternavn"),"'","''") & "','" & replace(Request.Form("fby"),"'","''") & "','" & replace(Request.Form("telefon"),"'","''") & "','" & replace(Request.Form("a1_1"),"'","''") & "','" & replace(Request.Form("a1_2"),"'","''") & "','" & replace(Request.Form("a3"),"'","''") & "','" & replace(Request.Form("a4"),"'","''") & "','" & replace(Request.Form("a5"),"'","''") & "','" & replace(Request.Form("a6"),"'","''") & "','" & replace(Request.Form("a7"),"'","''") & "','" & replace(Request.Form("a8"),"'","''") & "','" & replace(Request.Form("a9"),"'","''") & "','" & replace(Request.Form("a10"),"'","''") & "' ,'" & replace(Request.Form("a11"),"'","''") & "','" & replace(Request.Form("a12"),"'","''") & "','" & replace(Request.Form("a13"),"'","''") & "','" & replace(Request.Form("a14"),"'","''") & "','" & replace(Request.Form("a15"),"'","''") & "','" & replace(Request.Form("a16"),"'","''") & "','" & replace(Request.Form("a17"),"'","''") & "','" & replace(Request.Form("a18"),"'","''") & "','" & replace(Request.Form("a19"),"'","''") & "','" & replace(Request.Form("a20"),"'","''") & "','" & replace(Request.Form("a21"),"'","''") & "','" & replace(Request.Form("a22"),"'","''") & "','" & replace(Request.Form("a23"),"'","''") & "','" & replace(Request.Form("a24"),"'","''") & "','" & replace(Request.Form("text1"),"'","''") & "','" & replace(Request.Form("a25"),"'","''") & "','" & replace(Request.Form("a26"),"'","''") & "','" & replace(Request.Form("a27"),"'","''") & "','" & replace(Request.Form("a28"),"'","''") & "','" & replace(Request.Form("a29"),"'","''") & "','" & replace(Request.Form("a30"),"'","''") & "','" & replace(Request.Form("a31"),"'","''") & "','" & replace(Request.Form("a32"),"'","''") & "','" & replace(Request.Form("a33"),"'","''") & "','" & replace(Request.Form("a34"),"'","''") & "','" & replace(Request.Form("a35"),"'","''") & "','" & replace(Request.Form("a36"),"'","''") & "','" & replace(Request.Form("a37"),"'","''") & "','" & replace(Request.Form("a38"),"'","''") & "','" & replace(Request.Form("a39"),"'","''") & "','" & replace(Request.Form("a40"),"'","''") & "','" & replace(Request.Form("a41"),"'","''") & "','" & replace(Request.Form("a42"),"'","''") & "','" & replace(Request.Form("a43"),"'","''") & "','" & replace(Request.Form("a44"),"'","''") & "','" & replace(Request.Form("a45"),"'","''") & "','" & replace(Request.Form("a46"),"'","''") & "','" & replace(Request.Form("a47"),"'","''") & "','" & replace(Request.Form("a48"),"'","''") & "','" & replace(Request.Form("text2"),"'","''") & "','" & replace(Request.Form("a49"),"'","''") & "','" & replace(Request.Form("a50"),"'","''") & "','" & replace(Request.Form("a51"),"'","''") & "','" & replace(Request.Form("a52"),"'","''") & "','" & replace(Request.Form("a53"),"'","''") & "','" & replace(Request.Form("a54"),"'","''") & "','" & replace(Request.Form("a55"),"'","''") & "','" & replace(Request.Form("a56"),"'","''") & "','" & replace(Request.Form("a57"),"'","''") & "','" & replace(Request.Form("a58"),"'","''") & "','" & replace(Request.Form("a59"),"'","''") & "','" & replace(Request.Form("a60"),"'","''") & "','" & replace(Request.Form("a61"),"'","''") & "','" & replace(Request.Form("a62"),"'","''") & "','" & replace(Request.Form("a63"),"'","''") & "','" & replace(Request.Form("a64"),"'","''") & "','" & replace(Request.Form("a65"),"'","''") & "','" & replace(Request.Form("a66"),"'","''") & "','" & replace(Request.Form("a67"),"'","''") & "','" & replace(Request.Form("a68"),"'","''") & "','" & replace(Request.Form("a69"),"'","''") & "','" & replace(Request.Form("a70"),"'","''") & "','" & replace(Request.Form("a71"),"'","''") & "','" & replace(Request.Form("a72"),"'","''") & "','" & replace(Request.Form("text3"),"'","''") & "','" & replace(Request.Form("a73"),"'","''") & "','" & replace(Request.Form("a74"),"'","''") & "','" & replace(Request.Form("a75"),"'","''") & "','" & replace(Request.Form("a76"),"'","''") & "','" & replace(Request.Form("a77"),"'","''") & "','" & replace(Request.Form("a78"),"'","''") & "','" & replace(Request.Form("a79"),"'","''") & "','" & replace(Request.Form("a80"),"'","''") & "','" & replace(Request.Form("a81"),"'","''") & "','" & replace(Request.Form("a82"),"'","''") & "','" & replace(Request.Form("a83"),"'","''") & "','" & replace(Request.Form("a84"),"'","''") & "','" & replace(Request.Form("a85"),"'","''") & "','" & replace(Request.Form("a86"),"'","''") & "','" & replace(Request.Form("a87"),"'","''") & "','" & replace(Request.Form("a88"),"'","''") & "','" & replace(Request.Form("a89"),"'","''") & "','" & replace(Request.Form("a90"),"'","''") & "','" & replace(Request.Form("a91"),"'","''") & "','" & replace(Request.Form("a92"),"'","''") & "','" & replace(Request.Form("a93"),"'","''") & "','" & replace(Request.Form("a94"),"'","''") & "','" & replace(Request.Form("a95"),"'","''") & "','" & replace(Request.Form("a96"),"'","''") & "','" & replace(Request.Form("text4"),"'","''") & "')"
DataConn.Execute(strSQL)
response.write "<<BR><br>"
response.End 'stopper koden her
end if
%>
<BR>
<BR>
<BR><B>
<form action="test.asp" method="post" onsubmit="validering();return false;">
<input type="hidden" name="id" value="<%=Request.Querystring("id")%>">
<TR>
<TD>1 </TD>
<TD>Har forudseenhed
</TD>
<TD width="50" align="center"> <input type="checkbox" name="a1_1" value="1"></TD>
<TD width="50" align="center"><input type="checkbox" name="a1_1" value="2"></TD>
<TD width="50" align="center"><input type="checkbox" name="a1_1" value="3"></TD>
<TD width="50" align="center"><input type="checkbox" name="a1_1" value="4"></TD>
<TD width="50" align="center"><input type="checkbox" name="a1_1" value="5"></TD>
</TR>
<TR>
