%@LANGUAGE="VBSCRIPT"%> <% Dim rsRandom Dim rsRandom_cmd Dim rsRandom_numRows Set rsRandom_cmd = Server.CreateObject ("ADODB.Command") rsRandom_cmd.ActiveConnection = MM_ntsafSQL_STRING rsRandom_cmd.CommandText = "SELECT * FROM dbo.view_Random" rsRandom_cmd.Prepared = true Set rsRandom = rsRandom_cmd.Execute rsRandom_numRows = 0 %> <% Dim MM_editAction 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 Dim MM_abortEdit MM_abortEdit = false %> <% ' IIf implementation Function MM_IIf(condition, ifTrue, ifFalse) If condition = "" Then MM_IIf = ifFalse Else MM_IIf = ifTrue End If End Function %> <% If (CStr(Request("MM_insert")) = "frmRequest") AND (cStr(Request.ServerVariables("HTTP_HOST")) = "sait.usc.edu") AND Request("FrmID") = (rsRandom.Fields.Item("RandomID").Value)&(rsRandom.Fields.Item("RandomNo").Value) AND Request("txtSessionID") = (Session.SessionID) Then If (Not MM_abortEdit) Then ' execute the insert Dim MM_editCmd Set MM_editCmd = Server.CreateObject ("ADODB.Command") MM_editCmd.ActiveConnection = MM_ntsafSQL_STRING MM_editCmd.CommandText = "INSERT INTO dbo.tbl_PresentationRequest (FirstName, LastName, Title, School, PhoneNumber, PhoneExt, EmailAddress, Event, NoAttendees, Comments, FrmID, IPAddress, SessionID) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)" MM_editCmd.Prepared = true MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 202, 1, 50, Request.Form("FirstName")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 202, 1, 50, Request.Form("LastName")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 202, 1, 50, Request.Form("Title")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 202, 1, 50, Request.Form("School")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param5", 202, 1, 50, Request.Form("PhoneNumber")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param6", 202, 1, 50, Request.Form("PhoneExt")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param7", 202, 1, 100, Request.Form("EmailAddress")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param8", 202, 1, 100, Request.Form("Event")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param9", 5, 1, -1, MM_IIF(Request.Form("NoAttendees"), Request.Form("NoAttendees"), null)) ' adDouble MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param10", 202, 1, 4000, Request.Form("Comments")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param11", 5, 1, -1, MM_IIF(Request.Form("FrmID"), Request.Form("FrmID"), null)) ' adDouble MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param12", 202, 1, 50, Request.Form("IPAddress")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param13", 5, 1, -1, MM_IIF(Request.Form("txtSessionID"), Request.Form("txtSessionID"), null)) ' adDouble MM_editCmd.Execute MM_editCmd.ActiveConnection.Close End If End If %> <% function WA_Universal_Email_1_SendMail(RecipientEmail) dim MailObject, MailAttachments, MailBCC, MailCC, MailTo, MailBodyFormat, MailBody, MailImportance, MailFrom, MailSubject MailAttachments = "" MailBCC = "" MailCC = "" MailTo = "" MailBodyFormat = "" MailBody = "" MailImportance = "" MailFrom = "" & cStr(cStr(Request.Form("FirstName"))) & " " & cStr(cStr(Request.Form("LastName"))) & "|WA|" & cStr(cStr(Request.Form("EmailAddress"))) & "" MailSubject = "NTSAF Outreach Request Form" 'Global Variables gBodyFormat = "" set WA_MailObject = WAUE_Definition("email.usc.edu","25","","") if (RecipientEmail <> "") then set WA_MailObject = WAUE_AddRecipient(WA_MailObject,RecipientEmail) else 'To Entries set WA_MailObject = WAUE_AddRecipient(WA_MailObject,"ntsaf@usc.edu") end if 'Attachment Entries 'BCC Entries 'CC Entries 'Body Format set WA_MailObject = WAUE_BodyFormat(WA_MailObject,1) MailBodyFormat = gBodyFormat 'Set Importance set WA_MailObject = WAUE_SetImportance(WA_MailObject,"1") 'Start Mail Body MailBody = MailBody & "Dear NTSAF," & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "You have received an online submission to the Request for Presentation page. The following information was submitted:" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "First Name: " MailBody = MailBody & cStr(Request.Form("FirstName")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Last Name: " MailBody = MailBody & cStr(Request.Form("LastName")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Title: " MailBody = MailBody & cStr(Request.Form("Title")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "School: " MailBody = MailBody & cStr(Request.Form("School")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Phone: " MailBody = MailBody & cStr(Request.Form("PhoneNumber")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Ext: " MailBody = MailBody & cStr(Request.Form("PhoneExt")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Email: " MailBody = MailBody & cStr(Request.Form("EmailAddress")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Event: " MailBody = MailBody & cStr(Request.Form("Event")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "# of Attendees: " MailBody = MailBody & cStr(Request.Form("NoAttendees")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Comments: " MailBody = MailBody & cStr(Request.Form("Comments")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "You can also view this information via the NTSA Staff Administration site:" & vbCrlf & "" MailBody = MailBody & "https://sait.usc.edu/ntsaf/admin" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Sincerely," & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "The NTSAF Website" 'End Mail Body set WA_MailObject = WAUE_SendMail(WA_MailObject,MailAttachments,MailBCC,MailCC,MailTo,MailImportance,MailFrom,MailSubject,MailBody) set WA_MailObject = nothing end function %> <% if ((cStr(Request.Form("Submit")) <> "")) AND (cStr(Request.ServerVariables("HTTP_HOST")) = "sait.usc.edu") AND Request("FrmID") = (rsRandom.Fields.Item("RandomID").Value)&(rsRandom.Fields.Item("RandomNo").Value) AND Request("txtSessionID") = (Session.SessionID) Then 'WA Universal Email object="AspEmail" 'Send Loop Once Per Entry 'Send Mail All Entries WA_Universal_Email_1_SendMail("") if ("info_outreach_success.asp"<>"") then Response.Redirect("info_outreach_success.asp") end if end if %>
|
|
![]() |
|
|||||||||||||||||
|
|
|
|
|||||||||||||||||
|
|
|
|
|||||||||||||||||
CONTACT INFORMATION Norman Topping Student Aid Fund Phone: (213) 740-7575 Email: ntsaf@usc.edu |
|
|
|||||||||||||||||
|
|
|||||||||||||||||||