[Help Please] : เขียนฟังก์ชั่นเพื่อเชคข้อมูลซ้ำจาก Database แต่ไม่สามารถ where ค่าจากตัวแปรได้ค่ะ(asp , vbScript , access)

<script language="VBScript">
 

	Function check_cif1()
	
	MsgBox("Test")
	cif1 = Document.frmSignboard.Elements("id1").Value
	MsgBox(cif1)
	MsgBox(TypeName(cif1))
	test = "123"
	
	'<%
		
		Set Conn = Server.Createobject("ADODB.Connection")
		Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("mar_02_bbt.mdb"),"" , ""
		strSQL = "SELECT * FROM sgm_m where id1 = '"&cif1&"'" ' 
		Set objRec = Conn.Execute(strSQL)
		IF Not objRec.EOF Then
	'%>
		MsgBox("cif ซ้ำ")
		MsgBox(cif1)
	'<%
	Else
		Set objExec = Nothing
	End If
	objRec.Close
	Conn.Close()
	Set objRec = Nothing
	Set Conn = Nothing
	'%>



	end function
	

 </script>