%@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 %>