no. of Files not count?

TheMSsForum.com: The Microsoft Software Forum

The MSS Forum ‹ VBscripts
- 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
    - Select UNIQUE Hello, I am in the early stages of writing a script that will query a database and then create an Excel spreadsheet. Does WQL support "Select UNIQUE" ? If not, is there a way to select unique records in a database using VBScript? Your suggestions are appreciated. TIA, Bill bill@2burkes.com Tag: no. of Files not count? Tag: 137748
  - 2
    - Problem while getting the File Name with AspUpload Hi, I need to upload a file to server and save the file name to the database. I wrote some code and from that i couldnt get the Uploaded filename. Is there any mistake in the code. I could only access the size,type,width,height and server path. I need the filename of uploaded image. I searched the net and went through the documentation, but i couldnt make out where the problem is. Could any one please help me regarding this. I am very much thankful to you. Thanks and Regards, Bindu. The code is like this: -------------------------------- <% On Error Resume Next Set Upload = Server.CreateObject("Persits.Upload.1") ' Uncomment this line if unique file name generation is necessary Upload.OverwriteFiles = False 'limit file size Upload.SetMaxSize 25000, True ' Intercept all exceptions to display user-friendly error On Error Resume Next ' Perform upload Count = Upload.Save(Server.MapPath("images/")) ' 8 is the number of "File too large" exception If Err.Number = 8 Then Response.Write "Your file is too large. Please try again." Else If Err <> 0 Then Response.Write "An error occurred: " & Err.Description Else Response.Write "Success!" End If End If If Count > 0 Then Response.Write Count & " file(s) uploaded." & "<br>" End If For Each File in Upload.Files If File.ImageType = "UNKNOWN" Then Response.Write "This is not an image." Response.End End If Response.write "Size: " & File.Size & "<br>" Response.write "Type: " & File.ImageType & "<br>" Response.write "FileName: " & File.FileName & "<br>" Response.write "Ext: " & File.Ext & "<br>" Response.write "Folder: " & File.Folder & "<br>" Response.write "Width: " & File.ImageWidth & "<br>" Response.write "Height: " & File.ImageHeight & "<br>" Response.write "Original File Name: " & File.OriginalFileName & "<br>" Response.write "Original Folder: " & File.OriginalFolder & "<br>" Response.write "Path: " & File.Path & "<br>" Next %> ---------------------------------------------------------- Tag: no. of Files not count? Tag: 137739
  - 3
    - orphaned entries in the acl Anyone know where i can get a script that will create a list of all the AD objects that have orphaned objects in their ACL's ? I want to do some house keeping on the permissions for the objects in AD Tag: no. of Files not count? Tag: 137730
  - 4
    - Cookies I need a way to use one and the same cookie over multiple websites? Does anybody know how to do this...? Many thanks, Robbie Tag: no. of Files not count? Tag: 137729
  - 5
    - Checking group membership I would like to check if a group is member of another group in Active Directory. I am using the following lines of code, but they don't work (the program doesn't recognize that GG_I_CA is member of GG_I. Set oSysInfo = CreateObject("WinNTSystemInfo") sDomain = oSysInfo.DomainName Set oGroup = GetObject("WinNT://" & sDomain & "/" & "GG_I") IsMember = oGroup.IsMember("WinNT://" & sDomain & "/" & "GG_I_CA") IF isMember Then wscript.echo "Group is member" If I try to check if a user is member of a group, everything works fine. Is there another method to check group membership (I wouldn't like to have the list of members and recursively check it)? Thanks, Marta -- Posted via http://dbforums.com Tag: no. of Files not count? Tag: 137728
  - 6
    - Leading spaces Been out of this for too long! Can someone please remind me of the code to remove spaces from a string? Thanks Tag: no. of Files not count? Tag: 137727
  - 7
    - How to send a command Unix Hello, How to send an UNIX command with JavaScript or VBScript ? Thanks Tag: no. of Files not count? Tag: 137724
  - 8
    - MSXML2.XMLHTTP compatibility with IE 5.0 and above Object: We are using the Microsoft.XMLHTTP component for uploading data from the IE Client. The VBScript code required for a CLIENT - SIDE is: Sub Sendit dim sfileName dim sType dim xmlhttp sfileName="c:\\voir.txt" sType=2 sData = getFileBytes(sfileName, sType) sfileName= mid(sfileName, InstrRev(sFileName,"\")+1,len(sfileName)) set xmlhttp=createobject("MSXML2.XMLHTTP") strURL = "http://localhost/INGEB/uploads/" & sFileName msgbox "URL is: " & strURL xmlhttp.Open "PUT", strURL, false xmlhttp.Send sData show.innerText= "Status: " & xmlhttp.statusText set xmlhttp=Nothing End sub Questions: The Client side use the IE version 5 and above. What version of Microsoft.XMLHTTP is required to execute the previous script ? Is it included by default with IE5 and above? Thanks!!! Tag: no. of Files not count? Tag: 137723
  - 9
    - auto send mail using Pop3 I am automating the tasks. After it finished, it will send a e-mail using Outlook to notify the people. But under office XP / latest service pack on Office 2000, It will come up a dialog box, and I need to confirm it 2 times manually, so that the message can be sent. Can anyone give me some example on sending the e-mail via POP3 protocol? (I don't need to manually confim the message one by one). Tag: no. of Files not count? Tag: 137702
  - 10
    - call a query in access from vbs program part 2 Set cn = server.createobject("adodb.connection") cn.open "provider=Microsoft.Jet.OLEDB.4.0;" & "r:\basegeneral.mdb" cn.r-daytoday cn.close set cn = nothing I ran the script and I got this error message code: 800AO1A8 error: objet requis: "server" why? -- Direct access to this group with http://web2news.com http://web2news.com/?microsoft.public.scripting.vbscript To contact in private, remove nn3osp+-3pa6m Tag: no. of Files not count? Tag: 137691
  - 11
    - ASP email validation I was wondering if there was a way to validate the email software of a contact to see if their software can support HTML emails before sending the emails using ASP? I want to send them a plain text email if their software does not support HTML... Many Thanks, Kevin Tag: no. of Files not count? Tag: 137685
  - 12
    - Need a Loop For my Code Hi there can anyone out there help me ? The following VBS script I wrote to alow me to Save some webpages as text files. However I need a to have some kind of loop put in so that I can do this for multiple URL's and save each webpage as a different text file ? I am new to VBS but am fairly experienced with VBA and VB If this were either I would just write an Array to handle the different URL's and File Names and than run this code through a Loop, which would change the Elements in the URL array and textfile name array each time the loop ran through . However Im not sure if I can do such a thing with VBS. If so how can I do this and do you need to "Dim" any array's or variables ??? code: Set IE = createobject("InternetExplorer.Application") fWrite "C:\SBM\DataMining\TextData\zcd9.txt", WebText ("http://www.cpc.ncep.noaa.gov/products/analysis_monitoring /cdus/degree_days/msacddy.txt") fWrite "C:\SBM\DataMining\TextData\zhd9.txt", WebText ("http://www.cpc.ncep.noaa.gov/products/analysis_monitoring /cdus/degree_days/msahddy.txt") Function WebText(sUrl) IE.Navigate sUrl Do Until IE.ReadyState = 4:WScript.Sleep 10 : Loop WebText = IE.Document.Body.InnerText End Function Function WebHTML(sUrl) IE.Navigate sUrl Do Until IE.ReadyState = 4:WScript.Sleep 10 : Loop WebHTML = IE.Document.Body.InnerHTML End Function Sub fWrite(FilePath, sData) 'Given the path to a file, will return entire contents With CreateObject("Scripting.FileSystemObject")._ OpenTextFile(FilePath, 2, True) .Write sData: .Close End With End Sub IE.Quit MsgBox ("Web Pages Saved As Text Files") Tag: no. of Files not count? Tag: 137681
  - 13
    - Enumerate All file attributes anyone have a script that will return the file attributes of all files in a folder and it's subfolders? Thanks azeem. Tag: no. of Files not count? Tag: 137679
  - 14
    - Hacking MS Exchange Is is possible to create a script that can access the internet mail service queues and delete anything that does not have an originator? If so, does anyone have an example? Sorry for the xpost. Tag: no. of Files not count? Tag: 137674
  - 15
    - document.Cookie Hi I have just created my first OCX in VB6 and all works great! Next I want to read parameters from the hosting web page and store user information locally on their disk. And pointers on how to do either. I have been looking at : UserControl.Parent.script.Document.cookie but can't seem to retrieve all the parameters or set them?! I know this a VB script forum but it would seem more appropriate given the script.document,cookie bit! Thanks Tag: no. of Files not count? Tag: 137671
  - 16
    - Change File Attributes Hello, I need to copy a folder and all it's files to a new location for backup. How do I change the attributes of the destination read-only files so I can overwrite them for the copy and then reset the attribute after the copy? Anyone? Thanks. Tag: no. of Files not count? Tag: 137666
  - 17
    - Listing all Forest users I want to write a script which will list all the users in each domain in a forest. So far i have been able to list all the domain and subdomains on the forest. The problem is that when i try to list each domain users i get only the user list of my current domain (the domain my account belongs to). This should not be a permissions problem, since i query the nearest Global Catalog for the user list. Any help / suggestions would be appreciated. Tag: no. of Files not count? Tag: 137663
  - 18
    - internal Mail server (exchange) won't accept CDONTS generated mail We have several forms on an intranet which are used to submit information to a database, but also in some case to generate notices to relevant staff as emails. I have checked mailroot/queue mailroot/badmail and the messages are getting to queue (*.eml) and some time later to badmail. Even the mail undelivable messages don't get sent. But they do contain: >>> Unable to deliver message to the following recipients, due to being unable to connect successfully to the destination mail server. paul.ritchings@nulc.ac.uk [or whatever] <<< The scripts will work however if the address is an external one. eg: someuser@ntlworld.com Has anyone got any idea what might be causing this. ps. I don't have access to the mail server. And have limited rights on the webserver. Tag: no. of Files not count? Tag: 137660
  - 19
    - automatic installing Hello, How can I automatize the insertion of the key code number in a form usign VisualBasic script? Thank oyu a lot! Alberto Gori Tag: no. of Files not count? Tag: 137659
  - 20
    - how to automatically download files to specified location When you click file link to download a file, a window pops up to confirm the file download. And it will ask you to select the location to save your file. Can I customize this task to automatically do these things in background by programming? and how? Thanks. Tag: no. of Files not count? Tag: 137658
  - 21
    - Word 2002 Automation / Windows 2000 SP4 I have a program that uses word automation to open word, open a document, print a selected document, and closes word. Before I installed SP4 for Windows 2000, the following code worked flawlessly: Dim objWord Set objWord = CreateObject("Word.Application") objWord.Documents.Open strFileName, false, true, false objWord.Application.DisplayAlerts = 0 objWord.Application.ActivePrinter = "HP_printer" objWord.Application.PrintOut true,,0,,,,,1 objWord.ActiveDocument.Close false objWord.Quit Set objWord = Nothing In DCOMCNFG, I have Word set to run under the identity of Administrator, in order to have access to all network resources. This was on Windows 2000 SP3. Since I installed SP4 for Windows 2000, this Word automation does not work. Whenever I call the line in the above code 'objWord.documents.open ... " the program freezes and the word process hangs. The same happens if I try to run this code in a macro in Word VBA. Whenever it gets to the line that opens a file, and the file is on a shared network resource, it hangs. Again, this worked prior to SP4. Is there a new security setting in SP4? I have tried uninstalling Office, restarting, and reinstalling Office, but that did not work. Any help would be GREATLY appreciated. Thanks! Tag: no. of Files not count? Tag: 137656
  - 22
    - pass data to a dll I'm new in this process, I have an asp page that is calling vb dll. I need to pass a varaible to the dll from the asp page, then the DLL will execute a stored procedure. In the SP the where clause is based on the variable being passed from the asp page/dll. How can I accomplish this? Tag: no. of Files not count? Tag: 137649
  - 23
    - Creating local user accounts hi folks. i have a little problem creating local users on a windows 2000 system with the user object. problem is, that the local security policies do not allow a blank password. is there a way to directly set the password when creating the user account?? i only know of the method with setpassword. but that requires that the user already exists. another way would be to temporarily disable the local security policies. how do i do that with a script? thanks in advance Tag: no. of Files not count? Tag: 137647
  - 24
    - I want to make sure that all my servers only have one enabled local administrator account I want to make sure that all my servers only have one enabled local administrator account. How can I make a script file which does this? Tag: no. of Files not count? Tag: 137636
  - 25
    - Using EOLWTSCOM module to enumerate Terminal server profile in AD I am using EOLWTSCOM (ftp://ftp.go-eol.com/public/thinssentials/wtscom/) You can use this module to set and enumerate Terminal Servers settings in AD. I am having trouble enumerating some properties. The properties show up as boxes (invalid charactors). I think I need to change data types. I 'm not sure how to do this. This is my code below: Const WTSUserConfigInitialProgram = 0 Const WTSUserConfigWorkingDirectory = 1 Const WTSUserConfigfInheritInitialProgram = 2 Const WTSUserConfigfAllowLogonTerminalServer = 3 Const WTSUserConfigTimeoutSettingsConnections = 4 Const WTSUserConfigTimeoutSettingsDisconnections = 5 Const WTSUserConfigTimeoutSettingsIdle = 6 Const WTSUserConfigfDeviceClientDrives = 7 Const WTSUserConfigfDeviceClientPrinters = 8 Const WTSUserConfigfDeviceClientDefaultPrinter = 9 Const WTSUserConfigBrokenTimeoutSettings = 10 Const WTSUserConfigReconnectSettings = 11 Const WTSUserConfigModemCallbackSettings = 12 Const WTSUserConfigModemCallbackPhoneNumber = 13 Const WTSUserConfigShadowingSettings = 14 Const WTSUserConfigTerminalServerProfilePath = 15 Const WTSUserConfigTerminalServerHomeDir = 16 Const WTSUserConfigTerminalServerHomeDirDrive = 17 Const WTSUserConfigfTerminalServerRemoteHomeDir = 18 Set oWTSCOM = CreateObject("EOLWTSCOM.WTSCOM") MsgBox oWTSCOM.WTSQueryUserConfig("DC", "samAccountName", WTSUserConfigTerminalServerProfilePath) MsgBox oWTSCOM.WTSQueryUserConfig("DC", "samAccountName", WTSUserConfigfAllowLogonTerminalServer) MsgBox oWTSCOM.WTSQueryUserConfig("DC", "samAccountName", WTSUserConfigfDeviceClientDrives) MsgBox oWTSCOM.WTSQueryUserConfig("DC", "samAccountName", WTSUserConfigfDeviceClientPrinters) MsgBox oWTSCOM.WTSQueryUserConfig("DC", "samAccountName", WTSUserConfigfDeviceClientDefaultPrinter) If anyone has experience enumerating the last 4 properties, I would be forever greatful. Thanks, Dan Tag: no. of Files not count? Tag: 137632
- Next
  - 1
    - Email newbie...when I run a script that sends an email...it pops up a dialog box that says "Another program is trying to access your address book to send a message..." How do I turn this off or accept it automatically?? Function SendEmail(MailRecipient1, Subject, Message) Const olMailItem = 0 Dim OutlookProfile: OutlookProfile = "MS Exchange Settings" Dim objoutl, objNameSpace, objMailItem Set objOutl = WScript.CreateObject("Outlook.Application") Set objNameSpace = objOutl.GetNameSpace("MAPI") Set objMailItem = objOutl.CreateItem(olMailItem) objMailItem.Recipients.Add(MailRecipient1) objMailItem.Subject = Subject objMailItem.Body = Message objNameSpace.Logon OutlookProfile objMailItem.Send objNameSpace.Logoff End Function Tag: no. of Files not count? Tag: 137622
  - 2
    - Identify if Windows version is US, FR, DE, etc.. Hi, I am looking for a scriptable way to identify if the Windows version is a US version, a French version, a German version, etc... ? Also is there a way to do the same thing for SQL Server and Office ? Regards, Fred. Tag: no. of Files not count? Tag: 137620
  - 3
    - collection of objects?? Hi, I was wondering if/how you could (in vbscript - jscripters and .net scripters chime in too) define a class then instantiate multiple instances and keep track of them. Do you use an array?? Thnx, Bill Wallace Tag: no. of Files not count? Tag: 137608
  - 4
    - Is machine present Is there a quick way of finding if a machine is present on the network (not present in the AD). I mean, a machine might be in the AD but switched off or removed from the network. I though I would use this code to check for the c$ share (something all our machines have) but its dog slow. Function ExistShare(sComputer, sShare) Set oWMI = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & sComputer & "\root\cimv2") Set colShares = oWMI.ExecQuery ("Select * from Win32_Share WHERE name = '" & sShare & "'") If colShares.Count > 0 Then ExistShare = True Else ExistShare = False End If End Function Any ideas how i can do it, or speed the process up ? Olly -- ________________________________________________ ADSSupport.net http://www.adssupport.net Dedicated free Active Directory ServicesT support email: oliver.marshall@nospam@adssupport.net Tag: no. of Files not count? Tag: 137607
  - 5
    - test test Tag: no. of Files not count? Tag: 137604
  - 6
    - set NTFS file compression by script How do I set a file to use NTFS file compression by vbscript? I have a script that makes a backup of an Access database, runs database compress and repair then renames it. Option Explicit CallCompress "\\....\...\mystuff.mdb" 'beep WScript.CreateObject("Wscript.Shell").Run "%comspec% /c echo "&chr(7),0,true sub CallCompress(origMdbFile) 'based on backupDBs.vbs by Doug LaMar at dlamar@lamarsoft.com Dim IsLocked, destMdbFile, origLdbFile, fso origLdbFile = Left(origMdbFile,(Len(origMdbFile)-3)) & "ldb" destMdbFile = Left(origMdbFile,(Len(origMdbFile)-4)) & " " & _ Year(Now()) & right("0" & Month(Now()), 2) & _ right("0" & day(now()),2) & ".mdb" Set fso = WScript.CreateObject("Scripting.FileSystemObject") IsLocked = True While IsLocked If (fso.FileExists(origMdbFile)) Then If (fso.FileExists(origLdbFile)) Then ' Database locked by Access IsLocked = True WScript.Sleep 60000 ' Wait 1 minute Else ' Database free IsLocked = False End If Else ' File doesn't exist WScript.Quit End If Wend DoCompress origMdbFile, destMdbFile Set fso = Nothing end sub sub DoCompress(strSourceDB, strDestDB) CreateObject("Access.Application").DbEngine.CompactDatabase strSourceDB, strDestDB If Err.Number > 0 Then MsgBox "The following error was encountered while compacting database:" & _ vbCrLf & vbCrLf & Err.Description end sub Tag: no. of Files not count? Tag: 137601
  - 7
    - send mail with vbs in lotus notes This is a multi-part message in MIME format. ------=_NextPart_000_0021_01C340C6.97B1A590 Content-Type: text/plain; charset="windows-1255" Content-Transfer-Encoding: quoted-printable hey i newbie and my question is: can a make a script that send me a email in lotus notes /domino = envoriment becuse i dont have direct internet access? ------=_NextPart_000_0021_01C340C6.97B1A590 Content-Type: text/html; charset="windows-1255" Content-Transfer-Encoding: quoted-printable <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD> <META http-equiv=3DContent-Type content=3D"text/html; = charset=3Dwindows-1255"> <META content=3D"MSHTML 6.00.2800.1170" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY> <DIV> <P><FONT face=3DArial size=3D2>hey i newbie and my question = is:</FONT></P> <P><FONT face=3DArial size=3D2></FONT> </P> <P><FONT face=3DArial size=3D2>can a make a script that send me a email = in lotus=20 notes /domino envoriment</FONT></P> <P><FONT face=3DArial size=3D2>becuse i dont have direct internet = access?</FONT></P> <P><FONT face=3DArial size=3D2></FONT> </P> <P><FONT face=3DArial size=3D2></FONT> </P></DIV></BODY></HTML> ------=_NextPart_000_0021_01C340C6.97B1A590-- Tag: no. of Files not count? Tag: 137599
  - 8
    - File Object will not open [Win XP; IIS 5.1] This VB script (ASP) does not work. It fails when trying to open the file; says it doesn't exist (after a long wait) despite the 'if' statement evaluating to True. It worked fine in PWS on Win98. I am at a complete loss! --Start code sample Set fso = CreateObject("Scripting.FileSystemObject") sFilePath = "c:\inetpub\wwwroot\test.txt" If fso.FileExists(sFilePath) Then Set f = fso.OpenTextFile(sFilePath, 1, True) [... stuff deleted from sample ...] /--End code sample Tag: no. of Files not count? Tag: 137598
  - 9
    - Copying Folders Hi all!! I have recently receive a task from my boss to write script that will copy contents from one folder (including all subdirectories and files) into another folder but without deleting old files in the target folder!! Let me give an example: There are folder on my CD-ROM, let's say it's path is D:\folder1, with a lot of files and subderictories. There are folder on my hard disk, C:\test\folder2. I want to copy all contents from folder 1 to folder 2, but without replacing files in folder2 with that from folder1 in case that are the same. I have found some example scripts in "Windows 2000 scripting guide", and on the net using shell.application object or copyfolder method in filesystemobject, but they all replace old files with the new ones. I want a script that will preserve an old files in folder2! Thanks Vinko Malada Tag: no. of Files not count? Tag: 137594
  - 10
    - Select option on right click I have a simple select form element object and want to be able to get it to select whatever the user chooses when they right-click in it. I've managed to use the following code, but on the right-click it displays whatever was previously selected and still highlighted with the left click. Is there a way to get a right click in the select object to perform the same functionality as a left click? (ie. select the option) <html> <head> <script language="VBScript">  </script> <body> <form name="form1"> <select name="messages" size="8" onDblClick="fnViewMsg()" onMouseDown="fnDelMsg()"> <option>Message 1</option> <option>Message 2</option> <option>Message 3</option> <option>Message 4</option> </select> </form> </body> </html> Tag: no. of Files not count? Tag: 137590
  - 11
    - Using the hardware wizard through VBscript? Hi all I'm working on a script that checks the USB Ports on the users machine for unauthorized USB-Hardware. I got the script from someone else but would like to implement an option to deactivate the USB Hardware. I'm able to call up the hardware wizard (to deactivate the Hardware) but fail to let the script navigate throught the dialogs (press next, choose deactivate, press next and so on). so my questions are: is it even possible and if it's possible, how can I do it? thanks in advance. This is the code I use to call up the Hardware wizard: Dim shl Set shl = CreateObject("Shell.Application") shl.ControlPanelItem cstr("hdwwiz.cpl") Tag: no. of Files not count? Tag: 137589
  - 12
    - Export parameters of COM+ object Hello, I have an application than is composed of several packages. Each packages contains severals objects. I would like to export in a file the list of the packages with the parameters. In fact the need is to compare the production and the test server to see if there is a difference in parameters. Thanks o lot Tag: no. of Files not count? Tag: 137587
  - 13
    - FileSystemObject and INPUT/FILE I open a file using the HTML INPUT TYPE+FILE in a form. Then in ASP I want to move the file I just picked to a different place and it fails - error difficult to decypher. Could it be that the file is still open as a result of the INPUT activity? If so, how do I close it in ASP VBscript before I can move it with FSO.copyfile? Thanks, Tag: no. of Files not count? Tag: 137584
  - 14
    - Copy over read-only files newbie here...how do I use vbs to copy over read-only files. I want to copy a folder to a new location every night and want to overwrite read-only files as well... Any help would be great..thanks. Bioman Tag: no. of Files not count? Tag: 137575
  - 15
    - Help creating a sufficient FOR EACH ... LOOP Hi all, I have a situation with creating a FOR EACH ... LOOP condition which submits the values of a querystring (or form) with the following querystring output: "partners.asp?action=listupdate& AffiliateSiteID=4& affiliatePageID=4&AffPgID4=on& affiliatePageID=8&AffPgID8=on& affiliatePageID=11&AffPgID11=on &affiliatePageID=12& affiliatePageID=54" The form is a list with check boxes, and those checkboxes which are checked have the on value. I need to structure an INSERT statement that updates fields: AffiliateSiteID, AffiliatePageID where AffPgID=ON. Therefore for each page it should submit a SiteID = 4, PageID = {AffiliatePageID}. The problem is in creating the FOR EACH statement. The following doesnt include AffiliateSiteID for each record and doesnt recognise the number of AffPgID. ******************************************* for each item in request("AffiliatePageID") dbConnect.execute ("INSERT into tblMapUserToPartner (AffiliateSiteID, AffiliatePgID) VALUES ("& request("AffiliateSiteID") &","& request("AffiliatePageID") &")") next ******************************************* Note: I can change the structure of the form if this is not a sufficient structure for the output. Any help in how to structure this would really help as i just cant work it out. Thanks Regards, Kevin Tag: no. of Files not count? Tag: 137570
  - 16
    - Confirm the file link is available or not. Hi, how to Confirm it by VBscript ??? the file link(s) are file:// or http:// Tag: no. of Files not count? Tag: 137567
  - 17
    - HTML using WMI possible ?? Hi I am trying to create a web application where I want the wmi to run as client scripts.Is that possible in the first case? I'm trying to create a website where user can login and get his PC health checked.What will I have to do such a application Im a newbie to scripting .Please help.I tried the following <html> <head> </head> <body> <script language=vbscript> strComputer = "." Set objDCOMApp = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set objApp = objDCOMApp.ExecQuery ("Select * from Win32_LogicalDisk") For Each objOS In objApp if 3 = objos.DriveType then MsgBox "Drive Name = " & objos.Name end if Next </script> </body> </html> I get the following error "Activex component can create object:Getobject" Please help -Bahar Tag: no. of Files not count? Tag: 137565
  - 18
    - If statement not working I have the following statement-- If request("user")="BOB" or request("user")="FRED" then This will not work what am I missing? Tag: no. of Files not count? Tag: 137560
  - 19
    - Can anyone script this for me ? I need a script that will prompt the user for a filename and then search the C$ shares of all the machines on the network, in all of their folders, until it finds it, then dump the machine name and path to a text file. Any takers ? -- ________________________________________________ ADSSupport.net http://www.adssupport.net Dedicated free Active Directory ServicesT support email: oliver.marshall@nospam@adssupport.net Tag: no. of Files not count? Tag: 137551
  - 20
    - Highlight line of a textarea on mouse click Does anyone know if its possible to get the line number of a textarea form element when a user clicks on a specific line, and hence highlight it? If so, can you point me in the right direction of the code to do so. Many thanks Dan Williams. Tag: no. of Files not count? Tag: 137550
  - 21
    - Need decent VBS reference! I am increasingly frustrated with the VBS/JS script help file provided by Microsoft (script56.chm). It is totally devoid of information on functions, events, etc. related to browser and server scripting. For example, events like "onClick," "onError" are missing, and functions like "setTimeout" are nowhere to be found. I have to use an old Netscape javascript reference and try to translate that into VBScript syntax. Is there a better VBS/JS reference around? -- Dave "Crash" Dummy - A weapon of mass destruction crash@gpick.com http://lists.gpick.com Tag: no. of Files not count? Tag: 137549
  - 22
    - Signing Scripts Signing a script, is this a stupid thing as I presume you can just remove key at bottom if you want to change or edit it. or is there a mechanism to check for signatures and take action from this from os ? I mean if the key at bottom of script is to validate a security key hashed to the script file, as a protection against editing the I seems a bit pointless. Can some enlighten me into a scenario that it could be usefull. Regards Don Grover Tag: no. of Files not count? Tag: 137539
  - 23
    - java configuring I have windows xp, I.E. 6.0, web site tells me "browser not config. to support java". Need help!!! Tag: no. of Files not count? Tag: 137537
  - 24
    - Is there a size limit for a receive (output) string parameter? Hello, I created an ActiveX control that have a member function with two string parameters. The first parameter is basically an SQL statement to be executed The second parameter is a receive (or ByRef/Output) parameter that is used to deliver the results of an execution of the SQL statement to the caller. These results are output in the XML format. Sometimes the size of the output string parameter could be rather large. When the ActiveX function is called from say a VB program there are no problems with large strings. However, when the function is called from an ASP page for the strings larger than 127233 characters the following error occurs: Error 0x80010105, Server threw an exception. Is there a size limit for an output string parameter in VBScript when it is used in an ASP page? Or what else could be causing this problem. I use IIS 5 that comes with WinXP Professional. Regards Igor B. Tag: no. of Files not count? Tag: 137526
  - 25
    - Updating passwords stored in Manage Network Passwords Hi All, Is there any way to update the passwords stored in Manage Network Passwords using vbscript or VB? I can update my domain and local passwords but not these. Regards Colin Tag: no. of Files not count? Tag: 137524

Hi all,

I got this problem. I have an asp-file containing only this piece of
script. Though all other asp-based files work, this piece doesn't.
IUSR_server has all the rights on the directory, and on scrrun.dll (as
somebody suggested).

Does anybody have an idea? Your help is greatly appreciated.

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("d:\webroot\testing\images\Large\")
Set objFiles = objFolder.Files
response.write objFiles.count

Grtz
Bart

Top

Re: no. of Files not count? by Ray

Ray
Fri Jul 04 15:13:02 CDT 2003

What does "don't work" mean?

This? http://www.aspfaq.com/2180

Ray at home

"Batje4" <batje4_nospam_@gmx.net> wrote in message
news:Xns93AEDC260826BBatje4hotmailcom@194.109.133.20...
> Hi all,
>
> I got this problem. I have an asp-file containing only this piece of
> script. Though all other asp-based files work, this piece doesn't.
> IUSR_server has all the rights on the directory, and on scrrun.dll (as
> somebody suggested).
>
> Does anybody have an idea? Your help is greatly appreciated.
>
>
>
> Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
> Set objFolder = objFSO.GetFolder("d:\webroot\testing\images\Large\")
> Set objFiles = objFolder.Files
> response.write objFiles.count
>
>
> Grtz
> Bart

Top