<% Public Function Clean(s)
Clean = Trim(Replace(s, "'", "''"))
End Function
Public Function IsChecked( val1, val2 )
IsChecked = ""
If val1 = val2 Then
IsChecked = "checked"
End If
End Function
Public Function IsSelected( val1, val2 )
IsSelected = ""
If val1 = val2 Then
IsSelected = "selected"
End If
End Function
Function Nz(value,defaultValue)
If VarType(value) > 1 Then
Nz = value
Else
Nz = defaultValue
End If
End Function
LastPage = Request.ServerVariables("HTTP_REFERER")
function how_many(str, char)
Dim char_count
Length = Len(str)
count = 1
Do while count <= Length
character = Mid(str,count, 1) 'Read one character from the string at position count
If character = char Then
char_count = char_count + 1
End If
count = count + 1
Loop
how_many = char_count
end function
Sub mail_pirate(regarding, messagetext)
Dim MailTo_Array()
Dim Send_To_Array
If Application("AllowEmails") = 0 Then
Default_SendTo = Session("DefaultEmail") 'Write to the default table for recordkeeping and no emails
Screen = Request.ServerVariables("PATH_TRANSLATED")
Person = Session("admin_name")
When = Date
What = regarding
Set DataConn = Server.CreateObject("ADODB.Connection")
DataConn.ConnectionTimeout = Application("DataConn_ConnectionTimeout")
DataConn.CommandTimeout = Application("DataConn_CommandTimeout")
DataConn.Open Application("DataConn_ConnectionString"), Application("DataConn_RuntimeUserName"), Application("DataConn_RuntimePassword")
Set cmdTemp = Server.CreateObject("ADODB.Command")
Set objRst = Server.CreateObject("ADODB.Recordset")
sql = "INSERT INTO AuditTrail Values('" & Person & "','" & When & "','" & What & "','" & Screen & "')"
cmdTemp.CommandText = sql
cmdTemp.CommandType = 1
Set cmdTemp.ActiveConnection = DataConn
objRst.Open cmdTemp, , 0, 1
Else
temp_SendTo = Application("NotifyAddr") 'The Senders List
occurence_count = how_many(temp_SendTo, ";") + 1 'How many ;'s are in this string of emails
arraySize = occurence_count
ReDim MailTo_Array(arraySize)
count = 0
Do While count <= arraySize
occurence_index = InStr(temp_SendTo, ";") 'The position of the first ;
if occurence_index = 0 then
MailTo_Array(count) = temp_SendTo
exit do
end if
amount_to_read = occurence_index - 1
Send_To_Array = Left(temp_SendTo, amount_to_read) 'read that many characters excluding the ; into the array
MailTo_Array(count) = Send_To_Array
occurence_index = occurence_index + 1
temp_SendTo = Mid(temp_SendTo,occurence_index)
count = count + 1
Loop
count = 0
Do While count < UBound(MailTo_Array)
Set Mail = Server.createobject("Persits.MailSender")
Mail.Host = Session("MailHost")
Mail.UserName = Session("MailUser")
Mail.Password = Session("MailPass")
Mail.Subject = regarding
Mail.From = "sirokid1@laroche.edu"
Mail.Body = messagetext
Mail.AddAddress MailTo_Array(count)
Mail.Send
count = count + 1
Loop
Default_SendTo = Session("DefaultEmail") 'Write to the default table for recordkeeping and no emails
Screen = Request.ServerVariables("PATH_TRANSLATED")
Person = Session("admin_name")
When = Date
What = regarding
Set DataConn = Server.CreateObject("ADODB.Connection")
DataConn.ConnectionTimeout = Application("DataConn_ConnectionTimeout")
DataConn.CommandTimeout = Application("DataConn_CommandTimeout")
DataConn.Open Application("DataConn_ConnectionString"), Application("DataConn_RuntimeUserName"), Application("DataConn_RuntimePassword")
Set cmdTemp = Server.CreateObject("ADODB.Command")
Set objRst = Server.CreateObject("ADODB.Recordset")
sql = "INSERT INTO AuditTrail Values('" & Person & "','" & When & "','" & What & "','" & Screen & "')"
cmdTemp.CommandText = sql
cmdTemp.CommandType = 1
Set cmdTemp.ActiveConnection = DataConn
objRst.Open cmdTemp, , 0, 1
End If
End Sub %>
Informational materials are available below. In order to download and view these flyers, you must have Adobe Reader installed on your computer. If you do not have it installed, you can download it for free by clicking on the button to the right:
