ירון ברגר האחד
New member
בעיה בקוד לבניית סקר
בניתי סקר פשוט ביותר ויש לי הודעת שגיאה -אני לא יודע מה הבעיה אני אצרף לפה את הקוד -מקווה שתוכלו לעזור הקוד:
בניתי סקר פשוט ביותר ויש לי הודעת שגיאה -אני לא יודע מה הבעיה אני אצרף לפה את הקוד -מקווה שתוכלו לעזור הקוד:
<% answer = Request.Form ("answer") answer=CInt(answer) set ocon=Server.CreateObject("ADODB.Connection") ocon.Open "Driver={Microsoft Access Driver (*.mdb)};" & _ "Dbq=" & Server.MapPath("db\poll.mdb") & ";" & _ "Uid=admin;" & _ "Pwd=;" ocon.Execute "INSERT INTO TheAnswer(answer) VALUES ('" & answer & "')" set ocon = server.createobject("ADODB.connection") ocon.open "driver={microsoft access driver (*.mdb)}; dbq=db/poll.mdb" set ors = Server.CreateObject("ADODB.Recordset") mysql = "SELECT * FROM TheAnswer where answer=1" Response.Write"<font face='Arial' size='2' color='white'><b> ירון </b></font>" Response.Write"<br />" Response.Write ors.RecordCount Response.Write "<font face='Arial' size='2' color='white'><b> הצבעות </b></font>" set ocon = server.createobject("ADODB.connection") ocon.open "driver={microsoft access driver (*.mdb)}; dbq=db/poll.mdb" set ors = Server.CreateObject("ADODB.Recordset") mysql = "SELECT * FROM TheAnswer where answer=2" Response.Write"<br />" Response.Write"<font face='Arial' size='2' color='white'><b> מיכל </b></font>" Response.Write"<br />" Response.Write ors.RecordCount Response.Write "<font face='Arial' size='2' color='white'><b> הצבעות </b></font>" set ocon = server.createobject("ADODB.connection") ocon.open "driver={microsoft access driver (*.mdb)}; dbq=db/poll.mdb" set ors = Server.CreateObject("ADODB.Recordset") mysql = "SELECT * FROM TheAnswer where answer=3" Response.Write"<br />" Response.Write"<font face='Arial' size='2' color='white'><b> מאור </b></font>" Response.Write"<br />" Response.Write ors.RecordCount Response.Write "<font face='Arial' size='2' color='white'><b> הצבעות </b></font>" set ocon = server.createobject("ADODB.connection") ocon.open "driver={microsoft access driver (*.mdb)}; dbq=db/poll.mdb" set ors = Server.CreateObject("ADODB.Recordset") mysql = "SELECT * FROM TheAnswer where answer=4" Response.Write"<br />" Response.Write"<font face='Arial' size='2' color='white'><b> מורגן </b></font>" Response.Write"<br />" Response.Write ors.RecordCount Response.Write "<font face='Arial' size='2' color='white'><b> הצבעות </b></font>" set ocon = server.createobject("ADODB.connection") ocon.open "driver={microsoft access driver (*.mdb)}; dbq=db/poll.mdb" set ors = Server.CreateObject("ADODB.Recordset") mysql = "SELECT * FROM TheAnswer where answer=5" Response.Write"<br />" Response.Write"<font face='Arial' size='2' color='white'><b> מורן </b></font>" Response.Write"<br />" Response.Write ors.RecordCount Response.Write "<font face='Arial' size='2' color='white'><b> הצבעות </b></font>" ocon.Execute(mysql) ors.Close set ors = Nothing ocon.Close set ocon = Nothing %>