%@ LANGUAGE=VBScript %>
<%
dim sid,Name,sex,tel,address,mail,msn,yahoo,skype,qq,uc,note
if session("id")<>"" then
sid= session("id")
sSql="Select * from BO where id='" & sId & "' "
Set rs=Server.CreateObject("ADODB.Recordset")
rs.Open sSql,Cn, 3
if not rs.eof then
Name =rs("name")
sex=rs("sex")
tel=rs("tel-1")
address=rs("address")
mail=rs("mail")
session("email")=mail
msn=rs("msn")
yahoo=rs("yahoo")
skype=rs("skype")
qq=rs("qq")
uc=rs("uc")
note=rs("note")
end if
end if
%>