<% idp = Trim(Request("idp")&"") idp = Left(idp,5) %> <% SQL = "Select * from tblpartners where idparther="&idp Set RS=Conn.Execute(SQL) If CheckRS(RS) Then idparther = Trim(RS("idparther")&"") idctr = Trim(RS("idctr")&"") partnername = Trim(RS("partnername")&"") partnerepresent = Trim(RS("partnerepresent")&"") partnershortdescription = Trim(RS("partnershortdescription")&"") partnershortdescription = Replace(partnershortdescription,chr(13),"
") phone1 = Trim(RS("phone1")&"") phone2 = Trim(RS("phone2")&"") phone3 = Trim(RS("phone3")&"") strphones = "" If phone1<>"" then strphones = strphones & phone1 If phone2<>"" then strphones = strphones & "
" & phone2 If phone3<>"" then strphones = strphones & "
" & phone3 web1 = Trim(RS("web1")&"") 'web1 = Lcase(web1) 'web1 = Replace(web1,"http://","") 'web1 = Replace(web1,"www.","") 'web1 = Trim(web1) 'web2 = Trim(RS("web2")&"") logo1 = Trim(RS("logo1")&"") logo2 = Trim(RS("logo2")&"") End if Rs.Close Set RS=Nothing %>
 
<%=partnername%>

<% If logo2<>"" then %><% end if %><%=partnershortdescription%>

">Contact this Partner

<% if strphones<>"" then %> <% end if %> <% if web1<>"" then %> <% end if %>
Website URL: Visit Our Partners Website