Display DACL on a folders ACL

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
    - Copy or CopyFile using ftp The script below does not work. I get a file not found error (the file exits). The script works on shared drives but not this ftp IP (Intranet)address. If I type the ftp address in IE it gets me to the correct place. It also works if I use a script to create a shortcut to the IP address. Why can't I get this script to work. Thanks. Dim FSO Dim MyFile Set FSO = CreateObject("Scripting.FileSystemObject") Set MyFile = fso.GetFile ("ftp://username:password@IPAddress/../../../rootfolder/fil e1.txt") MyFile.Copy ("c:\documents and settings\") Tag: Display DACL on a folders ACL Tag: 138692
  - 2
    - popup method to AD users Anyone know how to broadcast a .popup message to a group of users in AD using VBScript? Tag: Display DACL on a folders ACL Tag: 138687
  - 3
    - save as .html Hello, I was wondering if there was a way to open a text file (say C:\test.txt) & save it as C:\text.html. Simply renaming it will not work. Thanks in advance! Tag: Display DACL on a folders ACL Tag: 138682
  - 4
    - Using XML data in an HTML table - help please I am trying to construct a prototype that uses an XML file to fill a table. In the example below I am using inline XML instead of an external file. If I exclude the <item> <itemdata>12345</itemdata> </item> piece, all works fine. Can someone suggest how I can structure the table so that the <item> pieces can be bypassed? If not, (other than editing the XML) is there another way of logically excluding those data elemtents so that the binding works nicely? Many thanks for any help I tried the group microsoft.public.inetsdk.programming.html_objmodel without success but if you can also suggest alternative places to ask, I'd welcome them. This is obviously a simple explanation of what will be a scripted solution. =======example <html> <head> <Title>XML Test by RixTrix</title> </HEAD><TITLE></TITLE> <BODY> <XML ID="xmlStatements"> <?xml version = "1.0" encoding = "UTF-8"?> <index> <item> <itemdata>12345</itemdata> </item> <Content> <ContentFile>/STATEMENTS/0000.PDF</ContentFile> <ContentName>Combined 50695</ContentName> <ContentType>application/pdf</ContentType> </Content> <Content> <ContentFile>/STATEMENTS/0001.PDF</ContentFile> <ContentName>Checking 241267</ContentName> <ContentType>application/pdf</ContentType> </Content> <Content> <ContentFile>/STATEMENTS/0002.PDF</ContentFile> <ContentName>Combined 405882</ContentName> <ContentType>application/pdf</ContentType> </Content> </index> </XML> <table datasrc="#xmlstatements" border=3> <tr><td>First Cell</td> <td><div datafld="ContentName"></div></td> <td><div datafld="ContentFile"></div></td> <td><div datafld="ContentType"></div></td> <td>Last Cell</td> </tr> </table> </BODY> </HTML> -- Rickety Tag: Display DACL on a folders ACL Tag: 138663
  - 5
    - Length of Address in Mailto for and ASP page I am trying to open outlook using mailto; in an ASP page, my list is dynamic, the number of users can be anywhere form 200 to about 900. HWhen I have list of about 200 I am succesful, but anywhewre 300 and above monthingf happens. Thanks Sunil Tag: Display DACL on a folders ACL Tag: 138660
  - 6
    - Attendee availability online Can anyone tell me how to go about creating my own custom ASP page that can show several different peoples availability from their Outlook/Exchange 2000 calendars? I don't want to have to ask users to setup permissions for their respective calendars, i just want to be able to see if they're busy or not. Many thanks Dan Williams. Tag: Display DACL on a folders ACL Tag: 138655
  - 7
    - Rename folders? I'm trying to rename a folder on logoff, but I keep getting an error in my code. So far my code is: Option Explicit ' Force explicit declarations ' ' Variables ' Dim WSHNetwork Dim objWMIService Dim defFolders Dim colFolders Dim wshShell Dim strComputer Set WshShell = WScript.CreateObject("WScript.Shell") Set WSHNetwork = WScript.CreateObject("WScript.Network") strComputer = "" Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set defFolders = objWMIService.ExecQuery _ ("SELECT * FROM Win32_Directory WHERE Name = 'c:\\Domuntes and Settings\Default User'") For Each objFolder in defFolders errResults = objFolder.Rename("C:\Documents and Settings\Default Old") WScript.Echo errResults Next Set colFolders = objWMIService.ExecQuery _ ("SELECT * FROM Win32_Directory WHERE Name = 'c:\\Documents and Settings\%UserName%'") For Each objFolder in colFolders errResults = objFolder.Rename("C:\Documents and Settings\Default User") Wscript.Echo errResults Next I'm getting an error on line 16, Please help. Tag: Display DACL on a folders ACL Tag: 138653
  - 8
    - French Characters in ASP form Hi there, Server: IIS 5.1 CDONTS I have a form that is available in English and French. We use CDONTS to send the form results via email. There is no problem displaying French characters on the ASP page but when someone fills out a form and uses a French character as in Montréal, the form results end up being Montr=E9al. Is there something I can do about this? TIA, Kathy Leonard Tag: Display DACL on a folders ACL Tag: 138652
  - 9
    - * Newsgroup doc. and 6969 Tips, Tricks, and Registry Hacks - 16-Jul-2003 09:15.22 * 16-Jul-2003 09:15.22. Please see the Microsoft Newsgroups page at http://communities.microsoft.com/newsgroups/default.asp Visit Windows & .NET Magazine's 6969 tips at http://www.jsiinc.com - press the "Tips & Tricks" button. Jerold Schulman Windows: General MVP JSI, Inc. http://www.jsiinc.com Tag: Display DACL on a folders ACL Tag: 138646
  - 10
    - Problem with the space in Session variable Hi, I have a web page that displays records from tables in a database. It is designed to store field's value into Session variables before it displays into a text box. This record can be edited and/or deleted. The problem arises when one of the fields contains spaces between the letters. When it stores into the database, after editing, the space stores as a Question mark. Now, these question marks can only be seen using web interface on my main computer. The only way to see them from any other computer would be to use non-web application. Why do I get those question marks? Any suggestions would be greatly appreciated. Thanks in advance Yury. Tag: Display DACL on a folders ACL Tag: 138639
  - 11
    - Check if Table existsin the database My objective is to check the TABLE in the MS Access database whether it exists or not. If not, I will create anre TABLE. Grateful if you could help! I thought this should be quite easy but I could not find any source on the Interent! Thanks in advance! Tag: Display DACL on a folders ACL Tag: 138628
  - 12
    - element where cursor is located Hi, Does anyone know how to find the element where the cursor is located when switched to contentEditable? For instance: <html> <div contentEditable>this is div one <div>this is div two</div> <div>this is div three</div> </div> <script language=vbs> sub document_onkeydown() elementwherecursorislocated.style.backgroundColor="red" end sub </script> Thanks, Linton Tag: Display DACL on a folders ACL Tag: 138618
  - 13
    - WinHttpRequestOption format Should be a simple question, but I can't find the answer. What is script format for setting the user agent in WinHTTP? Simple code ret = oHTTP.Open ("GET", "http://my.home.com", true); ret = oHTTP.WinHttpRequestOption_UserAgentString (userAgent); oHTTP.Send(); Jeff Tag: Display DACL on a folders ACL Tag: 138617
  - 14
    - User password properties A couple of related puzzles: The first script almost works. I'm trying to create a number of users (in a separate script for this purpose) and enable their account and set their passwords not to expire. The create-account script (not shown) works fine. This part, whether integral to the create-account script or stand-alone, manages to do the second if statement, but not the first. If I swap the if statements it still does the second, but not the first. What would cause it to do that? Is it the case that you can only do one operation at a time? Only the last one takes? ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Const ADS_UF_ACCOUNTDISABLE = 2 Const ADS_UF_DONT_EXPIRE_PASSWD = &h10000 Set objUser = GetObject ("LDAP://cn=Atest,ou=PsyUsers,dc=xxx,dc=uuuu,dc=edu") intUAC = objUser.Get("userAccountControl") If intUAC AND ADS_UF_ACCOUNTDISABLE Then objUser.Put "userAccountControl", intUAC XOR ADS_UF_ACCOUNTDISABLE objUser.SetInfo End If If not intUAC AND ADS_UF_DONT_EXPIRE_PASSWD Then objUser.Put "userAccountControl", intUAC XOR ADS_UF_DONT_EXPIRE_PASSWD objUser.SetInfo End If +++++++++++++++++++++++++++++++++++++++++++++++ And. I can't make this work at all. It says something in the book that the can't change password property is in "userAccountControl" , but then says something about it being an "nTSecurityDescriptor". I am not at all clear on the syntax, I've swapped both values in every permutation, but not got it to do anything. I've also played with "if" and "if not", doesn't seem to help. +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Const ADS_UF_PASSWD_CANT_CHANGE = &h00400 Set objUser = GetObject ("LDAP://cn=Atest,ou=PsyUsers,dc=xxx,dc=uuuu,dc=edu") intUAC = objUser.Get("userAccountControl") if not intNSD AND ADS_UF_PASSWD_CANT_CHANGE Then objUser.Put "nTSecurityDescriptor", intUAC XOR ADS_UF_PASSWD_CANT_CHANGE objUser.SetInfo End If +++++++++++++++++++++++++++++++++++++++++++++++ Thanks, Jerry Tag: Display DACL on a folders ACL Tag: 138616
  - 15
    - Window Server 2003 and Wscript - Shell.Run set oShell = Wscript.CreateObject("Wscript.Shell") ----oShell.Run "\\SERVER\share\WindowsServer-hotfixe-xxx.exe -q -f -o",0,true I'm using the above code to install hotfixes on a server (obviously its a bit more involved than this), and with NT4, 2000, and XP, I can do this and it runs fine. With 2003, it pops open a security dialog box asking me if I "really want to run this". I understand this from a virus protection/trojan standpoint, but it basically halts my server builds since I can't update server 2003 unattended. Batch files don't seem to have this limitation, but that isn't a possibility for what I'm doing. Is there some reg hack I can do so that I can turn this security feature off? How else can I handle Wscript's Shell.Run command in an unattended fashion? Thanks, Greg Tag: Display DACL on a folders ACL Tag: 138615
  - 16
    - How to Scroll to bottom of a TEXTAREA box? I would like to know how to do the equivalent of the VB6 ThisForm.MyTextArea.SelectStart = Len(MyTextArea) to always push up from the bottom of my textarea when I add items. I can't find a way to find length or anything else that would point me to the bottom and keep that line the last line. I have a simple WriteLog Sub: Sub WriteLog(Text) ThisForm.MyTextArea.Value = ThisForm.MyTextArea.Value & Text & vbCrLf ' following line is from VB, it gives major errors TheForm.TextCallProgress.SelectStart = Len(TextCallProgress) ' If I try this, it doesn't appear to do anything TheForm.TextCallProgress.ScrollIntoView(True) ' If I try this, it won't work when I first run the sub because it ' just entered the first line and says it can't execute yet. I assume ' because with only one line of text, it can't scroll. TheForm.TextCallProgress.doScroll End Sub Is there a better way, or a way to count lines or put the doScroll into an If statement to make sure there are lines to scroll before it tries to scroll? Thanks. Fred Tag: Display DACL on a folders ACL Tag: 138608
  - 17
    - How to replace first and last "," in a string in asp vbscript? How can I replace first as well as last "," in a string? Mystring = ",3,2,5,6,1,65,22," I would like CorrectedString = "3,2,5,6,1,65,22" I would like to replace commas on each sides with "". I am new to asp and would be grateful for your help. Thanks in advance. Tag: Display DACL on a folders ACL Tag: 138605
  - 18
    - Script that will work on NT machines to grab OS version I need a simple script that will work on NT, XP, and 2000 machines that will simply return the OS version, basically what I have is a multiple OS (NT, XP, 2K) enviroment, and I want to add into the login script a script that will retrieve the OS, I can do the rest into getting it into a SQL DB.. Thanks!! Tag: Display DACL on a folders ACL Tag: 138598
  - 19
    - VBS Getting its Process ID I know I must be missing it in the documentation, but I can't find it. Is there are way for a VBS script to determine its process ID? There may be multiple wscript.exe running, so I can't just look for wscript.exe in the process table. If I was running XP, I am running NT, I could use the CommandLine Parameter. Thanks for any help you could provide, Bryan Tag: Display DACL on a folders ACL Tag: 138590
  - 20
    - Scrolling a frame without a scrollbar? Is there any way to scroll a frame using controls or mouse wheel, instead of the scrollbar? We have a client that want's long frames but dosn't like scroll bars. Thanks, Dan Tag: Display DACL on a folders ACL Tag: 138589
  - 21
    - Set obj = Nothing -- Unneeded? Ok, after browsing the VB6 usenet archives, I think I'm pretty clear that in most cases Set obj = Nothing has little value. (I did read the counter aruments, but found them unpersuasive.) So, is this also true for VBScript? (Assuing version 5.0 +). I've tried to be religious about using it (in my ASP / VBScript coding), but I'm ready for a conversion. Frankly, I'd like to avoid using it, especially in error-handling. So, opinions: Set obj = Nothing in VBSCRIPT.... love it or leave it? Thanks d. Tag: Display DACL on a folders ACL Tag: 138585
  - 22
    - Changing permissions in folders Hello How I can change the permissions for all subfolders in the same folder with a script? I have Windows 2000 Server and when I add manualy a home directory for a user, a folder will be created with specific permissions (administrator and the user get full control). Now, I create the users with a script and must create the folders with a script too. I suppose it is easy to create the folders, but I want to change the security tab as well. How to do this? Please, if it is not require too much work, can you write a script to me (I am a beginner so it will do much help to me with a script)? Thank you -- Anders Andersson Tag: Display DACL on a folders ACL Tag: 138580
  - 23
    - Add link to My Network Places I am trying to automate adding links to "My Network Places". I am not able to simulate the way the OS creates this link. I am able to create a shortcut using the WshShortcut object, but that does not have the same affect. I also saw some info on rundll32 netplwiz,addnetplacerundll, but I do not see a way to automate this. Anyone have any info on this? Thanks -- Posted via http://dbforums.com Tag: Display DACL on a folders ACL Tag: 138579
  - 24
    - Simple writelog(txt) sub does nothing I cannot get a simple log to a textarea subroutine to work. This code works: Sub DeviceSelect_OnChange() Dim TheForm Set TheForm = Document.etQuickDial TheForm.TextCallProgress.Value="Please Display this" End Sub When I try to substitute this, it gives give no error and doesn't do anything Sub DeviceSelect_OnChange() Dim TheForm Set TheForm = Document.etQuickDial WriteLog("Please display this") ' the only change!!! End Sub Sub WriteLog(Text) Dim TheForm Set TheForm = Document.etQuickDial TheForm.TextCallProgress.Value = "fred" Also, is there a better way globally to to the "theform" stuff. I can Dim TheForm, but can't do a Set up at the top in the Option Explicit because I haven't defined the form yet, I guess. Thanks. Fred Tag: Display DACL on a folders ACL Tag: 138576
  - 25
    - turkish charecter problem Dear Sirs, I am connecting a access database with ado. But I can not use Turkish charecters with vb6 when I have no problem with access . Any idea why I can not use non english charecters with vb6 Best REgards Tag: Display DACL on a folders ACL Tag: 138572
- Next
  - 1
    - Display GUID type retrieved from Active Directory Hi, I am reading the objectGuid for a user from AD which is returned as Guid type I assume. When trying to display that Guid I get as output: ?????? When trying to pass that to a subroutine I get: Type mismatch Tag: Display DACL on a folders ACL Tag: 138570
  - 2
    - open internet connection Hi ng, how can I check, if there is an open local internet connection (modem) on this computer. I don't want to send a ping - because the computer will then open a channel automaticly. Thanks. Jörg Tag: Display DACL on a folders ACL Tag: 138567
  - 3
    - Change Language settings with script I'm searching for a way to change the language settings of a user on a mulitlanguage Terminal Server depending on the value of the Active Directory attribute region at logon. For example: if a user has France as region the desktop will displayed in france, if the value will be changed to Germany, the desktop settings should be set to german. Regards Alex Fischer Tag: Display DACL on a folders ACL Tag: 138563
  - 4
    - BUG : Attributed ATL and VBScript(Script Control) There is a serious reference counting bug which can occur when using Attributed ATL components inside the Microsoft Script Control. This problem seems to be caused by the fact that internally __VariantChangeType may change the dispatch parameters passed on the Invoke stack, and this is either not allowed, or is unexpected by the Script Control. For example, if a component has a LONG (VT_I4) property, and this property is set by passing it an object (VT_DISPATCH), __VariantChangeType will perform the type conversion, but in the process will also cause the reference count of the passed IDispatch interface to be decremented. I believe the script control is not expecting this, and either does not correctly AddRef the interface before the Invoke call, or will do a Release on it afterwards. This problem does not exist in IDispatchImpl<> which does not change the parameters on the Invoke stack. To reproduce this problem Create a simple attributed ATL component that has a single LONG default (DISPID_VALUE) property. In FinalRelease, get the component to display a message box to indicate that it is being deleted. Create a Visual Basic application that uses the Microsoft Script Control. The script code to be run should set the component default value using the line "obj=obj". This will cause the default value to be retrieved from obj and then set using a parameter type of VT_DISPATCH rather than VT_I4. The script code should be run in response to clicking a command button, after a few clicks, the component reference count will go to zero and delete its self after displaying the message box. Dim obj As New Ctestobject Private Sub Form_Load() ScriptControl1.Language = "VBScript" Dim code As String code = "sub test()" & vbCrLf & "obj=obj" & vbCrLf & "end sub" & vbCrLf ScriptControl1.AddCode code ScriptControl1.AddObject "obj", obj End Sub Private Sub Command1_Click() ScriptControl1.Run "test" End Sub Tag: Display DACL on a folders ACL Tag: 138562
  - 5
    - VBScript Editor Hi there. Can anyone recommend any decent free VBScript editors? I'm already using the VBSEditor from KOAN so don't want to pay any money. However it doesn't really know about any objects, occasionally adds random : (colon's) and isn't really any more than a colourful text editor. Any suggestions would be great, cheers. Tom Tag: Display DACL on a folders ACL Tag: 138555
  - 6
    - Server Side Includes Im trying to use SSI because I have a top and bottom that I want to show up on ever page. I made both the top.asp and bottom.asp page, then I have the index.asp. In the index.asp i use the following code:  < html code goes here... blah blah blah... >  I get the following error: The include file ''top.asp'' was not found. /newss/index.asp, line 2 I get the same if I take out the SSI for the top.asp and replace it with the bottom.asp The weird thing is, I have done this before and just copied and pasted the code and changed the files. Any ideas what could be wrong? The error can be seen at www.iyaracing.com/newSS ----------------------------- This message is posted by http://Asp.ForumsZone.com Tag: Display DACL on a folders ACL Tag: 138537
  - 7
    - Reading filenames into a dynamic array I am trying to read the filenames into a dynamic array using the code snippet below. Whenever I run this I am getting a "Subscript out of range error". How do I populate a dynamic array dim fso, fldname, fldcoll, fl, flname dim myArray() set fso = CreateObject("Scripting.FileSystemObject") set fldname = fso.GetFolder("c:\temp") set fldcoll = fldname.Files For Each fl in fldcoll myArray(fl) = fl.Name Next set fldcoll = nothing set fldname = nothing set fso = nothing Tag: Display DACL on a folders ACL Tag: 138519
  - 8
    - trimming Hello, I'm trying to get rid of some strange null characters at the beginning of each line of a text file. What I've been attempting probably isn't even close. Help! Thanks in advance. Option Explicit Dim objFSO, objText, strInput Dim strText Set objFSO = WScript.CreateObject ("Scripting.FileSystemObject") Set objText = objFSO.OpenTextFile("D:\GENBACCA.txt") Set objFSO = nothing Do Until (objText.AtEndOfStream = True) strInput = objText.Readline 'Or .Writeline? strText = LTrim(strInput) Loop Set objText = Nothing 'Return modified text file. WScript.Echo strText Tag: Display DACL on a folders ACL Tag: 138515
  - 9
    - Accessing remote SNMP informationi All I want for Christmas is to be able to use scripting (vbscript or jscript) to get SNMP information from a non-MS Windows device. From what I've read in WMI it is possible but I haven't found an example. Does anyone have an example or know where one might be hiding? jU? Tag: Display DACL on a folders ACL Tag: 138512
  - 10
    - reload SQL Data when Data Changes Hi, I'm running a company intranet and the portion in question is the company message board. Its becoming a very integral part of company discussion on most of our projects. What I would like to be able to do is have it so that a user can leave the message board opened and minimized and have it alert him in some way when something new has been posted. Unfortunately i dont want to just keep auto-refreshing the page at certain intervals because i'm concerned about xp users (if it refreshes it'll start flashing at them even if there is no new data, this could get annoying). Is there a way to alert the page when posts occur or have the page check the SQL database every so often without fully refreshing the page unless there is a change to the database? I'm currently working in vbscript with some javascript thrown in on some pages so an answer in either of these languages would work for me. Thanks in advance for any help anyone can provide! Chris Coho, ccoho@jrwald.com Tag: Display DACL on a folders ACL Tag: 138511
  - 11
    - ASP and vbscript for forms Hi. I am using a query string to get the date entered from a from via the "GET" actiuon but do not know how to put the date into a text field (txtDate). What is the syntax? I have tried strDate = Request.querystring("Date") Response.write(strDate) document.forms("frmMenuItemAdd").txtDate = strDate Help! -- Gary Mason www.garymason.biz Tag: Display DACL on a folders ACL Tag: 138504
  - 12
    - printing WSH i have code to print to a network printer. but i am getting an error. Error Type: WSHNetwork.AddPrinterConnection (0x80070520) A specified logon session does not exist. It may already have been terminated. /tradegate/test.asp, line 16 i can't figure this out!. Help would be greatly appreciated. here is the code: <%@ LANGUAGE="vbscript" %> <% Option Explicit Response.Buffer = TRUE Dim strMessage Dim objFS Dim objWSHNet strMessage = "hello" Set objFS = CreateObject("Scripting.FileSystemObject") Set objWSHNet = CreateObject("WScript.Network") objWSHNet.AddPrinterConnection "LPT1", "\\newuser\corp_area ", False, "administrator", "dwb527" Set objPrinter = objFS.CreateTextFile("LPT1:", True) objPrinter.Write(strMessage) objPrinter.Close Set objWSHNet = CreateObject("WScript.Network") objWSHnet.RemovePrinterConnection "\\newuser\corp_area", True %> Tag: Display DACL on a folders ACL Tag: 138501
  - 13
    - I am the only guy! Hi all, an amusing fact ... i tried searching this newsgroup but it seems I was the only one who has posted a question for advise on perl... in windows...;0) Raj Tag: Display DACL on a folders ACL Tag: 138497
  - 14
    - HELP! Passing from database to asp page allowing user input then sending to another database My big problem is I'm a newbie working with someone else's code.(See code below) What I want to do is for the records that have a purchase order number I want a text box at the end of the line of information that a user may or may not place a date into. (You'll notice that there are two sets being drawn into my page that have Purchase Order.) If the user does enter a date, when they hit submit I want that data to be sent to a database along with that line of information. The trouble I'm having is making sure that each record line is being checked and then sent. If anyone could help with any part of this, I would really appreciate it. Okay here is my code:  </script> <td>  <%Username=Request.ServerVariables("LOGON_USER") usernamepos=instr(Username,"\") Username=right(Username,(len(username)-usernamepos)) sql = "SELECT UserName FROM tUsers WHERE UserName='" & Username & "' and northemployee= 'yes'" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, Cm, 3, 3 strEmpName = rs("UserName") rs.close %> <font face="Verdana, Arial, Helvetica, sans-serif" size="2">Open Orders as of <%=now()%></font> <br> <font face="Verdana, Arial, Helvetica, sans-serif" size="2"><a href="../production/printable.asp?<%Response.write(strform)%>">Printable Version</a></font> <br> <br> <table width="744" border="0" cellspacing="0" cellpadding="0"> <% server.scripttimeout=240 response.flush Set Cm3 = Server.CreateObject("ADODB.Connection") Cm3.CommandTimeout = 30 Cm3.ConnectionTimeout = 20 Cm3.Open Application("DB_REPORTS") Dim strOrderBy Dim strInClause Dim strSortLink for n = 1 to 23 vendorvar="vend" & n ordervar = "ORDER_BY" & n wasorderedvar = "WAS_ORDERED_BY" & n if Request(vendorvar)<>"" then strSortLink = strSortLink + vendorvar + "=" + Request(vendorvar) + "&" end if if Request(wasorderedvar) <> "" AND Request(ordervar) = "" then strSortLink = strSortLink + wasorderedvar + "=" + Request(wasorderedvar) + "&" end if if Request(ordervar) <> "" then if Request(ordervar) = Request(wasorderedvar) then if Left(Request(wasorderedvar),1) <> "-"then strSortLink = strSortLink + wasorderedvar + "=" + "-"+Request(ordervar) + "&" end if else strSortLink = strSortLink + wasorderedvar + "=" + Request(ordervar) + "&" end if end if next for n = 1 to 23 vendorvar="vend" & n strVendor = Request(vendorvar) if strVendor <> "" then sql="SELECT * FROM northprod1 WHERE ([VENDOR CODE] = '" sql = sql + strVendor + "' AND TYPE = 'P' " sOrder = Request("ORDER_BY" & n) strOrderDESC = "" if sOrder = "" then sOrder = Request("WAS_ORDERED_BY"&n) if left(sOrder,1) = "-" then strOrderDESC = " DESC" sOrder = right(sOrder,1) end if else if sOrder = Request("WAS_ORDERED_BY"&n) then strOrderDESC = " DESC" end if end if if sOrder = "" then sql = sql & "AND [QUANTITY COMMITTED]>0) " else sql = sql & ") " end if select case sOrder case "" strOrderBy = "ORDER BY YEAR, [PURCHASE DATE]" case "1" strOrderBy = "ORDER BY [PURCHASE ORDER NUMBER]" case "2" strOrderBy = "ORDER BY [LINE NUMBER]" case "3" strOrderBy = "ORDER BY YEAR, [PURCHASE DATE]" case "4" strOrderBy = "ORDER BY [STOCK NUMBER]" case "5" strOrderBy = "ORDER BY [STOCK DESCRIPTION]" case "6" strOrderBy = "ORDER BY [UNIT OF SALE]" case "7" strOrderBy ="ORDER BY [QUANTITY ON HAND]" case "8" strOrderBy = "ORDER BY [QUANTITY ON ORDER]" case "9" strOrderBy = "ORDER BY [QUANTITY COMMITTED]" end select sql = sql & strOrderBy + strOrderDESC Set rs3 = Server.CreateObject("ADODB.Recordset") rs3.Open sql, Cm3, 3, 3 strPurchase = rs3("PURCHASE ORDER NUMBER") if request.form("submitTop") <> "" or request.form("submitBottom")<> "" then Dim i if rs3.eof then sqlD="INSERT INTO EstDelDate (EnteredBy, PO_PT, Line, FormDate, Part#, EntryDate, EstDeliveryDate) VALUES ('" & strEmpName & "', '" & strPurchase & "', '" & strLine & "', '" & strPDate & "', '" & strPartNo & "', '" & Date() & "', '" & strDel & "')" Set Con= Server.CreateObject("ADODB.Connetion") Con.open Application("DB_INTRANET") response.write(sqlD) end if 'Cm2.Execute(sqlD) 'con.Close 'Set Cm2 = Nothing End if if request.form = "" then strform = request.QueryString else strform = request.Form end if %> <form name="myform" action="../production/orders_pro.asp" method="post"> <tr><td colspan=11 align="right"><input type="submit" value="Submit" name="submitTop"></td> </tr> <tr><td colspan="10"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Vendor <%=strVendor%></font></b></td></tr> <tr> <td><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><a href="../production/orders_pro.asp?<%Response.write(strSortLink+"ORDER_BY"&n&"=1")%>">PO#/PT#</a></font></b></td> <td><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><a href="../production/orders_pro.asp?<%Response.write(strSortLink+"ORDER_BY"&n&"=2")%>">Line#</a></font></b></td> <td><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><a href="../production/orders_pro.asp?<%Response.write(strSortLink+"ORDER_BY"&n&"=3")%>">Date</a></font></b></td> <td><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><a href="../production/orders_pro.asp?<%Response.write(strSortLink+"ORDER_BY"&n&"=4")%>">Part No.</a></font></b></td> <td><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><a href="../production/orders_pro.asp?<%Response.write(strSortLink+"ORDER_BY"&n&"=5")%>">Description</a></font></b></td> <td><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><a href="../production/orders_pro.asp?<%Response.write(strSortLink+"ORDER_BY"&n&"=6")%>">UOS</a></font></b></td> <td><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><a href="../production/orders_pro.asp?<%Response.write(strSortLink+"ORDER_BY"&n&"=7")%>">On<br>Hand</a></font></b></td> <td><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><a href="../production/orders_pro.asp?<%Response.write(strSortLink+"ORDER_BY"&n&"=8")%>">On<br>Order</a></font></b></td> <td><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><a href="../production/orders_pro.asp?<%Response.write(strSortLink+"ORDER_BY"&n&"=9")%>">Com</a></font></b></td> <td><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Complete</font></b></td> <td><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Est.Delivery Date</font></b></td> </tr> <% do until rs3.eof commit=rs3("QUANTITY COMMITTED") onhand=rs3("QUANTITY ON HAND") important = commit - onhand strLine = rs3("LINE NUMBER") strPDate= rs3("PURCHASE DATE") strPartNo= rs3("STOCK NUMBER") %> <tr<%if important>0 then response.write(" bgcolor='#ccaaaa'") %>> <td style='border-right: 1 solid #808080'><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><a href="javascript:;" onClick="MM_openBrWindow('../production/orderdetail.asp?po=<%=rs3("PURCHASE ORDER NUMBER")%>','po','scrollbars=yes,resizable=yes')"><%=rs3("PURCHASE ORDER NUMBER")%></a></font></td> <td style='border-right: 1 solid #808080'><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%=rs3("LINE NUMBER")%></font></td> <td style='border-right: 1 solid #808080'><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%=LEFT(rs3("PURCHASE DATE"),2)%><%=MID(rs3("PURCHASE DATE"), 3, 2)%><%=RIGHT(rs3("PURCHASE DATE"),2)%></font></td> <td style='border-right: 1 solid #808080'><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><a href="javascript:;" onClick="MM_openBrWindow('../production/bomdisplay.asp?partno=<%=rs3("STOCK NUMBER")%>','bom','scrollbars=yes,resizable=yes,width=500,height=400')"><%=rs3("STOCK NUMBER")%></a></font></td> <td style='border-right: 1 solid #808080'><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%=rs3("STOCK DESCRIPTION")%> <%=rs3("EXTENDED DESCRIPTION 1")%></font></td> <td style='border-right: 1 solid #808080'><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%=rs3("UNIT OF SALE")%></font></td> <td style='border-right: 1 solid #808080'><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%=rs3("QUANTITY ON HAND")%></font></td> <td style='border-right: 1 solid #808080'><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%=rs3("QUANTITY ON ORDER")%></font></td> <td><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%=rs3("QUANTITY COMMITTED")%></font></td> <td><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><a href="javascript:;" onClick="MM_openBrWindow('../production/complete.asp?po=<%=rs3("PURCHASE ORDER NUMBER")+"&vc="+StrVendor%>','po','scrollbars=yes,resizable=yes')">X</a></font></td> <td><input type="text" size=10 name="estDel"></td> </tr> <% rs3.movenext loop response.flush rs3.close sql="SELECT * FROM northprod2 WHERE ([VENDOR NUMBER] = '" + strVendor sql = sql +"' AND [PICKTICKET TYPE]='N' AND [BIN LOCATION]='ASL'" if sOrder = "" then sql = sql & " AND [QUANTITY COMMITTED]>0) " else sql = sql & ") " end if select case true case sOrder ="" strOrderBy2 = "ORDER BY [DATE]" case sOrder = "1" strOrderBy2 = "ORDER BY [PICKTICKET NUMBER]" case sOrder = "2" strOrderBy2 = "ORDER BY [LINE NUMBER]" case sOrder ="3" strOrderBy2 = "ORDER BY [DATE]" case sOrder = "4" strOrderBy2 = "ORDER BY [STOCK NUMBER]" case sOrder = "5" strOrderBy2 = "ORDER BY [STOCK DESCRIPTION]" case sOrder ="6" strOrderBy2 = "ORDER BY [UNIT OF SALE]" case sOrder = "7" strOrderBy2 = "ORDER BY [QUANTITY ON HAND]" case sOrder = "8" strOrderBy2 = "ORDER BY [QUANTITY ON ORDER]" case sOrder = "9" strOrderBy2 = "ORDER BY [QUANTITY COMMITTED]" end select sql = sql & strOrderBy2 + strOrderDESC rs3.Open sql, Cm3, 3, 3 do until rs3.eof commit=rs3("QUANTITY COMMITTED") onhand=rs3("QUANTITY ON HAND") important = commit - onhand %> <tr<%if important>0 then response.write(" bgcolor='#ccaaaa'") %>> <td style='border-right: 1 solid #808080'><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><a href="javascript:;" onClick="MM_openBrWindow('../production/orderdetail.asp?pt=<%=rs3("PICKTICKET NUMBER")%>','pt','scrollbars=yes,resizable=yes')"><%=rs3("PICKTICKET NUMBER")%><%=rs3("PICKTICKET TYPE")%></a></font></td> <td style='border-right: 1 solid #808080'><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%=rs3("LINE NUMBER")%></font></td> <td style='border-right: 1 solid #808080'><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%=rs3("DATE")%></font></td> <td style='border-right: 1 solid #808080'><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><a href="javascript:;" onClick="MM_openBrWindow('../production/bomdisplay.asp?partno=<%=rs3("STOCK NUMBER")%>','bom','scrollbars=yes,resizable=yes,width=500,height=400')"><%=rs3("STOCK NUMBER")%></a></font></td> <td style='border-right: 1 solid #808080'><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%=rs3("STOCK DESCRIPTION")%></font></td> <td style='border-right: 1 solid #808080'><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%=rs3("UNIT OF SALE")%></font></td> <td style='border-right: 1 solid #808080'><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%=rs3("QUANTITY ON HAND")%></font></td> <td style='border-right: 1 solid #808080'><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%=rs3("QUANTITY ON ORDER")%></font></td> <td><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%=rs3("QUANTITY COMMITTED")%></font></td> <td></td> <td><font face="Verdana, Arial, Helvetica, sans-serif" size="2"> </font></td> </tr> <% rs3.movenext loop response.flush rs3.close if sOrder = "" then sql="SELECT * FROM northprod1 WHERE ([VENDOR CODE] = '"+ strVendor sql = sql + "' AND TYPE='P' AND [QUANTITY COMMITTED]=0) " + sOrderBy rs3.Open sql, Cm3, 3, 3 do until rs3.eof %> <tr> <td style='border-right: 1 solid #808080'><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><a href="javascript:;" onClick="MM_openBrWindow('../production/orderdetail.asp?po=<%=rs3("PURCHASE ORDER NUMBER")%>','po','scrollbars=yes,resizable=yes')"><%=rs3("PURCHASE ORDER NUMBER")%></a></font></td> <td style='border-right: 1 solid #808080'><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%=rs3("LINE NUMBER")%></font></td> <td style='border-right: 1 solid #808080'><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%=LEFT(rs3("PURCHASE DATE"),2)%><%=MID(rs3("PURCHASE DATE"), 3, 2)%><%=RIGHT(rs3("PURCHASE DATE"),2)%></font></td> <td style='border-right: 1 solid #808080'><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><a href="javascript:;" onClick="MM_openBrWindow('../production/bomdisplay.asp?partno=<%=rs3("STOCK NUMBER")%>','bom','scrollbars=yes,resizable=yes,width=500,height=400')"><%=rs3("STOCK NUMBER")%></a></font></td> <td style='border-right: 1 solid #808080'><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%=rs3("STOCK DESCRIPTION")%> <%=rs3("EXTENDED DESCRIPTION 1")%></font></td> <td style='border-right: 1 solid #808080'><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%=rs3("UNIT OF SALE")%></font></td> <td style='border-right: 1 solid #808080'><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%=rs3("QUANTITY ON HAND")%></font></td> <td style='border-right: 1 solid #808080'><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%=rs3("QUANTITY ON ORDER")%></font></td> <td><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%=rs3("QUANTITY COMMITTED")%></font></td> <td></td> <td><input type="text" size=10 name="estDel"></td> <td><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><a href="javascript:;" onClick="MM_openBrWindow('../production/complete.asp?po=<%=rs3("PURCHASE ORDER NUMBER")+"&vc="+StrVendor%>','po','scrollbars=yes,resizable=yes')">X</a></font></td> </tr> <% rs3.movenext loop %> <% rs3.close sql="SELECT * FROM northprod2 WHERE ([VENDOR NUMBER] = '" + strVendor sql = sql & "' AND [PICKTICKET TYPE]='N' AND [BIN LOCATION]='ASL' AND [QUANTITY COMMITTED]=0) " + sOrderBy2 rs3.Open sql, Cm3, 3, 3 do until rs3.eof %> <tr> <td style='border-right: 1 solid #808080'><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><a href="javascript:;" onClick="MM_openBrWindow('../production/orderdetail.asp?pt=<%=rs3("PICKTICKET NUMBER")%>','pt','scrollbars=yes,resizable=yes')"><%=rs3("PICKTICKET NUMBER")%><%=rs3("PICKTICKET TYPE")%></a></font></td> <td style='border-right: 1 solid #808080'><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%=rs3("LINE NUMBER")%></font></td> <td style='border-right: 1 solid #808080'><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%=rs3("DATE")%></font></td> <td style='border-right: 1 solid #808080'><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><a href="javascript:;" onClick="MM_openBrWindow('../production/bomdisplay.asp?partno=<%=rs3("STOCK NUMBER")%>','bom','scrollbars=yes,resizable=yes,width=500,height=400')"><%=rs3("STOCK NUMBER")%></a></font></td> <td style='border-right: 1 solid #808080'><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%=rs3("STOCK DESCRIPTION")%></font></td> <td style='border-right: 1 solid #808080'><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%=rs3("UNIT OF SALE")%></font></td> <td style='border-right: 1 solid #808080'><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%=rs3("QUANTITY ON HAND")%></font></td> <td style='border-right: 1 solid #808080'><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%=rs3("QUANTITY ON ORDER")%></font></td> <td><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%=rs3("QUANTITY COMMITTED")%></font></td> <td><font face="Verdana, Arial, Helvetica, sans-serif" size="2"> </font></td> </tr> <% rs3.movenext loop response.flush rs3.close end if set rs3=nothing %> <tr><td colspan="9"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2"> <br><br></font></b></td></tr> <% end if next response.flush cm3.close set cm3=nothing Tag: Display DACL on a folders ACL Tag: 138494
  - 15
    - Finding Highest Value In Array OK, I've got a 1-based array of type Integer that could be any length. I'm set up so that we know that each of the values will contain an Integer, and there's no chance of a value being Null. If I want to find the single highest value in that array, would this code be sufficient, or can someone help be construct better code? intHighest = 0 For I = 1 To UBound(intID) - 1 If intID(I) >= intID(I + 1) Then intHighest = intID(I) Else intHighest = intID(I + 1) End If End Sub Tag: Display DACL on a folders ACL Tag: 138489
  - 16
    - Passing database info to a page allowing user input and passing to another database Hi I really am going crazy! I'm using VBScript, ASP, and SQL My page reminds me of a shopping cart but looking at shopping cart examples has not helped! What I have is a page that brings in products ordered by a certain company. Along with those values, I'm creating a text box at the end of each record that a user may or may not enter in an estimated delivery date. If the user does enter in a date I want that row of data submitted to a table with that date. First of all I need to check to see if the user has entered anything in the text boxes. I was trying to go through them with a for next loop using document.form.elements.length as my ending count but that did not seem to work. Also another problem I am facing is making sure all the records on the page are being looked at. I wanted to put my if request.form("submitTop") <> "" underneath where my recordset is open, but this too does not work. So what I need to happen when the submit button is hit is: A way to check and see if something is entered in a text box, if it is then add that line of data pulled from my first table and the user input estimated delivery date value into a new table. I need to make sure I go to each record in my list to check to see if anything has been entered in the text box. Thank you very much. Any help on any little bit of my problem would be greatly appreciated! Renie83 Tag: Display DACL on a folders ACL Tag: 138480
  - 17
    - mailto and line feed Hi Freinds, I am using <a href="mailto:pashour@mail.all-in-1.com?subject=test&body=line1 of body , line 2 of body">mail me in 2 lines</a> but how can I use line break in body of my email ? between line 1 of body and line 2? Thanks in advance, Pat Tag: Display DACL on a folders ACL Tag: 138479
  - 18
    - Finding Empty/Null Greetings.. doing some WMI in ASP... here's the code: Set objLocator = CreateObject("WBEMScripting.SWBEMLocator") Set objWMI = objLocator.ConnectServer(strPC, "root/cimv2", strUsername, strAdminPass) Set colItems = objWMI.ExecQuery("Select * from Win32_ComputerSystem",,48) For Each objItem in colItems uName = Mid(objItem.UserName,6) Response.Write("User: " & uName) Response.Write("<p>") Next I mid the username at 6 to chop off the domain and backslash. What I want to do is to see if either uName or objItem.UserName is Empty/Null or equal to "" -- however, trying all three of those methods doesn't return a true. ex. If(objItem.UserName = Empty) Then Response.Write("Empty.") End If Same if you change Empty to Null or "" and replace the objItem.UserName with uName. Any suggestions? Rob Tag: Display DACL on a folders ACL Tag: 138477
  - 19
    - printing iis/asp hello all. i want to create an output document from an ASP page. i would like to read data from a database AND based on a login, route the formatted output(line by line) to a network printer. i have all the network printer name's in a database table. i think i want to use WSH and ADO running under IIS, to connect to a network printer, and pull the data from the database and iterate thru a "printer write" routine.. can anyone help?.. any ideas?. i cannot find any documentation in WSH about writing to a network printer. i see much about creating a connection to a network printer, nothing about how to use the connection. Thanks in advance, Joe. Tag: Display DACL on a folders ACL Tag: 138472
  - 20
    - INNER HTML I have simple exaple: <script language="vbscript"> sub preglej() msgbox document.getElementsByName("div2").item(0).innerHtml end sub </script> <div id="div1" name="div2"> <table><tr><tD>test example</td></tr></table> </div> it works ok. But if I change the div tag: <table> <div id="div1" name="div2"> <tr><tD>test example</td></tr> </div> </table> then the msgbox is empty, I cant find inner html any more Does anybody know the answer, Simon Tag: Display DACL on a folders ACL Tag: 138465
  - 21
    - how to find domain controller? Our company has an Intranet served from one central location with offices located throughout the country. Many of the files available for download are mirrored at the local offices to conserve bandwidth. How can I determine where the user is and have them download from the local source? Since each office has its own domain controller I was thinking there might be a way to detect where they are located. Right now everyone has a mapped drive set to their local file server. Some users are complaining that the drive letter assigned for this is interfering with other software. I'm looking for a vbscript solution to determine the domain controller from inside IE. I've been told that our IP addresses assignments can not be used to determine location. thanks LJB Tag: Display DACL on a folders ACL Tag: 138460
  - 22
    - frame events attachment duration Hi all, I've made a client-side HTA application page including an Iframe ("myiframe") to navigate on the Web and get and parse content. To detect that myiframe has finished loading the Web pages and I'm allowed to parse content, I used myiframe.onload event with intrinsic attachment, just declaring sub myiframe_onload() ' mycode end sub Everything was fine until I had problem on different PC because IE version 5.0 doesn't fire Iframe onload event (this event fires only from IE 5.5)! So I try to use myiframe.document.onreadystatechange and onclick event but this is a very hard work to learn how and where to place them. I think these events are attached as long as the document is the same. If the document is changed (because a navigation) the attachement is void, so we have to attach the new document events again. I think also these events must be attached after navigation has been programmed because attachment is sticked to a particular document. For onclick event, I use a settimeout statement with a 2 seconds delay after the navigation id asked. 2 seconds is fine because I don't think the user may click the document before 2 seconds after unload. But for onreadystatechange it's more difficult to fix the right delay because sometimes the Web answer is slow, sometimes not (specially if the server use caching) And of course, I navigate to Web pages which have frames... and I have to wait all frames are loaded. I succeed with onclick event this way : j=0 myiframe.navigate URL inttimerid = settimeout ("myiframe.document.onclick= getref ('iframedoconclick')",2000) ' ------- sub iframedoconclick() j=j+1 alert= "iframe.length= " & myiframe.length & " j=" & j inttimerid = settimeout("wait",2000) end sub ' -------- sub wait() if myiframe.length >=2 then for i=0 to myiframe.frame1.document.links.length - 1 results.frame1.document.all.tags("a") (i).target="_parent" next results.frame1.document.onclick= getref("resdoconclick") end if end sub ---------- I tried quite the same thing for onreadystatechange this way : j=0 results.navigate URL inttimerid = settimeout ("iframe.document.body.onload= getref('iframedoconchange')",2000) ' -------- sub iframedoconchange() if iframe.document.readystate = "complete" then j=j+1 if j=1 then URL = "http://" & host & myiframe.document.all.tags ("frame").item("frame1").src myiframe.navigate URL inttimerid = settimeout ("results.document.onreadystatechange= getref ('resdoconchange')",2000) end if end sub This doesn't work everytime for the first navigation. Is there an other way for attaching these events? Thanks for any help Tag: Display DACL on a folders ACL Tag: 138455
  - 23
    - control dialup via script Hi, is it possible to control the dialup via script? I've got a set of numbers which i want to run through. If a number is not availible the script should take the next number in the list until it comes through. Can anyone please give me a hint how i can make this? Thanks in Advance Markus Tag: Display DACL on a folders ACL Tag: 138444
  - 24
    - Determine If a User Is Logged On Does anyone know how to determine if a user (any user) is logged onto a system in a script? I need have a script take a different action if a user is logged on the system. Tag: Display DACL on a folders ACL Tag: 138429
  - 25
    - Desperate developer trying this news group If this is the wrong NG please let me know what is the right one vb6 newsgroup could not help. Or if there is a resource pointing as Outlook 2003 and Inserting HTML into email that would be good. I have a strange problem, function is below for anyones help. I wrote an application where part of it creates a vb6 report saves it to disk as a html report, then reads it back into a string and puts it into an outlook 2000 email msg and saves it to draft folder. This has worked perfictly for 2 years using Outlook 2000 , Now client has upgraded to Outlook 2003 and puting html into email is giving range results. When the outlook message via my code issues a 'myItem.Save' a blank body is created in draft folder address & Subject are filled out ok When I look at source of saved email it only has header html code nothing else. If I pass a standard text file not HTML into 'myItem.HTMLBody' it does the same a blank emial body To further confuse the issue, If I change 'myItem.HTMLBody ' to 'myItem.Body' and pass either the html file or plain text file is puts it into the message correctly and saves it but html is not rendered of course.. My question do I have to handle HTMLBody different in outlook 2003 than 2000. Can someone offer some sugestions or enlightenment on my problem,. Thank You Don Grover '************** Code below ****************** Private Sub SendOutlookEmailReport(ByRef sFilename As String, ByRef sSubject As String) On Error GoTo errOutlookMail 'readin exported html file If LenB(glbEmailAddress) = 0 Then Exit Sub End If Dim myOlApp As New Outlook.Application Dim olNameSpace As Outlook.NameSpace Dim myItem As Outlook.MailItem Dim newRecipient As Outlook.Recipient Dim myAttachments As Outlook.Attachments Dim iFileAttachCount As Integer Dim iLineCount As Integer Set myOlApp = CreateObject("Outlook.Application") Set olNameSpace = myOlApp.GetNamespace("MAPI") Set myItem = myOlApp.CreateItem(olMailItem) Set myAttachments = myItem.Attachments Set newRecipient = myItem.Recipients.Add(glbEmailAddress) 'read in exported html file if not available exit sub Dim iFileNum As Integer, sMessage As String, sStringInput As String If FileExists(sFilename) = True Then iFileNum = FreeFile Open sFilename For Input As iFileNum Do While Not EOF(iFileNum) iLineCount = iLineCount + 1 Input #iFileNum, sStringInput sMessage = sMessage & sStringInput Loop Close #iFileNum Else sMessage = vbCrLf & "File not found " & sFilename & vbCrLf & conEmailMissing & sKeyCompany End If myItem.To = glbEmailAddress ' myItem.BCC = Trim$$(sCCEmailAdd)'Carbon copy email address if we need myItem.Subject = sSubject & " Created: " & Format$(Now, "dddd dd mmm yyyy") '** This is the problem line here below myItem.HTMLBody = sMessage If chkDelEmail.Value = vbChecked Then myItem.DeleteAfterSubmit = True myItem.Categories = "MYOB" myItem.Importance = olImportanceHigh myItem.Sensitivity = olPrivate myItem.RecipientReassignmentProhibited = True myItem.AlternateRecipientAllowed = False 'send additional file ? to admin If FileExists(sAppPath & "\alltasks.txt") Then iFileAttachCount = iFileAttachCount + 1 myAttachments.Add sAppPath & "\alltasks.txt", _ olByValue, iFileAttachCount, "Special Information" End If If chkShowEmail.Value = vbChecked Then myItem.Save myItem.Display True 'show the email if check box selected LoggingToFile "Previewed " & sSubject & " Advice to " & glbEmailAddress & " Using OutLook" Else If chkSendEmail.Value = vbChecked And glbEmailAddress <> "no@address" Then myItem.Save myItem.Send 'send if checked or save if not LoggingToFile "Sent " & sSubject & " Advice to " & glbEmailAddress & " Using OutLook" Else myItem.Save End If End If 'if unchecked then remove after sending If chkSaveAdvices.Value = vbUnchecked Then If FileExists(sFilename) = True Then Kill sFilename End If leavesub: 'CLEAN UP glbEmailAddress = conEmpStr 'reset global email address we have sent it If Not newRecipient Is Nothing Then Set newRecipient = Nothing If Not myAttachments Is Nothing Then Set myAttachments = Nothing If Not myItem Is Nothing Then Set myItem = Nothing If Not olNameSpace Is Nothing Then Set olNameSpace = Nothing If Not myOlApp Is Nothing Then Set myOlApp = Nothing Exit Sub errOutlookMail: MsgBox "Problem sending EMail report" & vbCrLf & _ "To: " & glbEmailAddress & vbCrLf & _ "Error: " & Err.Number & vbCrLf & _ "Desc: " & Err.Description Err.Clear ' Clear Error object GoTo leavesub End Sub Tag: Display DACL on a folders ACL Tag: 138425

Hi

Anyone now how I can display access rights that is set on a specific
folder's ACL on a file server?

I must access the folder trough a file share.

Regards

Magnus Kirkerud

Top