| |
|
<%
if session("shifoudenglu") = "denglu" then
session("dengluuser")
session("useremail")
session("userleib")
end if
set conn = server.createobject("adodb.connection")
conn.open Application("sql")
set rs = server.createobject("adodb.recordset")
if session("userleib") = "personal" then
sql = "select memdanw,memaddr,memcode,memname,memtel,mememail,memurl from personal_lh where memid = " & session("dengluuserid")
rs.open sql,conn,1
gqdanw = rs("memdanw")
gqaddr = rs("memaddr")
gqyoubian=rs("memcode")
gqlian = rs("memname")
gqdian = rs("memtel")
gqchua = ""
gqmail = rs("mememail")
gqhome = rs("memurl")
rs.close
elseif session("userleib") = "unit" then
sql = "select unitname,unitaddr,unitcode,unitcaller,unittel,unitfax,unitemail,uniturl from membership_lh where unitid = " & session("dengluuserid")
rs.open sql,conn,1
gqdanw = rs("unitname")
gqaddr = rs("unitaddr")
gqyoubian=rs("unitcode")
gqlian = rs("unitcaller")
gqdian = rs("unittel")
gqchua = rs("unitfax")
gqmail = rs("unitemail")
gqhome = rs("uniturl")
rs.close
elseif session("userleib") = "expert" then
sql = "select ExpertCorp,ExpertAddress,ExpertPostcode,ExpertName,ExpertPhone,ExpertFax,ExpertEmail from ExpertTbl where ExpertId = " & session("dengluuserid")
rs.open sql,conn,1
gqdanw = rs("ExpertCorp")
gqaddr = rs("ExpertAddress")
gqyoubian=rs("ExpertPostcode")
gqlian = rs("ExpertName")
gqdian = rs("ExpertPhone")
gqchua = rs("ExpertFax")
gqmail = rs("ExpertEmail")
gqhome = ""
rs.close
end if
%>
<%
conn.close
set conn = nothing
%>
|
|
|
