hvorofor for jeg script fejl på denne kode

den siger:

et obejekt var ventet !

<%
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)

'Opdater antal tilmeldte i hold tabellen



'Kode som sender mailen her:





response.write "<center><br><br>Tak for din tid, vi har nu registreret dine svar.<BR><BR><BR>A/S<BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><br>"



response.End 'stopper koden her
end if


'Viser formen



%>