<% memid = Request.QueryString("mid") memid = session("userid") 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") name = es(rs("fname")) sex= rs("sex") bdate = rs("dob") if bdate <> vbnullstring then b_arr = split(bdate,"/") dob = b_arr(1) & "/" & b_arr(0) & "/" & b_arr(2) end if 'hno = es(rs("houseno")) 'stname =es(rs("streetname")) 'unitno = es(rs("unitno")) 'bname = es(rs("bulname")) address = es(rs("address")) 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
Registration
<% if doj <> "" then %> <% else %> <% end if %>
<% msg = Request.QueryString("msg") if msg <> "" then %> <%=msg%> <% end if if Request.QueryString("result") <> "" then %> Member already Exists.. <% end if %>
Email* :
<% if session("uemail") <> "" then %> <% else %> <% end if %> (Note : This will be your UserName)
Password* :
 (Min 4 Char)
Confirm Password* :
 (Min 4 Char)
Name* :
Sex* :
Date of Birth:
Address* :
Postal Code* :
City :
State :
Country* :
Contact No * :
Alternate Contact No :
Fax :
  Asterisk * are compulsory fields
    <% if email <> vbnullstring then sql = "select * from mailinglist where email='" & email & "' and status <> 'Delete'" set r = getrecordset(Sql) if r.eof <> True and r.bof <> True then %> <% else %> <% end if else %> <% end if %>  Subscription to Newsletters
<% if email <> vbnullstring then %> <% else %> <% end if %>