<% Sub doEmail(toName,toEmail,fromName,fromEmail,emSubject,emBody) If inStr(writeBCC,";") > 0 Then writeBCC = Split(writeBCC,";") toEmail = Replace(toEmail," ","") & ";" arrToEmails = Split(toEmail,";") Set Mailer = Server.CreateObject("Persits.MailSender") Mailer.Host = "mail.narniaweb.com" Mailer.FromName = fromName Mailer.From = fromEmail For Each i in arrToEmails If Len(i) > 0 Then If inStr(i,"@") > 0 Then Mailer.AddAddress i,toName Next If sendHTML = "1" Then Mailer.isHTML = True If sendFile <> "" Then Mailer.AddAttachment sendFile If isArray(writeBCC) Then For Each i in writeBCC If inStr(i,"@") > 0 Then Mailer.AddBCC i,i Next End If Mailer.Subject = emSubject Mailer.Body = emBody Mailer.Queue = True Mailer.Send writeBCC = "" sendHTML = "" Set Mailer = Nothing End Sub If request("act") = "1" Then Dim objXmlHttp, varString, ResponseString varString = "privatekey=6LdsOAAAAAAAAEmn8GSLmX28YTGd9OySsOg3xRVR" varString = varString & "&remoteip=" & request.ServerVariables("REMOTE_ADDR") varString = varString & "&challenge=" & request.form("recaptcha_challenge_field") varString = varString & "&response=" & request.form("recaptcha_response_field") Set objXmlHttp = Server.CreateObject("Msxml2.ServerXMLHTTP") objXmlHttp.open "POST", "http://api-verify.recaptcha.net/verify", False objXmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" objXmlHttp.send VarString ResponseString = Split(objXmlHttp.responseText, vbLf) Set objXmlHttp = Nothing If ResponseString(0) = "true" Then SMTP = "mail.narniaweb.com" thankYou = "sent2.asp" emToName = "The Wardrobe Door" emToEmail = "vaire@narniaweb.com" emToSubject = "Costume Site Submission" For Each i in Split("Name,Email,Costume Title,Film,Write Up,Images,Thumb,Comments",",") emData = emData & i & ": " & request.form(i) & vbCrLf Next fromName = request("Name") fromEmail = request("Email") If fromName = "" Then fromName = "No Name" If fromEmail = "" Then fromEmail = emToEmail Call doEmail(emToName,emToEmail,fromName,fromEmail,emToSubject,emData) response.redirect thankYou Else strError = "

Verification Failed. Please try again.

" End If End If %> The Wardrobe Door :: Narnia Costumes

 


Submit your Costume!

Here you can chronicle your journey into Narnia costuming for fellow fans and costumers to read! Enter as much information about your finished costume as you would like to share: the pattern you used or drafted, fabrics, trims, sources—and if you have your own site with further information or pictures of your Narnia costumes, link that too! For image uploading sites, try ImageShack or registering at Photobucket—both are free.

Your submission may be slightly edited, but please try to use proper grammar and spelling for best readability. Your chronicle should appear on the site in two weeks or so!

Please contact us with any questions or to amend your existing entry.

<%=strError%>

Name/Nickname

" />

Email

For our use only, for invalid links

" />

Costume Title

(Such as White Witch Snow Gown or Prince Caspian Battle Outfit)

" />

Film

Costume Info

The write-up of your costume that you would like to appear on the site—include image links where you wish to illustrate a point, and your website if you like

Extra Images

Separate URL links to images by a comma

Optional Highlight Image Link

This will be a thumb next to your entry as a highlight image; extra images will be links. Please crop images to 100 pixels wide x 200 pixels tall if you have the ability. This image will also go on a rotating image highlighting costumes from the scrapbook on the main scrapbook page.

Additional Comments or Questions

Verify Your Humanity