asp error

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
    - 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: asp error Tag: 325378
  - 2
    - 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: asp error Tag: 325347
  - 3
    - 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: asp error Tag: 325338
  - 4
    - 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: asp error Tag: 325335
  - 5
    - 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: asp error Tag: 325334
  - 6
    - 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: asp error Tag: 325307
  - 7
    - 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: asp error Tag: 325305
  - 8
    - 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: asp error Tag: 325301
  - 9
    - 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: asp error Tag: 325300
  - 10
    - 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: asp error Tag: 325296
  - 11
    - ppt COM Component to use in page asp Anyone know COM Component for full control file ppt? Tag: asp error Tag: 325294
  - 12
    - 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: asp error Tag: 325289
  - 13
    - 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: asp error Tag: 325284
  - 14
    - 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: asp error Tag: 325283
  - 15
    - 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: asp error Tag: 325281
  - 16
    - 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: asp error Tag: 325272
  - 17
    - 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: asp error Tag: 325271
  - 18
    - 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: asp error Tag: 325262
  - 19
    - 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: asp error Tag: 325256
  - 20
    - 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: asp error Tag: 325255
  - 21
    - 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: asp error Tag: 325249
  - 22
    - 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: asp error Tag: 325246
  - 23
    - 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: asp error Tag: 325245
  - 24
    - 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: asp error Tag: 325244
  - 25
    - 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: asp error Tag: 325243
- Next
  - 1
    - 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: asp error Tag: 325237
  - 2
    - 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: asp error Tag: 325236
  - 3
    - 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: asp error Tag: 325229
  - 4
    - 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: asp error Tag: 325228
  - 5
    - 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: asp error Tag: 325226
  - 6
    - shell.application Hello everyone, i have a little question: Does shell.application aplly/work with virtual directories or paths? thanks in advance, ember Tag: asp error Tag: 325221
  - 7
    - 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: asp error Tag: 325210
  - 8
    - 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: asp error Tag: 325206
  - 9
    - 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: asp error Tag: 325202
  - 10
    - 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: asp error Tag: 325198
  - 11
    - 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: asp error Tag: 325184
  - 12
    - 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: asp error Tag: 325183
  - 13
    - 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: asp error Tag: 325181
  - 14
    - 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: asp error Tag: 325173
  - 15
    - 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: asp error Tag: 325167
  - 16
    - 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: asp error Tag: 325161
  - 17
    - 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: asp error Tag: 325159
  - 18
    - 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: asp error Tag: 325158
  - 19
    - Read Email (please help) Dear Friends, I see there are lots of messages on this topic, but I have not been able to find a simple answer to the question: Can I read mail (from an inbox) on an exchnage server with ASP? If so, how? I hear all this about CDO, CDOSYS, etc, but they all seem to be able to only send mail. I just need to read mail from exchange server. Can this be done? -SJ Tag: asp error Tag: 325151
  - 20
    - CDOSYS email - create hyperlink in body? Hello, How can you create a hyperlink in the HTML body of CDOsys email? Line 7 is a link for yahoo.com, but the asp page does not work. Set objMessage = CreateObject("CDO.Message") objMessage.Subject ="Test Page - File upload" objMessage.Sender = "" & Request.Form("email1") & "" objMessage.To ="jason@yahoo.com" objMessage.HTMLBody = "Email: " & Request.Form("email1") & vbCrLf & _ "Confirmation #: " & Request.Form("ConfirmID") & vbCrLf & _ "<a href="http://yahoo.com.com/">yahoo</a>" & vbCrLf & _ "FileName: " & Request.Form("file1") & vbCrLf & _ "Name: " & Request.Form("Name") & vbCrLf Thanks, Jason Tag: asp error Tag: 325145
  - 21
    - ASP form not working Hello, I have this ecom page that i am making where customers can select to choose additional licenses before they purchase. I have that part working with javascript. Problem is that when the selection is made and you hit the add but it isn't sending to the right pages (and i think i need to do it in another statemen instead of a if..then, since there will be at least 16 conditions here. <% Response.Expires = -1000 Response.Buffer = True If Request.Form("purchase") ="true" Then BuyCrossSale Else CrossSale End If Sub BuyCrossSale Dim prod2, prod3, one, two, three, tons one = "1" two= "2" three = "3" tons = "99" prod2 = Request.Form("prod2") prod3 = Request.Form("prod3") If Request.Form("licenses") = one AND prod2 = "on" AND prod3 = "on" Then Response.Redirect "http://www.msn.com" Else If Request.Form("licenses") = one AND prod3 = "on" Then Response.Redirect "http://www.dogpile.com" Else If Request.Form("licenses") = one AND prod2 = "on" Then Response.Redirect "http://www.google.com" Else If Request.Form("licenses") = one Then Response.Redirect "http://www.google.com" Else Response.Redirect "http://ps2.ign.com" CrossSale End If End If End If End If End Sub %> <script language="JavaScript" type="text/JavaScript">  </script> </head> <body><% Sub CrossSale %> <table width="750" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <th scope="col"> </th> </tr> <tr> <td><table width="750" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#000000" class="bground"> <tr> <th><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <th> <form method="post" action="work.asp" target="_top" name="frm" id="frm"> <input type="hidden" name="purchase" value="true"> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <th width="243" valign="top" align="center"> <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td><table width="95%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td align="center" class="product">Your Current Order:</td> </tr> <tr> <td><table width="95%" border="2" align="center" cellpadding="1" cellspacing="2" bgcolor="#003364" class="para">  <tr> <td width="113" align="left" class="paraboldwhite" id="product_name">MAIN</td> <td width="104" align="right" class="paraboldwhite" id="product_price">19.99 <span class="paraboldwhite2">(<s>39.99</s>)</span></td> </tr> <tr id="row_ap"> <td align="left" class="paraboldwhite">PRODUCT 2 </td> <td align="right" class="paraboldwhite"><b>9.99 <span class="paraboldwhite2">(<s>19.99</s>)</span></td> </tr> <tr id="row_aa"> <td align="left" class="paraboldwhite">PRODUCT 3 </td> <td align="right" class="paraboldwhite">6.99 <span class="paraboldwhite2">(<s>9.99</s>)</span></td> </tr> <tr> <td style="padding:0px;" colspan="2" valign="top"></td> </tr> <tr> <td align="left" class="paraboldred">Your Total:</td> <td align="right" class="paraboldred" id="total_purchase">$36.97</td> </tr> </table></td> </tr> </table></td> </tr> </table></th> <th width="457" valign="top"> <table width="100%" border="0" cellpadding="0" cellspacing="0" id="AutoNumber2" class="para"> <tr> <td colspan="2"><div align="center"> <select name="licenses" id="licenses" onChange="return UpdateTotal();"> <option value="1">Single Computer $19.99</option> <option value="2">2 Computers $29.99</option> <option value="3">3 Computers $39.99</option> <option value="99">Unlimited Computer License $69.99</option> </select> </div></td> </tr> <tr> <td colspan="2"> </td> </tr> <tr> <td colspan="2" align="left" class="para"><br> <input name="prod2" type="checkbox" id="prod2" onClick="return UpdateTotal();" value="ON" checked="CHECKED" /> Yes, Include PRODUCT 2<br> <input name="prod3" type="checkbox" id="prod3" onClick="return UpdateTotal();" value="ON" checked="CHECKED" /> Yes, Include PRODUCT 3</td> </tr> <tr> <td align="left" valign="top"> </td> <td align="left" class="para"><br> <br> <a value="Add" name="yes" type="submit"> <input type="submit" value="Add" name="yes"> </a></td> </tr> </table> </th> </tr> </table> </form> </th> </tr> <tr> <td valign="top" align="center" class="footer"> </td> </tr> </table></th> </tr> </table></td> </tr> <tr> <td> </td> </tr> </table><% End Sub %> Any help is greatly appreciated :) Tag: asp error Tag: 325143
  - 22
    - Issues with ' and %27 I am having difficulty fixing a problem with one of my apps. I know that using an apostrophe will error the SQL statement out, since it thinks that the apostrophe is the end of the statement. My issue is that I have replace code in my app that is *supposed* to replace the apostrophe with double quotes. This has been working fine, no complaints until a user tried to insert the word, does'nt (I know, it is spelled incorrectly, but ASP shouldn't care). The form data shows the line to be, StaffHowToSpendTimeWork=Name+does%27nt+like... Now my replace code looks like this, dim StaffHowtToSpendTimeWork StaffHowToSpendTimeWork = Request.Form("StaffHowToSpendTimeWork") StaffHowtToSpendTimeWork = replace(StaffHowToSpendTimeWork,"'","''") Is there a difference between ' and %27? How can I fix this? Thanks, Drew Tag: asp error Tag: 325137
  - 23
    - looking for zip code to state autocomplete I'm looking for a script that will auto complete the state field when someone enters their zipcode. I'm currently using http://javascript.internet.com/forms/zip-to-state.html but its kind of out dated and often returns null. Does anyone know of a more up-to-date version or one that is updated regularly? It doesn't have to be free. Tag: asp error Tag: 325135
  - 24
    - ASP/OO4O Problem: Unexpect result from package I'm working on my first Oracle DB, so bear with me... I have a couple of validation routines which are both returning the same result regardless of the inputs. One checks if a Serial No already exists, the other checks if a Part No is valid. Currently there are no Serial Nos in the system, so this check shouldnt fail. And I get a response to indicate that the Part No is valid regardless of whether it is or not. I strongly suspect that I'm made the same mistake in each case, but since I'm not getting any errors, I can't see where. In both cases, the PL/SQL procedures return a value of 1, whereas if I run the PL/SQL in SQL Developer with suitable values inserted I get the expected results >>>>>>>>>>>>>>>>>>>>>>>> ASP Snippets: >>>>>>>>>>>>>>>>>>>>>>>> Function SerialExists (sSerialNo, sPartNo) Dim iResult, bResult With oDB .Parameters.Add "sSerialNo", sSerialNo, ORAPARM_INPUT .Parameters ("sSerialNo").ServerType = ORATYPE_VARCHAR2 .Parameters.Add "sPartNo", sPartNo, ORAPARM_INPUT .Parameters ("sPartNo").ServerType = ORATYPE_VARCHAR2 .Parameters.Add "iResult", 0, ORAPARM_OUTPUT .Parameters ("iResult").ServerType = ORATYPE_NUMBER iResult = oDB.ExecuteSQL("Begin VALIDATION_PKG.SerialExists(:sSerialNo, :sPartNo, :iResult); end;") If iResult > 0 then bResult = true Else bResult = false response.Write bResult & "<BR>" SerialExists = bResult .Parameters.Remove "sSerialNo" .Parameters.Remove "sPartNo" .Parameters.Remove "iResult" End With End Function 'check that SerialNo/PartNo not used If SerialExists(sSerialNo, sPartNo) then iError = iError + 2 'check for valid partnos If Not IsValidPartNo(sPartNo) then iError = iError + 4 >>>>>>>>>>>>>>>>>>>>>> Package Specification: >>>>>>>>>>>>>>>>>>>>>> Tag: asp error Tag: 325130
  - 25
    - Problems with sending an encoded url Hello Gurus thankyou for your help in advance :)......heres my problem var vAppPath=3D(my file) xmlHttp =3D new ActiveXObject("Microsoft.XMLHTTP"); xmlHttp.open("POST",vAppPath,false); xmlHttp.setRequestHeader("Content-Type", "application/x-www-form-urlencoded"); xmlHttp.send("text=3D" + escape(document.getElementById("tledit").value)); were document.getElementById("tledit").value =3D asscc=E9cc=E8cc=C9cc d'abonncc=E0cc cc=C0cc ccbocc=EEccte now in my file.....i do try to read the text text =3D request("text") the text =3D asscccccccc d'abonncccc cccc ccboccccte the french characters are stripped out. I think its the escape functions thats doing this. is there a way to over come this? Tag: asp error Tag: 325123

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

----------------------------------------------------------------------------
---

Top

Re: asp error by Mike

Mike
Sat Sep 09 02:44:03 CDT 2006

Eco wrote:
> 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
>
> ----------------------------------------------------------------------------
> ---

You've probably either closed a recordset object or a connection object
then tried to do something with one of them. To be certain, we would
need to see the relevant lines leading up to and including line 68.

--
Mike Brind

Top