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")
%>
 <%=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%>
|
<%
rs.movenext
WEND
%>
|
|
About Us
