<% openDB '**Connection with DB Server Dim willShow willShow = true 'Saving the data Dim LowerJavaScript LowerJavaScript = True Dim SessionUserID SessionUserID = Session("User_ID") if Session("User_ID")<>"" then Loadrecord(Session("User_ID")) end if If Request.QueryString("Action") = "Save" then Dim Uploader, File Set Uploader = New FileUploader Uploader.Upload() If Add() Then willShow = False LowerJavaScript = False Else willShow = True LowerJavaScript = True End If ElseIf Request.QueryString("Action") = "Edit" Then LowerJavaScript = False LoadRecord(SessionUserID) End If %> <% If Session("User_ID") = "" Then %> <% End If %>

<%if Session("first_name")="" then %> <%End if%> <%if Session("first_name")<>"" then %> <%End if%>

Registration Form   <% If ErrorMsg<>"" then %> <% End IF %> <% If SuccessMsg <> "" then ' if success message has text then it will be IsEdit = False ' displayed and form will not be displayed %> <% Else %> <% If Session("User_id") = "" then HeadMessage="Registration Form" Else HeadMessage="Personal Settings Detail Form" End If %> <% If Session("User_ID") = "" Then %> <% End If %> <% if Session("User_ID") = "" Then %> <% End If %> <%end if%> Error Message <%=ErrorMsg%>   Success Message <%=SuccessMsg%>   >Return Fields with ( * ) are must required.   User Type: <%SelectList "Tbl_User_Type", "*", "where usertypeName<>'WalkInCustomer' order by usertypeName" , "usertypeName", "user_type_id", "user_type_id" , false, 0, user_type_id, " class='formTextField'","-- Select User Type --"%> Company Name : > Contact  Name : > Company Address : > First Name : >  * Last Name : maxlength="50">  * Address : >  * City : >  * State : <%SelectList "States", "*", "order by Statename" , "Statename", "State_id", "user_State" , false, 0, user_State, " class='formTextField' ",""%> Province : > Country : <%SelectList "Countries", "*", "order by CountryName" , "CountryName", "CountryID", "user_Country" , false, 0, user_Country, "class='formTextField'","" %> Zip Code : > Email : "" then%>readonly<%End if%> <%=Tooltip ("Your Valid Email ")%>>  * Telephone : > Fax : > Web Url : > Resume : >   <%=Resume_File_Name%> Description : ><%=User_Comment%> Buyer/Seller for : Medical Supplies Medical Equipment Vitamins Others     > >

<% If LowerJavaScript = True then %> <%End If %>