Insurance Visions: ClaimsONLINE

<%@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 = "dbo.tblContacts" MM_fields = "First,ContactFirst,',none,'',Last,ContactLast,',none,'',Company,Company,',none,'',City,City,',none,'',State,State,',none,'',Title,Title,',none,'',Email,eMail,',none,'',Voice,Phone,',none,'',ContactType,ContactType,none,none,NULL,DateAdded,DateAdded,',none,''" MM_redirectPage = "main2.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=InsuranceVisions;uid=qwikapp;pwd=users;" 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 %> Insurance Visions: ClaimsONLINE

Products: ClaimsONLINE

Sorry for the Inconvenience!

ClaimsONLINE is an ASP hosted web site that permits completion of state specific Employer's First Reports of Injury, Wage Statements, and supplemental forms via the Internet. Also included is the integrated maintenance of the OSHA 300 Log, claim maintenance, reports capabilities, and much more. Individual employers may subscribe to the service directly or insurance carriers, TPAs, and insurance brokers may provide as a value-added service. Carrier data housing, e-mail and fax capabilities available. The site is in the process of being redesigned using our latest Internet technologies and will be available on a state-by-state basis beginning in the first quarter 2004. Please check back with us. Thank you for your consideration.