\"> ҃g3z߫xJRN߶Z-|¿+%1+ `9MJTLRRR4LtUoM_>ACk.CM /r>pw8N{H9B φ}/l+??ZPjG Ϟ9u]G9{Zm>]WV鵞M;Md8(BiP`lk"G 㽒,OycR7lye2֙uj-ۜ㓪R`6rZ.jּdYZ*n={Ll7j"╭4;Pn"ǚJ] /S=G./\\-W=| 2LͳMyFO9ԵJk̓G-X=V&Y猴ӥQ!+26˛:ǹ1 +[ ??\:w#v>[HP(`fW)bf2+넺(waaa"" j'F hL'(1@ H4C@#da+4 Dh%ԇ3(?#' @~$k*X5ہer2[¯` H-b#g7B*e˚.QU\@j 7ɷ 7}EF&˴/2F׀4?CAJq_"~1fbap_宺zSvPXƠW 4LSvv6;An~NҪ7G*xhs6);N9"c]O/O`$^e`ceBi|ՏpaS՞UBd[/FUUWRT)%Ut& EcQOHciERX)'^Džz&+"QQtt\P2WR|7,I#)rW#~!! Y1:@a#d&Țt^/x]8n Z:0 .Iౠ$di`01'-{>_PR@9%@xYUH%On0;?jHm)mbߠɭ>2}~iaN]vP ~-"R2o dDh`u]4RrN.$vjδTG\N1 Aa6]+qE;ibJu+u|๽b; <q 6\+ln{LZ zFq)YQTQs2h&ߔ Ѡ.߽ŬQ/wXP7`/GǨ!sGQXIG 7z5Ђ,I_8Ą@~\L(Ӓ9YB}u֖U~w3cyM+'̺8z΃ﻗ[XSX|>4iH8: d9烳,$m$z!gx ivŖnٝ})1[aShphYJJaK{Y[߈^kkXmXوyZo] [yqt4CvGRǟ' 6+2lzcfJZ 6 tjׇQի ucˮVrM-R0PDzʬ!dņ@-d.VRs,6:*Pj46R~Dcf'OUH> ^9vݴ/,Gh.O1^x^j9 -,Z׏RD$) 7֡ۈ SSt L x1&N 0AgiM0Y^GIFI#_ԋԻfP]0hP 3BalO6ixr];'|&\* m_4:#cď.PJKLѸ*)8-PuPTOGQWZSSwOF#(*C|-  :%T؍,$| vx>:%vc^`1u`.}< ]y;4CNV 䕊@]$fW&s_eҹiVV.9W|/ UJ^|9H1%7[ӣxm)7' 6.nW ;F#l+$u& e o.[7xh\ڔ[KWa$|-AS\S !.fSkT9T'fY7uR XpS,g5 ÎbD}|fNlvJE+%!I7E\QB8п0G0&v_(KoV^^Lf\MH ΕVUZW%mw1ەX-Q8YnjA/-TZmBri1uV$FvY2@PB1 蚺"4Ub!/xY[3.f98#4C)_]'vrFJ !E#^'2Bإ Xw\w "" then '## Forum_SQL for each key in Request.Form if left(key,3) = "str" or left(key,3) = "int" then strDummy = SetConfigValue(1, key, ChkString(Request.Form(key),"SQLstring")) end if next Application(strCookieURL & "ConfigLoaded") = "" Response.Write "

Configuration Posted!

" & vbNewLine & _ " " & vbNewLine & _ "

Congratulations!

" & vbNewLine & _ "

Back To Admin Home

" & vbNewLine else Response.Write "

There Was A Problem With Your Details

" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
    " & Err_Msg & "
" & vbNewLine & _ "

Go Back To Enter Data

" & vbNewLine end if else Dim theComponent(18) Dim theComponentName(18) Dim theComponentValue(18) '## the components theComponent(0) = "ABMailer.Mailman" theComponent(1) = "Persits.MailSender" theComponent(2) = "SMTPsvg.Mailer" theComponent(3) = "SMTPsvg.Mailer" theComponent(4) = "CDONTS.NewMail" theComponent(5) = "CDONTS.NewMail" theComponent(6) = "CDO.Message" theComponent(7) = "dkQmail.Qmail" theComponent(8) = "Dundas.Mailer" theComponent(9) = "Dundas.Mailer" theComponent(10) = "Geocel.Mailer" theComponent(11) = "iismail.iismail.1" theComponent(12) = "Jmail.smtpmail" theComponent(13) = "MDUserCom.MDUser" theComponent(14) = "ASPMail.ASPMailCtrl.1" theComponent(15) = "ocxQmail.ocxQmailCtrl.1" theComponent(16) = "SoftArtisans.SMTPMail" theComponent(17) = "SmtpMail.SmtpMail.1" theComponent(18) = "VSEmail.SMTPSendMail" '## the name of the components theComponentName(0) = "ABMailer v2.2+" theComponentName(1) = "ASPEMail" theComponentName(2) = "ASPMail" theComponentName(3) = "ASPQMail" theComponentName(4) = "CDONTS (IIS 3/4/5)" theComponentName(5) = "Chili!Mail (Chili!Soft ASP)" theComponentName(6) = "CDOSYS (IIS 5/5.1/6)" theComponentName(7) = "dkQMail" theComponentName(8) = "Dundas Mail (QuickSend)" theComponentName(9) = "Dundas Mail (SendMail)" theComponentName(10) = "GeoCel" theComponentName(11) = "IISMail" theComponentName(12) = "JMail" theComponentName(13) = "MDaemon" theComponentName(14) = "OCXMail" theComponentName(15) = "OCXQMail" theComponentName(16) = "SA-Smtp Mail" theComponentName(17) = "SMTP" theComponentName(18) = "VSEmail" '## the value of the components theComponentValue(0) = "abmailer" theComponentValue(1) = "aspemail" theComponentValue(2) = "aspmail" theComponentValue(3) = "aspqmail" theComponentValue(4) = "cdonts" theComponentValue(5) = "chilicdonts" theComponentValue(6) = "cdosys" theComponentValue(7) = "dkqmail" theComponentValue(8) = "dundasmailq" theComponentValue(9) = "dundasmails" theComponentValue(10) = "geocel" theComponentValue(11) = "iismail" theComponentValue(12) = "jmail" theComponentValue(13) = "mdaemon" theComponentValue(14) = "ocxmail" theComponentValue(15) = "ocxqmail" theComponentValue(16) = "sasmtpmail" theComponentValue(17) = "smtp" theComponentValue(18) = "vsemail" Response.Write "
" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
E-mail Server Configuration
Select E-mail Component: " & vbNewLine & _ " " & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & "
E-mail Mode: " & vbNewLine & _ " On: UBound(theComponent) then Response.Write(" disabled") else if lcase(strEmail) <> "0" then Response.Write(" checked") Response.Write "> " & vbNewLine & _ " Off: UBound(theComponent) then Response.Write(" checked") else if lcase(strEmail) = "0" then Response.Write(" checked") Response.Write ">" & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & "
E-mail Server Address: " & vbNewLine & _ " " & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & "
Administrator E-mail Address: " & vbNewLine & _ " " & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & "
Require Unique E-mail: " & vbNewLine & _ " On:  " & vbNewLine & _ " Off: " & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & "
E-mail Validation: " & vbNewLine & _ " On:  " & vbNewLine & _ " Off: " & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & "
Restrict Registration: " & vbNewLine & _ " On:  " & vbNewLine & _ " Off: " & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & "
Require Logon for sending Mail: " & vbNewLine & _ " On:  " & vbNewLine & _ " Off: " & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & "
" & vbNewLine & _ "
" & vbNewLine & _ "
" & vbNewLine end if WriteFooter Response.End function IsObjInstalled(strClassString) on error resume next '## initialize default values IsObjInstalled = false Err = 0 '## testing code dim xTestObj set xTestObj = Server.CreateObject(strClassString) if 0 = Err then IsObjInstalled = true end if '## cleanup set xTestObj = nothing Err = 0 on error goto 0 end function %>