<%@LANGUAGE="VBSCRIPT"%> <% ' FileName="Connection_odbc_conn_dsn.htm" ' Type="ADO" ' DesigntimeType="ADO" ' HTTP="true" ' Catalog="" ' Schema="" Dim MM_phillipsmitchell_STRING ' MM_phillipsmitchell_STRING = "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.Mappath("\db\cochrandoctor.mdb") & ";Uid=;Pwd=;" 'MM_pillipsmitchell_STRING = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=E:\Domain\justaskourdoctors.com\db\cochrandoctor.mdb" MM_phillipsmitchell_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath ("\db\cochrandoctor.mdb") & ";" %> <% ' *** Edit Operations: declare variables Dim MM_editAction, MM_abortEdit, MM_editQuery, MM_editCmd, MM_editConnection, MM_editTable, MM_editRedirectUrl, MM_editColumn, MM_recordId Dim MM_fieldsStr, MM_columnsStr, MM_fields, MM_columns, MM_typeArray, MM_formVal, MM_delim, MM_altVal, MM_emptyVal, MM_i MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString) End If ' boolean to abort record edit MM_abortEdit = false ' query string to execute MM_editQuery = "" %> <% dim blankField blankField = false %> <% '****************************************************************************** 'COMMENTED OUT BY Chad ON 09/07/2007 (now handled by /php-ini/formhandler.php '****************************************************************************** ' *** Insert Record: set variables ' 'If (CStr(Request("MM_insert")) = "form_index") Then ' ' Call PrintVariables() ' ' 'if Request.Form("email") = "" OR _ 'Request.Form("topic") = "" then 'blankField = True 'MM_abortEdit = true 'end if ' ' ' MM_editConnection = MM_phillipsmitchell_STRING ' MM_editTable = "t_request" ' MM_editRedirectUrl = "thankyou.asp" ' MM_fieldsStr = "first_name|value|last_name|value|email|value|topic|value|request_date|value" ' MM_columnsStr = "request_firstname|',none,''|request_lastname|',none,''|request_email|',none,''|request_topic|',none,''|request_date|none,none,NULL" ' ' ' create the MM_fields and MM_columns arrays ' MM_fields = Split(MM_fieldsStr, "|") ' MM_columns = Split(MM_columnsStr, "|") ' ' ' set the form values ' For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 ' MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_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 %> <% '****************************************************************************** 'COMMENTED OUT BY Chad ON 09/07/2007 (now handled by /php-ini/formhandler.php '****************************************************************************** ' *** Insert Record: construct a sql insert statement and execute it 'Dim MM_tableValues 'Dim MM_dbValues ' 'If (CStr(Request("MM_insert")) <> "") Then ' ' ' create the sql insert statement ' MM_tableValues = "" ' MM_dbValues = "" ' For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 ' MM_formVal = MM_fields(MM_i+1) ' MM_typeArray = Split(MM_columns(MM_i+1),",") ' MM_delim = MM_typeArray(0) ' If (MM_delim = "none") Then MM_delim = "" ' MM_altVal = MM_typeArray(1) ' If (MM_altVal = "none") Then MM_altVal = "" ' MM_emptyVal = MM_typeArray(2) ' If (MM_emptyVal = "none") Then MM_emptyVal = "" ' If (MM_formVal = "") Then ' MM_formVal = MM_emptyVal ' Else ' If (MM_altVal <> "") Then ' MM_formVal = MM_altVal ' ElseIf (MM_delim = "'") Then ' escape quotes ' MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'" ' Else ' MM_formVal = MM_delim + MM_formVal + MM_delim ' End If ' End If ' If (MM_i <> LBound(MM_fields)) Then ' MM_tableValues = MM_tableValues & "," ' MM_dbValues = MM_dbValues & "," ' End If ' MM_tableValues = MM_tableValues & MM_columns(MM_i) ' MM_dbValues = MM_dbValues & MM_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 ' ' 'send email alert to site administrator ' 'Set MailObj = Server.CreateObject("Persits.MailSender") ' 'MailFrom = "" & Request.Form("email") & "" ' 'objCDOMail.To = "jmitchell@thecochranfirmno.com, melias@thecochranfirmno.com" ' 'MailTo = "david@activepixel.com" ' ' 'MailObj.Subject = strSubject ' 'strSubject = "JustAskOurDoctors.com : Request for a medical topic" ' 'strBody = "A request/suggestion for a new medical topic to be added to the website." & Chr(13) ' 'strBody = strBody & Chr(13) & Request.Form("subject") & Chr(13) ' 'MailObj.Subject = strSubject ' 'MailObj.Body = strBody ' 'MailObj.Send = "mail.teche.net" ' 'Set MailObj = Nothing ' ' Set Mail = Server.CreateObject("Persits.MailSender") ' 'enter valid SMTP host ' Mail.Host = "mail.teche.net" ' Mail.Port = 25 ' ' Mail.From = "" & Request.Form("email") & ""' From address ' Mail.FromName = "" & Request.Form("first_name") & " " & Request.Form("last_name") & "" ' optional ' Mail.AddAddress " jmitchell@thecochranfirmno.com, melias@thecochranfirmno.com" ' 'Mail.AddBcc "david@activepixel.com" ' ' ' message subject ' Mail.Subject = "JustAskOurDoctors.com : Request for a medical topic" ' ' message body ' strBody = "A request/suggestion for a new medical topic to be added to the website." & Chr(13) ' strBody = strBody & Chr(13) & Request.Form("topic") & Chr(13) ' Mail.Body = strBody ' strErr = "" ' bSuccess = False ' On Error Resume Next ' catch errors ' Mail.Send ' send message ' If Err <> 0 Then ' error occurred ' strErr = Err.Description ' else ' bSuccess = True ' End If ' ' If (MM_editRedirectUrl <> "") Then ' Response.Redirect(MM_editRedirectUrl) ' End If ' End If ' 'End If %> Just Ask Our Doctors : The Cochran Firm

Search Our Site

This medical reference site is sponsored by The Cochran Firm
©<%=Year(Date())%> The Cochran Firm

Are you concerned about the healthcare you or someone you know is receiving or received in the past? If your care was not appropriate and it caused injury, our team of physicians can provide a free review. Want to learn more about a procedure or disease process? Read articles written by some of the top practicing physicians in this country. Health & Wellness features several articles from one of the nation’s most prominent health and fitness gurus, Mackie Shilstone.
Do you have a topic you would like to see discussed by our doctors in a future article? If so, give us your suggestions
<% if blankField = True then %> <% end if %>
*=Required
<% if Request.Form("email") = "" then %> Please provide a valid email address. <% end if %> <% if Request.Form("topic") = "" then %>
Please suggest a topic. <% end if %>
First Name:  Last:
*E-mail:
*Topic:
*Security Code:
Dynamically generated image