<% if request("info")="add" then rs.open "select * from centro_friendlist",conn,1,2 rs.addnew rs("Apellido")=request("fname") rs("Nombre")=request("lname") rs("email")=request("email") rs("UserId")=session("userID") rs.update call friend() end if %> <% sub friend() dim str str="" str=str & " " str=str & " " str=str & " " str=str & "

Participantes Agregados" str=str & "

" str=str & "" str=str & "" str=str & " " str=str & " " sql="select * from centro_friendlist where userID="&session("userID") if rs.state=1 then rs.close rs.open sql,conn,1,2 if not rs.eof and not rs.bof then do until rs.eof str=str & "" str=str& "" str=str & "" str=str & "" rs.movenext loop end if str=str & "

Apellido	Nombre	E-mail
"& rs("Apellido") &"	"& rs("Nombre")&"	"& rs("email") &"

" response.Write("") %> <% end sub if request("info")="del" then str="delete from centro_friendlist where ID="&request("ID") conn.execute(str) call friend() end if %>

Participantes Agregados

Apellido	Nombre	E-mail