<%@ Language=VBScript %> <% Dim sEmailAddr, sMsg On Error Resume Next sEmailAddr = Request.Form("EmailAddress") If Len(sEmailAddr) > 0 Then If InStr(1,sEmailAddr,"@") > 0 Then Call SendEmail Else sMsg = "Please enter a valid email address." End If End If If Err.number <> 0 Then sMsg = Err.Description End If Sub SendEmail() Dim oMail On Error Resume Next Set oMail = Server.CreateObject("CDONTS.NewMail") With oMail .From = "webmaster@blackmilwaukee.com" .To = sEmailAddr .Subject = "Testing Website" .Body = "This is only a test" .Send End With Set oMail = Nothing If Err.number <> 0 Then sMsg = Err.Description Err.Clear End If End Sub %> Events Internship
Events Internship Position

Job Description:

We are looking for a student who can work a couple of hours a week from home.  This job will entail retrieving events that going on in the city of Milwaukee by African-Americans or that spark the interest of African-Americans and entering the events on the website.  These events can be obtained via local newspapers, posters, radio, etc.

Job Qualifications:

-Must have clerical experience

-Must be able to work a couple of week from home

-Must have a computer with internet access

-Must a 2.5 or higher GPA

-Must have a email address

Apply Here:

Name: 

Address:

City: State: Zip:

Source:

Home Phone:

Email Address:

Gender:

Ethnicity:

Resume: Paste your resume here from any word processor. To do this, go to your word processor, pull up your resume, hit your [Ctrl] [A] on your keyboard, hit your [Ctrl] [C] on your keyboard, click in the box below, and then hit [Ctrl] [V].

<%If Len(sEmailAddr) > 0 And Len(sMsg) = 0 Then%>

Your Email was sent successfully.

<%End If%>