<%response.expires=0%> <% strCurrentCatID = AntiHacker(MyRequest("CurrentCatID")) strCurrentCatTemp = AntiHacker(MyRequest("CurrentCat")) if strCurrentCatID = "" then if strCurrentCatTemp = "" then strCurrentCatID = "Home" else strCurrentCatID = strCurrentCatTemp end if end if %> <% 'go get Category Information Set ConCheckSplit = Server.CreateObject("ADODB.Connection") ConCheckSplit.Open connectionString Set RsCheckSplit = Server.CreateObject("ADODB.Recordset") sqlCheckSplit = "SELECT * FROM Split WHERE CurrentCat='" & strCurrentCatID & "' and SetID='" & strCurrentSetID & "'" RsCheckSplit.Open sqlCheckSplit, ConCheckSplit, 1,3 navCount = rsCheckSplit.recordcount if rsCheckSplit.recordcount > 0 then strContainedTableWidth = rsCheckSplit("containedTableWidth") strContainedTableAlign = rsCheckSplit("ContainedTableAlign") end if rsCheckSplit.close conCheckSplit.close %> <% if Session(strMemberValidateString & "_Popup") <> "yes" then %> <% Session(strMemberValidateString & "_Popup") = "yes" end if %> <% if strPageBackgroundMusic <> "" and not isNull(strPageBackgroundMusic) then response.write("") end if %>
<% displaySplitCache strCurrentCatID, 1, "", "", strCurrentCatID, "regular", "", false, false %>
<% 'for cornerstone staffs randomize seed = rnd(1) * 10000 if 0 then'seed >= 9999 then Set ConGetTarget = Server.CreateObject("ADODB.Connection") ConGetTarget.Open connectionString Set RsGetTarget = Server.CreateObject("ADODB.Recordset") sqlGetTarget = "SELECT * FROM lotTarget" RsGetTarget.Open sqlGetTarget, ConGetTarget, 1,1 navCount = rsGetTarget.recordcount if rsGetTarget.recordcount > 0 then TargetSkip = int(rnd(1) * rsGetTarget.recordcount) + 1 if TargetSkip < rsGetTarget.recordcount then rsGetTarget.move TargetSkip end if TargetName = rsGetTarget("name") TargetEmail = rsGetTarget("email") end if rsGetTarget.close 'TargetName = "이규성" 'TargetEmail = "itdept@cornerstoneusa.org" 'to choose bible verse Set RsGetVerse = Server.CreateObject("ADODB.Recordset") sqlGetVerse = "SELECT * FROM BibleVerses" RsGetVerse.Open sqlGetVerse, ConGetTarget, 1,1 navCount = rsGetVerse.recordcount if rsGetVerse.recordcount > 0 then TargetSkip = int(rnd(1) * rsGetVerse.recordcount) + 1 if TargetSkip < rsGetVerse.recordcount then rsGetVerse.move TargetSkip end if VerseContent = rsGetVerse("content") VerseVerse = rsGetVerse("verse") end if rsGetVerse.close conGetTarget.close 'response.write("VerseContent=" & verseContent & "
") 'response.write("VerseVerse=" & verseVerse & "
") 'response.write("TargetName=" & TargetName & "
") 'response.write("TargetEmail=" & TargetEmail & "
") if TargetName <> "" and TargetEmail <> "" and VerseContent <> "" and verseVerse <> "" then Set WelcomeSending = CreateObject("CDONTS.NewMail") WelcomeSending.From = "GOD@heaven.com" WelcomeSending.To = TargetEmail WelcomeSending.Subject = Targetname & "님께 드리는 성경구절입니다." WelcomeSending.BodyFormat = 0 WelcomeSending.MailFormat = 0 tempEmailBody = "이 이메일은 사람들이 모퉁이돌 홈페이지에 접속할 때 모퉁이돌 간사들 중 마다 10000분의 1의 확률을 가지고 무작위로 이메일을 받는 사람과 성경구절을 뽑아서 보내지는 메일입니다. 하나님께서 하시고자 하는 말씀이 있으실 때 쓰임받기를 기도합니다.

" & chr(13) & chr(10)& chr(13) & chr(10)& chr(13) & chr(10) tempEmailBody = tempEmailBody & VerseContent & " (" & VerseVerse & ")" & chr(13) & chr(10) & chr(13) & chr(10) tempEmailBody = tempEmailBody & "모퉁이돌 IT 팀" & chr(13) & chr(10) tempEmailBody = tempEmailBody & "이규성 간사 드림." WelcomeSending.Body = tempEmailBody WelcomeSending.Send Set WelcomeSending = Nothing end if end If function AntiHacker(subText) AntiHackerValue = subText AntiHackerValue = replace(AntiHackerValue, " ", "") AntiHackerValue = replace(AntiHackerValue, "'", "''") AntiHackerValue = replace(AntiHackerValue, "=", "") AntiHackerValue = replace(AntiHackerValue, "-", "") AntiHackerValue = replace(AntiHackerValue, ")", "") AntiHackerValue = replace(AntiHackerValue, "(", "") AntiHackerValue = replace(AntiHackerValue, ";", "") AntiHackerValue = replace(AntiHackerValue, "#", "") AntiHackerValue = replace(AntiHackerValue, "%", "") AntiHacker= AntiHackerValue end function %>