<%@LANGUAGE="VBSCRIPT"%><% ' *** Insert Record: construct a sql insert statement and execute it MM_editAction = CStr(Request("URL")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Request.QueryString End If If (CStr(Request("MM_insert")) <> "") Then MM_tableName = "tblInsurance" MM_fields = "account1,account1,',none,'',EnteredDate,EnteredDate,',none,'',UserIPAddress,UserIPAddress,',none,'',subscriber_first_name,subscriber_first_name,',none,'',subscriber_last_name,subscriber_last_name,',none,'',subscriber_middle_initial,subscriber_middle_initial,',none,'',subscriber_ssnumber,subscriber_ssnumber,',none,'',subscriber_mm,subscriber_mm,',none,'',subscriber_dd,subscriber_dd,',none,'',subscriber_yyyy,subscriber_yyyy,',none,'',day_phone,day_phone,',none,'',evening_phone,evening_phone,',none,'',email,email,',none,'',relation,relation,',none,'',first_name,first_name,',none,'',last_name,last_name,',none,'',middle_initial,middle_initial,',none,'',birthdate_mm,birthdate_mm,',none,'',birthdate_dd,birthdate_dd,',none,'',birthdate_yyyy,birthdate_yyyy,',none,'',sex,sex,',none,'',insurance_name,insurance_name,',none,'',insurance_mm,insurance_mm,',none,'',insurance_dd,insurance_dd,',none,'',insurance_yyyy,insurance_yyyy,',none,'',insurance_type,insurance_type,',none,'',policy_number,policy_number,',none,'',group_number,group_number,',none,'',insurance_address1,insurance_address1,',none,'',Insurance_address2,insurance_address2,',none,'',insurance_city,insurance_city,',none,'',insurance_state,insurance_state,',none,'',insurance_zip,insurance_zip,',none,'',insurance_zip2,insurance_zip2,',none,'',insurance_country,insurance_country,',none,'',insurance_nameb,insurance_nameb,',none,'',insurance_mmb,insurance_mmb,',none,'',insurance_ddb,insurance_ddb,',none,'',insurance_yyyyb,insurance_yyyyb,',none,'',insurance_typeb,insurance_typeb,',none,'',policy_numberb,policy_numberb,',none,'',group_numberb,group_numberb,',none,'',insurance_address1b,insurance_address1b,',none,'',insurance_address2b,insurance_address2b,',none,'',insurance_cityb,insurance_cityb,',none,'',insurance_stateb,insurance_stateb,',none,'',insurance_zipb,insurance_zipb,',none,'',insurance_zipb2,insurance_zipb2,',none,'',insurance_countryb,insurance_countryb,',none,'',Password,Password,',none,''" MM_redirectPage = "insuranceinfo_mail.asp" ' create the insert sql statement MM_tableValues = "" MM_dbValues = "" MM_fieldsArray = Split(MM_fields, ",") For i = LBound(MM_fieldsArray) To UBound(MM_fieldsArray) Step 5 FormVal = CStr(Request.Form(MM_fieldsArray(i))) Delim = MM_fieldsArray(i+2) If (Delim = "none") Then Delim = "" AltVal = MM_fieldsArray(i+3) If (AltVal = "none") Then AltVal = "" EmptyVal = MM_fieldsArray(i+4) 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_fieldsArray)) Then MM_tableValues = MM_tableValues & "," MM_dbValues = MM_dbValues & "," End if MM_tableValues = MM_tableValues & MM_fieldsArray(i+1) MM_dbValues = MM_dbValues & FormVal Next MM_insertStr = "insert into " & MM_tableName & " (" & MM_tableValues & ") values (" & MM_dbValues & ")" ' finish the sql and execute it Set MM_insertCmd = Server.CreateObject("ADODB.Command") MM_insertCmd.ActiveConnection = "dsn=hmgpc_db;uid=joe;pwd=logan;" MM_insertCmd.CommandText = MM_insertStr MM_insertCmd.Execute ' redirect with URL parameters If (MM_redirectPage = "") Then MM_redirectPage = CStr(Request("URL")) End If If (InStr(1, MM_redirectPage, "?", vbTextCompare) = 0 And (Request.QueryString <> "")) Then MM_redirectPage = MM_redirectPage & "?" & Request.QueryString End If Call Response.Redirect(MM_redirectPage) End If %><% Dim strIPAddress, strPassword, strDay, strMonth, strSecond strIPAddress = Request.ServerVariables("REMOTE_ADDR") strDay = Day(Now) * 2 strMonth = Month(Now) strSecond = Second(Now) * 4 strPassword = strDay & strMonth & strSecond %> Huntington Medical Group PC.com












INSURANCE INFORMATION

Under Construction



180 East Pulaski Road, Huntington Station, New York 11746
Phone: (631) 425-2121   Fax: (631) 425-2193

If you need information about our services, please call us at the phone number above.

All information and content © 1997 – 2007 Huntington Medical Group, P.C. All rights reserved.