%@LANGUAGE="VBSCRIPT"%> <% ' *** Edit Operations: declare variables MM_editAction = CStr(Request("URL")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Request.QueryString End If ' boolean to abort record edit MM_abortEdit = false ' query string to execute MM_editQuery = "" %> <% ' *** Insert Record: set variables If (CStr(Request("MM_insert")) <> "") Then MM_editConnection = MM_MRC_STRING MM_editTable = "register" MM_editRedirectUrl = "thanks.htm" MM_fieldsStr = "regDat|value|name|value|degree|value|specialty|value|address|value|city|value|state|value|zip|value|email|value|phone1|value|phone2|value|contact|value|country|value|medical|value|grad|value|residency|value|grad1|value|board|value|certified|value|special|value|other|value|experience|value|schedule|value|reason|value|avail|value|needs|value|maine|value|rural|value|hobby|value|addl|value" MM_columnsStr = "tblDatReg|',none,NULL|tblName|',none,''|tblDegree|',none,''|tblSpecialty|',none,''|tblAddress|',none,''|tblCity|',none,''|tblState|',none,''|tblZip|',none,''|tblEmail|',none,''|tblHomePhone|',none,''|tblPager|',none,''|tblTime|',none,''|tblCitizen|',none,''|tblMedSchool|',none,''|tblGrad|',none,''|tblResidency|',none,''|tblGrad2|',none,''|tblBoard|none,none,NULL|tblCert|none,none,NULL|tblSpecial|',none,''|tblOther|',none,''|tblExp|',none,''|tblSched|',none,''|tblReason|',none,''|tblAvail|',none,''|tblNeeds|',none,''|tblInterest|',none,''|tblRural|',none,''|tblHobby|',none,''|tblAddl|',none,''" ' create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr, "|") MM_columns = Split(MM_columnsStr, "|") ' set the form values For i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(i+1) = CStr(Request.Form(MM_fields(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 If (CStr(Request("MM_insert")) <> "") Then ' create the sql insert statement MM_tableValues = "" MM_dbValues = "" For i = LBound(MM_fields) To UBound(MM_fields) Step 2 FormVal = MM_fields(i+1) MM_typeArray = Split(MM_columns(i+1),",") Delim = MM_typeArray(0) If (Delim = "none") Then Delim = "" AltVal = MM_typeArray(1) If (AltVal = "none") Then AltVal = "" EmptyVal = MM_typeArray(2) If (EmptyVal = "none") Then EmptyVal = "" If (FormVal = "") Then FormVal = EmptyVal Else If (AltVal <> "") Then FormVal = AltVal ElseIf (Delim = "'") Then ' escape quotes FormVal = "'" & Replace(FormVal,"'","''") & "'" Else FormVal = Delim + FormVal + Delim End If End If If (i <> LBound(MM_fields)) Then MM_tableValues = MM_tableValues & "," MM_dbValues = MM_dbValues & "," End if MM_tableValues = MM_tableValues & MM_columns(i) MM_dbValues = MM_dbValues & 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 %>
![]() |
||||||||||||
The Maine Recruitment Center |
|
Physician/ Doctor Practice OpportunitiesIf you are a physician or doctor that is looking to set up a practice, then consider Maine! We have countless practice opportunities for physicians and doctors. At the Maine Recruitment Center (MRC), we specialize in representing doctor/ physician practice opportunities. We provide our services FREE of charge to doctors and physicians who are seeking practice opportunities. Whether you are looking to establish your first practice, or an experienced physician looking for a change, if you are interested in working in Maine, then you should register with us. The Maine Recruitment Center is a service of the Maine Hospital Association. We represent the employment needs of the majority of hospitals, medical clinics, and many private practices in Maine.
We are the doctor/ physician recruiter of choice for medical hiring organizations in Maine because of our association with the Maine Hospital Association, our nonprofit status, and our low costs. We attract, screen, qualify, and refer medical professionals appropriate for their specific needs. Our candidates get priority attention! The MRC is the place to turn to for physician practice
opportunities.
Directory | Maine
Physician Jobs | Maine
Medical Recruitment Center
|
||||||||||