<% memid = Request.QueryString("mid") if memid = "" then opcode = "add" else opcode = "edit" end if if Request.QueryString("mail") <> "" then email = Request.QueryString("mail") end if if session("uname") <> "" then sql = "select * from member where email = '" & session("uemail") & "'" set rs = getrecordset(sql) if rs.eof <> true and rs.bof <> true then email = es(rs("email")) pass = rs("pass") fname = es(rs("fname")) 'lname= es(rs("lname")) sex= rs("sex") 'nric = rs("nric") 'bdate = rs("dob") 'b_arr = split(bdate,"/") 'dob = b_arr(1) & "/" & b_arr(0) & "/" & b_arr(2) 'hno = es(rs("houseno")) 'stname =es(rs("streetname")) 'unitno = es(rs("unitno")) 'bname = es(rs("bulname")) city = es(rs("city")) state = es(rs("state")) country = rs("country") pin = rs("pin") phn = rs("phone") mob = rs("mobile") fax = rs("fax") doj = rs("doj") end if end if %> Country Florist
Forget Password
<% msg = Request.QueryString("msg") if msg <> vbNullString then %> <% end if %>
<%=msg%>
  Email Address: *