Lista de clientes

.gif" border="0">

.gif" border="0">

<% ps = request.querystring("ps") ap = request.querystring("ap") chs = request.querystring("chs") if ps="" then ps = 25 end if if ap="" then ap = 1 end if if chs="" then chs = 20 end if 'construct sqlstmt sqlstmt = "select* FROM business_meeting_point ORDER BY id DESC" ' if a search was made if request.form("search_client")<>"" then suche=request.form("search_client") sqlstmt = "select * FROM business_meeting_point WHERE Nombre_de_la_empresa like '%" & suche & "%' OR nombre like '%" & suche & "%' OR apellidos like '%" & suche & "%' OR calle like '%" & suche & "%' OR numero_casa like '%" & suche & "%' OR ciudad like '%" & suche & "%' OR email like '%" & suche & "%' ORDER BY Nombre_de_la_empresa ASC, apellidos ASC" 'response.write sqlstmt end if ' run query on database conn = strAdminProvider Set rs=Server.CreateObject("ADODB.Recordset") rs.cursorlocation=aduseclient rs.cachesize=5 rs.open sqlstmt,conn if rs.EOF and rs.BOF then response.write "" response.write "" response.write "" response.write "

Ningún cliente archivado.

" response.write "

" rs.close set rs = nothing response.end end if rs.movefirst rs.pagesize = ps maxpages=cint(rs.pagecount) rc=cint(rs.pagesize) rs.absolutepage = ap listcnt = 0 'print records found response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" DO UNTIL rs.eof OR listcnt>=rc response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" 'display country-name t_country=rs("country_cliente") ' database connection conn = strAdminProvider strSqlStmt3 = "select * FROM countries WHERE country_code = '" & t_country & "'" response.write strSqlStmt Set rs3=Server.CreateObject("ADODB.Recordset") rs3.open strSqlStmt3, conn if rs3.eof then response.write "" else response.write "" end if 'display asesora response.write "" if rs("active")="yes" then response.write "" else response.write "" end if response.write "" response.write "" response.write "" response.write "" rs.movenext listcnt=listcnt+1 LOOP DO UNTIL listcnt=ps response.write "

" & sec_user_companyname & "

" & sec_user_nombre &"

"& sec_user_apellido &"

Email

" & sec_user_country & "

" & sec_user_client &"

" & rs("Nombre_de_la_empresa") & "

" & rs("nombre") & "

" & rs("apellidos") & "

" & rs("email") & "

" & rs3("countries_" & session("lang") & "") & "

" & rs("asesora") & "

" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" listcnt = listcnt + 1 LOOP response.write "" 'print navigation bar if (ap mod chs) = 0 then chapter = (ap/chs) else chapter = int((ap / chs)+1) end if response.write "" response.write "" if chapter<>1 then response.write "" else response.write "" end if navcount = ((chs * chapter) - (chs-1)) FOR x=1 to chs temppagevalue = (chs * chapter - chs + x) if temppagevalue > maxpages then response.write "" else response.write "" end if navcount = navcount + 1 NEXT if chs*chapter" else response.write "" end if response.write "" response.write "" response.write "

int(ap) then response.write " bgcolor=""#66CCCC"">" else response.write " bgcolor=""#cccccc"">" end if response.write "" & temppagevalue & "

" 'cleanup rs.close set rs = nothing %>