Pyramid Builder Award Nominations are Now Closed.
Thank you for nominating your fellow sisters! The results will be announced at Convention 2009. See you there!
% Function Rid(cString) If(cString <> "")Then cString = Replace(cString,"'","' & chr(39) & '") Rid = cString End If End Function Dim RD RD=Request.querystring("RD") If(RD="true")Then Const strHeader = "Pyramid Builder Nomination" Dim strBody strBody = "
" & strHeader & "
" strBody = strBody & "Nomination submitted at " & Now() & "
" dim ix, formElementName, formElementValue, prefix, fldName For ix = 1 to Request.querystring.Count formElementName = Request.querystring.Key(ix) formElementValue = Request.querystring.Item(ix) ' what type of field was that on the form? prefix = Left(formElementName,3) ' and throw away prefix to get actual field name fldName = Mid(formElementName,4) ' but change periods to spaces for readability fldName = Replace(fldName, "xx"," ") Select Case prefix ' if the prefix indicates this is a form field of interest... Case "txt","sel","rad","cbo","lst","chk": ' if user didn't answer this question, say so... if Len(formElementValue) = 0 then formElementValue = "UNANSWERED" ' then tack on the name of the field and the answer strBody = strBody & "" & fldName & ": " & formElementValue & "
" End Select Next Dim objEmail Set objEmail = Server.CreateObject("Persits.MailSender") objEmail.Username = "submit@phisigmarho.org" objEmail.Password = "penguins" objEmail.Host = "mail.phisigmarho.org" objEmail.From = "submit@phisigmarho.org" objEmail.AddAddress "pyramidbuilders@phisigmarho.org" objEmail.Subject = "Pyramid Builder Nomination" objEmail.Body = strBody objEmail.Send Set objEmail = Nothing End If If(RD="true")Then response.redirect("http://www.phisigmarho.org/Convention2009/pyramidbuilder_redirect.php") End If %>
Thank you for nominating your fellow sisters! The results will be announced at Convention 2009. See you there!