<% 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 = "helfrir1@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 %>
