TPA List

List of Corporate Empanelment

<% Set rs = Server.CreateObject("ADODB.Recordset") strSQL = "select * from TPA where 1=1 " if trim(strSearch)<>"" then strSQL = strSQL & " and Id=" & strSearch strSQL = strSQL & "order by convert(varchar,TPANAme) asc" rs.Open strSQL, conn,3,3 While Not rs.eof Id =rs("Id") TPAName =rs("TPAName") Address =rs("Address") TelNo =rs("TelNo") FaxNo =rs("FaxNo") TollFreeTellNo =rs("TollFreeTellNo") TollFreeFax =rs("TollFreeFax") ContactPerson =rs("ContactPerson") ContactNo =rs("ContactNo") ContactPerson1 =rs("ContactPerson1") ContactNo1 =rs("ContactNo1") ContactPerson2 =rs("ContactPerson2") ContactNo2 =rs("ContactNo2") ContactPerson3 =rs("ContactPerson3") ContactNo3 =rs("ContactNo3") ContactPerson4 =rs("ContactPerson4") ContactNo4 =rs("ContactNo4") WebSite =rs("WebSite") EMail =rs("EMail") %> <% rs.movenext WEND %>

<%=TPAName%>

<%=Address%>
<%if trim(TelNo)<>"" then %> Tel: <%=TelNo%><%End If%>   <%if trim(FaxNo)<>"" then %> Fax: <%=FaxNo%><%End If%> <%if trim(TollFreeTellNo)<>"" then %>
Toll Free No : <%=TollFreeTellNo%> <%end if%> <%if trim(TollFreeFax)<>"" then %>
Toll Free Fax : <%=TollFreeFax%> <%end if%>
<%if trim(ContactPerson)<>"" then %> <%=ContactPerson%>:<%=ContactNo%>, <%end if%> <%if trim(ContactPerson1)<>"" then %> <%=ContactPerson1%>:<%=ContactNo1%>, <%end if%> <%if trim(ContactPerson2)<>"" then %> <%=ContactPerson2%>:<%=ContactNo2%>, <%end if%> <%if trim(ContactPerson3)<>"" then %> <%=ContactPerson3%>:<%=ContactNo3%>, <%end if%> <%if trim(ContactPerson4)<>"" then %> <%=ContactPerson4%>:<%=ContactNo4%>, <%end if%> <%if trim(WebSite)<>"" then%>
WebSite: <%=WebSite%> <%end if%> <%if trim(EMail)<>"" then%>
Email: <%=EMail%> <%end if%>