<%
If strID = "UNKNOWN" and (Request.Form("Send") = "") Then
%>
|
President: |
Brad
Bellville |
|
| Vice
President: |
Jim Recore |
|
|
Treasurer: |
Bob Duby |
|
|
Secretary: |
|
|
| Member
at Large: |
Mark
Fortier |
413.369.4699 |
| |
|
|
|
Membership: |
Ron Hawkes |
|
| Sporting
Clays: |
Don Siegel |
413.369.4077 |
| Archery: |
Jim Robator |
413.268.7508 |
<%
End If
%>
<%
strHost = "mail.conwaysports.org"
strFromEmail = Request.Form("FromEmail")
strFromName = Request.Form("FromName")
strSubject = "[CONWAYSPORTS] " & Request.Form("Subject")
strBody = Request.Form("Body")
strBody = strBody & vbCrLf & vbCrLf & vbCrLf & "From: " & strFromName & vbCrLf & "Email: " & strFromEmail & vbCrLf
If bAdditional Then
strBody = strBody & vbCrLf & vbCrLf & vbCrLf & "Home Town: " & Request.Form("HomeTown") & vbCrLf & "Club: " & Request.Form("ClubName") & vbCrLf
End If
strCC = Request.Form("CC")
Set fs=CreateObject("Scripting.FileSystemObject")
Set f=fs.OpenTextFile(Server.MapPath(strFile),ForReading)
inString = f.ReadAll
outArray = Split(inString, vbCrLf)
f.Close
Set f=Nothing
Set fs=Nothing
strList = ""
For i=0 to UBound(outArray)
If outArray(i) <> "" and Instr(outArray(i),"###") > 0 and Left(outArray(i), 2) <> "//" Then
arrLine = Split(outArray(i),"###")
If UCase(arrLine(iID)) = UCase(strID) Then
If arrLine(iName) = "" Then
strName = arrLine(iAltName)
Else
strName = arrLine(iName)
End If
strEmail = arrLine(iEmail)
strFoundID = arrLine(iID)
bFound = true
Exit For
End If
strList = strList & outArray(i) & "|||"
End If
Next
arrList = Split(strList, "|||")
If Request.Form("Send") <> "" Then
Set Mail = CreateObject("Persits.MailSender")
' enter valid SMTP host
Mail.Host = strHost
Mail.Username = "mail.sender@conwaysports.org"
Mail.Password = "AllAbout2005"
'Mail.From = strFromEmail ' From address
'Mail.FromName = strFromName ' optional
Mail.From = "mail.sender@conwaysports.org"
Mail.FromName = "Conway Sportsman's Club Email Form"
Mail.AddAddress strEmail, strName
Mail.AddReplyTo strFromEmail, strFromName
If strCC = "YES" Then
Mail.AddCC strFromEmail, strFromName
End If
' message subject
Mail.Subject = strSubject
' message body
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 strErr <> "" Then
Response.Write("
Error occurred: " & strErr)
End If
If bSuccess Then
Response.Write("
Success!Your message was sent to " & strName & ".
")
End If
ElseIf Request.Form("SHOWEMAIL") = "Show Me The Email Address" Then
Response.Write("
" & strName & "'s Email Address is " & strEmail & ".")
Else
%>
