KU Connection :: Issue 1, February 2002

<%@ LANGUAGE=VBSCRIPT %> <% Response.Expires = 0 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Define Cuss words redim cussWords(74) cussWords(0) = "shit" cussWords(1) = "shits" cussWords(2) = "shittin" cussWords(3) = "shitting" cussWords(4) = "shitter" cussWords(5) = "fuck" cussWords(6) = "fuckin" cussWords(7) = "fucking" cussWords(8) = "fucker" cussWords(9) = "fuckers" cussWords(10) = "fucka" cussWords(11) = "fuckas" cussWords(12) = "cunt" cussWords(13) = "pussy" cussWords(14) = "cock" cussWords(15) = "dick" cussWords(16) = "slut" cussWords(17) = "asshole" cussWords(18) = "faggit" cussWords(19) = "faggot" cussWords(20) = "fag" cussWords(21) = "tit" cussWords(22) = "tits" cussWords(23) = "titty" cussWords(24) = "tittys" cussWords(25) = "titties" cussWords(26) = "goddamn" cussWords(27) = "nigger" cussWords(28) = "cocksucker" cussWords(29) = "cocksuckers" cussWords(30) = "cocksuckin" cussWords(31) = "cocksucking" cussWords(32) = "dicksucker" cussWords(33) = "dicksuckers" cussWords(34) = "dicksuckin" cussWords(35) = "dicksucking" cussWords(36) = "dickhead" cussWords(37) = "cockhead" cussWords(38) = "motherfucker" cussWords(39) = "motherfuckers" cussWords(40) = "muthafucka" cussWords(41) = "muthafuckas" cussWords(42) = "fags" cussWords(43) = "faggits" cussWords(44) = "faggots" cussWords(45) = "cocks" cussWords(46) = "dicks" cussWords(47) = "cunts" cussWords(48) = "pussys" cussWords(49) = "pussies" cussWords(50) = "assholes" cussWords(51) = "dickheads" cussWords(52) = "cockheads" cussWords(53) = "goddamnit" cussWords(54) = "niggers" cussWords(55) = "sluts" cussWords(56) = "twat" cussWords(57) = "twats" cussWords(58) = "shithead" cussWords(59) = "shitheads" cussWords(60) = "dickweed" cussWords(61) = "son of a bitch" cussWords(62) = "sonofabitch" cussWords(63) = "sonofbitches" cussWords(64) = "sons of bitches" cussWords(65) = "sunuvabitch" cussWords(66) = "sonuvabitch" cussWords(67) = "jack off" cussWords(68) = "jacks off" cussWords(69) = "jackin off" cussWords(70) = "jacking off" cussWords(71) = "jerk off" cussWords(72) = "jerks off" cussWords(73) = "jerkin off" cussWords(74) = "jerking off" MAIL_SUBJECT = "KU Connection" NUM_FRIENDS = 3 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' select case (cstr(Request("cmd"))) case "process" process case else: printForm end select ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' function printForm () %> KU Connection :: Issue 1, February 2002

Issue 1 February 2002

Send KU Connection To A Friend

" method="post" id=form1 name=form1>

Your Name:
Your Email Address:

Friend's Name:
Friend's Email Address:

Friend's Name:
Friend's Email Address:

Friend's Name:
Friend's Email Address:

KU Home Page | Kansas Alumni Association
KU Endowment | KU Athletics | KU Bookstore

<% end function ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' function printThankYou () %> KU Connection :: Issue 1, February 2002

Noted KU art historian to be honored

Grad named one of 50 top businesswomen

Student mentor to retire after 25 years

Farewell To A Forgotten "Hero"

Dole Institute
Allen Field House
Kansas Union

Research funding hits record $224M

Chancellor Hemenway on state budget concerns

Bohl, Mangino bring new philosophy to KU football

Kansas City foundation supports KU First campaign

Forum commemorates, seeks original February Sisters

KU Medical Center Campus Events

Issue 1 February 2002

Thanks for sharing KU Connection.
Return Home

KU Home Page | Kansas Alumni Association
KU Endowment | KU Athletics | KU Bookstore

<% end function ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' function process () ' Get the user info username = cstr(Request("username")) useremail = cstr(Request("useremail")) redim friendname(NUM_FRIENDS - 1) redim friendemail(NUM_FRIENDS - 1) for i = 0 to ubound(friendname) friendname(i) = cstr(Request("friendname_" & i)) friendemail(i) = cstr(Request("friendemail_" & i)) next ' Eric just asked me if we can strip out ' naughty language, so we'll do that now for i = 0 to ubound(cussWords) username = cstr(replace(username, cussWords(i), "", 1, -1, 1)) for j = 0 to ubound(friendname) friendname(j) = cstr(replace(friendname(j), cussWords(i), "", 1, -1, 1)) next next '' Create some utility objects Set sql_obj = Server.CreateObject("LAFcommon.SQLUtil") Set html_obj = Server.CreateObject("LAFcommon.HTMLUtil") Set misc_obj = Server.CreateObject("LAFcommon.Misc") '' Connect to the database set connection = Server.CreateObject("ADODB.Connection") connection.Open "DSN=LookandfeelWebsite;UID=LookandfeelWebsite;PWD=w3dr1nkb33r0nfr1d5y;" '' For each specified friend for i = 0 to ubound(friendname) if (len(friendemail(i)) > 0) then '' Send the email Set smtpmail_obj = Server.CreateObject("LAFcommon.SMTPMail") smtpmail_obj.DeliveryMode = LAFCOMMON_SMTPMAIL_deliver_asynchronous smtpmail_obj.ReplyToAddress = useremail smtpmail_obj.SenderAddress = "lafwebsite_sendtoafriend@lookandfeel.com" smtpmail_obj.SenderName = username smtpmail_obj.ServerName = "smtp-script.lookandfeel.com" smtpmail_obj.ServerPort = 25 If (smtpmail_obj.AddSection(LAFCOMMON_SMTPMAIL_plain_text_message, getTEXTContent(username, useremail, friendname(i), friendemail(i))) = LAFCOMMON_SMTPMAIL_success) Then If (smtpmail_obj.AddSection(LAFCOMMON_SMTPMAIL_html_text_message, getHTMLContent(username, useremail, friendname(i), friendemail(i))) = LAFCOMMON_SMTPMAIL_success) Then smtpmail_obj.ProcessMessage friendemail(i), MAIL_SUBJECT, friendname(i) & " <" & friendemail(i) & ">", useremail End If End If set smtpmail_obj = nothing ' Insert the user info into the database connection.Execute _ "INSERT INTO [Evoka_SentToAFriend] ([senttoafriend_id], [username], [useremail], [friendname], [friendemail], [client_id], [campaign_id], [version]) VALUES " & _ "('" & misc_obj.ShortGuidGen() & "', '" & sql_obj.canonicalize(username) & "', '" & sql_obj.canonicalize(useremail) & "', '" & sql_obj.canonicalize(friendname(i)) & "', '" & sql_obj.canonicalize(friendemail(i)) & "', '" & sql_obj.canonicalize(request("client_id")) & "', '" & sql_obj.canonicalize(request("campaign_id")) & "', 1)" end if next '' Disconnect from the database connection.Close set connection = nothing ' That's it, we're done printThankYou end function ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' function getHTMLContent (username, useremail, friendname, friendemail) getHTMLContent = _ "" & vbCRLF & _ "" & vbCRLF & _ "KU Connection" & vbCRLF & _ "" & vbCRLF & _ "" & vbCRLF & _ "" & vbCRLF & _ "" & vbCRLF & _ " " & vbCRLF & _ " " & vbCRLF & _ " " & vbCRLF & _ " " & vbCRLF & _ " " & vbCRLF & _ " " & vbCRLF & _ " " & vbCRLF & _ " " & vbCRLF & _ "

" & vbCRLF & _ " " & vbCRLF & _ " " & vbCRLF & _ " " & vbCRLF & _ " " & vbCRLF & _ " " & vbCRLF & _ " " & vbCRLF & _ " " & vbCRLF & _ "

" & vbCRLF & _ "

Brought " & vbCRLF & _ " to you by: Kansas " & vbCRLF & _ " Alumni Association | KU " & vbCRLF & _ " Endowment | University " & vbCRLF & _ " Relations

" & vbCRLF & _ "

" & vbCRLF & _ " " & vbCRLF & _ " " & vbCRLF & _ " " & vbCRLF & _ " " & vbCRLF & _ " " & vbCRLF & _ " " & vbCRLF & _ " " & vbCRLF & _ " " & vbCRLF & _ " " & vbCRLF & _ "

" & vbCRLF & _ " " & vbCRLF & _ " " & vbCRLF & _ " " & vbCRLF & _ " " & vbCRLF & _ "

" & vbCRLF & _ "

Issue 1 " & vbCRLF & _ " February 2002

" & vbCRLF & _ "

" & vbCRLF & _ " " & vbCRLF & _ " " & vbCRLF & _ " " & vbCRLF & _ " " & vbCRLF & _ "

" & vbCRLF & _ "

Dear " & friendname & ":

" & vbCRLF & _ "

Your friend, " & username & ", thought you might " & vbCRLF & _ " enjoy this month's issue of KU Connection.

" & vbCRLF & _ "

KU Connection is a monthly report from the University of " & vbCRLF & _ " Kansas. We invite you to sample a variety of stories covering " & vbCRLF & _ " KU people (both on and off the Hill), campus news and fun " & vbCRLF & _ " facts from KU's proud history.

" & vbCRLF & _ "

To view the current issue of KU Connection, go to: http://www.kuconnection.com/feb2002/" & vbCRLF & _ "

" & vbCRLF & _ "

- The Kansas Alumni Association

" & vbCRLF & _ "

KU Home Page | Kansas " & vbCRLF & _ " Alumni Association | KU " & vbCRLF & _ " Endowment | KU Athletics " & vbCRLF & _ " | KU Bookstore

" & vbCRLF & _ "

" & vbCRLF & _ "" & vbCRLF & _ " " & vbCRLF & _ " " & vbCRLF & _ " " & vbCRLF & _ "

" & vbCRLF & _ "

This email was sent to you by " & username & " (" & useremail & ").
" & vbCRLF & _ " Personal information will not be used for future communications.

" & vbCRLF & _ "

" & vbCRLF & _ "" & vbCRLF & _ "" & vbCRLF end function ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' function getTEXTContent (username, useremail, friendname, friendemail) getTEXTContent = _ "================================================================" & vbCRLF & _ "KU CONNECTION" & vbCRLF & _ "ISSUE 1 - FEBRUARY 2002" & vbCRLF & _ "================================================================" & vbCRLF & _ "" & vbCRLF & _ "Dear " & friendname& ":" & vbCRLF & _ "" & vbCRLF & _ "Your friend, " & username & ", thought you might enjoy this month's issue of KU Connection. " & vbCRLF & _ "" & vbCRLF & _ "KU Connection is a monthly report from the University of Kansas. We invite you to sample a variety of stories covering KU people (both on and off the Hill), campus news and fun facts from KU's proud history." & vbCRLF & _ "" & vbCRLF & _ "To view the current issue of KU Connection, go to: http://www.kuconnection.com/feb2002 !" & vbCRLF & _ "" & vbCRLF & _ "- The Kansas Alumni Association" & vbCRLF & _ "" & vbCRLF & _ "================================================================" & vbCRLF & _ "This email was sent to you by " & username & " (" & useremail & ")." & vbCRLF & _ "Personal information will not be used for future communications." & vbCRLF & _ "================================================================" & vbCRLF end function ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' %>