السلام عليكم
أحاول كتابة كود يقوم بجلب البيانات المدخلة في الفورم و تعبئتها في الداتابيس (أكسس) ولكن يظهر أن هناك مشكلة في القيمة المدخلة في الـ insert كويري.
هل بالإمكان مساعدتي لمعرفة أين الخطأ بالضبط؟
أرفقت لكم الكود مختصر على خانة واحدة فقط بالأسفل. والخطأ الذي يظهر لي هو:
Microsoft VBScript compilation (0x800A0401)
Expected end of statement
و السطر المشار إليه بالخطأ هو سطر الكويري.
و شكراً لكم
<%
Set adConn = Server.CreateObject("ADODB.Connection")
Set adRS = Server.CreateObject("ADODB.RecordSet")
adConn.Open "DSN=newemp"
txtEmpName = Request.QueryString("search")
strURL = Request.ServerVariables("URL")
%>
<form method="POST" action="<% =strURL %>">
<p>Enter name: <input type="text" name="T1" size="20" value="<%= txtEmpName%>"></p>
<p><input type="submit" value="Submit" name="B1"><input type="reset" value="Reset" name="B2"></p>
<%
adSQL = "INSERT INTO Eng_Emp(NAME) Values ('"txtEmpName"');"
%>
<%
adConn.Execute adSQL
%>
</form>
<%
adConn.Close
Set adConn = Nothing
%>