|
<%
if Session("WRuser")<>"" then
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "select [UTel],[UAdr] from WR_User where UName='"&Session("WRuser")&"'"
set rs = conn.execute(sql)
if not rs.eof then
assAdr=rs("UAdr")
asstel=rs("UTel")
end if
rs.close
set rs=nothing
end if
%>
|