<%@LANGUAGE="VBSCRIPT"%> <% ' *** Edit Operations: declare variables Dim MM_editAction Dim MM_abortEdit Dim MM_editQuery Dim MM_editCmd Dim MM_editConnection Dim MM_editTable Dim MM_editRedirectUrl Dim MM_editColumn Dim MM_recordId Dim MM_fieldsStr Dim MM_columnsStr Dim MM_fields Dim MM_columns Dim MM_typeArray Dim MM_formVal Dim MM_delim Dim MM_altVal Dim MM_emptyVal Dim MM_i MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString) End If ' boolean to abort record edit MM_abortEdit = false ' query string to execute MM_editQuery = "" %> <% ' *** Redirect if username exists MM_flag="MM_insert" If (CStr(Request(MM_flag)) <> "") Then MM_dupKeyRedirect="../../My%20webs/admin/loginerror.htm" MM_rsKeyConnection=MM_conn_STRING MM_dupKeyUsernameValue = CStr(Request.Form("userpass")) MM_dupKeySQL="SELECT userpass FROM js WHERE userpass='" & MM_dupKeyUsernameValue & "'" MM_adodbRecordset="ADODB.Recordset" set MM_rsKey=Server.CreateObject(MM_adodbRecordset) MM_rsKey.ActiveConnection=MM_rsKeyConnection MM_rsKey.Source=MM_dupKeySQL MM_rsKey.CursorType=0 MM_rsKey.CursorLocation=2 MM_rsKey.LockType=3 MM_rsKey.Open If Not MM_rsKey.EOF Or Not MM_rsKey.BOF Then ' the username was found - can not add the requested username MM_qsChar = "?" If (InStr(1,MM_dupKeyRedirect,"?") >= 1) Then MM_qsChar = "&" MM_dupKeyRedirect = MM_dupKeyRedirect & MM_qsChar & "requsername=" & MM_dupKeyUsernameValue Response.Redirect(MM_dupKeyRedirect) End If MM_rsKey.Close End If %> <% ' *** Insert Record: set variables If (CStr(Request("MM_insert")) = "form1") Then MM_editConnection = MM_conn_STRING MM_editTable = "js" MM_editRedirectUrl = "../../My%20webs/admin/main.asp" MM_fieldsStr = "username|value|userpass|value" MM_columnsStr = "username|none,none,NULL|userpass|none,none,NULL" ' create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr, "|") MM_columns = Split(MM_columnsStr, "|") ' set the form values For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i))) Next ' append the query string to the redirect URL If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If End If %> <% ' *** Insert Record: construct a sql insert statement and execute it Dim MM_tableValues Dim MM_dbValues If (CStr(Request("MM_insert")) <> "") Then ' create the sql insert statement MM_tableValues = "" MM_dbValues = "" For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_formVal = MM_fields(MM_i+1) MM_typeArray = Split(MM_columns(MM_i+1),",") MM_delim = MM_typeArray(0) If (MM_delim = "none") Then MM_delim = "" MM_altVal = MM_typeArray(1) If (MM_altVal = "none") Then MM_altVal = "" MM_emptyVal = MM_typeArray(2) If (MM_emptyVal = "none") Then MM_emptyVal = "" If (MM_formVal = "") Then MM_formVal = MM_emptyVal Else If (MM_altVal <> "") Then MM_formVal = MM_altVal ElseIf (MM_delim = "'") Then ' escape quotes MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'" Else MM_formVal = MM_delim + MM_formVal + MM_delim End If End If If (MM_i <> LBound(MM_fields)) Then MM_tableValues = MM_tableValues & "," MM_dbValues = MM_dbValues & "," End If MM_tableValues = MM_tableValues & MM_columns(MM_i) MM_dbValues = MM_dbValues & MM_formVal Next MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")" If (Not MM_abortEdit) Then ' execute the insert Set MM_editCmd = Server.CreateObject("ADODB.Command") MM_editCmd.ActiveConnection = MM_editConnection MM_editCmd.CommandText = MM_editQuery MM_editCmd.Execute MM_editCmd.ActiveConnection.Close If (MM_editRedirectUrl <> "") Then Response.Redirect(MM_editRedirectUrl) End If End If End If %> <% ' *** Validate request to log in to this site. MM_LoginAction = Request.ServerVariables("URL") If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Server.HTMLEncode(Request.QueryString) MM_valUsername=CStr(Request.Form("username")) If MM_valUsername <> "" Then MM_fldUserAuthorization="编号" MM_redirectLoginSuccess="../../My%20webs/admin/main.asp" MM_redirectLoginFailed="../../My%20webs/admin/loginerror.htm" MM_flag="ADODB.Recordset" set MM_rsUser = Server.CreateObject(MM_flag) MM_rsUser.ActiveConnection = MM_conn_STRING MM_rsUser.Source = "SELECT username, userpass" If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization MM_rsUser.Source = MM_rsUser.Source & " FROM js WHERE username='" & Replace(MM_valUsername,"'","''") &"' AND userpass='" & Replace(Request.Form("userpass"),"'","''") & "'" MM_rsUser.CursorType = 0 MM_rsUser.CursorLocation = 2 MM_rsUser.LockType = 3 MM_rsUser.Open If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then ' username and password match - this is a valid user Session("MM_Username") = MM_valUsername If (MM_fldUserAuthorization <> "") Then Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value) Else Session("MM_UserAuthorization") = "" End If if CStr(Request.QueryString("accessdenied")) <> "" And false Then MM_redirectLoginSuccess = Request.QueryString("accessdenied") End If MM_rsUser.Close Response.Redirect(MM_redirectLoginSuccess) End If MM_rsUser.Close Response.Redirect(MM_redirectLoginFailed) End If %> 揭阳建设网
首 页 建设风采 政务资讯 业界动态 行业管理 企业展台 政策法规 建设英才 协会学会
会员中心

 

建设部住宅与房地产业司准予臧玉梅等初始注册的房地产估价师名单

根据《准予建设行政许可决定书》（建住房许（2005）009、建住房许（2005）010、建住房许（2005）011），准予臧玉梅等82人初始注册。

　　附：准予初始注册的房地产估价师名单

建设部住宅与房地产业司

二○○五年一月二十六日

准予初始注册的房地产估价师名单

准予建设行政许可决定书编号

序号

所在省

姓名

注册号

申请执业单位名称

建住房许（2005 ） 009

1

黑龙江省

臧玉梅

2320050001

哈尔滨大有房地产估价咨询有限公司

2

黑龙江省

韩冰

2320050002

哈尔滨华泰房地产咨询估价有限责任公司

3

黑龙江省

邱发强

2320050003

黑龙江平安房地产估价有限公司

4

黑龙江省

丁玲霞

2320050004

哈尔滨天评房地产评估有限公司

5

黑龙江省

张沁

2320050005

齐齐哈尔博兴房地产估价咨询有限公司

建住房许（2005）011

6

山东省

张勇

3720050001

临沂嘉利得房地产评估有限公司

7

山东省

王丽

3720050002

临沂嘉利得房地产评估有限公司

8

山东省

于康萍

3720050003

临沂嘉利得房地产评估有限公司

9

山东省

赵文刚

3720050004

临沂鸿信房地产评估有限公司

10

山东省

舒永秀

3720050005

临沂鸿信房地产评估有限公司

11

山东省

王兆伟

3720050006

临沂鸿信房地产评估有限公司

12

山东省

亓庆山

3720050007

莱芜金易房地产评估中介咨询有限公司

13

山东省

黄学军

3720050008

莱芜金易房地产评估中介咨询有限公司

14

山东省

杨军霞

3720050009

莱芜金易房地产评估中介咨询有限公司

15

山东省

周良峰

3720050010

临沂大宇房地产评估有限责任公司

16

山东省

解自伟

3720050011

临沂大宇房地产评估有限责任公司

17

山东省

陈晓祥

3720050012

临沂大宇房地产评估有限责任公司

18

山东省

程玉奇

3720050013

沂源县新源房地产评估有限公司

19

山东省

周在琪

3720050014

沂源县新源房地产评估有限公司

20

山东省

刘俊丽

3720050015

无棣县普丰房地产评估有限责任公司

21

山东省

司海亮

3720050016

无棣县普丰房地产评估有限责任公司

22

山东省

张廷军

3720050017

无棣县普丰房地产评估有限责任公司

23

山东省

蔡民

3720050018

德州正融房地产评估有限公司

24

山东省

商炳龙

3720050019

德州正融房地产评估有限公司

25

山东省

潘辉

3720050020

德州正融房地产评估有限公司

26

山东省

周红梅

3720050021

德州正融房地产评估有限公司

27

山东省

郭龙海

3720050022

东营市华鑫房地产评估有限责任公司

28

山东省

刘庚山

3720050023

东营市华鑫房地产评估有限责任公司

29

山东省

宋富贵

3720050024

东营市华鑫房地产评估有限责任公司

30

山东省

杨月强

3720050025

东营市华鑫房地产评估有限责任公司

31

山东省

李芳

3720050026

东营通诚房地产价格评估有限公司

32

山东省

刘宗彬

3720050027

东营通诚房地产价格评估有限公司

33

山东省

张建文

3720050028

东营通诚房地产价格评估有限公司

34

山东省

赵光海

3720050029

东营通诚房地产价格评估有限公司

35

山东省

朱连文

3720050030

东营通诚房地产价格评估有限公司

36

山东省

李常学

3720050031

费县诚信房地产评估有限责任公司

37

山东省

卞瑞庆

3720050032

泰安明信房地产评估有限公司

38

山东省

亓春岩

3720050033

泰安明信房地产评估有限公司

39

山东省

夏新

3720050034

泰安明信房地产评估有限公司

40

山东省

张培照

3720050035

泰安明信房地产评估有限公司

41

山东省

赵纯会

3720050036

泰安明信房地产评估有限公司

42

山东省

朱树玉

3720050037

泰安明信房地产评估有限公司

43

山东省

陈军建

3720050038

威海市恒业房地产评估咨询有限公司

44

山东省

宫晓利

3720050039

威海市恒业房地产评估咨询有限公司

45

山东省

田东辉

3720050040

威海市恒业房地产评估咨询有限公司

46

山东省

宫明论

3720050041

烟台协民房地产评估有限公司

47

山东省

孙凯

3720050042

烟台协民房地产评估有限公司

48

山东省

王俊

3720050043

烟台协民房地产评估有限公司

49

山东省

于雪梅

3720050044

烟台协民房地产评估有限公司

50

山东省

安涛

3720050045

淄博齐正房地产估价事务所有限公司

51

山东省

陈钢

3720050046

淄博齐正房地产估价事务所有限公司

52

山东省

邵志强

3720050047

淄博齐正房地产估价事务所有限公司

53

山东省

王玉峰

3720050048

淄博齐正房地产估价事务所有限公司

54

山东省

姚国华

3720050049

淄博齐正房地产估价事务所有限公司

55

山东省

赵立群

3720050050

淄博齐正房地产估价事务所有限公司

56

山东省

高书信

3720050051

淄博齐正房地产估价事务所有限公司

57

山东省

马国清

3720050052

滨州开元房地产评估有限公司

58

山东省

李忠福

3720050053

滨州开元房地产评估有限公司

59

山东省

谭萍

3720050054

烟台信宇房地产评估有限公司

60

山东省

蒋咏梅

3720050055

烟台信宇房地产评估有限公司

61

山东省

张磊

3720050056

曹县清源房地产估价师事务所

62

山东省

刘艺

3720050057

曹县清源房地产估价师事务所

63

山东省

李勇

3720050058

临沂诚信房地产评估有限责任公司

64

山东省

苏彦浩

3720050059

临沂方正房地产评估有限责任公司

65

山东省

郭先萍

3720050060

临沂方正房地产评估有限责任公司

66

山东省

徐成栋

3720050061

临沂方正房地产评估有限责任公司

67

山东省

丁立军

3720050062

临沂诚信房地产评估有限责任公司

68

山东省

于成杰

3720050063

临沂诚信房地产评估有限责任公司

69

山东省

孙海琳

3720050064

临邑方正房地产评估咨询有限公司

70

山东省

张平平

3720050065

临邑方正房地产评估咨询有限公司

71

山东省

余海燕

3720050066

临邑方正房地产评估咨询有限公司

72

山东省

陈萍

3720050067

临邑方正房地产评估咨询有限公司

73

山东省

郝德义

3720050068

临沂海大房地产价格评估有限公司

74

山东省

孙奎

3720050069

临沂海大房地产价格评估有限公司

75

山东省

刘海英

3720050070

临沂海大房地产价格评估有限公司

76

山东省

刘延斌

3720050071

枣庄市凌志房地产评估咨询有限公司

建住房许（ 2005 ） 010

77

陕西省

姚素芳

6120050001

陕西高德房地产评估有限公司

78

陕西省

张伟

6120050002

陕西高德房地产评估有限公司

79

陕西省

吴惠萍

6120050003

陕西高德房地产评估有限公司

80

陕西省

杨昕

6120050004

陕西高德房地产评估有限公司

81

陕西省

周宝东

6120050005

陕西高德房地产评估有限公司

82

陕西省

樊晓阳

6120050006

陕西高德房地产评估有限公司