ถ้าต้องการเขียนฟังก์ชั่น ค้นหา ค้องทำอย่างไรครับ เพิ่มเคยเเขียน ASP อ่อนมาก

'**** Call to function list record ****'
Dim objList,strCondition
strTable = "customer"
strCondition = " 1=1 "
Call fncListRecord(objList,strTable,strCondition)
If objList.EOF Then
	Response.write("Record not found<br>")
Else
	Response.write("Customer List.<br>")
	objList.MoveFirst
	While Not objList.EOF
		Response.write(""&objList.Fields("CustomerID").Value&"")
		Response.write(", "&objList.Fields("Name").Value&"")
		Response.write(", "&objList.Fields("Email").Value&"")
		Response.write(", "&objList.Fields("CountryCode").Value&"")
		Response.write(", "&objList.Fields("Budget").Value&"")
		Response.write(", "&objList.Fields("Used").Value&"<br>")
	objList.MoveNext
	Wend
End If
objList.Close()
Set objList = Nothing
Response.write("<br>===========================<br>")