Gem & Jewellery Trade Council of India

Member's Directory

GJTCI - Education Division

Name		<% if Request.QueryString("mode") <> "search" then %> <% else %> " /> <% end if %>

City

<% dim sql name=request("name") city=request("city") if name="" and city="All" then sql="select * from tblmembers order by name" elseif name<>"" and city="All" then sql="select * from tblmembers where name like '" & trim(name) & "%' order by name" elseif name<>"" and city<>"All" then sql="select * from tblmembers where name like '" & trim(name) & "%' and city='"&city&"' order by name" elseif name="" and city<>"All" then sql="select * from tblmembers where name like '" & trim(name) & "%' and city='"&city&"' order by name" end if rs.open sql,cn,1,2 if rs.state > 0 then ct = rs.recordcount pg = Request.QueryString("page") if ct > 0 then if pg = 1 then rs.move 0 i = 1 else h = (10 * (pg-1)) rs.move h i = h +1 end if %> <% if Request.QueryString("mode") <> "" then %>

Search Result : <% if h+10 < ct then %> <%=h+1%> to <%=h+10%> of <%=rs.recordcount%> found.. <% else %> <%=h+1%> to <%=ct%> of <%=rs.recordcount%> found.. <% end if %>

Search Criteria.....

Name :

<% if trim(Request.Form("name")) = "" then Response.Write "All" else Response.Write Request.Form("name") end if %>

City :

<%=Request.Form("city")%>

<% 'do while not rs.EOF for j = 1 to 10 step 1 %> <% rs.MoveNext if rs.eof then exit for i=i+1 next end if %> <% end if %>

<%=i%> . <%=rs.Fields("Name")%>
Contact Person :		<%if not isnull(rs.Fields("ContactPerson")) then %> <%=rs.Fields("ContactPerson")%> <% end if %>
Address :		<%=rs.Fields("Address")%>
City :		<%=rs.Fields("City")%> <%=rs.Fields("Pin")%>
Phone :		(O) <%=rs.Fields("OPhone")%> (R) <%=rs.Fields("RPhone")%> <% if rs.Fields("Fax")<>"" then %> Fax : <%=rs.Fields("Fax")%> <%end if%>
Mobile :		<% if rs.Fields("Mobile")<>"" then %> <%=rs.Fields("Mobile")%> <%end if%>
	<% if not isnull(rs.fields("website")) then %> " target="new" style="text-decoration:none;color:maroon">More Info.. <% end if %>

<% if rs.state > 0 and Request.QueryString("page") <> "" then if rs.recordcount >10 then %>

Pages : <% c = rs.recordcount d = c/10 d = cint(d) for p = 1 to d step 1 %> <%=p%> <%next %>

<%else %> <% end if end if end if if rs.state > 0 and Request.QueryString("page") <> "" then if rs.recordcount = 0 then %>

Search Result : 0 Found..

<% end if end if %>

Designed & Developed By: Krish Inc.