Having Web Page Refresh and go to end of page

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
    - How do I get ASP (SOAPtoolkit3) to query NTLM authenticated .NETWe Hi there, I am needing to query a .NET webservice from a classic ASP page. It works absolutely fine under anonymous authentication however I want to turn NTLM authentication on in order for me to ascertain the requesting user's context. Detailed below is my code currently but it throws a very vague error when I turn on NTLM authentication. What is is that I am doing wrong and what do I need to do to get this working...? function callAuditService() Dim oSOAP Dim Result Result = False Set oSOAP = Server.CreateObject("MSSOAP.SoapClient30") oSOAP.ClientProperty("ServerHTTPRequest") = True oSOAP.mssoapinit(Application("AuditWebServicePath")) oSOAP.ConnectorProperty("AuthUser") = Request.ServerVariables("AUTH_USER") oSOAP.ConnectorProperty("ConnectTimeout") = 300000 Result = oSOAP.AuditSearch(ParametersInHere) Set oSOAP = Nothing callAuditService = Result end function Any help would be very muchly appreciated. Thanks, DC -- </davidChristiansen> Tag: Having Web Page Refresh and go to end of page Tag: 312713
  - 2
    - Defending against SQL injection.... I have a multi-page ASP web application that uses information sent to it from the client in the Request.Forms collection, the Request.QueryString collection and the Request.Cookie collection. What I want to do is to sanitise ALL the information sent to EVERY page. I thought I'd achieve this by having an INCLUDE file inserted at the top of EVERY page. This include file iterates through EVERY form, querystring and cookie item and removes anything that looks like malicious SQL injections from the values. Having completed this task, the many web pages then access the sanitised Request object with impunity. One minor drawback is that it doesn't seem to work...I can't update the Request object with the sanitised value. [Error message: VBScript runtime error: Object doesn't suppor this property or method] Either it's something silly in my coding or it's the wrong approach....please advise accordingly (code below). Thanks Griff --------------------------------------------------------------------------------------------- Dim asSQLInjectionWords ' Array to hold the injection keywords Dim oRequestItemName ' Item in the request object (form, querystring and cookies) Dim vValue ' Item value ' Populate the array populateArray asSQLInjectionWords ' Sanitise the request form objects for each oRequestItemName in Request.Form ' Load the value vValue = Request.Form(oRequestItemName) ' sanitise the request item value Request.Form(oRequestItemName) = sanitiseItemValue(asSQLInjectionWords, vValue) next 'oRequestItem ' Sanitise the request query string objects for each oRequestItemName in Request.QueryString ' Load the value vValue = Request.QueryString(oRequestItemName) ' sanitise the request item value Request.QueryString(oRequestItemName) = sanitiseItemValue(asSQLInjectionWords, vValue) next 'oRequestItem ' Sanitise the request cookie objects for each oRequestItemName in Request.Cookies ' Load the value vValue = Request.Cookies(oRequestItemName) ' sanitise the request item value Request.Cookies(oRequestItemName) = sanitiseItemValue(asSQLInjectionWords, vValue) next 'oRequestItem ' Erase the array erase asSQLInjectionWords ' ------------------------------------------------------------- private function sanitiseItemValue(byRef injectionArray, byVal vValue) Dim iArrayCounter Dim aRequestItem ' Iterate through the sql injection array for iArrayCounter = 0 to ubound(injectionArray) ' Split the request item's value around the SQL injection term aRequestItem = split(vValue, injectionArray(iArrayCounter)) ' Rebuild the request item with out the SQL injection term vValue = join(aRequestItem, vbNullString) next ' Return sanitised value sanitiseItemValue = vValue end function ' ------------------------------------------------------------- private sub populateArray(byRef injectionArray) injectionArray = Array(_ "/", _ "\", _ "'", _ """", _ ";", _ "=", _ "--", _ "*", _ ".", _ "create", _ "dbcc", _ "dbo", _ "delete", _ "drop", _ "exec", _ "index", _ "insert", _ "from", _ "having", _ "inner", _ "join", _ "master", _ "model", _ "msdb", _ "null", _ "table", _ "tables", _ "tempdb", _ "truncate", _ "union", _ "update", _ "where", _ "xp_cmdshell", _ "xp_startmail", _ "xp_sendmail", _ "xp_makewebtask") end sub ' ------------------------------------------------------------- Tag: Having Web Page Refresh and go to end of page Tag: 312710
  - 3
    - How to get/set and send the HTTP Headers(user-defined) [Qtn : How to get/set and send the HTTP Headers(user-defined) coming from another domain/site] Hi Experts, In one SMS gateway project i need a great and urgent help from u all. There, the Service Providers sending the data thru "HTTP Headers" (For ex. sms-Id,sms-source [user defined]). So i need to get and parse the name value pairs, and need to respond/send the same way as coining the "HTTP Headers" (For ex. sms-Id,sms-destination,sms-msg [user defined]). Pls its urgent. thanx in advance Laks.R Tag: Having Web Page Refresh and go to end of page Tag: 312707
  - 4
    - URLDecode for UTF8 Hello, I have a URLDecode function which works fine for all characters except for UTF8 characters. If I server.URLEncode the string "å??", the resultant string is "%E5%95%86". How do I convert it back to the original string? Thank you. Tag: Having Web Page Refresh and go to end of page Tag: 312706
  - 5
    - Use session variables or store in database? I'm new to ASP. If I store information in these handy "session variables" am I going to run into many limitations that I wouldn't have it I added a database record for each session instead? For example, if I use session variables, can I have an admin utility that lets me see a list and/or count of all open sessions? Or would I be able to keep the same user from starting multiple sessions if I wanted (by comparing the log-in name which my web-site requires)? I know if I create a record for each open session that I can do all kinds of fun stuff like reports and queries, but not sure if I'll have all of those options with these built in ASP session variables (which I imagine ASP stores in memory or some non-standard format). p.s.-I'm using ASP (not ASP.NET) with VBScript (I hate VB syntax but that is what everyone seems to use). Tag: Having Web Page Refresh and go to end of page Tag: 312703
  - 6
    - List of Databases I am writing an Active Server Page application that will get all of the databases that a user can access. Is there a way I can do this with Active Server Pages? I also will provide the users with the option to change records, table structure, etc with this application. I will also be developing an asp.net (C#) project that will do the same thing. If anyone can provide code snippets or anything that would be great. Thanks, Rick Langschultz Web Developer/IT Manager Tag: Having Web Page Refresh and go to end of page Tag: 312701
  - 7
    - number formatting Hi Im having a problem getting a number to display correctly. The number is the result of a calculation and I am then using formatnumber to remove any decimals. The number displays as '1,345' is there any way to get rid of the comma Thanks J Tag: Having Web Page Refresh and go to end of page Tag: 312695
  - 8
    - info@service-now.com Dear Mr. Lindsey, This is Guojun Zhu, an intern in Capital Hunter. We are a research company in San Diego, California, focused on the equity financing on venture capital. I would apprecieate if you can send me the information about the management such as CEO, CFO, etc. Thanks for your attention and have a great day! -- Guojun Zhu gzhu@capitalhunter.com Capital Hunter, Inc. 751 Seventh Avenue, Suite O San Diego, CA 92101 619-236-9998 http://www.capitalhunter.com Tag: Having Web Page Refresh and go to end of page Tag: 312693
  - 9
    - Excel gridlines Like many people here, I've been trying to generate a spreadsheet on an ASP page. In my case, it's Intranet, so I can't provide you with a link. But the problem I have been fighting is a simple one: The spreadsheet that is built by my code has no gridlines. I cannot find anything in the documentation of either MSDN (for ASP) or Excel that tells me how to code my page in such a way that it looks like Excel normally looks when you bring it up. In my HTML code, I have tried <table border="1" as well as just taking the border attribute out. I have seen this work in other people's ASP code, but don't have access to their code. Any help appreciated. Tag: Having Web Page Refresh and go to end of page Tag: 312687
  - 10
    - SQL Conversion Assistance Needed Came across this code. SELECT Y, Q1 = COUNT(CASE WHEN Q=1 THEN Sales END), Q2 = COUNT(CASE WHEN Q=2 THEN Sales END), Q3 = COUNT(CASE WHEN Q=3 THEN Sales END), Q4 = COUNT(CASE WHEN Q=4 THEN Sales END) FROM dbo.SalesByQuarter GROUP BY Y ORDER BY Y It does a pivot table type deal. How would I convert this to a one line SQL statement? Is this possible. Tag: Having Web Page Refresh and go to end of page Tag: 312680
  - 11
    - Flushing servers buffer In the following code when i = 500 the buffer on the server is flushed to the client. However, because the content that is sent to the browser contains an html table Internet Explorer does not display the table until it receives the closing </table> tag. The question is, am I correct in saying that the buffer on the server is CLEARED when i = 500? It will be empty for a split second until the loop resumes again. Am I correct? Dim i i = 1 Response.Write("<table>") For i = 1 to 1000 Response.Write("<tr><td>" & i & "</td></tr>") i = i + 1 If i = 500 Then Response.Flush() End If Loop Response.Write("</table>") Is this a good way to clear the buffer if I'm processing a very large amount of data? Tag: Having Web Page Refresh and go to end of page Tag: 312677
  - 12
    - Shopping Cart Advised Hi All, If I want to using asp paging to display product. I added 2 pcs in page 1, and I added 3pcs in page 2, and I added 5pcs in page 4 and then click add to cart button. How can I keep them before click "add to cart" button ? Please advised. Tag: Having Web Page Refresh and go to end of page Tag: 312672
  - 13
    - Prevent "Back" Buttom in Browser I am trying to set up a login-logout website. I have a cookie about the login status. I put it as logout once the logout link is clicked. And I put a little security check about the status of the cookie variable everytime before loading the detailed member profiling. The page layout is like: Login page,-->check the login name/password database-->profile page(only login cookie is true, redirect back to login if false) Logout link, set login cookie as false and redirect to the login page. However, after I check a profile and then click logout, I can still get back to profile page by click "back" button in browser. I was told those are in the browser cache and the check of the "login" cookie does not actually work in this situation. Is there anyway to force the browser to clear the cache after I click the "logout". It should be possible since lots of websites do that. I just do not how to. Any help is highly appreciated! Tag: Having Web Page Refresh and go to end of page Tag: 312666
  - 14
    - Problems connecting to MS SQL via Access2000 adp For the past several projects, I have been using an Access 2000 .adp file to create and manage the database on the remote SQL Server. It has worked very well for me and is a very fast, simple way to take care of minor updates. A new project is not going so well, though. No matter what I try, I can not get a connection established. This project is on a server I do not control, so I am having to work only with the information provided to me by the admin. Using an online admin tool provided by the server administrator, I am able to log in and view the database and make edits via manually written SQL statements. However, using the server name provided and the same login info, I am unable to establish a connection through Access. The admin also told me to use a file-based DSN connection in my ASP pages; I have always used DSN-less in the past, and can not figure out why a DSN would be required. Could there be any connection between this and not being able to connect via Access? Any suggestions or ideas would be appreciated. Thank you. Paul Tag: Having Web Page Refresh and go to end of page Tag: 312646
  - 15
    - Random Session Timeout in IIS6 I have an asp application running on both iis5 and iis6. (not .net) The server ruhnning IIS5 has no problem running my application. IIS6 randomly times out WEB users. The session timeout is set for 60 minutes. I will get timed out in iis6 in less than 5 minutes. Are there any other settings that can be changed to stop this from happening Tag: Having Web Page Refresh and go to end of page Tag: 312643
  - 16
    - 401.2 on ASP pages Argh! I know this is a simple problem, but I just can't find the answer. I have IIS running and can get it to display htm pages, but not ASP. I get 401.2, invalid config on server. I've run authdiag, but can't glean the answer from its results. All help appreciated! Steve Tag: Having Web Page Refresh and go to end of page Tag: 312640
  - 17
    - How to convert XML or HTML to pdf file ? Hi all, How to convert XML or HTML to pdf file ? Where can I find free pdf generator ? Tag: Having Web Page Refresh and go to end of page Tag: 312635
  - 18
    - need help to set up Natterchat 1.12 Hi everybody! May be somebody has experience in installing Natterchat 1.12 on [url]www.7host.com?[/url] I will appreciate any help and assistance -- alan_ot ------------------------------------------------------------------------ Posted via http://www.codecomments.com ------------------------------------------------------------------------ Tag: Having Web Page Refresh and go to end of page Tag: 312630
  - 19
    - session In my login.asp I have the following code:  <% Dim sSessionID, sMessage If Len(Request.Form("cmdSubmit")) > 0 then mySQL = "EXECUTE usp_CheckLogin @usid='" & Trim(Lcase(Request.Form("usid"))) & "',@password='" + Trim(Request.Form("password")) & "'" call updateDB(mySQL, rs) sSessionID = rs.Fields(0).Value rs.close() CloseDB() end if if Len(Trim(Lcase(Request.Form("usid")))) > 0 AND Len(Trim(Request.Form("password"))) > 0 then If sSessionID = -1 Then SMessage = "username or password invalid" else response.write "<input type='hidden' name='sSessionID' value=" & sSessionID & ">" Response.Redirect ("home.asp?id=" & sSessionID) end if end if %> <html><head><title>login page</title></head> <body> <form method="post" action="login.asp"> <table> <tr><td colspan="2"><h3>Login Page</h3></td></tr> <tr><td colspan="2"><% = sMessage%></td></tr> <tr> <td>user name<td> <td><input type="text" name="usid" value="<% = Request.Form("usID")%>"></td> </tr> <tr> <td>password<td> <td><input type="password" name="password" value="<% = Request.Form("password")%>"></td> </tr> <tr> <td> <td> <td><input type="submit" name="cmdSubmit" value="login"></td> </tr> </table> </form> </body> </html> In my home.asp I have the following code:  <% if Len(Request.QueryString("id")) = 0 then response.redirect "login.asp" end if Tem = Trim(Lcase(Request.QueryString("id"))) Tem = replace(Tem,"{","") Tem = replace(Tem,"}","") mySQL = "EXECUTE usp_CheckSessionID @sessionID='" & Tem & "'" call updateDB(mySQL, rs) if rs.Fields(0).Value = -1 then response.redirect "login.asp" end if CloseDB() %> In my database_Function.asp I have the following code: <% dim objConn,rs sub openDB() set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "PROVIDER=SQLOLEDB;DATA SOURCE=127.0.0.1;UID=mama;PWD=papa;DATABASE=Godson" end sub sub updateDB(SQL,rs) openDB() set rs = objConn.Execute(SQL) end sub sub getFromDB(SQL,rs,filename) openDb() set rs = Server.CreateObject("ADODB.Recordset") rs.lockType = adLockReadOnly rs.cursorType = adOpenStatic rs.Open SQL, objConn end sub sub closeDB() objConn.Close set objConn = nothing end sub %> These are tables and procedures created in ms sql: create table tbl_users ( SessionID varchar(255) Primary Key, usID Varchar(20), Password Varchar(20), LastUpdate Smalldatetime ); Create Procedure usp_CheckSessionID @sessionID Varchar(255) As SET NOCOUNT ON if EXISTS(SELECT top 1 * FROM tbl_users WHERE sessionID=@sessionID AND DATEDIFF(n,LastUpdate,GETDATE())<=20) begin update tbl_users set LastUpdate = GETDATE() WHERE sessionID=@sessionID Select 0 end else Select -1 Return GO create procedure usp_CheckLogin @usID Varchar(20), @password varchar(20) As SET NOCOUNT ON Declare @sessionID as UNIQUEIDENTIFIER Declare @session as Varchar(255) if exists(Select top 1 * from tbl_users where usID=@usID AND password=@password) Begin set @sessionID = NEWID() set @session = CONVERT(Varchar(255),@sessionID) Update tbl_users Set sessionID=@session,LastUpdate=GetDate() where usID = @usID and password = @password Select @sessionID End else Select -1 Return GO Everything works fine. However there is a problem. The problem is: In my login.asp page requires me to enter the username and password. It works fine. When I enter a valid username and password it will redirect me to home.asp with a link as followed for example http://localhost/Eugene/home.asp?id={D8E3C5D2-DEFD-4F99-8F35-AC0CF848150 5}. This works fine. However in terms of security this link http://localhost/Eugene/home.asp?id={D8E3C5D2-DEFD-4F99-8F35-AC0CF848150 5} will work for as long as (SELECT top 1 * FROM tbl_users WHERE sessionID=@sessionID AND DATEDIFF(n,LastUpdate,GETDATE())<=20) even when I close my browser window, open it again and type http://localhost/Eugene/home.asp?id={D8E3C5D2-DEFD-4F99-8F35-AC0CF848150 5}. Is there a way to keep id={D8E3C5D2-DEFD-4F99-8F35-AC0CF8481505} hidden across different pages for security purpose without using session variables, cookies and querystring. Your help is kindly appreciated. Regards Eugene Anthony *** Sent via Developersdex http://www.developersdex.com *** Tag: Having Web Page Refresh and go to end of page Tag: 312628
  - 20
    - DTPicker Hi Guys, A silly question really, but how do I get the value of a DTPicker. I just need to get the value in session variable and display it on a different page. ----------------------------- This message is posted by http://asp.forumszone.com Tag: Having Web Page Refresh and go to end of page Tag: 312615
  - 21
    - Generating XLS files from ASP Hi All, I'm generating XLS files from ASP(.Net) code using the usual code chunks ... Response.ContentType = "application/vnd.ms-excel" Response.AppendHeader("Content-Disposition", "attachment; filename=""" & NomeFile & """") Response.Flush() Response.write("<table border=""1"" ..... ..... ..... Response.end It all works fine since I'm able to Open/Save the file with Excel 2000. But .... ...... when I run the code on a box where only an Excel Viewer 2003 is installed (rather then the full product) I cannot open it, and Viewer aborts with the following Message : "Cannot Open files of this type". Choosing to save save the file to reopen it laterleads to the same error. Moreover, the generated XLS file looks to be really small ....(1Kb) and after opening and resaving it from Excel program as a xls Workbook it becomes larger (14Kb). At this point the viewer can open it.. ... All this let me think that the generated file is not a "real" xls file .... while viewer can only open this kind of files ... (also tried to use freeware viewer but I got the same behaviour .....) Any help is appreciated .... Thanks in advance Daniele Balducci Tag: Having Web Page Refresh and go to end of page Tag: 312614
  - 22
    - help hiding image paths anyone know a useful way of hiding image paths so images on my site cant be directly linked to? ive seen sites that use <img src="image.asp?/moo/fred/image01.jpg"> (where the path starts from www.domain.com/secretfolder/moo/fred/image01.jpg) but dont know how to set this up BTW am on a shared host so dont have the use of base level administration if it makes any difference? anyone help me? mark Tag: Having Web Page Refresh and go to end of page Tag: 312613
  - 23
    - Associating Iframe pages with a specific page. Server side HI! I need to associate a iframe pages to a specific page for my menu system. I want to be able to click on my menu system anywhere on my site and the options that is clicked will load that options ( iframe page ) into a specific page that holds the iframe. Right now the options are only available when on the page that holds the Iframe in question ( templates.htm )but if you are on another page ( index.htm) how do we tell it to load that option into ( templates.htm ) ? I think I need some kind of ASP script that would associate any Iframe page that I specify to the ( Templates.htm ) page. How do we do this? does anyone have any ideas/examples ? Paul Tag: Having Web Page Refresh and go to end of page Tag: 312612
  - 24
    - aspx page to kick off async background task and then end I'm not sure of the best way to do what I want. Users of my website want to run reports that take a long time to generate. This is what I would like to happen: 1. User requests aspx page 2. aspx page kicks off an asynchronous background task (on the same web server) to generate the report. The end result will be a file created on the website. 3. aspx page returns this message to the user: "your report is being generated, check back in a few minutes" 4. aspx page ends. 5. (optional, the icing on the cake) A frame in the user's frameset starts (through client-side script) sending periodic requests to the server to check whether the report is ready, and displays a message box to inform the user when they can pick it up. 6. User goes to their "My Reports" page and collects the report 7. After 24 hours the report file is automatically deleted from the server Now, my question is how to do step 2. I guess it could be done with MSMQ, but is there a better way? I tried making a Windows service and making an asynchronous call to it with Delegate.BeginInvoke(). However, it doesn't seem suited to my situation because it seems to insist that the caller (the aspx page) stays alive for the end result, whereas I want the caller to terminate while the callee is still running. When my BeginInvoke() caller terminates, the callee seems to stop also. Additionally, the documentation says the caller must call EndInvoke(), which mine can't. Am I on the right track, or should I be using MSMQ? Shelling? A web service? Some kind of ThreadPool? So many technologies... Thanks in advance, Carl Johansen http://www.carljohansen.co.uk Tag: Having Web Page Refresh and go to end of page Tag: 312599
  - 25
    - Windows Script I Know this is the wrong group to ask but you never know some one out there might have the answer. Does any one know how to compile windows script.? what tool do I need and how to? TIA Al. Tag: Having Web Page Refresh and go to end of page Tag: 312594
- Next
  - 1
    - Asp search in progress page...How? Any suggestions to the following problem... I need a search in progress page, so when a user clicks my search button they are then directed to a 'searching...' page with an animated gif. The search in progress page needs to use 'GET' to go and retrieve the results of the search. Once the results come back they replace the search in progress page. Any help appreciated! Many thanks, Ian Tag: Having Web Page Refresh and go to end of page Tag: 312583
  - 2
    - asp and ms sql Table created in ms sql: create table tbl_users ( SessionID UNIQUEIDENTIFIER Primary Key, usID Varchar(20), Password Varchar(20), LastUpdate Smalldatetime ); 2 Stored Procedures created in ms sql: Create Procedure usp_CheckSessionID @sessionID UNIQUEIDENTIFIER As if EXISTS(SELECT 1 FROM tbl_users WHERE sessionID=@sessionID AND DATEDIFF(n,LastUpdate,GETDATE())<=20) begin update tbl_users set LastUpdate = GETDATE() WHERE sessionID=@sessionID Select 0 end else Select -1 Return GO create procedure usp_CheckLogin @usID Varchar(20) @password varchar(20) As Declare @sessionID as UNIQUEIDENTIFIER if exists(Select 1 from tbl_users where usID=@usID AND password=@password) Begin set @sessionID = NEWID() Update tbl_users Set sessionID=@sessionID,LastUpdate=GetDate() where usID = @usID and password = @password Select @sessionID End else Select -1 Return GO In database_Function.asp : <% dim objConn,rs sub openDB() set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "PROVIDER=SQLOLEDB;DATA SOURCE=127.0.0.1;UID=papa;PWD=mama;DATABASE=quan end sub sub updateDB(SQL,rs) openDB() set rs = objConn.Execute(SQL) end sub sub getFromDB(SQL,rs,filename) openDb() set rs = Server.CreateObject("ADODB.Recordset") rs.lockType = adLockReadOnly rs.cursorType = adOpenStatic rs.Open SQL, objConn end sub sub closeDB() objConn.Close set objConn = nothing end sub %> In my home.asp :  <% if Len(Request.QueryString("id")) = 0 then response.redirect "login.asp" end if mySQL = "EXECUTE usp_CheckSessionID @sessionID=''" & Trim(Lcase(Request.Form("id"))) & "''" call updateDB(mySQL, rs) if rs.Fields(0).Value = 0 then response.redirect "login.asp" end if CloseDB() %> In login.asp :  <% Dim sSessionID, sMessage If Len(Request.Form("cmdSubmit")) > 0 then mySQL = "EXECUTE usp_CheckLogin @usid=''" & Trim(Lcase(Request.Form("usid"))) & "'',@password=''" + Trim(Request.Form("password")) & "''" call updateDB(mySQL, rs) sSessionID = rs.Fields(0).Value rs.close() CloseDB() end if If sSessionID = -1 Then SMessage = "username or password invalid" else Response.Redirect ("home.asp?id=" & sSessionID) end if %> <html><head><title>login page</title></head> <body> <form method="post" action="login.asp"> <table> <tr><td colspan="2"><h3>Login Page</h3></td></tr> <tr><td colspan="2"><% = sMessage%></td></tr> <tr> <td>user name<td> <td><input type="text" name="usid" value="<% = Request.Form("usID")%>"></td> </tr> <tr> <td>password<td> <td><input type="password" name="password" value="<% = Request.Form("password")%>"></td> </tr> <tr> <td> <td> <td><input type="submit" name="cmdSubmit" value="login"></td> </tr> </table> </form> </body> </html> I am facing a problem in my login.asp. The problem is when I enter an invalid login ID and password it works. However when I add a valid login ID and password it takes me to a page not found of my browser. How do I solve the problem?. I have inserted 1 record in my tbl_users table to test my code. INSERT INTO tbl_users VALUES (NEWID(),"mama","papa",GetDate()) Regards Eugene ----------------------------- This message is posted by http://asp.forumszone.com Tag: Having Web Page Refresh and go to end of page Tag: 312581
  - 3
    - Upload files. I need to I make an .asp page on our website where users could upload different files, like text, pdf or images. No .net environment. Could be it done with VBscript or have to use something else? Any examples or ready to use objects, any tips would be appreciated? I'm a little bit rusty but can catch up. Thanks, Michael Tag: Having Web Page Refresh and go to end of page Tag: 312574
  - 4
    - removin html tags from string - but leaving a few behind hi i have seen several examples (blogs in particular) http://www.lastkissed.com/?p=7#comments where placing html into a textarea seems to be stripped out on the other side. and yet retains some... for example the above - i placed a </table> into the comment and submitted - the <blockquote> came out as a block quote but the </table> seems to have dissappeared. is there a way i can do a similar box - ie so that if someone puts html into it - it is stripped out? thanks for help Diablo Tag: Having Web Page Refresh and go to end of page Tag: 312565
  - 5
    - ASP LDAP Query Error I have an ASP page that retrieves user info. The page runs fine on X Pro IIS 5.1, however, when i try to run it from a server running W2 Server SP4 or W2K3, it breaks and i get the following error: Error Type: Microsoft VBScript runtime (0x800A000D) Type mismatch Code ------------------- Set objRootDSE = GetObject("LDAP://RootDSE") strDNSDomain = objRootDSE.Get("defaultNamingContext") Set objNet = Server.CreateObject("WScript.Network") strUserName = UCase(objNet.UserName) ' Use ADO to search Active Directory. Set objCommand = Server.CreateObject("ADODB.Command") Set objConnection = Server.CreateObject("ADODB.Connection") objConnection.Provider = "ADsDSOObject" objConnection.Open "Active Directory Provider" objCommand.ActiveConnection = objConnection strBase = "LDAP://" & strDNSDomain & ""'<--Had to remove greater/less thans infront of LDAP and between "" because the forum didn't like it ' Filter on all user objects. strFilter = "(& (objectCategory=person)(objectClass=user)(sAMAccountName=" & strUserName & "))" ' Specify attribute values to retrieve. strAttributes = " distinguishedName" strQuery = strBase & ";" & strFilter & ";" & strAttributes & ";subtree" objCommand.CommandText = strQuery objCommand.Properties("Page Size") = 100 objCommand.Properties("Timeout") = 30 objCommand.Properties("Cache Results") = False Set objRecordSet = objCommand.Execute strDN = objRecordSet.Fields("distinguishedName").value Set objUser = GetObject("LDAP://" & strDN)'<--Errors here Response.Write "-- sAMAccountName: " & objUser.sAMAccountName Response.Write "-- Department: " & objUser.Department Response.Write "-- TelephoneNumber: " & objuser.telephoneNumber Set objRootDSE = Nothing Set objNet = Nothing Set objCommand = Nothing objConnection.Close Set objConnection = Nothing Set objRecordSet = Nothing Set objUser = Nothing ------------------- I have tried changing the following code: Code ------------------- From This: strDN = objRecordSet.Fields("distinguishedName").value To this: strDNTemp = objRecordSet.Fields("distinguishedName").value For Each strValue in strDNTemp strDN = strDN & strValue Next ------------------- Which works but then some fields are not returned i.e Department sAMAccount. I'm pretty sure it has to do with IIS but not sure where or how to fi it Any help would be appreciate - sunmieste ----------------------------------------------------------------------- Posted via http://www.codecomments.co ----------------------------------------------------------------------- Tag: Having Web Page Refresh and go to end of page Tag: 312562
  - 6
    - response.redirect problem I am using response.redirec to do the url redirection on my login page. The login page is under http://myURL/test/dir1/login.aspx, when the user login successfully, the login page redirects the user to the default.apsx page, which is under http://myURL/test/dir1/default.aspx. When I enter the IP address of myURL in the address bar, the redirection works perfectly fine, but if I enter myURL (which is hostname) in the address bar, the redirection in login page doesn't work anymore, the login page just gets refreshed. Does anyone has ideas how to solve this problem? Thanks a lot! Tag: Having Web Page Refresh and go to end of page Tag: 312553
  - 7
    - Working with dates... I'm using ASP to access an MS Access database. One issue that I'm constantly having problems with is Date/Time records. What I'd like to know is how does one work with date variables in ASP? My current problem is this... I have two variables, Mnth and Yr, which each hold an integer. Mnth holds between 1 and 12 ( a month ), and Yr holds the desired year (2005 for example). With only these two variables how can I generate a full date to use in an SQL query, such as: SELECT * From Table WHERE DateAdded>??<date value here>?? Tag: Having Web Page Refresh and go to end of page Tag: 312552
  - 8
    - checking for nothing entered in an asp form post Hi, How do you check for a empty value from a form? lservice = request.form("pservice") if not isnull(lservice) then <== this doesnt work. tried "" empty string and it still didnt work. ..... I'm having problems with the fact the user didnt enter anything. The field is optional. thanks, Will Tag: Having Web Page Refresh and go to end of page Tag: 312542
  - 9
    - Detect image size automatically in asp? I am writing a little script for an online album. The pictures' size varies a lot. I have a maxim size for every displayed picture because the layout of the page. So I want to resize the larger one to that size while leave the smaller one in their original size. Is there any script or code that can do this automatically? Thanks. -- Guojun Zhu gzhu@capitalhunter.com Capital Hunter, Inc. 751 Seventh Avenue, Suite O San Diego, CA 92101 619-236-9998 http://www.capitalhunter.com Tag: Having Web Page Refresh and go to end of page Tag: 312535
  - 10
    - JScript runtime error '800a138f' 'undefined' is null or not an obj I am running some off-the-shelf software that is written in ASP, which uses JScript to generate dynamic content within HTML forms. There are several ASP pages which are partially rendering to IE, but stop midway through with an error embeded in the page: "Microsoft JScript runtime error '800a138f' 'undefined' is null or not an object". The software package has a large install base with no other customer having this problem. I also have a second identical install on another server pointing to the same SQL database, and it doesn't exibit this problem either. Our own developers were able to work around the problem by making a small change to the code. The original code: <%=String(rs("Question")).length > 100? RemoveHTML(String(rs("Section"))).substr(0, 100) + "...": RemoveHTML(String(rs("Section")))%> Changed to: <%if (String(rs("Section")).length > 100) {Response.Write(String(rs("Section")).substr(0, 100) + "...") ;} else { Response.Write(rs("Section")); }%> The latter bit of code had to have two changes.. one to change the odd conditional statement to a more traditional if-statement, and second to avoid calling the RemoveHTML function, both which cause an error. function RemoveHTML(Expresion) on error resume next Dim RegEx Set RegEx = New RegExp RegEx.Pattern = "<[^>]*>" RegEx.Global = True Expresion = Replace(Expresion, "<br>", chr(10)) RemoveHTML = RegEx.Replace(Expresion, "") end function I've searched Microsoft's KB and Googled the error, and so far nothing useful has come up. Any ideas on what the cause is or how I can further troubleshoot? !!! Again, there is nothing wrong with the code.. it works on hundreds of other servers. There is something particular about my server that is causing this !!! Thanks in advance for any help anyone can offer! -- Dan Roberts, MCSE Systems Administrator Administrative Computing Services Kent State University Tag: Having Web Page Refresh and go to end of page Tag: 312534
  - 11
    - using meta tag and values posting page Hi, I'm trying to redirect the page while trying to pass some values to the next asp page. I'm not getting any values when I do this. Is this possible? I'm using the code below to redirect <META HTTP-EQUIV="Refresh" CONTENT="5; URL=supportservicelist.asp"> but when I look at the value of my variable PEN, there is nothing there. Yet I see on the current page the value is set response.write "<input type='hidden' name='pen' value ='" & lpen & "'>" thanks, Will Tag: Having Web Page Refresh and go to end of page Tag: 312530
  - 12
    - Determine Header Size hello all, Our central site has set up a VPN for us so we can access our network from home. Unfortunately, our Intranet won't come up. We've been told it is because the Intrusion Prevention System on the firewall is blocking it because the headers are too large. How can I determine how large the headers are? Would it be the total of all of the Request.ServerVariables? They tell me the default settings are 2000 bytes. Which seems awfully small to me. Thanks for any suggestions Tom B Tag: Having Web Page Refresh and go to end of page Tag: 312526
  - 13
    - Word.Application Dictionary? I'm using Server.CreateObject(Word.Application) to execute a spell check. Works fine, but we'd like to add a few of our more common company-isms to the dictionary, as they're getting flagged every time. I tried opening Word on the Server and adding one to the dictionary. I also tried it locally (which didn't make any sense, but still). The word still shows up as an error. Is there a way to customize this dictionary? Thanks, James Tag: Having Web Page Refresh and go to end of page Tag: 312522
  - 14
    - How to address one item in a collection object I am using VBscript in ASP. I am trying to address one file in a folder object. Below is the relevant code Set MyDirectory=Server.CreateObject("Scripting.FileSystemObject") ' MyFolders is contents of folder containing photos.asp Set MyFolders=MyDirectory.GetFolder(Server.MapPath("./")) Then I try to access the first file in the "MyFolder" I tried 1. Set filefound=MyFiles.files.item(1) 2. Set filefound=MyFiles.files(1) 3. Set filefound=MyFiles.files[1] Neither work. There is compilation error. But For each filefound in MyFiles.files works "myfiles.files" is a collection object of file objects, isn't it? Any experts help me please. Thanks. Tag: Having Web Page Refresh and go to end of page Tag: 312521
  - 15
    - Capture text messaging Hi all, I have a client that wants to allow users to signup for a contest using text messaging. I have no idea where to start with this, so hoping someone here has some experience with this. Any info / suggestions / starting points would be very much appreciated. Tag: Having Web Page Refresh and go to end of page Tag: 312520
  - 16
    - Losing Session? Session("UserName") is set when someone logs in. Get to a page that displays a record where you can type a comment. The form has an onSubmit event that calls a javascript function. That function sets a javascript variable called beenChecked = true and then calls a PopUp window to spell check the comment. When it's done spell checking, it calls the submit method on the form tag of the opening window. The method evaluates that it's "beenChecked" and submits. For some reason, I'm losing all of my session variables using this approach. Within the pop-up window and the original page, the session variable is never altered explicitly. The page posts to the next page, which evaluates the Session("UserName") variable, and it's blank. What's causing me to lose my Session variables? Thanks, James Tag: Having Web Page Refresh and go to end of page Tag: 312518
  - 17
    - CDO.message and UTF8 Help! Trying to send mail with ASp and CDO, but my local (croatian) characters are completely left out from the message! It's not like some strange chars are shown, but nothing. like they are ignored. The ASP page has <%@language="vbscript" codepage="65001"%>. What parameters of the CDO object do I have to set to get my mails show all the chars of subject and body in unicode? *** thnx *** Tag: Having Web Page Refresh and go to end of page Tag: 312517
  - 18
    - CDO mail failure on Exchange Server I use the method below to send emails from an asp page that's part of a web application:  <% On error Resume Next Dim cdoConfig, cdoMessage Set cdoConfig = Server.CreateObject("CDO.Configuration") With cdoConfig.Fields .Item(cdoSendUsingMethod) = 2 .Item(cdoSMTPServer) = "MailServer.Name.com" .Item(cdoSMTPServerPort) = 25 .Update End With Set cdoMessage = Server.CreateObject("CDO.Message") With cdoMessage Set .Configuration = cdoConfig .From = "Me<mailsender@mymail.com>" .To = "You<mailrecipient@somemail.com>" .Subject = "Surprise!" .TextBody = "Helloooo..." .Send If err.number Then Response.Write("Houston! We have a problem...") End If End With Set cdoMessage = Nothing Set cdoConfig = Nothing %> On the production server (Windows 2003 Server) everything works fine and I don't have a problem sending the mails from the application. However, I recently upgraded my development box to Windows XP Pro SP2 and the code fails with with the following error: CDO.Message.1 (0x80040213) The transport failed to connect to the server. The from and to email addresses that I'm using are valid and part of my domain (not a Hotmail or other freemail address). The SMTP service is up and running on the dev box. I also tried replacing the mail server name with the IP address of the mail server, but again it's failing. We are running Exchange Server for email and if I change the cdoSendUsingMethod to 3 (for cdoSendUsingExchange) the mail is sent correctly without errors. Will I not able to use the cdoSendUsingPort method to send the email if I'm on Exchange? Am I forced to use cdoSendUsingExchange? Thanks Tag: Having Web Page Refresh and go to end of page Tag: 312516
  - 19
    - Redirecting users to different site I am moving a web to a new address. The old address will be shut down in several weeks. Is there a way to automatically redirect users who come to the old site in these last few weeks to the appropriate page on the new site? Tag: Having Web Page Refresh and go to end of page Tag: 312499
  - 20
    - Cannot get cursor into field in form This is driving me crazy. The markup is valid, the CSS is valid, I'm serving it right, and I still cannot figure out why I cannot get the cursor into the form element. I have tried on Opera, Firefox and IE - all the same. The url is question is http://www.american-loyalty-card.com/beta/ and the form in question is at the upper left hand corner. The legend is Select Location. I don't think this is a serverside issue, as it is not throwing any serverside errors, but I thought I would throw mspiag in case anyone there can see something obvious. Thanks in advance to anyone who can find out why this is occuring, and maybe how fix it. ASP Classic stuff: <% action = request.servervariables("script_name") if request.servervariables("query_string") <> "" then action = action & "?" & replace(request.querystring,"&","&") end if%> <div id="getcity"> <p class="skipnav"><a href="#content">Skip to Content</a></p> <form action="<%=action%>" method="post" id="getcityform"> <fieldset><legend>Select Location</legend> <table summary="Select Your Location"> <thead> <tr> <th><label for="mycity" id="mycity1">City/Zip: </label></th><th><label for="mystate" id="mystate1">State: </label></th> </tr> </thead> <tbody> <tr> <td><input type="text" name="mycity" id="mycity" value="<%=mycity%>" size="10" /></td><td> <select name="mystate" id="mystate" style="width:4em"> <option value="">Choose</option><% Set locationrs = Server.CreateObject("ADODB.Recordset") getcitysql = "SELECT id, state_abbr FROM state ORDER BY id " 'Response.Write "<br />getcitysql: " & getcitysql locationrs.Open getcitysql, oConn while not locationrs.EOF getstateid = trim(locationrs("id")) getstate_abbr = trim(locationrs("state_abbr")) %> <option value="<%=getstateid%>" <%if getstateid = 6 and mystate= "" then%>selected="selected" <% elseif getstateid = mystate then%>selected="selected"<%end if%>><%=getstate_abbr%></option> <%locationrs.MoveNext wend locationrs.Close set locationrs = nothing %> </select> </td> </tr> </tbody> </table> <label for="remember" id="remember1"><input type="checkbox" name="remember" id="remember" value="y" <%if remember="y" or remember="" then%>checked="checked"<%end if%> /></label>Remember<br /> <input type="submit" value="Submit" name="submitcity" /> </fieldset> </form> -- Adrienne Boswell http://www.cavalcade-of-coding.info Please respond to the group so others can share Tag: Having Web Page Refresh and go to end of page Tag: 312495
  - 21
    - Cannot get cursor into field in form This is driving me crazy. The markup is valid, the CSS is valid, I'm serving it right, and I still cannot figure out why I cannot get the cursor into the form element. I have tried on Opera, Firefox and IE - all the same. The url is question is http://www.american-loyalty-card.com/beta/ and the form in question is at the upper left hand corner. The legend is Select Location. I don't think this is a serverside issue, as it is not throwing any serverside errors, but I thought I would throw mspiag in case anyone there can see something obvious. Thanks in advance to anyone who can find out why this is occuring, and maybe how fix it. ASP Classic stuff: <% action = request.servervariables("script_name") if request.servervariables("query_string") <> "" then action = action & "?" & replace(request.querystring,"&","&") end if%> <div id="getcity"> <p class="skipnav"><a href="#content">Skip to Content</a></p> <form action="<%=action%>" method="post" id="getcityform"> <fieldset><legend>Select Location</legend> <table summary="Select Your Location"> <thead> <tr> <th><label for="mycity" id="mycity1">City/Zip: </label></th><th><label for="mystate" id="mystate1">State: </label></th> </tr> </thead> <tbody> <tr> <td><input type="text" name="mycity" id="mycity" value="<%=mycity%>" size="10" /></td><td> <select name="mystate" id="mystate" style="width:4em"> <option value="">Choose</option><% Set locationrs = Server.CreateObject("ADODB.Recordset") getcitysql = "SELECT id, state_abbr FROM state ORDER BY id " 'Response.Write "<br />getcitysql: " & getcitysql locationrs.Open getcitysql, oConn while not locationrs.EOF getstateid = trim(locationrs("id")) getstate_abbr = trim(locationrs("state_abbr")) %> <option value="<%=getstateid%>" <%if getstateid = 6 and mystate= "" then%>selected="selected" <% elseif getstateid = mystate then%>selected="selected"<%end if%>><%=getstate_abbr%></option> <%locationrs.MoveNext wend locationrs.Close set locationrs = nothing %> </select> </td> </tr> </tbody> </table> <label for="remember" id="remember1"><input type="checkbox" name="remember" id="remember" value="y" <%if remember="y" or remember="" then%>checked="checked"<%end if%> /></label>Remember<br /> <input type="submit" value="Submit" name="submitcity" /> </fieldset> </form> -- Adrienne Boswell http://www.cavalcade-of-coding.info Please respond to the group so others can share Tag: Having Web Page Refresh and go to end of page Tag: 312494
  - 22
    - error '80040e07' wrong syntax in Date expression Using Access 2000 Windows Server 2003 The following code worked fine until we moved hosting companies StartDate = Request.Form("StartDateMonth") & "/" & Request.Form ("StartDateDay") & "/" & Request.Form("StartDateYear") EndDate = Request.Form("EndDateMonth") & "/" & Request.Form ("EndDateDay") & "/" & Request.Form("EndDateYear") sql = "SELECT DISTINCT tblSessions.VisitorID FROM tblSessions WHERE tblSessions.DateTimeEntrance Between #" & StartDate & " 0:0:1# And #" & EndDate & " 23:59:59#;" set RSVisitors = cn.execute("sql") Response.write sql gives: SELECT DISTINCT tblSessions.VisitorID FROM tblSessions WHERE tblSessions.DateTimeEntrance Between #06/01/2005 0:0:1# And #06/31/2005 23:59:59#; Now the same code gives an error message: Microsoft JET Database Engine error '80040e07' Syntax error in date in query expression 'tblSessions.DateTimeEntrance Between #06/01/2005 0:0:1# And #06/31/2005 23:59:59#'. /stats/stats_detail.asp, line 33 The old hosting company was Win2003, as is the new company. I've tried changing the order of the date parts (YYYY/MM/DD, MM/DD/YYYY, YYYY/DD/MM) but nonoe of the formats make a difference. Any ideas? TIA Tag: Having Web Page Refresh and go to end of page Tag: 312493
  - 23
    - Code Doesn't Listen...Avoids Sub & Inserts Data Twice??? I have the following code that populates 3 independent drop-down boxes with data from arrays. From there the user can select a value from a drop-down list, or input data into a text box. The user then submits this to be inserted into the database. Currently I've only programmed to have the first input box/drop-down valid. The problem I am having is that, even though I've inserted my SQL into a sub procedure, the code is still run prior to me making a call to the sub, therefore allowing the data to be inserted twice into the database. I know the obvious thing would be to add "no duplicates" on the db table, but I really would like to know who/why the Insert gets executed twice. I apologize for the amount of code. Thanks! <html> <head> <script language="JavaScript"> alert("hello - head1") </script> <meta name="GENERATOR" content="Microsoft FrontPage 4.0"> <title>EITA SA, Env, Plat Update</title> <script language="JavaScript"> alert("hello - head2") </script> </head> <body topmargin=0 leftmargin=0> <script language="JavaScript"> alert("hello - body1") </script> <script language="JavaScript"> alert("hello - body2") </script> <% dim compMode dim objConn, objRS, duplicate dim test dim executeDisplay, executeUpdate dim sSQL, SAarr, Env_arr, PF_arr dim i, nRows, bRows duplicate = false dim SAaarr(100,100) '''''''''''''''''''''''''''''''''SA''''''''''''''''''''''''''''''''''''' '-------------------------------------------' 'Start Main '-------------------------------------------' strMode = Request.QueryString("compMode") if not isEmpty(Request.QueryString("compMode")) then strMode = Request.QueryString("compMode") else strMode = "new" end if %> <script language="VBScript"> msgTxt = "strMode: " & "<%=strMode%>" msgbox msgTxt </script> <% select case strMode case "new" getFormData() displayForm() case "save" updateTables() %> <script language="VBScript"> msgTxt = "Tables updated. Stopping execution." msgbox msgTxt </script> <% displayForm() case else %> <script language="VBScript"> msgTxt = "strMode NOT set: *" & "<%=strMode%>" & "*" msgbox msgTxt </script> <% end select '---------------------------------------------' 'End Main '---------------------------------------------' sub getFormData() sSQL = "Select service_area_id, service_area_title From d_service_area order by d_service_area.service_area_title;" 'msg="Error: " msg = "drb-a" Call ExecSQL(sSQL, msg, false) 'Set objRS1 = dbConn.Execute(sSQL1) SAarr = objRS.GetRows nColumn = ubound(SAarr) ' lenght of the column nRows = ubound(SAarr, 2) objRS.Close Set objRS = Nothing 'insert space in the first element For i = 0 to nRows SAaarr(0,i+1) = SAarr(0,i) next For i = 0 to nRows SAaarr(1,i+1) = SAarr(1,i) next '''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''En'''''''''''''''''''''''''''''''''''''''''' sSQL = "Select environment_id, environment_key From d_environment order by d_environment.environment_key;" 'msg="Error: " msg = "drb-b" Call ExecSQL(sSQL, msg, false) Env_arr = objRS.GetRows bColumn = ubound(Env_arr) bRows = ubound(Env_arr, 2) objRS.Close Set objRS = Nothing '''''''''''''''''''''''''''''PL''''''''''''''''''''''''''''''''''''''''''' sSQL = "Select platform_function_id, platform_function From d_platform_function order by d_platform_function.platform_function;" 'msg="Error: " msg = "drb-c" Call ExecSQL(sSQL, msg, false) PF_arr = objRS.GetRows cColumn = ubound(PF_arr) cRows = ubound(PF_arr, 2) objRS.Close Set objRS = Nothing 'Response.Write ("strMode = " & strMode) end sub sub updateTables() 'objConn.close dim msgTxt 'sSQL = "INSERT INTO d_service_area(service_area_title) VALUES ('" & Request.Form("SA_InputBox") & "');" %> <script language="VBScript"> msgTxt = "Getting ready to execute INSERT" msgbox msgTxt </script> <% dim serviceAreaTitle serviceAreaTitle = Request.Form("SA_InputBox") sSQL = "" sSQL = "INSERT INTO d_service_area ( service_area, service_area_title, sa_logical_link, sa_physical_link ) " & _ "VALUES ('drbSvcArea', '" & serviceAreaTitle & "', 'noLogLink', 'noPhysLink');" %> <script language="VBScript"> msgTxt = "sSQL= " & "<%=sSQL%>" msgbox msgTxt </script> <script language="VBScript"> msgTxt = "Service Area input value: " & "<%=serviceAreaTitle%>" msgTxt = msgTxt & vbCrLf & "sSQL= " & "<%=sSQL%>" msgbox msgTxt </script> <% '?????????????????????????????????????????????????????????????????????????????????????????????????? ' drbTest '?????????????????????????????????????????????????????????????????????????????????????????????????? 'dim rsSA, dbConn On Error Resume Next %> <script language="VBScript"> msgbox "before ExecSQL" </script> <% msg = "drb-d" Call ExecSQL(sSQL,msg,true) %> <script language="VBScript"> msgTxt = "sSQL= " & "<%=sSQL%>" msgTxt = msgTxt & "after ExecSQL" msgbox msgTxt </script> <% '?????????????????????????????????????????????????????????????????????????????????????????????????? ' drbTest '?????????????????????????????????????????????????????????????????????????????????????????????????? 'set rsSA = dbConn.Execute(sSQL) if Err.number <> 0 then Response.write "*****************************************************************<br>" Response.write " APPLICATION ERROR: " & Err.number & "<br>" Response.write " Error description: [" & err.description & "]<br>" Response.write "*****************************************************************<br>" else Response.write " INSERT Successful. Error number: " & Err.number end If 'Response.Write "ENDING AFTER SQL EXECUTION" 'reponse.end 'response.write "strSA:" & strSA 'Response.Write "ran SQL" if duplicate then %> <script language="javascript"> temp = "Duplicate Record1. "; temp = temp + "This item already exists. "; temp = temp + "Please review your values. "; alert(temp); history.go(-1) </script> <% objConn.close set objRS = nothing end if end sub dim ErrsList, errLoop '------------------------------------------------------------------ 'Pre: datastore.asp need to be included to the same file as this one ' : sql statement for sql variable ' : error message for msg variable ' : True/False value for CloseInd variable 'Pro: sql statement executed or Erro msg pop up '------------------------------------------------------------------- Function ExecSQL(sql,msg,closeInd) ' The ind determines whether to close the connection or not. set objConn = nothing set objConn = server.createobject("ADODB.Connection") objConn.Open strConnect 'Response.Write("sSQL = " & sSQL) On Error Resume Next set objRS = objConn.Execute(sql) 'Response.Write "Error" & Err.number & "<br>" 'Response.Write "Error" & Err.description & "<br>" 'Response.Write "Error" & Err.source & "<br>" 'Response.Write "Error" & Err.line & "<br>" %> <script language="VBscript"> 'msgbox ("from execSQL: msg = " & "<%=msg%>" & vbCrLf & "SQL = " & "<%=sql%>") </script> <% 'Response.Write "VB:" & vbobjecterror & "<br>" if Err.number <> 0 then if (err.number - vbobjecterror) = 3604 then duplicate = true else %> <script language="javascript"> temp = "<%=msg%>"; temp = temp + "Database Error (" + <%=err.number%> + "): " + "<%=CSTR(err.description)%>" + "."; temp = temp + " " + "<%=sSQL%>"; alert(temp); // history.go(-1) </script> <% end if end if if closeInd = true then objConn.close set objRS = nothing end if End Function %> <% sub displayForm() %> <center><span class="hdrAr12">EITA SA, Env, Plat Update</span></center><br> <Form action="SAEnvPlatUpd.asp?compMode=save" Method="post" name="Form_1"> <table name="tbl1" id="tbl1" border=0 align="center" width="98%"> <tr>  <th> <font COLOR='navy'><b>Service Area:</b></font> <BR> <input type="text" name="SA_InputBox" Size="35" value=""> <BR> <select name="SA_DropDown" onChange="displaySABox()"> <%for i = 0 to nRows %> <option value="<%=(SAaarr(0,i))%>"><%=(SAaarr(1,i))%></option> <%next%> </select> <input type="hidden" value="" name="SA_hidden"> </th>  <th> <font COLOR='navy'><b>Environment:</b></font> <BR> <input type="text" name="En_InputBox" Size="32.5" value=""> <BR> <select name="En_DropDown" onClick="displayEnBox()"> <%for i = 0 to bRows%> <option value="<%=(Env_arr(0,i))%>"><%=(Env_arr(1,i))%></option> <%next%> </select> <input type="hidden" value="" name="En_hidden"> </th>  <th> <font COLOR='navy'><b>Platform Area:</b></font> <BR> <input Name="PF_InputBox" Size="39" value=""> <BR> <select name="PF_DropDown" onChange="displayPFBox()"> <%for i = 0 to cRows %> <option value="<%=(PF_arr(0,i))%>"><%=(PF_arr(1,i))%> </option> <%next%> </select> <input type="hidden" value="" name="PF_hidden"> </th> </tr> <tr> <th> </th> <th> <br>  <center>  <INPUT type="submit" name="SaveButton" Value="save/exit" onClick="javascript:Form_1.submit()" > <INPUT type="button" name="btnCancel" value="Return" onclick="exitPage()" accesskey="r"></input>  </center> </th> </tr>  </table> </Form> <% end sub %> <script language="JavaScript"> function displaySABox() { var sel = document.Form_1.SA_DropDown; var val = sel.options[sel.selectedIndex].value; var txt = sel.options[sel.selectedIndex].text; document.Form_1.SA_hidden.value = val; document.Form_1.SA_InputBox.value = txt; } function displayEnBox() { var sel = document.Form_1.En_DropDown; var val = sel.options[sel.selectedIndex].value; var txt = sel.options[sel.selectedIndex].text; document.Form_1.En_hidden.value = val; document.Form_1.En_InputBox.value = txt; } function displayPFBox() { var sel = document.Form_1.PF_DropDown; var val = sel.options[sel.selectedIndex].value; var txt = sel.options[sel.selectedIndex].text; document.Form_1.PF_hidden.value = val; document.Form_1.PF_InputBox.value = txt; } function exitPage() { document.Form_1.action = "a_eita1.asp"; document.Form_1.submit(); } </script> </body> </html> Tag: Having Web Page Refresh and go to end of page Tag: 312492
  - 24
    - how handle QueryString object Hello all, user have in browser address bar this URL: http://localhost/store/CDfilter.asp?catid=3&lngid=3&osid=7&ordertype=desc&orderby=release_date&PerPage=50&PageNum=2 I have on page filter form, and also users should change the order. In this case it is ordered by release_date desc, but how best handle and change this url ? When I print this page to user, I want have on link "sort by release" have this url: http://localhost/store/CDfilter.asp?catid=3&lngid=3&osid=7&ordertype=asc&orderby=release_date&PerPage=50&PageNum=2 on "Category" sort by catid and so on. I'm looking for function Set.QueryString or so. Now I am doing it - I first parse all arguments, and I'm making the "new URL" but I don't think it is the best method. Thanks for any help. Tag: Having Web Page Refresh and go to end of page Tag: 312480
  - 25
    - CDO Email Help I have a windows 2000 sv, with exchange 2000 running with IIS as well. I am tring to send an email with an attachment with CDO. Set cdoConfig = CreateObject("CDO.Configuration") with cdoConfig.Fields .Item(sch & "sendusing") = 2 ' cdoSendUsingPort .Item(sch & "smtpserver") = "spiternet.com" .update End With Set cdoMessage = CreateObject("CDO.Message") With cdoMessage Set .Configuration = cdoConfig .From = "andrewm@spiternet.com" .To = "nokia_1_1999@yahoo.com" .Subject = "Sample CDO Message" .TextBody = "This is a test for CDO.message" .AddAttachment "D:\SpiterNetSolutions\pams\Key_Exchange\_83688k" .Send End With Set cdoMessage = Nothing Set cdoConfig = Nothing and I get the error: "8004020f" /pams/Email_File.asp, line 103 I don't know if I need to use a USER NAME and PASSWORD to use my exchange server, or what the problem is. can anybody help. P.S. this is going sound funny.. any way I have some JS script that I am running, I have have an if statment that I need help with.. when I run the if statment I need help with the "and" part. I need two thing to run true before the statment witll run. IF 1 = true and 3 = true Then I don't know what to use for the "and" part. If any body can help? Tag: Having Web Page Refresh and go to end of page Tag: 312476

I am trying to use the following to get a web page to auto refresh every 3
secs and go to the end of the web page. Refresh works but it will not jump
to the name anchor. Any help?

<HTML>
<HEAD>
<META http-equiv="REFRESH" content="3;'what.htm#TheEnd'">
</HEAD>
<BODY bgcolor="#ffffff" text="#000000">
<CENTER>
<TABLE width="600">
<TR>
<TD vAlign=top align=left>
Tons o content
</TD>
</TR>
</TABLE>
</CENTER>
<A name="TheEnd">You Are At The End</A>
</BODY>
</HTML>

Top

Re: Having Web Page Refresh and go to end of page by Aaron

Aaron
Thu Jul 07 09:45:52 CDT 2005

Your syntax is all botched up.
<META http-equiv="REFRESH" content="3;url=what.htm#TheEnd">

> <META http-equiv="REFRESH" content="3;'what.htm#TheEnd'">

Top

Re: Having Web Page Refresh and go to end of page by miTch

miTch
Thu Jul 07 10:01:08 CDT 2005

Thanks for you help. This does refresh the page one time. After that it
stops. I am looking for a continual refresh. Any help?

Kevin

"Aaron Bertrand [SQL Server MVP]" <ten.xoc@dnartreb.noraa> wrote in message
news:%23CgSGKwgFHA.3000@tk2msftngp13.phx.gbl...
> Your syntax is all botched up.
> <META http-equiv="REFRESH" content="3;url=what.htm#TheEnd">
>
>
> > <META http-equiv="REFRESH" content="3;'what.htm#TheEnd'">
>
>

Top

Re: Having Web Page Refresh and go to end of page by Aaron

Aaron
Thu Jul 07 10:05:16 CDT 2005

Sure, use JavaScript, in which case you can do it all without worrying about
the <meta> tag.

<script>
var a = window.setTimeout('window.location.reload();',3000);
window.location.hash = '#TheEnd';
</script>

> Thanks for you help. This does refresh the page one time. After that it
> stops. I am looking for a continual refresh. Any help?

Top

Re: Having Web Page Refresh and go to end of page by miTch

miTch
Thu Jul 07 10:08:15 CDT 2005

Ah, didn't think of that. Thanks again for the help!

"Aaron Bertrand [SQL Server MVP]" <ten.xoc@dnartreb.noraa> wrote in message
news:OdaL8UwgFHA.1148@TK2MSFTNGP12.phx.gbl...
> Sure, use JavaScript, in which case you can do it all without worrying
about
> the <meta> tag.
>
> <script>
> var a = window.setTimeout('window.location.reload();',3000);
> window.location.hash = '#TheEnd';
> </script>
>

Top