How to Detect the trusted site and add it via scripting?

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
    - Breakpoints in vs 2005 when using asp Hi My asp.net app uses some pure asp pages as part of the asp.net app. During debugging of pure asp I have set breakpoints in pure asp code but the problem is no breakpoint occurs on these points during execution. How can I successfully use breakpoints for pure asp in vs 2005? Thanks Regards Tag: How to Detect the trusted site and add it via scripting? Tag: 325410
  - 2
    - asp with membership/login Hi Is it possible to use asp.net membership/login control with pure asp i.e. user logs in using login control and then asp can use it somehow? Is there a code example somewhere? Thanks Regards Tag: How to Detect the trusted site and add it via scripting? Tag: 325409
  - 3
    - Session Variables Question Can somebody tell me how many Session variables would be considered exessive, and when they start really affect the server speed. For example on 20-30 asp pages I need to use about 200-300 session variables and 5 arrays by 1000 elements 50 characters long each. Let say having 300 users using those pages at the same time. Server is not the fastest one, just CPU 2.40GHz. So question is as a user am I going to feel a difference in speed between if I am the only user, and if all 300 users are online at the same time. And if using of so many session variables not a good idea, so what's an alternative? Regards, Michael Tag: How to Detect the trusted site and add it via scripting? Tag: 325408
  - 4
    - How do I do this with ADO and an Access DB in ASP 3.0? How do I return multiple counts for display in an ASP 3.0 page? For example, I want to display record counts for each state on the page. Something that looks like this: CA - 50 NY - 12 SC - 18 Right now I loop through each state (the id for each state), open a record set, execute a query, print the count, close the recordset and repeat like this: Dim cnt cnt=1 Do while cnt <= 50 ssql="SELECT count(*) FROM states WHERE stateid =" & cnt With rs .CursorLocation=3 'adUserClient .ActiveConnection=cn .source=sSql .Open End With Response.Write (rs.Fields(0)) cnt=cnt+1 rs.Close loop Obviously this not very efficient. Can anyone suggest an improvement? Remember I am working with Access so I believe I have to return a record set rather than accessing a singleton like a SQL Server RETURN value. Any ideas would be appreciated. Dave Tag: How to Detect the trusted site and add it via scripting? Tag: 325401
  - 5
    - JavaScript, CSS DOM off topic question I know this is off topic but Im looking for a good group that can answer a JavaScript/CSS/Dom issue I am having. Can anyone recommend such a group. Earl Tag: How to Detect the trusted site and add it via scripting? Tag: 325393
  - 6
    - random record with SELECT TOP does NOT work This is a multi-part message in MIME format. ------=_NextPart_000_0012_01C6D3DD.AEE2A540 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable thanks to everyone that helped, unfortunately the code samples people = gave me don't work. here is what i have so far: <% Dim oConn, oRS, randNum Randomize() randNum =3D (CInt(1000 * Rnd) + 1) * -1 Set oConn=3DServer.CreateObject("ADODB.Connection") Set oRS=3DServer.CreateObject("ADODB.recordset") oConn.Provider=3D"Microsoft.Jet.OLEDB.4.0" oConn.Open Server.MapPath("temp.mdb") oRS.Open "SELECT TOP 1 EMAIL_ADDRESS, r =3D Rnd(" & randNum & ") FROM = TABLE1 ORDER BY r", oConn, adOpenStatic, adLockReadOnly Response.Write oRS("EMAIL_ADDRESS") oRS.close oConn.close Set oConn =3D nothing Set oRS =3D nothing %> this gives the error: "No value given for one or more required = parameters". what i would really LOVE is for someone to fill in whatever required = parameter im missing, but more important i would like to understand = whats going on. there are people who go through life dumb and happy once = something "works", but i need to understand how and why its working. = even if this code did work, im confused with the SELECT statement (no, i = dont have much SQL experience aside from basic queries). what is the "r = =3D Rnd" line doing in the middle of the querie? how am i ordering by = r?? also, i dont have an indexed, primary "ID" field in this databae. is = that ok for this code to work? thank you for your help ------=_NextPart_000_0012_01C6D3DD.AEE2A540 Content-Type: text/html; charset="iso-8859-1" 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=3Diso-8859-1"> <META content=3D"MSHTML 6.00.2900.2963" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY> <DIV><FONT face=3DArial size=3D2>thanks to everyone that helped, = unfortunately the=20 code samples people gave me don't work. here is what i have so = far:</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial color=3D#0000ff size=3D1><%<BR>Dim oConn, = oRS,=20 randNum<BR>Randomize()<BR>randNum =3D (CInt(1000 * Rnd) + 1) * -1<BR>Set = oConn=3DServer.CreateObject("ADODB.Connection")<BR>Set=20 oRS=3DServer.CreateObject("ADODB.recordset")<BR>oConn.Provider=3D"Microso= ft.Jet.OLEDB.4.0"<BR>oConn.Open=20 Server.MapPath("temp.mdb")</FONT></DIV> <DIV><FONT face=3DArial color=3D#0000ff size=3D1><BR>oRS.Open "SELECT = TOP 1=20 EMAIL_ADDRESS, r =3D Rnd(" & randNum & ") FROM TABLE1 ORDER = BY r",=20 oConn, adOpenStatic, adLockReadOnly</FONT></DIV> <DIV><FONT face=3DArial color=3D#0000ff size=3D1></FONT> </DIV> <DIV><FONT face=3DArial color=3D#0000ff size=3D1>Response.Write=20 oRS("EMAIL_ADDRESS")</FONT></DIV> <DIV><FONT face=3DArial color=3D#0000ff size=3D1></FONT> </DIV> <DIV><FONT face=3DArial color=3D#0000ff = size=3D1>oRS.close<BR>oConn.close<BR>Set oConn=20 =3D nothing<BR>Set oRS =3D nothing<BR>%></FONT></DIV> <DIV><FONT face=3DArial color=3D#0000ff size=3D1></FONT> </DIV> <DIV><FONT face=3DArial color=3D#000000 size=3D2>this gives the error: = "No value given=20 for one or more required parameters".</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>what i would really LOVE is for someone = to fill in=20 whatever required parameter im missing, but more important i would like = to=20 understand whats going on. there are people who go through life dumb and = happy=20 once something "works", but i need to understand how and why its = working. even=20 if this code did work, im confused with the SELECT statement (no, i dont = have=20 much SQL experience aside from basic queries). what is the "r =3D Rnd" = line doing=20 in the middle of the querie? how am i ordering by r?? also, i dont have = an=20 indexed, primary "ID" field in this databae. is that ok for this code to = work?</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>thank you for your help</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV></BODY></HTML> ------=_NextPart_000_0012_01C6D3DD.AEE2A540-- Tag: How to Detect the trusted site and add it via scripting? Tag: 325388
  - 7
    - FORM and javascript.location I am using an asp page in which i dynamically fill the ACTION property of the form. The problem is that whenever i try to redirect to a html page using the javascript:location, it is getting redirected to the location in the ACTION attribute of the form element despite what is assigned to the location attribute of the javascript. <FORM NAME="CRYSTFORM" METHOD=POST ACTION=<%=thisPage%>> : : : </FORM> <button onClick ="javascript:location='<%=goBackToURL%>'";id=button1 name=button1> OK </button> I am using div tags in middle of the form to control the visibility of certain visual elements. Any help would be greatly appreciated. Thanks in advance, John. Tag: How to Detect the trusted site and add it via scripting? Tag: 325387
  - 8
    - asp error The webpage will shown this error when click the specified page each time. This page mainly displays old photo with the same type of product. How should I fixt this. ---------------------------------------------------------------------------- --- ADODB.Recordset error '800a0e78' Operation is not allowed when the object is closed. /item_detail.asp, line 68 ---------------------------------------------------------------------------- --- Tag: How to Detect the trusted site and add it via scripting? Tag: 325385
  - 9
    - website I am trying to put asp page on our website that pulls information from out Active Directory database. When someone goes to a certain page and puts in a name, I want it to come up with all their info from ADS. Plus we want it to have a picture displayed. Here is what have so far: <% strDomainDN = "dc=precisionpractice, dc=com" Set objCon = CreateObject("ADODB.Connection") objCon.Provider = "ADsDSOObject;" objCon.Open "Active Directory Provider" Set objRS = objCon.Execute("<LDAP://" & strDomainDN & ">;" & _ "(&(objectCategory=Person)(objectClass=user)(mail=*));" & _ "givenname,sn,SamAccountName;subtree" ) objRS.MoveFirst Response.write "<td><B>" & objRS.Fields(1).Name & "</B></td>" response.write "<td><B>" & objRS.Fields(2).Name & "</B></td></tr>" While Not objRS.EOF response.write "<tr><td>" & objRS.Fields(0).Value & "</td>" response.write "<td>" & objRS.Fields(1).Value & "</td>" response.write "<td>" & objRS.Fields(2).Value & "</td>" 'response.write "<td><A HREF=""mailto:" & objRS.Fields(2).Value & """>" 'response.write objRS.Fields(2).Value & "</A></td></tr>" objRS.MoveNext Wend Set objRS = Nothing Set objCon = Nothing %> But I am not sure how to tie this to a search field in ASP. I am new to ASP, so any help would greatly appreciated. Tag: How to Detect the trusted site and add it via scripting? Tag: 325378
  - 10
    - how to choose a random record from a database ill have a database with 1 table and 3 fields: ID FIRSTNAME LASTNAME (the ID field will be the auto incrementing index) there might be 10 records in the DB, there might be 10,000. i need to open the DB and randomly select a record (and then display the name, which i dont have a problem with) how can i randomly select a record? im guessing id have to open a recordset and check the count to get the number of records, so lets say there were 100 records. i imagine i would have to generate a random number between 1 and 100.... anyone have a small example? Tag: How to Detect the trusted site and add it via scripting? Tag: 325347
  - 11
    - File Listing Hi there. First of all, sorry for my poor english. I have a problem that I don't know how to resolve. I want to make a dynamic image gallery. With an ASP script, I will read the images from a folder and display them on a table, for example. The script is something like this: <%@ Language=VBScript %> <HTML> <BODY> <% Dim objFileScripting, objFolder Dim filename, filecollection, strDirectoryPath, strUrlPath strDirectoryPath="c:\inetpub\scripts\" strUrlPath="\scripts\" 'get file scripting object Set objFileScripting = CreateObject("Scripting.FileSystemObject") 'Return folder object Set objFolder = objFileScripting.GetFolder("c:\inetpub\scripts\") 'return file collection In folder Set filecollection = objFolder.Files 'create the links For Each filename In filecollection Filename=right(Filename,len(Filename)-InStrRev(Filename, "\")) Response.Write "<A HREF=""" & strUrlPath & filename & """>" & filename & "</A><BR>" Next %> </BODY> </HTML> This one is not finihed yet (read only images and display them on a table). But my problem is this: what can I do so I can read 10 files each time, separated in several pages. So, if I have 100 image files in my folder, I will have 10 pages, each one with a table conatining 10 images. Thanks for any help. Regards, Marco Pais Tag: How to Detect the trusted site and add it via scripting? Tag: 325338
  - 12
    - xHTTP send problem Hi, I am using trying to send out an XML using ASP. It is actually trying to call some webservice application using SOAP. The problem is that the same codes works perfectly fine in Excel VBA on the same server, but when it comes to IIS server, the program stop at "xHTTP.send xDoc.XML" line. It seems like the IIS server refuse to let the XML being sent out using the xHTTP object. Is there any settings in IIS that I need to enable to allow XML to be sent out? Set xDoc = Server.CreateObject("MSXML2.DOMDocument") Set xHTTP= Server.CreateObject("MSXML2.XMLHTTP.4.0") If xDoc.loadXML(SubXML) Then xHTTP.Open "POST", sRequest, False xHTTP.setRequestHeader "content-type", "application/x-www-form-urlencoded" xHTTP.setRequestHeader "accept", "text/xml/html" xHTTP.setRequestHeader "accept-charset", "utf-8, iso_8859-1" xHTTP.setRequestHeader "userid", sUserID xHTTP.setRequestHeader "pwd", sPassword xHTTP.send xDoc.XML '--- Program stop here!!! --- End if Tag: How to Detect the trusted site and add it via scripting? Tag: 325335
  - 13
    - Server.Transfer and Load Balanced Environments Greetings! I would like to use Server.Transfer to redirect users to a given page, while maintaining the state of form fields. This works fine on a single server. However, this will be deployed in a load balanced environment. I know that Session variables and load balanced environments don't mix. Do I have a cause for concern with Server.Transfer as well? Thanks in advance. Chris Tag: How to Detect the trusted site and add it via scripting? Tag: 325334
  - 14
    - Need a good Book Most of my ASP programming experience is on NT4. We recently upgraded (replaced) our NT4 webserver with Win2k3 Web Edition. I am looking for a good book that I can go through that will show me the new and different ways IIS6 does things. I found out that some things still work from my old web site, but they no longer work on the new site. Thanks Tag: How to Detect the trusted site and add it via scripting? Tag: 325307
  - 15
    - Web Service Problem - VS2005 I am new to web services. I wrote a simple (I thought) ASP.Net web service exposing a couple methods. It seems to work so long as I don't try and access my .NET C++ class library from the web service. As soon as I reference my class library from my web service method, my web client can no longer call the web service method (I receive a System.Web.Services.Protocols.SoapException: ... System.IO.FileNotFoundException: error identifying dependency problems with the class library). It sounds like my web service cannot access my class library at runtime. Is there any problem doing this sort of thing? How do I tell my web service how to access my class library (I've added the reference to the class library)? Tag: How to Detect the trusted site and add it via scripting? Tag: 325305
  - 16
    - asp questions before i begin project hi everyone. building a website for a client and have a few questions related to best practices, what i should use etc... the site will use a database to store info entered by users. each visit will allow the user to input no more than 2 fields: email address, and a comment field. the site has the potential to become pretty busy so my first question is, what should i use on the backend? a dedicated SQL server isnt an option so im looking at either an Access database, or the desktop edition of SQL installed on the web server. second question (and this might help decide which DB to use) is: what are the proper ways to open the databse so that multiple writes can be done at the same time in the case where more than 1 user are entering info at the same time? im referring to LockType, CursorType etc... (im not entirely sure of the workings of these things so if someone could give me a quick opinion, and point me in the right direction i can take it from there) thank you in advance Tag: How to Detect the trusted site and add it via scripting? Tag: 325301
  - 17
    - RegExp and Replacing Submatches I have a value, retrieved from a recordset, that contains any number of hyperlinks to a number. For example: <a href="123456">Hi</a> <a href='334455'>Hola</a> What I need to do is parse the string, identify any such valid hyperlinks, look up each of those numbers in a database, and return a string that looks something like this: <a href="/somepage.asp">Hi</a> <a href='/anotherpage.asp'>Hola</a> Here's the VBScript/ASP code I have written so far: ======================================================== Sub ReplaceSubmatches(sInputHTML) Dim sReturnValueHTML, iCount, oRegExp, oMatches, oMatch Dim sHrefValue, sHrefNewValue sReturnValueHTML = sInputHTML iCount = 0 Set oRegExp = New RegExp oRegExp.Pattern = "href[\s]?=[\s\""\']+(.*?)[\""\']+" oRegExp.Global = True Set oMatches = oRegExp.Execute(sInputHTML) If (oMatches.Count > 0) Then For Each oMatch In oMatches If (oMatch.Submatches.Count = 1) Then iCount = iCount + 1 sHrefValue = Trim(oMatch.Submatches(0) & "") sHrefNewValue = "somevalue" & iCount If (StrComp(sHrefValue, sHrefNewValue, 1) <> 0) Then Response.Write("Replace " & sHrefValue & " with " & sHrefNewValue & "<br>") '// Do something to [sReturnValueHTML] End If End If Next End If Set oMatches = Nothing Set oRegExp = Nothing Response.Write("<br>" & vbNewLine) Response.Write("Original = <u>" & Server.HTMLEncode(sInputHTML) & "</u><br>") Response.Write("New = <u>" & Server.HTMLEncode(sReturnValueHTML) & "</u><br>") If (StrComp(sInputHTML, sReturnValueHTML, 0) = 0) Then Response.Write("Values are identical.<br>") End Sub Call ReplaceSubmatches("<a href=""123456"">Hi</a> <a href='334455'>Hola</a>") ======================================================== The main reason I use a regular expression, instead of a straight Replace() statement, is that the href tags may use double-quotes (href="..") or single-quotes (href='..') to define a value. What do I need to do to the above code ( '// Do something to [sReturnValueHTML] ) to replace each href value? -= Tek Boy =- Tag: How to Detect the trusted site and add it via scripting? Tag: 325300
  - 18
    - HELP! "call to Server.CreateObject failed" error I'm studying "Visual Basic Developer's Guid to ASP & IIS", and I am following instructions an pp 72-75. I am creating a WebClass, and enter code as instructed, and it all is entered correctly. When I try and run, I get the folowing error: "The call to Server.CreateObject failed while checking permissions. Access is denied to this object." I've not compiled this, but am following instructions to just run the project. Is this not possible without compiling it? Thanks. Tag: How to Detect the trusted site and add it via scripting? Tag: 325296
  - 19
    - ppt COM Component to use in page asp Anyone know COM Component for full control file ppt? Tag: How to Detect the trusted site and add it via scripting? Tag: 325294
  - 20
    - Column does not belong to table error We are using .NET 2.0 and intermittently egt the following errors on almost all our web pages. The error is not repoducable and cycling the worker process seems to temporarily fix the problems. Has anyone seen this or have any suggestions? Event code: 3005 Event message: An unhandled exception has occurred. Event time: 9/5/2006 4:23:47 PM Event time (UTC): 9/5/2006 11:23:47 PM Event ID: cb408727296440278fb486579b359b15 Event sequence: 330 Event occurrence: 4 Event detail code: 0 Application information: Application domain: /LM/W3SVC/1314662404/ROOT/NARROWCAST2005-1-128019696752767426 Trust level: Full Application Virtual Path: /NARROWCAST2005 Application Path: C:\Inetpub\BFI_info\NARROWCAST2005\ Machine name: CARL Process information: Process ID: 3148 Process name: w3wp.exe Account name: NT AUTHORITY\NETWORK SERVICE Exception information: Exception type: ArgumentException Exception message: Column 'TFTAgentName' does not belong to table . Request information: Request URL: http://www.navistechnologies.info/NARROWCAST2005/NCEditResultsOut.aspx?uKey=2056426&To_Number= Request path: /NARROWCAST2005/NCEditResultsOut.aspx User host address: 63.200.67.154 User: Is authenticated: False Authentication Type: Thread account name: NT AUTHORITY\NETWORK SERVICE Thread information: Thread ID: 1 Thread account name: NT AUTHORITY\NETWORK SERVICE Is impersonating: False Stack trace: at System.Data.DataRow.GetDataColumn(String columnName) at System.Data.DataRow.get_Item(String columnName) at NCEditResultsOut.Page_Load(Object sender, EventArgs e) in C:\Inetpub\BFI_info\Narrowcast2005\NCEditResultsOut.aspx.vb:line 37 at System.Web.UI.Control.OnLoad(EventArgs e) at System.Web.UI.Control.LoadRecursive() at System.Web.UI.Page.ProcessRequestMain(Boolean includeStagesBeforeAsyncPoint, Boolean includeStagesAfterAsyncPoint) Custom event details: For more information, see Help and Support Center at http://go.microsoft.com/fwlink/events.asp. -- Mike Hollibaugh Was this post helpful Tag: How to Detect the trusted site and add it via scripting? Tag: 325289
  - 21
    - HTTP_X_FORWARDED_FOR ? Is there any official documentation on Request.ServerVariables("HTTP_X_FORWARDED_FOR") Googling I've found everyone repeating the same information - claiming that HTTP_X_FORWARDED_FOR is the real IP address if a proxy is being used, and that if it contains a value then it's the real IP address of the visitor. But this isn't consistent with what I am seeing. Sometimes HTTP_X_FORWARDED_FOR contains a single IP value, but I am also seeing it contain a LIST of IP addresses - I'm seeing this: HTTP_X_FORWARDED_FOR = IPaddress1, IPaddress2 REMOTE_ADDR = IPaddress3 where two IP addresses are separated by a comma. Of course, that entire string for HTTP_X_FORWARDED_FOR is not a valid IP address, so what the correct IP? Some websites say you take the first IP address, others say loop through the addresses & see if one matches the Class B domain of the REMOTE_ADDR IP address... Ack! Is there any "official" docs on this? Thanks, Vic Tag: How to Detect the trusted site and add it via scripting? Tag: 325284
  - 22
    - ORA-01036: illegal variable name/number I'm trying to call a package/procedure in oracle (from an ASP page) which requires a number of parameters. I have got this working using OO40 but unfortunately the transaction rollback function doesnt seem to do much. So I'm now trying to use ADO instead (in the hope that ADO transactions will work), however I'm getting the above error. My initial searches havent turned up any suitable suggestions - there appear to be many reasons why this error might occur - none of which I have found so far fit my situation. Can anyone suggest where I am going wrong? Better still, can anyone post a working code snippet that I can use as a model? I already have another [very similar] function which calls a different package/procedure which works fine. Thanks in advance... CJM Code Snippets: PROCEDURE AddSerialToHistory2(sSerialNo in varchar2, sPartNo in varchar2, sSequenceNo in number, sShopOrderNo in varchar2, sLineNo in varchar2, sRelNo in varchar2, sSuperiorSerialNo in varchar2, sSuperiorPartNo in varchar2, sOrderType in varchar2, sHistoryPurpose in varchar2, sCurrentPosition in varchar2, iResult Out number) IS sDesc Varchar2(100) := 'Received into stock against Shop Order ' || sShopOrderNo || ', ' || sLineNo || ', ' || sRelNo; dtDate Date := CURRENT_DATE; Begin Insert Into IFSAPP.PART_SERIAL_HISTORY_TAB (Part_No, Serial_No, Sequence_No, Order_No, Line_No, Release_No, Transaction_Date, RowVersion, Transaction_Description, Order_Type, History_Purpose, Current_Position, User_Created, Part_Ownership) Values (sPartNo, sSerialNo, sSequenceNo, sShopOrderNo, sLineNo, sRelNo, dtDate, dtDate, sDesc, sOrderType, sHistoryPurpose, sCurrentPosition, 'IFSAPP', 'COMPANY OWNED'); If SQL%ROWCOUNT = 1 Then iResult := 0; --Commit; Else iResult := 1; --Rollback; End If; END AddSerialToHistory2; Function AddHistory (sSerialNo, sPartNo, sShopOrderNo, sLineNo, sRelNo, sSuperiorSerialNo, sSuperiorPartNo) Dim iResult2 Dim oParam With oCmd .CommandType=adCmdText Set oParam = .CreateParameter("sSerialNo", adVarchar, adParamInput, 50, sSerialNo) .Parameters.Append oParam Set oParam = .CreateParameter("sPartNo", adVarchar, adParamInput, 50, sPartNo) .Parameters.Append oParam 'Set oParam = .CreateParameter("sSequenceNo", adSmallInt, adParamInput, 50, 1) '.Parameters.Append oParam Set oParam = .CreateParameter("sShopOrderNo", adVarchar, adParamInput, 50, sShopOrderNo) .Parameters.Append oParam Set oParam = .CreateParameter("sLineNo", adVarchar, adParamInput, 50, sLineNo) .Parameters.Append oParam Set oParam = .CreateParameter("sRelNo", adVarchar, adParamInput, 50, sRelNo) .Parameters.Append oParam Set oParam = .CreateParameter("sSuperiorSerialNo", adVarchar, adParamInput, 50, sSuperiorSerialNo) .Parameters.Append oParam Set oParam = .CreateParameter("sSuperiorPartNo", adVarchar, adParamInput, 50, sSuperiorPartNo) .Parameters.Append oParam 'Set oParam = .CreateParameter("sHistoryPurpose", adVarchar, adParamInput, 50, "INFO") '.Parameters.Append oParam 'Set oParam = .CreateParameter("sCurrentPosition", adVarchar, adParamInput, 50, "InInventory") '.Parameters.Append oParam Set oParam = .CreateParameter("iResult", adDecimal, adParamReturnValue) .Parameters.Append oParam 'Insert row into SNE (Shop Order) .CommandText="{Call ADDROWS.AddSerialToCatalog(?, ?, 1, ?, ?, ?, ?, ?, 'INFO', 'InInventory', ?)}" .Execute() '<======= this is where the error occurs AddHistory = .Parameters("iResult").Value .Parameters.Delete "sSerialNo" .Parameters.Delete "sPartNo" .Parameters.Delete "sSequenceNo" .Parameters.Delete "sShopOrderNo" .Parameters.Delete "sLineNo" .Parameters.Delete "sRelNo" .Parameters.Delete "sSuperiorSerialNo" .Parameters.Delete "sSuperiorPartNo" .Parameters.Delete "sHistoryPurpose" .Parameters.Delete "sCurrentPosition" .Parameters.Delete "iResult" End With End Function Tag: How to Detect the trusted site and add it via scripting? Tag: 325283
  - 23
    - Securing ASP apps Hi. Are there some easy to use (and free) web scanning tools that can check for security vulnerabilities (SQL injection, cross site attacks) on classic ASP apps and suggest ways to fix them? Thanks. Tag: How to Detect the trusted site and add it via scripting? Tag: 325281
  - 24
    - How to populate other fields from first choice on input form I have an ASP web form that I want to populate fields based on the first field choice. Example I have 4 fields item, price, delivery, availability. I have all these items setup in an access table. When a user chooses an option from the item drop down, the price, delivery, availability will then populate. I have already made my connection to the database, and created the drop down for field one from the choices. How do I now populate the corresponding fields. Any info or helpful links would be greatly appreciated. -- Flanman Tag: How to Detect the trusted site and add it via scripting? Tag: 325272
  - 25
    - Ad banner looking for a rotating ad banner that shows a new image say every 15-20 seconds. can you suggest something that I might be able to use. NOTE: This is for my church so if it were free I won't have to pay out of pocket. Thank You Kevin Tag: How to Detect the trusted site and add it via scripting? Tag: 325271
- Next
  - 1
    - non duplicable response object error Hi everyone, I got an error from my asp page. The interesting thing is it only occurs when I choose to give me report for August, if I select any other month, everything looks fine. I have no clue at all what is all about. What does line 0 mean? Response object error 'ASP 0104 : 80070057' Operation not Allowed /select_producerrpt.asp, line 0 -- Betty Tag: How to Detect the trusted site and add it via scripting? Tag: 325262
  - 2
    - JavaScript and ASP Hi everybody, how r u? I hope fine... People, I have a Javascript function wich returns true ou false, how do I assign the result on ASP variable? <% blnResult = Javascript:function() %> All these work because I have a form wich fields are verified by JavaScript on the client... Is that possible to do? Tag: How to Detect the trusted site and add it via scripting? Tag: 325256
  - 3
    - OO4O Transactions: Updates not being rolled=back I'm using OO4O via ASP to manipulate an Oracle 10g database (v10.1.0.4). At the start of each vbScript section I'm starting off the transaction as follows: oDB.AutoCommit = False oDB.BeginTrans And at the end of the section, I have the following: If iError > 0 then oDB.RollbackTrans Else oDB.CommitTrans End If Pretty simple... but unfortunately it doesnt work. All the help I can find only points to this code being correct... where am I going wrong? CJM Tag: How to Detect the trusted site and add it via scripting? Tag: 325255
  - 4
    - Response.Redirect problem in Classic ASP Dear All, I am new to ASP/ASP.Net and am trying to workout the exact meaning of some old ASP Classic code. Can anyone please explain the meaning of the following line of code: Response.Redirect("store.asp?r=1&m=3") In particular I need to understand the parameters (i.e. r=1&m=3) that are being passed, and if they are defaults where can I get a listing and explanation of their meanings and uses? Thanks. Alasdair Stirling Tag: How to Detect the trusted site and add it via scripting? Tag: 325249
  - 5
    - HELP We are looking to buy databases in the following industries * Pharmacy * Poker * Bingo * Casino * Sportsbook * Backgammon We will pay top $ for data Please contact albert_constantin@walla.com Thank you, Tag: How to Detect the trusted site and add it via scripting? Tag: 325246
  - 6
    - Help! CDO I was using this code and was fine but not anymore. <% Function SendEmail( sEmailServer, sFromEmail, sToEmail, sSubject, sText ) Dim objMessage Set objMessage = Server.CreateObject("CDO.Message") objMessage.From = sFromEmail objMessage.To = sToEmail objMessage.Bcc = "xx@xx.ch" objMessage.Subject = sSubject objMessage.TextBody = sText objMessage.Send Set objMessage = Nothing End Function %> This seams to work on my server but how to insert the rest? Thanks for any HELP! <% Dim objMessage Dim myMail Set myMail=CreateObject("CDO.Message") myMail.Subject="Sending email with CDO" myMail.From= "sFromEmail" myMail.To="xxx@xxx.com" myMail.TextBody="This is a message." myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Name or IP of remote SMTP server myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "127.0.0.1" 'Server port myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 myMail.Configuration.Fields.Update myMail.Send set myMail=nothing %> fab Tag: How to Detect the trusted site and add it via scripting? Tag: 325245
  - 7
    - Email Responding Hello Friends, I am new bie to ASP. My problem is, I have an Html file with name address and Email Id. when i click a submit button. the application should create a folder and the details must be stored in a text file and that text file must be stored in that folder. and a return email must be sent back to the address whihc is in the text file. If any body know this . please help me. I stucked here. Thanks In advance. Shun Tag: How to Detect the trusted site and add it via scripting? Tag: 325244
  - 8
    - Error 70 : access denied Hello, Please anybody try to execute this code. I am having a "quick.html" with email Id and name etc..., and henext form is the below "gdform.asp". When i try to execute this i am getting the following error. Error 70 : Access Denied. Please anybody can help me. Thanks in advance. <% Dim landing_page, host_url Dim fso, outfile, filename, dirname, myFolder Dim req_method, key, value1 Dim bErr, errStr, bEmpty On Error resume next bErr = false bEmpty = true errStr = "" Set fso = Server.CreateObject("Scripting.FileSystemObject") host_url = Request.ServerVariables("HTTP_HOST") response.write(host_url) req_method = Request.ServerVariables("REQUEST_METHOD") dtNow = Now() filename = Server.MapPath("ssfm") dirname = filename filename = filename & "\gdform_" & DatePart("M", dtNow) & DatePart("D", dtNow) & DatePart("YYYY", dtNow) & DatePart("N", dtNow) & DatePart("S", dtNow) response.write(req_method) response.write(dtnow) response.write(filename) response.write(dirname) sub FormatVariableLine(byval var_name, byVal var_value) Dim tmpStr tmpStr = tmpStr & "<GDFORM_VARIABLE NAME=" & var_name & " START>" & vbCRLF tmpStr = tmpStr & var_value & vbCRLF tmpStr = tmpStr & "<GDFORM_VARIABLE NAME=" & var_name & " END>" FormatVariableLine = tmpStr end sub Sub OutputLine(byVal line) outfile.WriteLine(line) end sub if err.number = 0 then response.Write("<br> Error :" & err.number &"::"&err.description & filename) Set outfile = fso.CreateTextFile(filename, true) response.Write(filename) if err.number <> 0 then bErr = true response.Write("<br> Error :" & err.number &"::"&err.description) errStr = "Error creating file! Directory may not be writable or may not exist.<br>Unable to process request." else response.write("gaffar") if(req_method = "GET") then for each Item in request.QueryString if item <> "" then bEmpty = false key = item value1 = Request.QueryString(item) if(lcase(key) = "redirect") then landing_page = value1 else line = FormatVariableLine(key, value1) Call OutputLine(line) end if end if next elseif (req_method = "POST") then for each Item in request.form if item <> "" then bEmpty = false key = item value1 = Request.form(item) if(lcase(key) = "redirect") then landing_page = value1 else line = FormatVariableLine(key, value1) Call OutputLine(line) end if end if next end if outfile.close end if if(bEmpty = true) AND errStr = "" then bErr = true errStr = errStr & "<br>No variables sent to form! Unable to process request." end if if(bErr = false) then if (landing_page <> "") then response.Redirect "http://" & host_url & "/" & landing_page else response.Redirect "http://" & host_url end if else Response.Write errStr end if set fso = nothing else Response.Write " An Error Occurred creating mail message. Unable to process form request at this time." end if %> Tag: How to Detect the trusted site and add it via scripting? Tag: 325243
  - 9
    - Parent directory dilemma Hi all, Currently building a web site in ASP/VBScript and have a number of include files. When I make the call to it via <%!-- include file="../blah/blah.inc" --%> I get the standard Windows 2003 Server error message about the parent paths thing (no probs there as I have them switched off) so I altered my call to the include file to use the virtual include (ie ...include virtual="/blah/blah.inc"... etc) and this works fine if I view the web site outside of my local network (ie www.domainname.com), however, when I view it from within my local network whilst i'm developing it (ie http://servername/rootfoldername/subfolder/pagename.asp) it doesn't like it. It's only when I alter the include statement to include the rootfoldername from the local address (which is the folder is resides in in WWWROOT) that it now works, however, access from the outside world will not... How can I get it so these two can live in harmony as I don't want to have to change all the include calls each time I work on it at different locations (sometimes I work on it from within the local network, sometimes externally)? Cheers muchly, Bj Tag: How to Detect the trusted site and add it via scripting? Tag: 325237
  - 10
    - creating a document on the server (MS Word doc) I have a registration form where a user is able to, upon submission of the form, have their submission entered into a simple database... now Im looking to create a word document on the fly from that submission using this as a model to build from: http://www.freevbcode.com/ShowCode.Asp?ID=1727 There are no errors generated but there is NO .DOC file created at all either... Im not sure what Im doing wrong... any clue what I need to change to get this to work? heres the code: ' CREATE WORD DOCUMENT Set WordApp = CreateObject("word.application") Set WordDoc = WordApp.Documents.Add() WordApp.Application.Visible = False Set MyRange1 = WordDoc.Paragraphs.Add.Range MyRange1.InsertBefore("Appraisal Form") MyRange1.Style = "Heading 1" Set MyRange1 = WordDoc.Paragraphs.Add.Range MyRange1.InsertBefore("Manager: " & fname & vbcrlf & "Appraisee: " & lname) MyRange1.Font.Bold = true Set MyRange1 = WordDoc.Paragraphs.Add.Range MyRange1.InsertBefore(vbcrlf & "Please fill in all the required sections and return to HR via the internal mail system.") ' Set the directory location to store the generated documents WordDocPath = Server.MapPath("") ' Use the unique session ID as the filename. WordDoc.SaveAs WordDocPath & "" & session.sessionID & ".doc" WordDoc.Close WordApp.Quit Set WordDoc = Nothing Set WordApp = Nothing ' EMAIL WORD DOCUMENT 'Set mailer = Server.CreateObject("ASPMAIL.ASPMailCtrl.1") 'recipient = Email 'sender = "vance@ukonline.co.uk" 'subject = "Requested Form" 'message = "Please find the requested document attached." 'attach = WordDocPath & "\" & session.SessionID & ".doc" 'INSERT YOUR MAIL SERVER HERE 'mailserver = "xxx.xx.xx.xx" 'result = mailer.SMAttach(mailserver, recipient, sender, subject, message, attach) ' DELETE WORD DOCUMENT FROM SERVER 'Set fso = CreateObject("Scripting.FileSystemObject") 'fso.DeleteFile(WordDocPath & "\" & session.SessionID & ".doc") 'Response.Write "The requested form will arrive in your inbox (email) within a few minutes. Please complete and return to HR asap." 'Response.Write "There has been an error sending the document to you." & vbcrlf 'Response.Write "Right click the following link and select ""Save Target As..."" to retrieve the word document." & vbcrlf & vbcrlf Response.Write "<A href=""" & session.SessionID & ".doc"">Generated Document</A>" & vbcrlf & vbcrlf Tag: How to Detect the trusted site and add it via scripting? Tag: 325236
  - 11
    - How to get a value calculated in a Function Hi, I have a function that looks up various values and then results in a value to a variable: Function ShouldItBeReferred If Claim3Date <> "" Then 'Do stuff...... TheAnswer = "Yes" Else TheAnswer = "No" End If 'and various other stuf......... If TheAnswer = "Yes" Then TheMessage = "Yes, for now." 'real messageto follow.. Else TheMessage = "No, for now." 'real messageto follow.. End If End Function Elsewhere on the page, a number of times, I need to Call the Function and find out the value of 'TheMessage' to display. I've tried: Call ShouldItBeReferred .......... nothing DisplayMessage = ShouldItBeReferred ..........nothing Please can you tell me how to call the function 'run it' and find out the value of 'TheMessage' Many thanks Jon Tag: How to Detect the trusted site and add it via scripting? Tag: 325229
  - 12
    - ASP 3 transactions and SSI Using the ASP 3 transaction functionality requires that the transaction flag is set as the very first code row, I understand. I now have a requirement to implement a transaction in one of the pages. Unfortunately the whole site is based on SSI (server side includes) that are being picked up based on the users preferences. I have an index.asp page that does this selection, which is always loaded first. Is there any way around this, or do you guys have any other suggestions? Thanks alot! Anders Tag: How to Detect the trusted site and add it via scripting? Tag: 325228
  - 13
    - Problems with CDOSys and Win2K Hello, I have a Win2K server that I run a website on. I have an asp page that sends an email to me when someone makes a request or provides feedback on the website. It has worked fine until some point in the last month. I know there were a bunch of "Critical Updates" that Microsoft forced on my machine and forced the restart. Could that have anything to do with the reason the email doesn't work anymore? I keep getting a "Page cannot be displayed" error when I post to the asp page that sends the email. I also have another third party ASP.net application that doesn't send email anymore, so that's why I wondered if it was the component. Below is the function that I'm using to send the email. Any help would be greatly appreciated. Thanks! if mailComp = "CDOSYS" then set cdoMessage = Server.CreateObject("CDO.Message") set cdoConfig = Server.CreateObject("CDO.Configuration") ' cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 ' cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver" ) = smtpServer cdoConfig.Fields.Update set cdoMessage.Configuration = cdoConfig cdoMessage.From = fromAddr cdoMessage.ReplyTo = replyTo cdoMessage.To = recipients cdoMessage.Subject = subject cdoMessage.HtmlBody = body on error resume next cdoMessage.Send if Err.Number <> 0 then SendMail = "Email send failed: " & Err.Description & "." end if set cdoMessage = Nothing set cdoConfig = Nothing exit function end if 'Send email (JMail version). if mailComp = "JMail" then set mailObj = Server.CreateObject("JMail.SMTPMail") mailObj.Silent = true mailObj.ServerAddress = smtpServer mailObj.Sender = fromAddr mailObj.ReplyTo = replyTo mailObj.Subject = subject addrList = Split(recipients, ",") for each addr in addrList mailObj.AddRecipient Trim(addr) next mailObj.ContentType = "text/html" mailObj.Body = body if not mailObj.Execute then SendMail = "Email send failed: " & mailObj.ErrorMessage & "." end if exit function end if Tag: How to Detect the trusted site and add it via scripting? Tag: 325226
  - 14
    - shell.application Hello everyone, i have a little question: Does shell.application aplly/work with virtual directories or paths? thanks in advance, ember Tag: How to Detect the trusted site and add it via scripting? Tag: 325221
  - 15
    - FileSystemObject CreateTextFile falling over I am trying to execute the following function which performs four tests to make sure the current environment is capable of uploading files. Test 1 completes ok, but test 2 results in the page hanging indefinitely. An error number is not returned (it just hangs on the line: Set testFile = fso.CreateTextFile(fileName, true) ). However when I execute test 2 using VBScript from within an Excel macro it creates the text file without any problem. I have given IUSR & IWAM Administrator rights but this has not helped. Does anyone please have any ideas? Many Thanks Iain function TestEnvironment() Dim fso, fileName, testFile, streamTest TestEnvironment = "" 'Test 1 Set fso = Server.CreateObject("Scripting.FileSystemObject") if not fso.FolderExists(uploadsDirVar) then TestEnvironment = "<B>Folder " & uploadsDirVar & " does not exist.</B><br>The value of your uploadsDirVar is incorrect. Open AdminFileUpload.asp in an editor and change the value of uploadsDirVar to the pathname of a directory with write permissions." exit function end if 'Test 2 fileName = uploadsDirVar & "\test.txt" on error resume next Set testFile = fso.CreateTextFile(fileName, true) If Err.Number<>0 then TestEnvironment = "<B>Folder " & uploadsDirVar & " does not have write permissions.</B><br>The value of your uploadsDirVar is incorrect. Open AdminFileUpload.asp in an editor and change the value of uploadsDirVar to the pathname of a directory with write permissions." exit function end if Err.Clear testFile.Close 'Test 3 fso.DeleteFile(fileName) If Err.Number<>0 then TestEnvironment = "<B>Folder " & uploadsDirVar & " does not have delete permissions</B>, although it does have write permissions.<br>Change the permissions for IUSR_<I>computername</I> on this folder." exit function end if Err.Clear 'Test 4 Set streamTest = Server.CreateObject("ADODB.Stream") If Err.Number<>0 then TestEnvironment = "<B>The ADODB object <I>Stream</I> is not available in your server.</B><br>Check the Requirements page for information about upgrading your ADODB libraries." exit function end if Set streamTest = Nothing end function Tag: How to Detect the trusted site and add it via scripting? Tag: 325210
  - 16
    - Strip Query String from url Below is a script I use to strip everything from a url except the actual page. So for example, "http://www.cnn.com/mypage.asp?article=5&id=20" becomes "mypage.asp". I'm looking for a script that will strip any querystring from a url if it exists, so my result would be "http://www.cnn.com/mypage.asp". Can someone help me modify my script below to achieve this result? I'm horrible with string functions. CODE to Get URL ************** Right(Request.ServerVariables("SCRIPT_NAME"),Len(Request.ServerVariables("SCRIPT_NAME"))-InStrRev(Request.ServerVariables("SCRIPT_NAME"),"/")) Tag: How to Detect the trusted site and add it via scripting? Tag: 325206
  - 17
    - in intranet, How can I get the userID using ASP? within the intranet, all user are required to login. How can I get the User ID and Domain in ASP page? Tag: How to Detect the trusted site and add it via scripting? Tag: 325202
  - 18
    - cookies can't figure why my page won't redirect. When I call 10_6.asp it should call 10_5.asp heres the code... Thank You Kevin 10_6.asp <%@ Language=VBscript %> <% Option Explicit %> <% Response.Cookies("UserInformation")("LastVisit")= Now Response.Cookies("UserInformation")("Name") = "Scott" Response.Cookies("UserInformation")("UserAgentString") =_ Request.ServerVariables("HTTP_USER_AGENT") response.redirect "10_5.asp" %> 10_5.asp <%@ Language=VBscript %> <% Option Explicit %> <% Dim strCookieName, strKeyName 'NOTE: why don't I have an assignment statement for strCookieName? For Each strCookieName in Request.Cookies If Request.Cookies(strCookieName).HasKeys then for each strKeyName in Request.Cookies(strCookieName) Response.Write strCookieName & "(" & strKeyName & ") = " &_ Request.Cookies(strCookieName)(strKeyName) & "<br>" next else Response.write strCookieName & " = " &_ Request.Cookies(strCookieName) end if response.write "<br>" next %> Tag: How to Detect the trusted site and add it via scripting? Tag: 325198
  - 19
    - Paging MySQL Database records......again This is a multi-part message in MIME format. ------=_NextPart_000_0062_01C6CE35.FF84A730 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable i post a while back on how to page thru database records. i dont really = understand the ASPFAQ one. Its not well commented. This is how i learn = anything, is if its commented on what does what. Can someone please help me. i have a datbase of about 90 records so far, = that i would like to page thru. Thank you. James Jones ------=_NextPart_000_0062_01C6CE35.FF84A730 Content-Type: text/html; charset="iso-8859-1" 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=3Diso-8859-1"> <META content=3D"MSHTML 6.00.2900.2963" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=3D#ffffff> <DIV><FONT face=3DArial size=3D2>i post a while back on how to page thru = database=20 records. i dont really understand the ASPFAQ one. Its not well = commented. This=20 is how i learn anything, is if its commented on what does = what.</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>Can someone please help me. i = have a datbase=20 of about 90 records so far, that i would like to page thru.</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>Thank you.</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>James Jones</FONT></DIV> <DIV> </DIV></BODY></HTML> ------=_NextPart_000_0062_01C6CE35.FF84A730-- Tag: How to Detect the trusted site and add it via scripting? Tag: 325184
  - 20
    - urgent i need help ....how can i send a e-mail to the person who has fillied my apply.html form ... i have a email (textbox field) ..i mean automatic email reply ... thanks friends those who give me that code or guide me .... Tag: How to Detect the trusted site and add it via scripting? Tag: 325183
  - 21
    - out of bounds on array working through this tutorial and I just can't seem to find why I am over running my array. If you have time can you drop this into your debugger? I don't have one for asp pages. Using a text editor and my print statements don't seem to be revealing the error. Microsoft VBScript runtime error '800a0009' Subscript out of range: '[number: 43]' /Bp_1.asp, line 80 <%@ Language=VBscript %> <% Option Explicit %> <html> <body> <% '_____________________________________________ ' Display a calendar based upon the current date '------------------------------------------------- Function getMonthName(iMonth) Select Case iMonth case 1: GetMonthName = "January" case 2: GetMonthName = "February" case 3: GetMonthName = "March" case 4: GetMonthName = "April" case 5: GetMonthName = "May" case 6: GetMonthName = "June" case 7: GetMonthName = "July" case 8: GetMonthName = "August" case 9: GetMonthName = "September" case 10: GetMonthName = "October" case 11: getMonthName = "November" case 12: getMonthName = "December" case else getMonthName = "in valid month" end select end function Dim dbCurrentDate dbCurrentDate = Date() Dim aCalendarDays(42) Dim iFirstWeekday iFirstWeekDay = DatePart("w",DateSerial(Year(dbCurrentDate),Month(dbCurrentDate),1)) Dim iDaysInMonth iDaysInMonth = DatePart("d",DateSerial(Year(dbCurrentDate),Month(dbCurrentDate)+1, 1-1)) dim iLoop For iLoop = 1 to iDaysInMonth aCalendarDays(iLoop + iFirstWeekday - 1) = iLoop next Dim iColumns, iRows iColumns = 7 iRows = 6 - Int((42 - (iFirstWeekDay + iDaysInMonth)) / 7) %> <table align=center border=1 cellspacing=1 width=75% height=75% <th colspan=7> <% Response.Write GetMonthName(Month(dbCurrentDate)) Response.Write ", " & Year(dbCurrentDate) %> </th> <% Dim iRowsLoop, iColumnsLoop For iRowsLoop = 1 to iColumns 'create a new row response.write "<tr>" for iColumnsLoop = 1 to iColumns 'create a column if aCalendarDays((iRowsLoop-1)*7 + iColumnsLoop) > 0 then 'dispaly the date Response.Write "<td valign=top align=right width=""14%"">"_ & aCalendarDays((iRowsLoop-1)*7 + iColumnsLoop)_ & "</td>" else 'gray out cell response.write "<td bgcolor=gray> </td>" end if next 'close the row response.write "</tr>" next %> </table> <br><br> hello again </body> </html> Tag: How to Detect the trusted site and add it via scripting? Tag: 325181
  - 22
    - Session Lost when opening Word Doc Hello All, I have an app on an intranet which uses the response.contenttype in ASP to create a word doc. The issue I am having is that when this doc is generated and opened, the session is lost. We have tried everything up to this point, setting timeout in IIS, refresh scripts, etc, until we realized it has something to to do with the Word document. I have spent a LOT of time trying to figure this out, or find an answer online. I have come across a few other posts, but no one repsonded to them. I am desperate for help! Tag: How to Detect the trusted site and add it via scripting? Tag: 325173
  - 23
    - Email Challenge... OK, here is what I am attempting. I have an .asp page on our company intranet in which the user can key some referral information. Upon submit, the data is transferred to an SQL database and the user receives a confirmation of this submission. One of the fields that the employee selects is the sales rep to receive the referral. I would like to be able to send the rep an email with the information entered by the employee so they can contact the client. I am using Frontpage 2002 and I am aware that this process is not available within Frontpage but I believe it can be coded manually but I can't seem to find a good resource to assist me in this process. Our web-server is running Windows Server 2003. I believe this can be accomplished and I hope to get some direction. Any help would be appreciated. Thanks. Tag: How to Detect the trusted site and add it via scripting? Tag: 325167
  - 24
    - Request.Form(var) empty with IE, works fine with Firefox. Help please. Hi, I've been trawling the web for answer to my problem with no luck although I'm hardly alone it seems! Below is the generated source for an ASP page that posts a value called 'album' to another ASP page. The other page retrieves the value with Request.Form('album'); On Firefox this works fine every time. On IE6, I always get nothing. I'm pretty sure it's the posting side that is at fault, so that's what I've shown here. Oh, I tried Request.QueryString too and again, fine on Firefox, nothing on IE6. Any help would be much appreciated. <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <meta http-equiv="Content-Language" content="en-us"> <title>Gallery</title>  <link rel="stylesheet" type="text/css" href="_themes/poetic2/poet1011.css"> <meta name="Microsoft Theme" content="poetic2 1011, default"> </head> <body> <form name='albumselect' action="gallery_intro.asp" method="post" target="intro"> <CENTER><h2>ALBUMS</h2></CENTER><hr><br> <CENTER><input name='album' type=image src='photogallery/Test One/Title.jpg' value='photogallery/Test One' onClick='submit();'></CENTER> <CENTER>Test One Photos</CENTER><br><hr><br> <CENTER><input name='album' type=image src='photogallery/Test Two/Title.jpg' value='photogallery/Test Two' onClick='submit();'></CENTER> <CENTER>Test Two Photos</CENTER><br><hr><br> <CENTER><input name='album' type=image src='photogallery/Test Three/Title.jpg' value='photogallery/Test Three' onClick='submit();'></CENTER> <CENTER>Test Three Photos</CENTER><br><hr><br> </form> </body> </html> Regards, Dave Tag: How to Detect the trusted site and add it via scripting? Tag: 325161
  - 25
    - Problems Using onchange with option lists I am trying to take actions using onchange with an option list without success. I am not able to fully populate the list without a bad bad behavior (the list is not getting populated) What I am looking for, is being able to call a sub procedure each time a new item in the list is selected (of course after it has been populated) Below some of the code: <%Sub Refresh co_pais_envio_chk=co_pais_envio window.location.href="checkout_direccion.asp" End Sub%> <%rs_pais.MoveFirst%> <select name="cbo_pais_env" class="form1" id="cbo_pais_env" onchange=<%call refresh%>"> <option value="0" size="25">Seleccione</option> <%Do While Not rs_pais.EOF%> <%if cint(rs_pais("id_pais")) > 1000 then%> <option size="25" <%If CInt(co_pais_envio) = CInt(rs_pais("id_pais")) Then %> selected <%End If%> value="<%=rs_pais("id_pais") & "-" & rs_pais("co_zona_dhl_ve") & "-" & rs_pais("co_zona_mrw_ve")%>"><%=UCase(rs_pais("no_pais"))%></option> <%end if rs_pais.MoveNext Loop rs_pais.movefirst Do While Not rs_pais.EOF%> <%if cint(rs_pais("id_pais")) < 1000 then%> <option <%If CInt(co_pais_envio) = CInt(rs_pais("id_pais")) Then %> selected <%End If%> value="<%=rs_pais("id_pais") & "-" & rs_pais("co_zona_fedex") & "-" & rs_pais("co_zona_dhl_exp")%>"><%=UCase(rs_pais("no_pais"))%></option> <%end if rs_pais.MoveNext Loop rs_pais.Close Set rs_pais = Nothing %> Tag: How to Detect the trusted site and add it via scripting? Tag: 325159

I am using SQL Server 2000 Analysis services and Office Web Components to
display the information.

when the user first time access the web site, he/she did to add it into the
trusted site list, Otherwise, the user is required to ignore some warming
message.

Does anyone know how to detect the current site is in the trusted site list?
If not, how can I add the current site into the trusted site list using
scripting?

Top

Re: How to Detect the trusted site and add it via scripting? by Mike

Mike
Mon Sep 11 02:42:07 CDT 2006

Kam wrote:
> I am using SQL Server 2000 Analysis services and Office Web Components to
> display the information.
>
> when the user first time access the web site, he/she did to add it into the
> trusted site list, Otherwise, the user is required to ignore some warming
> message.
>
> Does anyone know how to detect the current site is in the trusted site list?
> If not, how can I add the current site into the trusted site list using
> scripting?

You can't do this with ASP, which acts on the web server. It's highly
unlikely that you can do this on the client side without the user's
agreement - and even then it may not be possible. You would be better
off asking in a client-side scripting group, such as
comp.language.javascript or microsoft.public.scripting.jscript.

When you ask in the client side grops, you needn't mention SQL server
or OWC. They are irrelevant to your requirement.

--
Mike Brind

Top

Re: How to Detect the trusted site and add it via scripting? by Anthony

Anthony
Mon Sep 11 07:37:40 CDT 2006

"Mike Brind" <paxtonend@hotmail.com> wrote in message
news:1157960527.284206.262130@h48g2000cwc.googlegroups.com...
>
> Kam wrote:
> > I am using SQL Server 2000 Analysis services and Office Web Components
to
> > display the information.
> >
> > when the user first time access the web site, he/she did to add it into
the
> > trusted site list, Otherwise, the user is required to ignore some
warming
> > message.
> >
> > Does anyone know how to detect the current site is in the trusted site
list?
> > If not, how can I add the current site into the trusted site list using
> > scripting?
>
> You can't do this with ASP, which acts on the web server. It's highly
> unlikely that you can do this on the client side without the user's
> agreement - and even then it may not be possible. You would be better
> off asking in a client-side scripting group, such as
> comp.language.javascript or microsoft.public.scripting.jscript.
>

No it can't be done. Period. If it can switch browsers now!

Closest you could get would be a group policy or a logon script but that
would defeat the point of using OWC in the first place since the client
machine would need to be a domain member.

> When you ask in the client side grops, you needn't mention SQL server
> or OWC. They are irrelevant to your requirement.
>
> --
> Mike Brind
>

Top