download file

TheMSsForum.com: The Microsoft Software Forum

The MSS Forum ‹ ASP Server
- Archive
  - Biz
  - MCSE
  - CRM
  - Drivers
  - Framework
  - ADO
  - ASP
  - Compact
  - Forms
  - Dotnet
  - C#
  - VB
  - FontpageGen
  - Excel
  - WorkSheet
  - Exchange
  - Setup
  - Fox
  - Fontpage
  - ASP
  - IIS
  - Entourage
  - Money
  - Messanger
  - PocketPC
  - Powerpoint
  - Project
  - Publisher
  - Excel
  - VB
  - Security
  - Portal
  - Services
  - SQLServerDev
  - SVCS
  - SQLServer
  - VB
  - VC
  - MFC
  - ExcelGen

- Previous
  - 1
    - Securing ASP app with session I have been working on internal, intranet apps in the past few years, so I haven't needed to secure apps with a login/password and sessions like I did 8 or so years ago (I use Windows Auth now, which makes it easier)... Is using sessions still a practical, safe way to secure the backend of the apps? Or should I just bite the bullet and move to ASP.NET to build a secure backend? I have researched session hijacking and there seems to be a lot of information out there about that type of attack... what are your thoughts? Thanks, Drew Tag: download file Tag: 335303
  - 2
    - After Parenthesis in ASP Variables - Query Hi, I'm wondering about variable declaration in ASP - is there a good resource for this? In naming variables, is there a way to include characters in a variable name after the parenthesis/variable in a loop? I have quite a few variables (e.g. strOut1_a, strOut2_a, etc) and thought a loop would be the best way to do this, but I am getting errors for the characters after the parenthesis. My code is below. Thanks for any help or resources. Louis ----------------------------------------- for a=1 to 3 strOut(a)_a=objComm("Out"&a&"_a") response.write("Out"&a&"_a") next Tag: download file Tag: 335302
  - 3
    - WEBDAV - ASP, I am Struck!! I am trying to read the folder list from another system which is in another domain using WEBDAV. It works fine in my local system. But when I uploaded the files in the test/production server which are having valid domain address like mywebsite.com , it gives the following error in the line, recRoot.Open "MyFolder/","URL=http://MyIPAddress/" The error returned is "Object or data matching the name, range, or selection criteria was not found within the scope of this operation. " In my test server the error returned is different which is "Microsoft OLE DB Provider for Internet Publishing error '80004005' Unspecified error " but it is the same line recRoot.Open "MyFolder/","URL=http:// MyIPAddress/" which causes this error. My requirement is simple.. I have to list the tree style folder structure contained in another machine using ASP. please help. Any Idea!! Below is my complete code , Set recRoot = Server.CreateObject ("ADODB.Record") recRoot.Open "MyFolder/","URL=http://MyIPAddress/" Set rsChildren = recRoot.GetChildren Response.write rsChildren.EOF Do Until rsChildren.EOF Response.Write rsChildren("RESOURCE_PARSENAME") & "<BR>" rsChildren.MoveNext Loop Tag: download file Tag: 335297
  - 4
    - Cannot Alert Dear all, I have the following code which add a new record to database, after the record has been added. I want to prompt a message "Hello". But the following script does not promt. Response.Write("<script>") Response.Write("alert (""Hello"");") response.write("</script>") It just goto Response.redirect "OS_addnew.asp" The following is my complete code: if strshipper<>"" and strorigin<>"" and strdest<>"" and strinvoice_no<>"" and strpo_no<>"" then '************************************************************************** ' Insert Data '************************************************************************** Set objConn1 = Server.CreateObject("ADODB.Connection") objConn1.Open "driver={SQL Server};server=10.129.2.20;database=FIH;uid=sa;pwd=sa" strSQL = "INSERT Oversea (os_no,forwarder,station,service_level,shipper,consignee,origin,dest,incoterms,invoice_no,po_no,goods_desc,bu,qty,plt,ctn,loose_ctn,gw_hawb,cw_hawb," &_ "gw_pl,cw_pl,shpt_value,booking_receiving_date,booking_receiving_time,cargo_receiving_date,cargo_receiving_time,flight_no,flight_no1,flight_no2,flight_no3," &_ "etd_date,etd_time,etd_date1,etd_time1,etd_date2,etd_time2,etd_date3,etd_time3,eta_date,eta_time,eta_date1,eta_time1,eta_date2,eta_time2,eta_date3,eta_time3," &_ "hawb,mawb,mawb1,mawb2,mawb3,completed_date,completed_time,available_pu_date,available_pu_time,pod_date,pod_time,receiving_wh,event_report,inbound_no,outbound_no,remark,forwarder_pickup)" &_ " values ('" & newdatecode &"','" & strforwarder &"','" & strstation &"','" & strservice_level &"','" & strshipper &"','" & strconsignee &"','" & strorigin &"','" & strdest &"', '" & strincoterms &"','" & strinvoice_no &"','" & strpo_no &"','" & strgoods_desc &"','" & strbu &"','" & strqty &"','" & strplt &"','" & strctn &"','" & strloose_ctn &"','" & strgw_hawb &"','" & strcw_hawb &"'," &_ "'" & strgw_pl &"','" & strcw_pl &"','" & strshpt_value &"'," & strbooking_receiving_date &"," & strbooking_receiving_time &"," & strcargo_receiving_date &"," & strcargo_receiving_time &",'" & strflight_no &"','" & strflight_no1 &"','" & strflight_no2 &"','" & strflight_no3 &"'," &_ "" & stretd_date &"," & stretd_time &"," & stretd_date1 &"," & stretd_time1 &"," & stretd_date2 &"," & stretd_time2 &"," & stretd_date3 &"," & stretd_time3 &"," & streta_date &"," & streta_time &"," & streta_date1 &"," & streta_time1 &"," & streta_date2 &"," & streta_time2 &"," & streta_date3 &"," & streta_time3 &"," &_ "'" & strhawb &"','" & strmawb &"','" & strmawb1 &"','" & strmawb2 &"','" & strmawb3 &"'," & strcompleted_date &"," & strcompleted_time &","& stravailable_pu_date &"," & stravailable_pu_time &","& strPOD_date &"," & strPOD_time &",'" & strreceiving_wh &"','" & strevent_report &"','" & strinbound_no &"','" & stroutbound_no &"','" & strremark & "','" & strforwarder_pickup & "')" objConn1.Execute strSQL Response.Write("<script>") Response.Write("alert (""Hello"");") response.write("</script>") Response.redirect "OS_addnew.asp" end if Please Help. Thanks. Tag: download file Tag: 335287
  - 5
    - Which version of Vista have IIS services? Hi folks I need to choose Vista version, hopefully the lowest one like home edition, to have IIS services for some sql server feature to be active. Do you know which of those version have it. Thank you, Gene. Tag: download file Tag: 335274
  - 6
    - A beginner question: Send Mail in ASP using CDONTS Hi all, I had to write a page in ASP which sends an email. I googled and was able to write the following code: <html> <body> <% Set Mail = Server.CreateObject("CDONTS.NewMail") Mail.To = "XXXXXXXXXXXX@XXXXXX.COM" Mail.From = "YYYYYYYYY@YYYYY.COM" Mail.Subject = "Test MAIL Subject" Mail.Body = " Body Body Body Body Body Bodyody Body Body" If Mail.Send Then Response.Write("Mail has been sent successfully") Else Response.Write("Mail Sending Failed") End If Set Mail = nothing %> </body> </html> When I run this script on a shared hosting server, It's saying "Mail Sending Failed". I had never written ASP code before and couldn't find what the reason is.. I also checked whether CDONTS.NewMail component is available. Please help me out.. Thanks in advance, Prasad. Tag: download file Tag: 335272
  - 7
    - Need ASP code for email attachments... Hi all, Thanks for the suggestions for our club's initial bulkmail sending routines. I did read up on the use of ASP vs. a separate COM app such as ASPEmail, and determined that for our club's purposes the ASP code that loops through the data and sends individual messages vs. BCC performs adequately for simple messaging. The next phase is to email the club's newsletter, which is in PDF format, and I've run into the problem that CDO errors out because it doesn't recognize the format using the basic config settings. In sifting through the MSDN's CDO content and other sources I found some references that would permit attaching .txt and .gif files, but not for PDFs. Does anyone here know of a concise and relatively complete reference to such things as cdoConfig settings, or better, a solution to this specific problem? TIA, Neil Tag: download file Tag: 335267
  - 8
    - DsGetDcName() failures I have an application that uses DsGetDcName() to determine the sites (and domains) of servers in the network. I have found that DsGetDcName() fails rather often, and the reason(s) is not obvious. The typical error code is RPC_S_SERVER_UNAVAILABLE, although RPC_E_ACCESS_DENIED is popular, as well. Sometimes simply retrying the call will result in success, but more often it does not. What can cause DsGetDcName() to fail (excluding the obvious situation where the server is down or otherwise not accessible)? Thanks, -Nick Tag: download file Tag: 335261
  - 9
    - value of session variable is not stored... this is unbeliveable... i'm trying to set a session var "x" from a local var "y" ... session("x")= y response.write( session("x") ) --> it outputs the content! response.end --> stop here ... but, i have another page that tells the content of these session var... amazingly it reports the OLD value of the session var.... unfortunately i can't reproduce it with a simple code like this but i can't post all the code, includes, etc i put "response.end" for ensure the processing stop there i'm sure that there is no a double submit that could overvrite the value.... please, i am desperated... and angry any idea? thanks KS Tag: download file Tag: 335256
  - 10
    - implicit connections i am maintaining a system that was developed using dream weaver. a lot of the asp ado code looks like this: set sp_yellow = Server.CreateObject("ADODB.Command") sp_yellow.ActiveConnection = MM_MHR_CONN_STR_STRING sp_yellow.CommandText = "Sp_HPMSQ007_GetSystemConstants" sp_yellow.CommandType = 4 sp_yellow.CommandTimeout = 0 sp_yellow.Prepared = true sp_yellow.Parameters.Append sp_yellow.CreateParameter("@RETURN_VALUE", 3, 4) sp_yellow.Parameters.Append sp_yellow.CreateParameter("@P_NAME_TXT", 129, 1, 17, "MLSTN_YELLOW_DAYS") set rst_yellow = sp_yellow.Execute someone on another forum expressed that dreamweaver "tends to drive the programmer to creat implicit connections and their effect on performance". could someone explain this to me? a provide some better code? (we no longer are required to use dream weaver to develop code for the app). thanks in advance. Tag: download file Tag: 335252
  - 11
    - File upload/download Does anyone know of anything that will allow uploads to a server then show the URL of the file so the user can send and email to someone so it can be downloaded? I looked at huge asp upload and couldnt tell if it would show the url to the user. It has an email option but i cannot see if it does what i want it to do and i dont see anywhere on the site to find out. Tag: download file Tag: 335248
  - 12
    - Calling an executable through a COM+ component via an asp page Hi all. I am working on a legacy application written in Classic ASP with VB6 COM+ components running on Windows 2003 Adv Server (32bit). There is one page in the app that uses Secure FTP to send a file to another application server upon a certain type of data change. The way it works: Anonymous user posts the form -> ASP code instantiates the COM+ component which is starting using a Domain User -> Calls a method that creates the comma delimited data file and then calls the SFTP method - > SFTPMethod( ) 1. Writes out a script file that connects to the SFTP server, puts the file in the proper location. 2. Writes a batch file that calls the Tectia SFTP client passing the script file name as an argument - then archives the file after the script is executed. 3. Catches the return code from the SFTP client and passes the value back to the classic ASP page -> in the event of any values besides zero (Success), we display the error code and message on the page. The Domain User has permissions to log on as a batch job, and log on as a service in the Local Security Policy. I have proven the Domain User has proper permissions to everything because I can log in to the web server as the Domain User, execute the SFTP client's command line command passing the app-generated script, and the whole thing works properly. Furthermore, when I leave the remote desktop session open for the domain user account and run it from the web page, everything works. However, once I log the Domain User out, the transfer fails with the error 'Failed to connect to server' returned by the sFTP client. So I know that the COM+ method being run as the Domain User can generate the data file, generate the script, call the executable, run the executable, and return the error. The SFTP client just cannot establish a connection off of the server unless the domain user has an active windows session on the server. I know I'm missing something stupid. We have this working on an old Windows 2000 machine with the exception that the COM object is being called by a local admin user. But I can't find where the configuration is different in neither the COM component or the user's permissions. I've tried using a local admin account on this Windows 2003 server with the same error. Any help would be much appreciated. Thanks Tag: download file Tag: 335245
  - 13
    - Figuring out who the user is Hello.. I'm using windows integrated security, with the following web.config: <authentication mode="Windows"/> <identity impersonate="true" userName="netuser" password="p"/> And I am trying to figure out who is the actual human user sitting at the keyboard. With WindowsIdentity, I can find out all there is to know about the "netuser" account, but I need to know the signin name of the user who is actually logged into the domain. Is this possible? Thanks. Tag: download file Tag: 335242
  - 14
    - ASP.NET Forms + Frames Not sure if this is the right group for this question, but here goes: I have a page containing 2 frames. In the top frame, I have an ASP.NET form and 2 combo boxes, selecting an item from the first combo causes a postback to the same page, where in the SelectedIndexChanged event I fill the second combo. The Target property of the form is set to the bottom frame. I have a submit button in the form, the PostBackUrl property of which is set to a different page that writes the output I want in the bottom frame. Whenever I select an item in the first combo, I get a copy of the top frame's content appearing in the bottom frame (WITH the correctly populated 2nd combo). This is as I expect, as the form is posting back but the output target is the bottom frame. Clicking the submit button does put the correct output in the bottom frame. My question is, how can I update the combo box contents on the form via postback, and also redirect the submission output of the form to a different frame? Do I need to have 2 forms? Can the form for the submit button be nested within the server form, if so, how? I'm sure there must be a simple solution to this! Any help greatly appreciated. Tag: download file Tag: 335238
  - 15
    - How to pass special characters through query string ? Hi All, I want to pass a string that contains many special characters (: \ . _ etc) to another page in my website through query string. In my project I have a Gridview control ,in which there is a hyperlink field.The Gridview 's datasource is set as a database table at runtime.The hyperlink filed's DataNavigateUrlFields is set to "RecordID" ,which is a field in my database table.The RecordID field contains many special characters.I want to pass the RecordID to PlayRecord.aspx page .I transfer the RecordID by setting Hyperlink field's Data NavigateUrlFormat string as PlayRecord.aspx?RecID={0}.The problem is that, hyperlinks are not working as RecordID contains special characters.(It works if RecordID is a normal string). Hope you 'll surely have a solution. Thanking you in advance for your reply. Best Regards Tag: download file Tag: 335234
  - 16
    - good (x,y) graph plotting code for classic ASP? Hello, I want to plot a bunch of curves on a graph. Each curve will be defined by 10-20 (x,y) points. The points can be connected by lines. Preferably (though not necessary), I would like to be able to select the line or curve so I can identify it in a text box below the graph. Does anyone have a recommendation for ASP code or a component to do this? Thank you, Mike Tag: download file Tag: 335233
  - 17
    - free well-documented CMS hello. is there a free, well-documented (e.g. large support base, FAQs, newsgroups, etc) CMS that supports ASP? i know there plenty of those out there that support PHP, but not ASP. do they even exist? thanks Tag: download file Tag: 335232
  - 18
    - Read from client machine Hi all, To secure my web site i need to read client Machien's MAC Address with javascript, Can any body help me? Tag: download file Tag: 335225
  - 19
    - divisiorn problem <%=2/33334%> returns 5.99988000239995E-05 how can i convert it to a n.nn ? Tag: download file Tag: 335221
  - 20
    - CDO.Message problems I use CDO.Message to send mail. The problem is, CDO.Message will send to any malformed address, (eg. smtp:email.address@domain.com) and no errors are thrown. That's ok. Is there any way to receive bounced messages? Tag: download file Tag: 335213
  - 21
    - IF exist /w FSO IS there a way I can do an If exist to determin if a graphic is displayed? something like this; <p align="center"> if file exist "fileone.jpg" <img border="0" src="fileone.jpg"> if File exist "filetwo.jpg" <img border="0" src="fileone.jpg"> </p> What I am trying to do is post JPGs from a folder structure, the files may or maynot be there, but I don't want to have the blank picture reference to be displayed as if I where to just hard code the graphics in the Html! Tag: download file Tag: 335208
  - 22
    - Problem getting hacked with this new SQL injection Tool. Adword71 and direct84 One of my server has been compromised from this virus, and I can't seem to block it out! I have shut down the infected server, but I need to figure out how to check for this, and stop it. The site is running iis5 on Windows2000, the backend DB is SQLServer 2000 Can anyone point me to some good resources for this? This is urgent! Thanks alot Lance -- Support Fairtax Legislation www.fairtax.org "A government big enough to give you everything you want, is strong enough to take everything you have." -Thomas Jefferson Tag: download file Tag: 335187
  - 23
    - RSS - Whitespace is not allowed at this location. Trying to create a page like popurls displaying rss feeds from music sites only im trying with one to start from NME.com and the output errors with the message "Whitespace is not allowed at this location." anyone help? DEMO: http://mngr.co.uk/rss1.asp Code: <%@ Language="VBScript" %> <% Option Explicit %> <% Response.Charset = "UTF-8" %> <?xml version="1.0" encoding="UTF-8"?> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en"> <head> <title>ASP 101's MegaTokyo RSS Feed Reader</title> </head> <body> <% If DateDiff("h", Application("MegaTokyoUpdated"), Now()) >= 2 _ Or Request.QueryString("force") <> "" Then Dim objXML Dim objItemList Dim objItem Dim strHTML Set objXML = Server.CreateObject("MSXML2.FreeThreadedDOMDocument") objXML.async = False objXML.setProperty "ServerHTTPRequest", True objXML.Load("http://nme.com/rss/news.xml") 'objXML.Load(Server.MapPath("megatokyo.xml")) If objXML.parseError.errorCode <> 0 Then Response.Write "<pre>" & vbCrLf Response.Write "<strong>Error:</strong> " & objXML.parseError.reason Response.Write "<strong>Line:</strong> " & objXML.parseError.line & vbCrLf Response.Write "<strong>Text:</strong> " _ & Server.HTMLEncode(objXML.parseError.srcText) & vbCrLf Response.Write "</pre>" & vbCrLf End If Set objItemList = objXML.getElementsByTagName("item") Set objXML = Nothing For Each objItem In objItemList ' MegaTokyo Feed childNodes: 0=title, 1=link, 2=description strHTML = strHTML & "<p>" & vbCrLf strHTML = strHTML & "<a href=""" & objItem.childNodes(1).text & """>" strHTML = strHTML & "<strong><em>" & objItem.childNodes(0).text strHTML = strHTML & "</em></strong></a><br />" & vbCrLf strHTML = strHTML & Replace(objItem.childNodes(2).text, "<br>", "<br />") & vbCrLf strHTML = strHTML & "</p>" & vbCrLf Next Set objItemList = Nothing Application.Lock Application("MegaTokyoContent") = strHTML Application("MegaTokyoUpdated") = Now() Application.UnLock End If %> <%= Application("MegaTokyoContent") %>  </body> </html> Tag: download file Tag: 335178
  - 24
    - Response.Addheader I've searched the web & can't find an answer to this. Is it possible to successfully use Response.AddHeader for a robots meta tag? For example, I want to do <% IF request("PageID") = 252 THEN Response.AddHeader "robots", "noindex" : %> Tag: download file Tag: 335172
  - 25
    - Product activation code Hello, I have an ASP provider and an Access Database. I need to build a small webpage where the user can enter his "user id" and a "hardware code", and if the "user id" is correct (will be checked against the db which means the user id must exist) a function will generate a product activation code from his/ her "hardware code" and show it on the next page. I think the database thing is not a problem, but I have not been able to create a simple function that is hacksafe and cannot be "downloaded". Could anybody give me a hint where I can find an example of such a function so that I can understand how I have to encapsulate the important parts so that nobody can see it? Thank you very much! Tag: download file Tag: 335166
- Next
  - 1
    - Freeing Dynamic Arrays Do you have to manually release memory allocated by creating a dynamic array using ReDim? In other words, if I have the following code: ReDim Test(1000) For i = 0 To 1000 Test(i) = "test value " & i Next Do have I have set Test = Nothing to prevent a memory leak? Thanks, Dave Tag: download file Tag: 335165
  - 2
    - Bulkmail question I'm preparing an ASP script to send email to club members via the club's website. In getting familiar with CDOSYS, I noticed that the recommended method of sending the same content to multiple recipients is to loop through the list of recipients. I had intended to BCC the message. Is there some reason to prefer looping through recipients? The next task is to distribute the club's newsletter via one of the above approaches. Does this make one approach more desirable, and if so, why? Thanks, Neil Tag: download file Tag: 335164
  - 3
    - Text in ASP Scripts Hidden From Windows Search Not sure where to post this... Found some interesting behavior in Windows Search (Start => Search => All files and folders => search for "A word or phrase in the file:"). This applies to XP and maybe other Windows flavors. Procedure: 1. Create a simple text file named test.txt. 2. Open the text file in a text editor and add a simple test word such as "blah" (not quotes). 3. Save the text file. 4. Using Windows search, attempt to locate this new text file by searching for files containing the word "blah" (no quotes). Recommend limiting search to folder that contains the new text file and deselect search subfolders option. 5. The file should be found. 6. Change the file extension of the text file from .txt to .asp. 7. Redo the search. 8. The file should be found. 9. Reopen the text file (now named test.asp) in a text editor. 10. Change the string "blah" to "<% blah %>" (without quotes). [The brackets delineate script in asp files.] 11. Save the changes. 12 Redo the search. 13. The file is NOT found. Interesting. There must be some security concern related to .asp files with embedded scripts relative to Windows Search. I wonder if there is a KB article or something about to this. I have not been able to find anything. Can anyone shed any light on this behavior? Does anyone know of a good tool to find files containing a specific string/pattern? Cygwin and some of the Unix tools works, but a GUI tool like Windows Search would be preferrable. Thanks. Tag: download file Tag: 335162
  - 4
    - Free Tutorial website And Ebooks programing tutorials Free Tutorial website And Ebooks programing tutorials http://www.365x24live.com Java Script Text Book http://www.365x24live.com/JavaScript/INDEX.HTM Applied Cryptography http://www.365x24live.com/Applied%20Cryptography/ewtoc.html Vb Script Text Book http://www.365x24live.com/vbscript/index.html CGI Programming text book http://www.365x24live.com/CGI%20Programming%20Unleashed/index.htm Java Text Book http://www.365x24live.com/java/index.html Programmer's Guide Nokia WAP Server API 1 http://www.365x24live.com/nokia/1.html Aptitude Questions http://www.365x24live.com/aptitude/index.html HR Interview Questions http://www.365x24live.com/interview%20questions/INDEX.html Seminar topics http://www.365x24live.com/full%20seminar%20index.html http://www.365x24live.com/index.html Tag: download file Tag: 335161
  - 5
    - File Attributes with ASP in HTML Not sure if this is the spot to ask but I need some help with a script I hijacked and put to my own use in an .ASP page any ways I am using the FilesystemObjects to get a directory and file listing and generating a web page of that listing, but I need to filter out files with the SYSTEM tag, so it wont show files I dont want it to, Below is my full code for the ASP page, I have Commented where I need to change the listing structure, if anyone can help me filter these out I would be greatfull!!! --- Begin code --- <%@LANGUAGE="VBSCRIPT"%> <% Option Explicit On Error Resume Next ' this section is optional - it just denies anonymous access If Request.ServerVariables("LOGON_USER")="" Then Response.Status = "401 Access Denied" End If ' declare variables Dim objFSO, objFolder Dim objCollection, objItem Dim strPhysicalPath, strTitle, strServerName Dim strPath, strTemp Dim strName, strFile, strExt, strAttr Dim intSizeB, intSizeK, intAttr, dtmDate ' declare constants Const vbReadOnly = 1 Const vbHidden = 2 Const vbSystem = 4 Const vbVolume = 8 Const vbDirectory = 16 Const vbArchive = 32 Const vbAlias = 64 Const vbCompressed = 128 ' don't cache the page Response.AddHeader "Pragma", "No-Cache" Response.CacheControl = "Private" ' get the current folder URL path strTemp = Mid(Request.ServerVariables("URL"),2) strPath = "" Do While Instr(strTemp,"/") strPath = strPath & Left(strTemp,Instr(strTemp,"/")) strTemp = Mid(strTemp,Instr(strTemp,"/")+1) Loop strPath = "/" & strPath ' build the page title strServerName = UCase(Request.ServerVariables("SERVER_NAME")) strTitle = "Contents of the " & strPath & " folder" ' create the file system objects strPhysicalPath = Server.MapPath(strPath) Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(strPhysicalPath) %> <html> <head> <meta http-equiv="Content-Language" content="en-us"> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <title></title> </head> <body text="#C0C0C0" bgcolor="#000000"> <div align="center"> <table border="0" width="80%" id="table1"> <tr> <td align="center">Some web page Info here<p align="right"><b><font size="4">And here</font></b></td> </tr> </table> </div> <p align="center"> <img border="0" src="Folder.jpg"> </p> <p align="center"><a href="../">Back</a></p> <html> <body> <div align="center"><center> <table width="100%" border="0" cellspacing="1" cellpadding="2"> <% '''''''''''''''''''''''''''''''''''''''' ' output the folder list '''''''''''''''''''''''''''''''''''''''' Set objCollection = objFolder.SubFolders For Each objItem in objCollection strName = objItem.Name strAttr = MakeAttr(objItem.Attributes) dtmDate = CDate(objItem.DateLastModified) %> <% Next %> <% '''''''''''''''''''''''''''''''''''''''' ' output the file list '''''''''''''''''''''''''''''''''''''''' Set objCollection = objFolder.Files For Each objItem in objCollection strName = objItem.Name strFile = Server.HTMLEncode(Lcase(strName)) intSizeB = objItem.Size intSizeK = Int((intSizeB/1024) + .5) If intSizeK = 0 Then intSizeK = 1 strAttr = MakeAttr(objItem.Attributes) strName = Ucase(objItem.ShortName) If Instr(strName,".") Then strExt = Right(strName,Len(strName)-Instr(strName,".")) Else strExt = "" dtmDate = CDate(objItem.DateLastModified) %> ' This is where I am listing the Files in my webpage, but it lists all files, and I need to block the listing of system Files' <tr> <td align="left">A<%=strFile%></a></td> <td align="right"> </td> <td align="right"> <p align="left"><%=intSizeK%>K</td> </tr> <% Next %> </table> </center></div> </body> </html> Tag: download file Tag: 335155
  - 6
    - Freeing Dynamic Arrays Do dynamic arrays declared using ReDim have to be freed? I assume that if it's an array of dynamically created objects (e.g. Scripting.Dictionary), each one of those objects will have to be set to Nothing in a for loop, but what about the array itself? Or what if the array is dynamic but it just consists of integers or strings, not dynamically allocated objects? Does it have to be set to Nothing? Thanks, Dave Tag: download file Tag: 335153
  - 7
    - asp datatable? Hi i am using classical asp and have a problem that I hope someone can provide an elegant suggestion. I have a recordset return rows looking like Name,Stage,Amt joe,s1,20 joe,s3,30 sam,s2,10 sam,s3,20 sam,s4,30 and I like to constuct an html table looking like: name s1 s2 s3 s4 s5 joe 20 0 30 0 0 sam 0 10 20 30 0 The stage is fixed s1 to s5 but not all names have all stages. Any hints how I can convert a recordset to this kind of table? Tag: download file Tag: 335151
  - 8
    - Code Snippet Respository All, I have posted this question in various groups, so I apologize for any overlap. I'd like to hear how other developers/architects keep track of old scripts, code snippets, relevant URLs, etc. I think most developers have an area where they keep reusable code they would like to use again. Year after year, we all develop things that can be reused in various projects. Do you simply have a file system folder where you dump all of this information and then search on it? Do you have a custom database solution for this? I'd like to hear how others are keeping track of many years worth of code snippets and scripts that they would like to reuse at some point. Thanks, Curtis Tag: download file Tag: 335150
  - 9
    - Create Window width new Session: solution I run into this problem, and I read many places that these is not solvable. I have one solution (workaround), not simple, a little trickier, limited, but possible and usable. My main problem was, that I have a complex site, and I have to make an archive site. Part of database is moved to the archive database (same structure), and the web should be the same (different users and rights stored in 2nd db) ... and I have to open it from the main site so, that both sides work simultaneously with different sessions ... Solution: In the IIS you have to make Virtual Directories as application (example: test and test1, and because I am lazy, they local path is the same directory, they use the same files) Normally you call the site by the server/test address (so here http://server/test/test.asp) In the test asp if you click to open a new window ( javascript:window.open(...) ), you use the other IIS Virtual Directory, so there you open it as http://server/test1/test.asp And so in the new window you have the same test.asp running, but width a different session and sessionID Test.asp is simple (called as http://server/test/test.asp ): <html> <head> <title>NewID test</title> </head> <body> <table><tr> <td>SessionID: <%=Session.SessionID%></td> </tr></table> <input type="button" onClick="newwindow()" value="new window"> <script language="javascript"> function newwindow() { window.open('/test1/test.asp','','toolbar=no'); </script> </body> </html> It is limited, because for every new session a new Virtual Directory is needed (like a working thread, but I only need +1 ) if someone has an easier solution, don't hesitate to share ;) Zed Tag: download file Tag: 335149
  - 10
    - Aloysius busted by Operation Sudden Fall Law enforcement is now intercepting text messages, as proven by Operation Sudden Fall in San Diego. http://www.usdoj.gov/dea/pubs/states/newsrel/sd050608.html http://www.signonsandiego.com/news/education/20080506-1338-bn06sdsu2.html Don't let your personal SMS/text messages fall into the wrong hands. Encrypt your messages with one of these: http://www.Xecure.net http://www.CryptoSMS.org http://www.CryptoSMS.com http://www.CryptoGraf.com http://www.Cop2p.com/encrypted_sms.html http://www.FortressMail.net/fortress_sms.htm http://groups.google.com/group/sms-salama/web/introduction http://home.xtra.co.nz/hosts/sveltdesign/mindwarrior/pages.html?MobeCode Be Safe, Be Encrypted, Fuck the Police!! -- What will we tighten after Anastasia scores the awkward beach's beast? Tag: download file Tag: 335145
  - 11
    - tree menu from current directory i tried to find tutorials to build a working tree menu from contents of current folder but was unable to find any, neither did i find any working scrit to build on can anyone suggest something i am a newbie to javascript but i did manage to come up with something using filesystemobject Set fso = Server.CreateObject("Scripting.FileSystemObject") path = server.mappath("/") Set root = fso.GetFolder(Path) Set files = root.files Set folders = root.SubFolders response.write "<ul>" for each folder in folders response.write "<li>"+folder.name & "</li>" next for each file in files response.write "<li>"+file.name & "</li>" next response.write "</ul>" -------------------------- http://www.eecpindia.com http://www.anchorfx.com http://forex.eecpindia.com *** Sent via Developersdex http://www.developersdex.com *** Tag: download file Tag: 335139
  - 12
    - Opening a New Window with no toolbars etc I have a page where the ASP script create a table of links i.e. 1 = NextPage.asp?Item=1 2 = NextPage.asp?Item=2 etc What I would like to do is open an new window with this link without any toolbars, addressbars, scrollbars and tabs. I would be happy even if the control to limit the appearance of the new window was in the new asp page. Any suggestions or pointers would be greatly appreciated. Thanks, Rob Tag: download file Tag: 335137
  - 13
    - Printing Scipt not working in Windows XP IN Windows 98 below script was running fine <SCRIPT ID=clientEventHandlersVB LANGUAGE=vbscript>  </SCRIPT> but after installing XP giving error ACTIVEX OBJECT CANT CREATE OBJECT. Can any one provide me a script that can run in XP Ramesh *** Sent via Developersdex http://www.developersdex.com *** Tag: download file Tag: 335133
  - 14
    - Website cloaking Hi, I have used this feature with IIS but I cannot remember now. Basicly what I want is. When Some one type mydomain.com it goes to mydomain.com and all further links are on other domain name and pages. I want user to see all the time mydomain.com not the full url with querystring. application is asp classic on IIS. Kind Regards, Tag: download file Tag: 335131
  - 15
    - New problem I'm trying to build a hit counter that does what I want using an Access database named counters.mdb which contains 2 tables. The only one involved here is page_count. Here is the code for the aspx test page. =============================== <%@ Page Language="VB" Debug="true" runat="server"%> <%@ import Namespace="System.Data.OLEDB" %> <script runat="server" language="vb"> Function pCount() Const adOpenKeyset = 1 Const adLockPessimistic = 2 Const adCmdText = &H0001 Dim hCount As Integer Dim sPage = Request.FilePath.Remove(0,Request.FilePath.LastIndexOf("/") +1) Dim sCmd = "SELECT * FROM page_count WHERE pagename='" & sPage & "';" Dim dSource As String = Server.MapPath("counters.mdb"), sTest As String = "" Dim rsCounter = Server.CreateObject("ADODB.Recordset") rsCounter.Open(sCmd, "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dSource & ";", _ adOpenKeyset, adLockPessimistic, adCmdText) If rsCounter.EOF Then sTest = "EOF has been reached." 'rsCounter.AddNew() 'uncommenting this line will throw an error 'rsCounter.Fields("pagename").Value = sPage End If rsCounter.Close() rsCounter = nothing Dim rTxt = "<p>The database path is: " & dSource & "</p><p>" & sTest & "</p><p>The page is: " & sPage & "</p>" Return rTxt End Function </script> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <title>Hit Counter Test</title> </head> <body> <%Response.write(pCount())%> </body> </html> ========================================= This produces the correct output, however if I uncomment the line rsCounter.AddNew() it starts throwing the following error System.Runtime.InteropServices.COMException: Cannot update. Database or object is read-only. Could someone please tell me what is wrong? I've been at this since yesterday. If I have posted this in the wrong group then please direct me to the right one Thanks Tag: download file Tag: 335123
  - 16
    - calling access vba function from asp? Dear all, I have an asp module connecting to a MS-access database. I have a vb function MKDate(date, time) in a vba module of this database. I would like to query : SELECT MKDATE(col1, col2) FROM TABLE1 (real query is complex, using unions, etc, but I need one column in resultset) But I get an error opening the recordset "Microsoft OLE DB Provider for ODBC Drivers (0x80040E14) [Microsoft][ODBC Microsoft Access Driver] Undefined function 'MKDATE' in expression. /selfmail/dossier.asp, line 729" I also tried to copy the code of the function MKDate(date, time) inside .asp module, no change. Is it possible to call a vba function inside an asp sql statement? Regards, Alain Tag: download file Tag: 335119
  - 17
    - REDIM Preserve problem hi REDIM Preserve reports an "out of range" i first create an array, store it into a session var then, in other page, i load restore the session var into a local array but, after this, i can't REDIM Preserve thanks ks Tag: download file Tag: 335115
  - 18
    - Recoding with Loop I'm working in ASP, and I'm trying to refine a site I inherited. In particular, there was code that looked like this (it checked for 15 different variables, doing it one at a time, "hardcoded," rather than through a loop): '----------------------------------------------------------- if strOut1 <> "" then If strOut1 = "N/A" then strOut1 = "  " else strOut1 = strOut1 & "," end if end if if strOut2 <> "" then If strOut2 = "N/A" then strOut2 = "  " else strOut2 = strOut2 & "," end if end if '----------------------------------------------------------- ....and so on.........until we get to strOut15 I'm looking at doing this through a loop and was wondering what the best way would be? Here's what I have so far: '----------------------------------------------------------- for a=1 to 15 if "strOut"&a <> "" then If "strOut"&a = "N/A" then strOut(a)=" " else strOut(a) = "strOut"&a & "," end if else strOut(a) = "" end if next '----------------------------------------------------------- Thanks for any help. Regards - Louis Tag: download file Tag: 335109
  - 19
    - persist session info hi i have logically divided each .asp page in one or more "states" then i need to store somewhere information about what state has each client on each page i consider 3 ways: - store info in the DB : {page,sessionid} is the PK - in a file: which i have to read on enter to the page and write on exit the page - in the session object: storing an array on a session variable, like session("x")[1...N] each way has a pros and cons, i'm choosing the last method, but i know it consumes much memory i will appreciate your comments thanks ks Tag: download file Tag: 335107
  - 20
    - generating form on the fly Hi, I''ve inherited a website and am working on a page to generate an html form on the fly. I'm trying to add a form to the existing code which generates an html table on the fly. The problem I'm experiencing is how to get the value from the variables into the form's input boxes. The code I've added is towards the bottom at: "<td bgcolor=""#FFFFCC"" align=""center""><input name=""textfield"" type=""text"" id=""textfield"" value="" & strOut1 & strOutP1 & "" size=""1"" />" & "</td>" & _ I'm not sure if it's a problem with escaping the quotes, etc. Thanks for any help! =============== Here's the code: <%If Request.Form("frmCopyContent") = "Copy" Then strCopyCourseID = Request.Form("strCopyCourseID") strSQL = "SELECT ID, CourseID, Objective, Out1, OutP1 " & _ "FROM AMS_ContentOverviewObjectiveOutcome " & _ "WHERE " & _ "CourseID = '" & strCopyCourseID & "' ;"%>   <%num=1 Do While Not objComm.EOF strCourseID = objComm("CourseID") strObjective1 = objComm("Objective") strOut1 = objComm("Out1") strOutP1 = objComm("OutP1") remainder = num mod 2 if strOut1 = "N/A" then strOut1 = "  " else strOut1 = strOut1 & "<br>" end if if strOutP1 then strOutP1 = "<b>PR</b>" else strOutP1 = " " end if strCourseID2= Request.querystring("CourseID") strObjective = strObjective & "<tr height=""50""><form><td align=""left""> " & strObjective1 & "</td>" & _ "<td bgcolor=""#FFFFCC"" align=""center""><input name=""textfield"" type=""text"" id=""textfield"" value="" & strOut1 & strOutP1 & "" size=""1"" />" & "</td>" & _ "<td bgcolor=""#FFFFCC"" align=""center""> " & strOut1 & strOutP1 & "</ td>" & _ "</form></tr>" objComm.MoveNext num=num+1 loop %> Tag: download file Tag: 335105
  - 21
    - Disable the PrintScreen Button from web application Is it possible disable the Print Screen Button when you access to a WEB application and enable it when you leave it? How could I do it? Tag: download file Tag: 335103
  - 22
    - Documentation on Shell in IIS 6 ????? I'm trying to call the shell on a shared server using IIS 6. 'I create the shell object as such: oShell = Server.CreateObject("Wscript.Shell") Now, I'm trying nice some simple test scripts like: oShell.Run "%ComSpec% /c nslookup " & strIPAddress & "> " & logfile, 0 , True but no matter what I do, I can't even get an error message! First, is there any documentation on using the scripting shell on a server? I've been googling for the past hour and have found zilch for docs. Second, what server permissions are required to execute the shell? Thanks!!! Tag: download file Tag: 335101
  - 23
    - Having problem with CDOSYS. Body getting corrupted. Hi i am using CDOSYS to send mails to the users from my application. Everything is working fine, mails are being sent to the user but in the mail the user receives, some extra characters such as '!' or spaces are coming between words. I tried defining a character set but still the problem exitss. Please help me with this. Tag: download file Tag: 335100
  - 24
    - ASP / CDOSYS - Performance issue I'm hosted on a shared server with Godaddy.com... I have several forms on my website that all use the same ASP file to send out my forms.. It worked fine for a long time, but now the forms send to my e-mail arrive after a few hours instead of instantly. Calling Godaddy did not help as they stated all is working fine (no delays) on their end and refuse to help with custom scripts.. My emails are also hosted by godaddy like my website. Hopefully someone here can have a look at my code and see why I might have such huge delays? Note: The delays seem to happen when using CDOSYS... I'm also setting up a shopping cart (ProductCart) and when using the CDOSYS function for their email script it has also a huge delay, while setting it to CDO it arrives within minutes... I do not get any errors, all seems to go fine and mail does arrive after a few hours. Here's the code (personal info marked out of cos): <% option explicit dim pde : set pde = createobject("scripting.dictionary") pde.add "%mailing%", "email1@myserver.com" pde.add "%webmaster%", "email2@myserver.com" pde.add "%info%", "email3@myserver.com" pde.add "%email%", "email4@myserver.com" function getTextFromFile(path) dim fso, f, txt set fso = createobject("Scripting.FileSystemObject") if not fso.fileexists(path) then getTextFromFile = "" exit function end if set f = fso.opentextfile(path,1) if f.atendofstream then txt = "" else txt = f.readall f.close set f = nothing set fso = nothing getTextFromFile = txt end function dim redir, mailto, email, subject, item, body, cc, bcc, message, html, template, usetemplate, testmode redir = request.form("redirect") mailto = request.form("mailto") if pde.exists(mailto) then mailto = pde(mailto) cc = request.form("cc") bcc = request.form("bcc") email = request.form("email") if email = "" then email = pde("%email%") subject = request.form("subject") message = request.form("message") template = request.form("template") testmode = lcase(request.form("testmode"))="no" if len(template) > 0 then template = getTextFromFile(server.mappath(template)) if len(template) > 0 then usetemplate = true else usetemplate = false dim msg : set msg = server.createobject("CDO.Message") msg.subject = subject msg.to = mailto msg.from = email if len(cc) > 0 then msg.cc = cc if len(bcc) > 0 then msg.bcc = bcc if not usetemplate then body = body & message & vbcrlf & vbcrlf else body = template end if for each item in request.form select case item case "redirect", "mailto", "cc", "bcc", "subject", "message", "template", "html", "testmode" case else if not usetemplate then if item <> "email" then body = body & item & ": " & request.form(item) & vbcrlf & vbcrlf else body = replace(body, "[$" & item & "$]", replace(request.form(item),vbcrlf, "<br>")) end if end select next if usetemplate then 'remove any leftover placeholders dim rx : set rx = new regexp rx.pattern = "\[\$.*\$\]" rx.global = true body = rx.replace(body, "") end if if usetemplate and lcase(request.form("html")) = "yes" then msg.htmlbody = body else msg.textbody = body end if if testmode then if lcase(request.form("html")) = "yes" then response.write "<pre>" & vbcrlf response.write "Mail to: " & mailto & vbcrlf response.write "Mail from: " & email & vbcrlf if len(cc) > 0 then response.write "Cc: " & cc & vbcrlf if len(bcc) > 0 then response.write "Bcc: " & bcc & vbcrlf response.write "Subject: " & subject & vbcrlf & string(80,"-") & "</pre>" response.write body else response.write "<html><head><title>Sendmail.asp Test Mode</title></head><body><pre>" & vbcrlf response.write "Mail to: " & mailto & vbcrlf response.write "Mail from: " & email & vbcrlf if len(cc) > 0 then response.write "Cc: " & cc & vbcrlf if len(bcc) > 0 then response.write "Bcc: " & bcc & vbcrlf response.write "Subject: " & subject & vbcrlf & vbcrlf response.write string(80,"-") & vbcrlf & vbcrlf & "<span style=""color: blue;"">" response.write body & "</span>" & vbcrlf & vbcrlf response.write string(80,"-") & vbcrlf & "**END OF EMAIL**</pre></body></html>" end if else msg.send response.redirect redir end if set msg = nothing %> I also tried adding these lines (and combinations) without any better results: msg.Configuration.Fields.Item(" http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 msg.Configuration.Fields.Item(" http://schemas.microsoft.com/cdo/configuration/smtpserver") = "relay-hosting. secureserver.net" msg.Configuration.Fields.Item(" http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 3535 msg.Configuration.Fields.Item(" http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") =1 msg.Configuration.Fields.Item(" http://schemas.microsoft.com/cdo/configuration/sendusername") = "email1@myserver.com" msg.Configuration.Fields.Item (" http://schemas.microsoft.com/cdo/configuration/sendpassword") = "abc1234" Here's a sample of what's used in the forms: <form action="/sendmail_cdo.asp" method="post" name="SampleForm" id="SampleForm"> <input type="hidden" name="redirect" value=" http://www.myserver.com/thanks.htm"> <input name="mailto" type="hidden" id="mailto" value="%webmaster%"> <input name="subject" type="hidden" id="subject" value="Website Form Submission: Sample form from website"> In the html template used with the form, I use [$form_fieldname$] to display the values entered in the forms. Anyone any ideas why there might be this huge delay and/or does anyone know how to change this to CDO instead of CDOSYS (as this worked for the shopping cart)? Tag: download file Tag: 335098
  - 25
    - CompilationError hi, i m adding attribute of runat=server from codebehind file <asp:imagebutton id="imgCompletionDate" CssClass="clImageButton" ImageAlign="absMiddle" BorderStyle="None" ImageUrl="..images \img1000024.gif" CausesValidation="False" Height="20"></ asp:imagebutton></TD> in code behindfile method imgCompletionDate.Attributes.Add("runat","'server'"); , but it gives error CS1040: Preprocessor directives must appear as the first non-whitespace character on a line and shows the line which binds data at runtime. that is <TD align="left" valign="top" class="GridCell" height="25px"> <%#DataBinder.Eval(Container, "DataItem.DocumentTitle")%> </TD> thx Tag: download file Tag: 335089

dear sir/madam
I have to write a code for download file in asp

Thanks in advance

Re: download file by Evertjan

Evertjan
Wed May 28 07:34:16 CDT 2008

wrote on 28 mei 2008 in microsoft.public.inetserver.asp.general:

> dear sir/madam
> I have to write a code for download file in asp
>
> Thanks in advance

No thanks, is is nice to know you have to.

Is it an inner urge or a school assigmnent?

Do you have a question?

--
Evertjan.
The Netherlands.
(Please change the x'es to dots in my emailaddress)

Top

Re: download file by Tim

Tim
Wed May 28 07:39:55 CDT 2008

vinodkus@gmail.com wrote:

>dear sir/madam
> I have to write a code for download file in asp

Here's one web page that discusses this issue:
http://www.asp101.com/articles/jacob/scriptupload.asp

Google for many others.

--
Tim Slattery
MS MVP(Shell/User)
Slattery_T@bls.gov
http://members.cox.net/slatteryt

Top

Re: download file by Tim

Tim
Wed May 28 07:46:01 CDT 2008

Tim Slattery <Slattery_T@bls.gov> wrote:

>vinodkus@gmail.com wrote:
>
>>dear sir/madam
>> I have to write a code for download file in asp
>
>Here's one web page that discusses this issue:

Oops, forget that. I went too fast and got things backwards.

--
Tim Slattery
MS MVP(Shell/User)
Slattery_T@bls.gov
http://members.cox.net/slatteryt

Top