Paulo Oliveira Rios

Olá Pessoal, meu servidor não está aceitando esse global asa. O que fazer? <script LANGUAGE="VBScript.Encode" RUNAT="Server"> '======================== Sub Application_OnStart '======================== '### Check these Fileman global settings! Application("strConn")="DBQ=" & server.mappath("database/fileman.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;" 'Application("UseNTAuthentication")=True '### Use integrated NT authentication if available. Anonymous access from fileman needs to be revoked in IIS. Also create FM accounts for the NT Users! ### Application("DefaultRootFolder")="c:\temp\%user%" '### Default root folder for new accounts. Variable %user% will be replaced with the new user name, the new folder will be created.### Application("RequireRootFolder")=False '### Verify on logon that the user has a rootfolder defined, exit if not (not for admins). ### Application("OnlyAllowedIPList")="" '### Comma delimited list of allowed IP numbers/ranges. Example: "192.*,10.0.0.*" ### Application("MaxHistoryItems")=20 '### Remember last folders in user selectable listbox ### Application("MaxLengthOfHistoryItems")=30 '### Names of items in history listbox will be shortened if longer than this value ### Application("UnEditableExtensions")="com,exe,dll,ocx,386,sys,drv,bin,jpg,gif,bmp,zip,arj,rar,mdb,xls,mp3,mpg,avi,mov" Application("CustomButtons")="" '### If defined, this custom html string will be added to the toolbar. This gives admins the option to add functionality to FileMan (buttons are 20x20 pixels). ### Application("ExtraErrorMsg")= "" '### Optional customizable additional error message string that is displayed in case of an error, for example how to contact the helpdesk. ### Application("FMRecyclerName")="FMRecycler_" '### If defined, this subfolder of RootFolder will be used to move deleted files to if configured for the user (username will be added to this name, not for users with no RootFolder). Example: "FMRecycler". ### Application("NumUploadFields")=6 Application("MinPassLength")=4 Application("ShowDrives")=True '### Show drive icons if no rootfolder is defined. ### Application("DownloadInNewWindow")=False Application("AlwaysDownload")=False '### Treat all downloads as attachments (always show the "Save as" dialog). If False, the browser will display txt, html, images in the browser window etc.### Application("ZipSupport")=True '### Use ZIP functions (if the component is installed). ### Application("LogFile")="fileman.log" Application("LogLevel")=1 ' 0: Off, 1: Show user actions like Login/Logout/Edit/Del/Upload/Download, 2: Also show: Find/Listing/Denied, 3: Show full matching process '**Start Encode**#@~^VwsAAA==@#@&B:[a,Ztm0~l N~0KDhCDPla2VbmlDrGx,\mDdP::[@#@&ba2VbmCObWxcEwH#+MdbWUr#{J&c*1E@#@&b2w^k^CDkW cJ~oZKsGD_+mNnDEb{JT!ZT%ZJ@#@&zwwsr1lOkKUvJ$TZKVWMsKsNDdJ*'E9GffA3J@#@&ba2sk1lDkGxcE~o/W^GDwksnkJ#xEA232w0r@#@&zwaVk1lDrW `Estb22&/q rYblVb"nNr#{K.En@#@&b2w^rmmYrG `J6U^X)V^GS+[&ndk/DJ*xIwsl1+c)awVb^lDkW cEr VHbsVGAN(ndr/DJbSreJSEr#@#@&&W,b2aVbmlDkKU`rSGowksnr#@!@*EJ,b1G~(xkYM`)w2sbmCYbGxvJJGTsksnr#SJ=wr#xZPz1f,q dYM`)waVr^mYkKU`rSWTorVJ*~E-wE*'TP:4+ P)2aVk^CDkGxvEdWLwk^+J*'UnD7+.Rtl22mYtv)waVk1COkKxvJJWLobVnJ*b@#@&@#@&v[aa~!Y~+XrkYr o,0k^+,OXa+~k1WUdcPa[:@#@&?+D~W/K'U+.\n.cZ.+mO+}4%n1Y`Ej1DrwDr o wk^+?H/Dn:}4%+1YEb@#@&?OPK0W^[nD{0kW onO6WsN.`U+.-DR\CawCY4crqhTJ*#@#@&?OPKsrV/xGwWV9nDc0k^nd@#@&bawsk^CDkGxvEKHwn(1WxdE*'#4:C(@#@&wWMP+mm4~0,kUPKsrs/@#@&7q6Pj;Cd+v0kW MnOA6O+ dkKxHCs+`Wb*'EM&orP)gf,qxkYMcFB0 xm:nSrY{rSF*'F,P4+ Pzw2Vr^mYrW cJ:X2n&mWUdr#xba2^k^mYbWxvJ:zwq^W /Eb,_PtrNv0/K L+D4m/nxCh`W#Bf#,[~#(Kl8@#@&1n6D@#@&?nDPKsk^+kx1KY4k o@#@&U+Y,G0KVN.x1KY4kUo@#@&U+OP6dW{1GO4kxL@#@&@#@&q6~zw2^k1lYbW cJ\k2?!w2GMYJ*~K4+x,@#@&d}x,2.DG.,In/!h+,1naD@#@&7vU+OPKtbw~{PU+D7+M ZM+CYr8%mYvEZ4kV0CO}bwcZ4ksVmYtkaE#@#@&7vK}k2 `xsW1V;WhaW +xD&,cJShARM+[rMRlkm\.}M8{.?yFnIE#@#@&i?nY,G4N'jnM\+.;DnlDn}4%mD`Jm/atkaR3lkXt(hJ#@#@&d&0PA..P{PZPPtnU,b2w^rmmYrG `Jtra?;waGMYE*':DEPAs/P)waVr^mYkKU`r}kaj;waWMYE#xomVd+@#@&dU+O~}4LxHKY4k L@#@&3 N,q0@#@&@#@&2 N~?!4@#@&@#@&?!8Pzww^r^lDkKxmrU3 N@#@&AUN,?;8@#@&@#@&v{'x'{x{'x{'{''{'{x'{'x'{@#@&j!4PUn/kkW m6xUYmDO@#@&v{'x'{x'{'xx{''xx{'x'{x{'@#@&dE?+k/bGxcS/qG'qT2&PE:a[P?O~YKP`?~VG^mV~/OYbxLd@#@&djnk/rW crqKr#{I+$EdYc?nD7+.#mDkm8V/`r]3H}KA{)f9]r#@#@&i(0,b22^kmCObWU`rik+H:b!YtxDrmmYrW Jb~:t+ @#@&id?ddkKxvJHKidDE#{]+$EndDR?n.7+..m.bl8^+k`Jzj:u{`?3Ir#@#@&idq6~q /YMcj+k/bWU`é:jd+ME#BJwE*@*!~P4+UPUnk/rKxvJ1:jknDr#xHbNcj//bGxvJ1:id+MJ*~(xdOMDn\vj+k/rG `JHP`/nDrbBJwr#3F#@#@&i3x9P(0@#@&3U9P?!8@#@&@#@&Exx'{'{'x'xx{'x'{x'{'xx{'@#@&j!4~?dkkG {}x2 N@#@&B{'x'{'xx{''{x'{''{xx'{'{@#@&rU~D.WM~D/;hPxnaD@#@&q6~&/6(LmYv?d/bWU`rIjE*#P:4+ P?O~?/kkGxcE"?E#{HWDtrUT@#@&(W,?n/krKxcrjk+Dr#@!@*JrPPtx@#@&i?+D~ZKxx{jnD7+MR/DnCD+64NnmD`E)Grf$;WUx^DkG J*@#@&imKUxcW2+ P)2aVk1CYbWxvEdYMZKxUJb@#@&djpdxPrjK9zK2~JKorx,jAK~gEsSWTk d'rP'PU+ddbWxvE1!:SKLrxkJ*P'PES,SC/D(n{BE~LP?ndkkGxvE&nE*PLPJE~dC/DKr:'vE,[PUn/kkW cESKobxPkhnr#~[,EBBPJCkYfr.{BEPL~U+dkkKx`rfb.J*P'PrBS~_k/DGDH'Br~'P"+aVCmncU+d/bGxvJurkYW.zr#SJEEBJvEBEJ#,[,EB,u2"2~ik+D,xBrP[,jn/kkKxcJidDE#L~JEP)HGPnCdk'vJ,',?nk/bWxvJhC/kJbPLPEvpJ@#@&7ZKxxcna+1ED+c?}J*@#@&d;Gx R/sK/+@#@&i?nY,/KxU{1KYtbxT@#@&iqWPzw2sbmlDrW `JdGLsbVJb@!@*ErPPtU@#@&d7jYPWdK'j+M-D;DlYr(%+1YcJUm.raYk LRwkVjz/D+sr8Ln^DJb@#@&7dU+O~6SWLx6/GR}2xP6Dsk^+v)waVrmmYrG `JdGowkVEb~R~:D;+b@#@&d70dGoc.rD+SrUPHWS~LP#(Ym4PLPUn/kkGxvJidDJ*~[,.4DC8PLPU+d/rG `EqhE#,[~#(Kl8~LPESKLKEO,`U+/kkKUPDkh+KEObr@#@&i70dWoc^sWk+@#@&7djnDPW/Kx1KY4r o@#@&7Ax[P&W@#@&7zwaVk1lDrW `E1!:/G xJ*xbawVb^CYbW `E1;h;WUxrbO8@#@&3 NP(W@#@&3x9~UE8@#@&DFkDAA==^#~@</SCRIPT>

Olá Pessoal sou novo aqui. Estou querendo redirecionar minha pagina http para https. Sempre aparece aquela tela do internet explorer Deseja exibir apenas o conteúdo com segurança? Como fazer esse redirecionamento? E outra dúvida: <% pagina ="http://"& Request.ServerVariables("HTTP_HOST")&Request.ServerVariables("url")&"?"& request.ServerVariables("QUERY_STRING") %> Essa váriavel serve para que? Um abraço!