<%
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL = "select * from Consultant where 1=1 and type='Visiting'"
if trim(strSearch)<>"" then strSQL = strSQL & " and Id=" & strSearch
strSQL = strSQL & "order by convert(varchar,Specialization),convert(varchar,Consultant) asc"
rs.Open strSQL, conn,3,3
dim Specialization1
While Not rs.eof
Id =rs("Id")
Specialization =rs("Specialization")
Consultant =rs("Consultant")
Degree =rs("Degree")
Days =rs("Days")
Timings =rs("Timings")
ContactNo =rs("ContactNo")
%>