Server.CreateObject("Access.Application")

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
    - ASP - Sort By a Calculation?? Hello, I have an asp page that is a table. In the table the end column is a calculation of other values, for example: <%=(RS1.Fields.Item("Won").Value)+(RS1.Fields.Item("Drawn").Value)+(RS1.Fields.Item("Lost").Value)%> To be complete: this is placed in the table instead of RS1.Fields.Item("Played").Value My question is it is possible to sort by this calculated value. It has to be calculated as the contents of this column in the access table is always 0. This is because this value is calculated in a form in access and cannot be saved in the table due to data corruption. I do not mind that because I can calculate the value on the asp page anyway as above - it is just the sorting that I need to get right now! Thanks in advance for your help, Gareth Tag: Server.CreateObject("Access.Application") Tag: 327002
  - 2
    - does ASP works with "bla.asp?PageID=5" ? (i worked with php befor) does ASP work with this method of transferring vars from page to page using links. let's say i have a page called "moo.asp" and in that page i have a var called "PageID" now i make a link to "bla.asp" and i want to use PageID in that page. 1. can i use "bla.asp?PageID=5" ? 2. if yes, how i use the "PageID" var in "bla.asp" ? 3. Response.Write(id) ofc. didn't work =) as expected, he he... Tag: Server.CreateObject("Access.Application") Tag: 326999
  - 3
    - SQL data into array hay, i'm new to ASP, worked mostly with php, so here's my question. i take data from the sql server like this: ... set con=Server.CreateObject("adodb.connection") set rs=Server.CreateObject("adodb.recordset") SqlExp = "SELECT * FROM content" rs.Open SqlExp,con,3,3 Response.Write rs("PageName") ... now, sure it works nice with only one row, but if i have several row in my Table, my guess i need to put data into an array? so, how do i put my fields into an array and display them? Tag: Server.CreateObject("Access.Application") Tag: 326992
  - 4
    - Why isn't METADATA include working? Hi all, I've put this in global.asa:  But I'm still getting "Variable is undefined: 'adCmdStoredProc' " I've also tried using the UUID with a similar result. Where can I start looking to troubleshoot this? -- Sean. Tag: Server.CreateObject("Access.Application") Tag: 326987
  - 5
    - problem in return-path for asp email Hi, I have a problem with CDO.Message bounce back. when the email bounce back, the bounce back email will send back to address: Sender or From For some reason, I want the return mail send back to return-path: example: Fields("urn:schemas:mailheader:return-path").Value = strSender_return but never get it work.....:-< doesn any one know any way to send bounce back email to urn:schemas:mailheader:return-path ? Here is my code............. <% Dim objMessage ' As CDO.Message dim strSender dim strFrom dim strTo dim strBcc dim strSubject dim strBody strSender_return = "123@123.com" strSender = 123@123sender.com strFrom = "123@123.com" strTo = "replydsafewsgeghew@123.com" strBcc ="" strSubject = "test subject" strBody = "test body" Set objMessage = Server.CreateObject("CDO.Message") With objMessage Headers("return-path",strSender_return) Fields("urn:schemas:httpmail:importance").Value = intImportance Fields("urn:schemas:httpmail:priority").Value = intImportance-1 select case intImportance case 0 Fields("urn:schemas:mailheader:X-Priority").Value = 5 case 1 Fields("urn:schemas:mailheader:X-Priority").Value = 3 case 2 Fields("urn:schemas:mailheader:X-Priority").Value = 1 case else Fields("urn:schemas:mailheader:X-Priority").Value = 0 End Select Fields("urn:schemas:mailheader:X-MSMail-Priority").Value = intImportance if not isNull(strSender) and strSender <> strFrom then Fields("urn:schemas:mailheader:return-path").Value = strSender_return 'strSender Fields("urn:schemas:mailheader:reply-to").Value = strFrom end if Fields.Update() To = strTo if not isNull(strSender) and strSender <> strFrom then Sender = strSender end if if not isNull(strBcc) then BCC = strBcc end if From = strFrom Subject = strSubject if cint(intType) = 1 then TextBody = strBody else HTMLBody = strBody end if Send End With Set objMessage = Nothing %> thanks -- westlog104 ------------------------------------------------------------------------ Posted via http://www.codecomments.com ------------------------------------------------------------------------ Tag: Server.CreateObject("Access.Application") Tag: 326986
  - 6
    - Sending emails in html format I am trying to send an email from an asp page in html format unfortunately when parenthese appear in the HTML code of the page to be emailed the ASP page reads them and trys to interpret them as ASP code <div align="center"> any suggestions ? thanks in anticipation Earnie Tag: Server.CreateObject("Access.Application") Tag: 326983
  - 7
    - A general "How would you code this" question. I am hoping for a code example of how to do this, and hopefully it will help me to see an easy way to code what seems to be a huge monster. I need to create a form that has two pulldown menues (field names Option1 and Option2). Each will house a list of the 50 U.S. States. Users would then be able to choose two states, and get a listing for a courier used for pickup\deliveries (exp: My order is in Ohio, but I need it delivered to Maine. Who do I use?) I am not as familiar with code as I would like, but it seems I would need something like this: If option1 = this, and option2 = this, then the answer (field name Result) = this I know that looks stupid, but I am hoping to show you how I am approching this in my head. Any ideas on how you would approch this project would be great. If you could offer a sample of code, I'm sure I could use it as a template for other projects. My idea is that this is just standard IF this THEN that coding, but I don't know the basics enough to create the code from scratch. Thanks for any time you can give. Tag: Server.CreateObject("Access.Application") Tag: 326975
  - 8
    - get innerText from different domain document hi i have an Html page that include a form,i need post data to another domain page,but i want to know the back text information(submit success or failure).now i try many times,but i get "deny " because of cross-domain. then i search the "NavigateAndFind" method , and using the method can find the back document text that displaying in window, how can my client program know whether it find? or any another ideas? my english is not good,thanks. Tag: Server.CreateObject("Access.Application") Tag: 326968
  - 9
    - Picture management Hi, Has anoyone ever tried to create an asp page that displays images that either displays them as a slideshow or on a long webpage? I have an html page that displays my pictures, but as there are many of them which are large and my bandwidth is restricted I want to download them and display them one at a time. Currently it the client tries to download them all at the same time, or four at a time. This slows down the downloads to an unbearable rate. Is there a component that allows you detect when an image has been downloaded and then allow a trigger to start downloading the next one? Any Ideas? Thanks Dave Tag: Server.CreateObject("Access.Application") Tag: 326966
  - 10
    - ASP and BitBlt Is it possible to create a bitmap image via ASP? I'm very familiar with BitBlt from my Win32 days. I've also used it in VB. Can you call Bitblt and other graphics API via asp? Any information would truly be appreciated. Thx. Tag: Server.CreateObject("Access.Application") Tag: 326960
  - 11
    - session variables I think I have figured out my problem but I don't know how to solve it. We are going to start using a forums package and do not want our users to have to login to both our site, and then again to the forums package. The creator of the forums package provides what seems to be an easy workaround for this. Create two session variables, one for ID, the other for Password, and his program will take care of the rest. I have all of my forums package off the root of the drive that has my Inetpub directory, and within my IIS settings have a virtual directory pointing to the actual folder. I'm wondering that since my actual forums folder is outside my IIS, or if its a virtual directors my Session Variables are not being picked up. I also wonder this for the following reason. On all of my pages I have <% If Session("LoggedIn")= "Proceed" Then Else Server.Transfer "LoginReturning.asp" End If %> which keeps people from bookmarking and coming back in without logining back in to the site. However on the forums default.asp page this does not work, which leads me to believe once again it's a placement issue on my hardrive with my folders. If I am wrong in my assumptions, and I can do this, how would I pass the session variable to my default.asp page in my forums folder? Here is the page that does the checking of my login verification: <% Option Explicit Dim strConnect %>  <html> <head> <meta name="GENERATOR" content="Microsoft FrontPage 6.0"> <meta name="ProgId" content="FrontPage.Editor.Document"> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <title>New Page 1</title> </head> <body> <% Dim objconn, objrs Dim lcsql, strName, strEmail, strPassword, Trial, Expiredate, strCookie2 Set objconn = Server.CreateObject("ADODB.Connection") Set objrs=Server.CreateObject("ADODB.Recordset") objconn.open strConnect Trial = Date strEmail = request.form("Email") strPassword = request.form("password") lcsql="select * FROM results WHERE Email = '"+request.form("Email")+"' and password = '"+request.form("password")+"'" objrs.Open lcsql,objconn,0,1,1 'No records returned because user not found If objrs.EOF then %> <Script Language=VBscript> ReturnItem = msgbox( "Either your name or password was incorrect, try again.", vbOKOnly, "INCORRECT ENTRY") </Script> <% Server.Transfer "LoginReturning.asp" else Session("LoggedIn") = "Proceed" 'The next two session vars are for the forums page Session("USER") = request.form("Email") Session("PASSWORD") = request.form("password") 'Check to see that Session variables were indeed assigned response.write Session("PASSWORD") response.write Session ("USER") Server.Transfer "Index.asp" end if objrs.Close objconn.Close %> </body> </html> Terry Tag: Server.CreateObject("Access.Application") Tag: 326955
  - 12
    - How do you 'cache' an ASP page? Hi, Can someone tell me how you 'cache' an ASP page? I run a football predictions league site and some pages than calculate users points stats and the league table are taking ages to load. I think this is because its making loads of calculations (Although I could be wrong!). Ive been told the best way to solve this problem is to run the ASP page once and then 'cache' it. The page only needs to be run once to perform the calculations so I shouldnt be making it run the calculations on every request, as happens at the moment. http://www.pool-predictions.co.uk/home/players.asp?tab=a_d Cheers...John Tag: Server.CreateObject("Access.Application") Tag: 326952
  - 13
    - How do you 'cache' an ASP page? Hi, Can someone tell me how you 'cache' an ASP page? I run a football predictions league site and some pages than calculate users points stats and the league table are taking ages to load. I think this is because its making loads of calculations (Although I could be wrong!). Ive been told the best way to solve this problem is to run the ASP page once and then 'cache' it. The page only needs to be run once to perform the calculations so I shouldnt be making it run the calculations on every request, as happens at the moment. http://www.pool-predictions.co.uk/h...ers.asp?tab=a_d Cheers...John Tag: Server.CreateObject("Access.Application") Tag: 326951
  - 14
    - How to create a Server Object in a Function? Hi All, i have this.asp page: <script type="text/vbscript"> Function Body_Onload() ' create the object Set obj = Server.CreateObject("UploadImage.cTest") ' use method of the object Body_Onload = obj.cTestDelete Set obj = Nothing End Function </script> <html> <body onload="Body_Onload()"> </body> </html> the this.asp gives an Error while running: Line 4 Char 1 Error Object required 'Server' Code 0 URL http://127.0.0.1/this/this.asp my Question: How to create a Server Object in a Function? Tag: Server.CreateObject("Access.Application") Tag: 326949
  - 15
    - Response.Clear with a Response.Redirect The Microsoft site has confused me on this issue: http://www.microsoft.com/technet/prodtechnol/windows2000serv/reskit/iisbook/c06_redirection.mspx?mfr=true Says that: "ASP automatically discards any existing output in the buffer when you call Response.Redirect " But then the code example has a Response.Clear in, i.e. If Err.Number > 0 Then Response.Clear Response.Redirect "./error.mspx" End If Does anyone know whether a Response.Clear is needed or not? Or does it vary on different versions? Thanks. Tag: Server.CreateObject("Access.Application") Tag: 326944
  - 16
    - $40 to $200 worth Free Books I bought $30 worth of certification exams from [url]www.examcheets.com.[/url] I passed the exams the stuff provided by this company was good and ¼ the price others are charging, plus they gave me some books worth $150 to $200 free. The books are not rubbish but excellent useful Cisco Press, Microsoft Press and other renowned vendors ? That is really helpful. -- jeff101 ------------------------------------------------------------------------ Posted via http://www.codecomments.com ------------------------------------------------------------------------ Tag: Server.CreateObject("Access.Application") Tag: 326943
  - 17
    - ASP coding errors ASP, VBscript, IIS 6, Access database Hello, I have a form page that people fill out and push submit. When they push submit, the information is stored in a database in two different tables. You are then directed to a page that lists everything you have submitted so you can print it. I am having problems with this second page. Information from one of the tables is listed, but the information from the other table isn't listed. They are related by the "casenumber" that is given when submitted. I have looked at the tables, and the information is there, and they have the same casenumber, but the information doesn't get put on the 2nd page. We just moved our site to IIS 6. Everything was working perfectly in IIS 5, but is now "broken" in IIS 6. I always get the following error when it hits the coding that should put in the information from the second table: ADODB.Field error '800a0bcd' Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record. /done1.asp, line 197 <%@LANGUAGE="VBSCRIPT"%>  <% Dim rsClients__svuserid rsClients__svuserid = "0" if (Session("UserID") <> "") then rsClients__svuserid = Session("UserID") %> <% set rsClients = Server.CreateObject("ADODB.Recordset") rsClients.ActiveConnection = MM_connNewdatabase_STRING rsClients.Source = "SELECT * FROM CLIENTSW WHERE CASENUM=" + Replace(rsClients__svuserid, "'", "''") + " ORDER BY CASENUM" rsClients.CursorType = 0 rsClients.CursorLocation = 2 rsClients.LockType = 3 rsClients.Open() rsClients_numRows = 0 %> <% Dim rsEligibility__svuserid rsEligibility__svuserid = "0" if (Session("UserID") <> "") then rsEligibility__svuserid = Session("UserID") %> <% set rsEligibility = Server.CreateObject("ADODB.Recordset") rsEligibility.ActiveConnection = MM_connNewdatabase_STRING rsEligibility.Source = "SELECT * FROM ELIGIBILITY WHERE CASENUM=" + Replace(rsEligibility__svuserid, "'", "''") + " ORDER BY CASENUM" rsEligibility.CursorType = 0 rsEligibility.CursorLocation = 2 rsEligibility.LockType = 3 rsEligibility.Open() rsEligibility_numRows = 0 %> <% Dim rsKnow__svuserid rsKnow__svuserid = "0" if (Session("UserID") <> "") then rsKnow__svuserid = Session("UserID") %> <% Dim userAreaCode, userPhoneNumber, userAddress, userCity, userState, userZipcode, userFirstname, userLastname, useremail userAreaCode = (rsClients.Fields.Item("CACODE").Value) userPhoneNumber = (rsClients.Fields.Item("CPHONE").Value) userAddress = (rsClients.Fields.Item("CADDRESS").Value) userCity = (rsClients.Fields.Item("CCITY").Value) userState = (rsClients.Fields.Item("CSTATE").Value) userZipcode = (rsClients.Fields.Item("CZIP").Value) userFirstname = (rsClients.Fields.Item("CFNAME").Value) userLastname = (rsClients.Fields.Item("CLNAME").Value) useremail = Session("email") Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "192.168.10.1" Mail.Port = 25 Mail.From = useremail Mail.FromName = userFirstname & " " & userLastname Mail.AddAddress useremail Mail.AddCC "blah@blah.com" Mail.AddBCC "blah@blah.com" Mail.AddBCC "blah@blah.com" Mail.Subject = "Application submitted" Mail.Body = "<HTML><BODY>Thank you for applying for our services. Please be reminded that it may take up to one week to get a reply." & "<br>"&"<br>"& "If you have an emergency, please call the toll free number to apply for services, and indicate that you have already submitted an application online. 1-800-634-5263." & "<br>" & "<br>" & "The phone number you provided was:" &" " &"(" & userAreaCode &")"& " " & userPhoneNumber &"."&"<br>" &"<br>"& "The mailing address you provided was:" & "<br>" & "<br>" & userFirstname & " " & userLastname & "<br>" & userAddress &"<br>"& userCity & " " & userState & " " & userZipcode & "<br>" & "<br>" &"If you find that this information is wrong, please send an email to: , and indicate the changes.</HTML></BODY>" Mail.isHTML = True Mail.Send %> <% set rsKnow = Server.CreateObject("ADODB.Recordset") rsKnow.ActiveConnection = MM_connNewdatabase_STRING rsKnow.Source = "SELECT CLIENTSW.KNOW, subKNOW.KNOWLETTER, subKNOW.KNOWNAME FROM subKNOW INNER JOIN CLIENTSW ON subKNOW.KNOWLETTER = CLIENTSW.KNOW Where CASENUM=" + Replace(rsKnow__svuserid, "'", "''") + "" rsKnow.CursorType = 0 rsKnow.CursorLocation = 2 rsKnow.LockType = 3 rsKnow.Open() rsKnow_numRows = 0 %> <html> <head> <title>Application Submitted</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <link rel="stylesheet" href="pub_pages.css" type="text/css"> </head> <body bgcolor="#FFFFFF" text="#000000"> <p class="applicationheading">Please print for your records.</p> <table width="600" border="0" cellpadding="1" align="center" class="application" cellspacing="0"> <tr bordercolor="#000000"> <td colspan="6" align="center" valign="top" class="underborder"> <p class="applicationheading">Application For Services<br> Legal Services of North Dakota<br> PO Box 1666<br> Minot, ND 58702<br> 1-800-634-5263</p> </td> </tr> <tr> <td width="202" align="right" valign="bottom" class="borderleft"> </td> <td width="5"> </td> <td width="189"> </td> <td width="152"> </td> <td width="5"> </td> <td width="127" class="borderright"> </td> </tr> <tr> <td width="202" align="right" valign="bottom" class="borderleft">Case Number: </td> <td width="5"> </td> <td width="189"><%=(rsClients.Fields.Item("CASENUM").Value)%></td> <td width="152" align="right" valign="bottom">Date:</td> <td width="5"> </td> <td width="127" class="borderright" align="left" valign="bottom"> <%=Date()%></td> </tr> <tr> <td width="202" align="right" valign="bottom" class="borderleft">Name and Address: </td> <td width="5"> </td> <td colspan="4" class="borderright"><%=(rsClients.Fields.Item("CFNAME").Value)%> <%=(rs Clients.Fields.Item("CLNAME").Value)%></td> </tr> <tr> <td width="202" align="right" valign="bottom" height="17" class="borderleft"><img src="administrative_office/graphics/transparentshim.gif" width="195" height="5"></td> <td width="5" height="17"><img src="administrative_office/graphics/transparentshim.gif" width="5" height="5"></td> <td width="189" height="17"><%=(rsClients.Fields.Item("CADDRESS").Value)%> </td> <td width="152" height="17"><img src="administrative_office/graphics/transparentshim.gif" width="120" height="5"></td> <td width="5" height="17"><img src="administrative_office/graphics/transparentshim.gif" width="5" height="5"></td> <td width="127" height="17" class="borderright"> </td> </tr> <tr> <td width="202" align="right" valign="bottom" class="borderleft"> </td> <td width="5"> </td> <td colspan="4" class="borderright"><%=(rsClients.Fields.Item("CCITY").Value)%> <%=(rsC lients.Fields.Item("CSTATE").Value)%>  <%=(rsClients.Fields.Item(" CZIP").Value)%></td> </tr> <tr> <td width="202" align="right" valign="bottom" height="14" class="borderleft">Spouse's Name (Optional):</td> <td width="5" height="14"> </td> <td colspan="4" height="14" align="left" valign="bottom" class="borderright"><%=(rsClients.Fields.Item("SFNAME").Value)%> <%=(rs Clients.Fields.Item("SLNAME").Value)%></td> </tr> <tr> <td width="202" align="right" valign="bottom" class="borderleft">Phone Number:</td> <td width="5"> </td> <td width="189" align="left" valign="bottom"><%=(rsClients.Fields.Item("CACODE").Value)%>- <%=(rsClients.Fields.Item("CPHONE").Value)%></td> <td width="152" align="right" valign="bottom">E-mail Address:</td> <td width="5" align="left" valign="bottom">  </td> <td width="127" align="left" valign="bottom" class="borderright"> <% = Session("email")%> </td> </tr> <tr> <td width="202" align="right" valign="bottom" height="11" class="borderleft">Sex:</td> <td width="5" height="11"> </td> <td width="189" height="11"> <%If (rsClients.Fields.Item("SEX").Value) = "F" then Response.Write ("Female") else Response.Write "Male" %> </td> <td width="152" align="right" valign="bottom" height="11">Birthdate:</td> <td width="5" align="left" valign="bottom" height="11"> </td> <td width="127" align="left" valign="bottom" height="11" class="borderright"><%=(rsClients.Fields.Item("BDATE").Value)%></td> </tr> <tr> <td width="202" align="right" valign="bottom" height="5" class="borderleft">Race (optional)</td> <td width="5" height="5"> </td> <td width="189" height="5"> <%If(rsClients.Fields.Item("RACE").Value) = "W" then Response.Write "White" else if (rsClients.Fields.Item("RACE").Value)= "B" then Response.Write "Black" else if (rsClients.Fields.Item("RACE").Value) = "H" then Response.Write "Hispanic" else if(rsClients.Fields.Item("RACE").Value) = "N" then Response.Write "Native American" else if(rsClients.Fields.Item("RACE").Value) = "A" then Response.Write "Asian" else Response.Write "Other"%> </td> <td width="152" align="right" height="5">Where do you live:</td> <td width="5" height="5">  </td> <td width="127" height="5" class="borderright"><%If (rsClients.Fields.Item("LIVEAR").Value) = "A" then Response.Write "Apartment" else if(rsClients.Fields.Item("LIVEAR").Value) = "B" then Response.Write "Rented Home" else if (rsClients.Fields.Item("LIVEAR").Value) = "C" then Response.Write "Condominium" else if (rsClients.Fields.Item("LIVEAR").Value) = "H" then Response.Write "Own Home" else if (rsClients.Fields.Item("LIVEAR").Value) = "J" then Response.Write "Jail" else if (rsClients.Fields.Item("LIVEAR").Value) = "M" then Response.Write "Mental Institution" else if (rsClients.Fields.Item("LIVEAR").Value) = "N" then Response.Write "Nursing Home" else if (rsClients.Fields.Item("LIVEAR").Value) = "P" then Response.Write "Prison" else if (rsClients.Fields.Item("LIVEAR").Value) = "R" then Response.Write "Rented Room" else if (rsClients.Fields.Item("LIVEAR").Value) = "S" then Response.Write "Senior Housing" else if (rsClients.Fields.Item("LIVEAR").Value) = "T" then Response.Write "Mobile Home" else if (rsClients.Fields.Item("LIVEAR").Value) = "U" then Response.Write "Unknown" else if (rsClients.Fields.Item("LIVEAR").Value) = "X" then Response.Write "Relatives" else if (rsClients.Fields.Item("LIVEAR").Value) = "Y" then Response.Write "Shelter" else Response.Write "Homeless"%> </td> </tr> <tr> <td width="202" align="right" valign="bottom" class="borderleft">Children in Household:</td> <td width="5"> </td> <td width="189"><%=(rsClients.Fields.Item("CHILDREN").Value)%></td> <td width="152" align="right" valign="bottom">Adults in Household:</td> <td width="5" align="left" valign="bottom"> </td> <td width="127" align="left" valign="bottom" class="borderright"><%=(rsClients.Fields.Item("ADULTS").Value)%></td> </tr> <tr> <td width="202" align="right" valign="bottom" class="borderleft">Learned about LSND Where?:</td> <td width="5"> </td> <td colspan="4" class="borderright"><%=(rsKnow.Fields.Item("KnowLetter").Value)%>- <%=(rsKnow.Fields.Item("KNOWNAME").Value)%></td> </tr> <tr> <td width="202" align="right" valign="bottom" class="borderleft">Are you a Citizen of the US?:</td> <td width="5"> </td> <td width="189"> <%if (rsClients.Fields.Item("CITIZEN").Value) = "True" then Response.Write "Yes" Else Response.Write "No"%> </td> <td width="152" align="right" valign="bottom">Citizen Status:</td> <td width="5" align="left" valign="bottom">  </td> <td width="127" align="left" valign="bottom" class="borderright"> <%If (rsClients.Fields.Item("CStatus").Value) = "A" then Response.Write "A - Citizen" Else if (rsClients.Fields.Item("CStatus").Value) = "B" then Response.Write "B - Eligible Alien" Else Response.Write "C - Not a Citizen" %> </td> </tr> <tr> <td width="202" align="right" valign="bottom" class="borderleft">Adverse Party Name:</td> <td width="5"> </td> LINE 197 <td width="189"> <span class="borderright"><%=(rsEligibility.Fields.Item("FNADV").Value)%></span><% =(rsEligibility.Fields.Item("LNADV").Value)%></td> Tag: Server.CreateObject("Access.Application") Tag: 326939
  - 18
    - Trouble with URL to Microsoft templates Hi I want a URL links to .dot and .xlt files on my websites. But when users try to save them it triggers built in template functionallity to save it as .doc or .xls instead. How can I publish MS templates and make sure the users get the .dot files instead of doc files? Hope you understand.... Hints appreciated Mr. Smith Tag: Server.CreateObject("Access.Application") Tag: 326932
  - 19
    - ASP On Loaded Hi, can any1 tel me how do i and what exactly does an onloaded function look like? I want to use an on loaded function that when the page is done loading, i want to use, respose.redirect to reload the page. Thanx in advance for ur help. Tag: Server.CreateObject("Access.Application") Tag: 326930
  - 20
    - How to get the percentage amout of a file being loaded ? Hi All, i'm trying to display the amout in percentage for the loading sub event value, for the <img .../> example: the browser should display something like this: view 1, time 00:00:05 loading 5% ==================== view 2, time 00:00:010 loading 10% ==================== view 3, time 00:00:57 loading 99% ==================== view 4, time 00:01:00 complete 100%  ==================== i have this code: <script language="vbscript"> Function showState_onready() IF myImgID.readyState = "loading" then myDivID.innerText = myImgID.readyState & " " & strPerventage Else myDivID.innerText = myImgID.readyState & " " & "100%" End If End Function </script> <html> <head></head> <body> <div id="myDivID"></div> <img id="myImgID" src="img.jpg" onreadystatechange="vbscript:showState_onready('')" /> </body> </html> i'm trying to display the image amount of the file loaded in percentage, how do i do it? Tag: Server.CreateObject("Access.Application") Tag: 326929
  - 21
    - Problems with encoded mailto-link in combination with outlook Hello all out there! I don't know if this is the correct group for posting this, please correct me/it, if you have a better group for it... We have a customer who uses utf-8 encoded websites and wants mailto-link on some websites with integrated subject/content. Website is written in ASP (.NET is not available at customer site). So according to RFC (as far as I could interpret it), we created a mailto-link like this mailto:assistencia.tecnica@pt.bosch.com?subject=%3D%3Fiso%2D8859%2D1%3FQ%3FPenso_que_dever=e1_ser_a_Assist=eancia_T=e9cnica_a_definir_qual_o_prefixo_a_aparecer_neste_campo.miniMAXX_pilhas%3F%3D&body=%3D%3Fiso%2D8859%2D1%3FQ%3FAnomalia:Aparelho_n=e3o_efectua_igni=e7=e3o._Igni=e7=e3o_lenta_e_dif=edcil.%3F%3D What shows up in Outlook instead of encoded strings is that: Subject =?iso-8859-1?Q?Penso_que_dever=e1_ser_a_Assist=eancia_T=e9cnica_a_definir_qual_o_prefixo_a_aparecer_neste_campo.miniMAXX_pilhas?= Content =?iso-8859-1?Q?Anomalia:Aparelho_n=e3o_efectua_igni=e7=e3o._Igni=e7=e3o_lenta_e_dif=edcil.?= In Thunderbird everything shows up correctly, but in outlook we have these encoded lines with the encoding displayed. Also tried Server.URLEncode() for the parts between &subject= and &body= till end, but shows up the same. -- CEB-Systems GbR Sudetenstrasse 6 60437 Frankfurt Tag: Server.CreateObject("Access.Application") Tag: 326925
  - 22
    - request retrurns empty variable. Hi all, On my asp form I have the simple code as below. The idea is that I check the client browser version and store it in BTYP. If I make BTYP a text input I can see the value OK. When I submit and request BTYP from l0008ps.asp I get an empty variable. How do I hold my mouth while doing this. **********firstpage.asp <head> <script language="javascript"> function checkOK( thisform ) { { return true } } function checkBT() { if (navigator.appName == "Microsoft Internet Explorer" && navigator.appVersion.indexOf(MSIE6) != -1) { return true } else { if (navigator.appName == "Netscape" && navigator.appVersion >= "4.0") { return true } else { return false } } } </script> </head> <body> <input type="hidden" name="BTYP" size="10" maxlength="10" border="1" bordercolor="#000000" width="40%"> <form method="post" width="800" action="l0008ps.asp" onsubmit="return checkOK(this)"> //rest of code <script language="javascript"> var brow= checkBT(); if ( brow == true ) { BTYP.value=1; } else { BTYP.value=0; } </script> </body> *****************l0008ps.asp <% ubt=request("BTYP") %> Tag: Server.CreateObject("Access.Application") Tag: 326919
  - 23
    - No data return from ASP but Access returns correctly. When in access the SQL Statement works as expected; in ADO it does not. I have replaced the * with the % so I am sure that's not the problem. Anyone have any idea? <% Dim objConn, objRS, sCity,CONNECTIONSTRING,ReponseString CONNECTIONSTRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\jturlington\Desktop\Demographics\App_Data\DemoGraphics.mdb;User Id=admin;Password=;" 'Capture the username that we need to lookup, making sure its prepared for 'our forthcoming SQL query sCity = Replace(Trim(Request.QueryString("city")),"'","") 'Fire up ADO - ask the database whether or not the user idexists Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open CONNECTIONSTRING sSQL = "select ID,GeographicArea from Data where GeographicArea like '%uni%'" response.Write(sSQL & "<br />") Set objRS = objConn.Execute(sSQL) WHILE NOT objRS.EOF ReponseString = objRS("ID") & "=" & objRS("GeographicArea") & "," objRS.MoveNext WEND Response.Write(sCity & " ") If Len(ResponseString) > 1 Then Response.Write(Left(ResponseString, Len(ResponseString) - 1)) Else Response.Write("No Records") End If 'Clean up objRS.Close objConn.Close Set objRS = Nothing Set objConn = Nothing %> Tag: Server.CreateObject("Access.Application") Tag: 326917
  - 24
    - File System Object and displaying data Hello All I used to have some static htm files which used to display data. There is a calling asp file which used to do something like below if Request.QueryString("PageName").count = 0 then strPageNameHtm = "toc.htm" strPageNameInc = "toc.inc" else strPageNameHtm = Request.QueryString("PageName") & ".htm" strPageNameInc = Request.QueryString("PageName") & ".inc" end if strPageNameHtm = server.mapPath(strPageNameHtm) strPageNameInc = server.mapPath(strPageNameInc) 'response.write(strPageNameHtm) set fs = server.createobject("scripting.fileSystemObject") set f = fs.openTextFile(strPageNameHtm) strSPDHtml = f.readall The strSPDHTML info used to be displayed using a response.write(strSPDHTML). This allowed the static content to be loaded up. I switched the static pages to be asp pages having the content come from a database. I would still like to maintain the controlling page logic. Can I modify the above section of code in anyways to access the asp page content Tag: Server.CreateObject("Access.Application") Tag: 326913
  - 25
    - Problem accessing database from within a folder... I have a happily working set of asp pages which read from the database via include file "./_private/include/database.mdb". However, when I try to gain access to this database on pages one folder removed using "../_private/include/database.mdb", the pages won't display. This whole system works fine on my home test server (iis.5.0), but 'breaks' when uploaded to the public server. I know the path to database is correct because the upper level pages are displaying without problem. I am utterly perplexed and any suggestions would be welcome. I'm using Acess database. Thank you Tag: Server.CreateObject("Access.Application") Tag: 326888
- Next
  - 1
    - Simple query returns 0 records in asp, but all records in vbscript I have a few vbscripts that I want to convert to asp pages so I can use html to format the data better. 1). Do asp pages have to be run from an IIS server or can I just create them locally and then open them in IE? 2) The following connection strings, accounts and queries work fine in vbs files but I am getting 0 results when I run them as asp. I don't know how to debug them to figure out the issue here is the code <%@ language="VBSCRIPT" %> <html> <head> <meta name="GENERATOR" content="SAPIEN Technologies PrimalScript 4.0"> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <title>CFG site</title> </head> <body> <% Dim objConnection, dsn Set objConnection = CreateObject("ADODB.Connection") objConnection.Open "Provider=SQLOLEDB;Data Source=servername;" & _ "Trusted_Connection=Yes;Initial Catalog=edfcm4;" & _ "User ID=user;Password=password;" Set rs=objConnection.Execute ("SELECT machine_name FROM ecm_dat_machines") %> <table border="1"> <% Do While Not rs.EOF %> <tr> <td><%= rs.Fields("ecm_dat_machines.machine_name")%></td> </tr> <% rs.MoveNext Loop %> </table> <% Set objConnection = Nothing %> </body> </html> Tag: Server.CreateObject("Access.Application") Tag: 326886
  - 2
    - Beautiful women, aged clones, and Ultimate Fighting Championship Friend, I'm always looking for good and intelligent individuals like you to visit my website, www.ChezBrandon.com , and it has pictures of beautiful women, information about aged clones, and a link to Ultimate Fighting Championship, a very good show. My name is Brandon, and I'm in my 20s, am a college student, and as lie detectors, both conventional and unconventional would show, I've never been sexually penetrated. Moreover, I could be shown pictures of X, Y, and Z, and it would show that I'm only sexually attracted to women. The Murders of Our Leaders in Government were Stopped. I, Brandon, can take lie detector and psychological tests, and I can go before a panel of truth detecting experts. I tell the truth. A mini-psychological test: 8 times 2 = 16, the world is round, not flat, and the year is 2006. Feel free to call me, my cellphone number is 503.740.0272 (United States based) and feel free to utilize a GK-1 voice truth detecting device too: >From Congressmen Bill Frist to John Kerry to Dennis Hastert to Hillary Clinton to John Warner to Ron Wyden to Gordon Smith to John McCain to Joseph Lieberman to Nancy Pelosi to Diane Feinstein to Ted Kennedy to anyone else who happened to be in the Congressional chambers during either a joint session of Congress or a State of the Union address from Masons to Skull and Bones members to Secret Service agents to pages to visitors to other good individuals, they all would have been murdered, all of their accomplishments stripped away, their earned wealth stripped away, their homes stripped away, their family and friends stripped away. Moreover, someone else would have been sleeping with their spouses. Elements of the Mossad, who wanted to bathe in the blood of our Congressmen as well as bathe in the blood of leaders on the Federal and State levels and leaders around the world, and when these elements seized power they would, as confirmed by psychic vision and confirmed auditorially, "he's right; he's psychic," would outlaw most if not all organizations, including the Masons, and these elements as Victor Ostrovsky writes about in his #1 New York Times bestseller By Way of Deception are out of control, notoriously lie, and have a disregard for life -- I was able, thank God, to thwart the conquest of the USA and the world, and was able to thwart the murder of United States and world leaders, via a psychic vision of Senator John Warner and other Congressmen being choked to death by gas, which was confirmed auditorially from both ears, such as "He saved Congress," who they were going to kill "all of them,""how did he know that?" and "he's psychic" -- murdered my biological Aunt Gloria Atkinson, whom I loved very much, as she did of me, and there is a tribute to her on my website. Please, friend, be sure to barricade your bedroom door at night. I'm not afraid of aged clones or the attempted chopping off of my appendages (elements of the Mossad talked about chopping off my right middle finger and right ear, and 10 out of 10 of my toes, like my right middle finger have unique steeple designs). I'm not afraid of anything. I'll defend myself to the best of my ability, and I commit my life to saving the lives of men, women, and children and strengthening good organizations. I will always remember my biological Aunt Gloria Atkinson. Sincerely, Brandon Tag: Server.CreateObject("Access.Application") Tag: 326880
  - 3
    - checkbox to insert data Quick question. Is it possible to insert values in a Database with a checkbox? Say I have a recordset and if the check box is checked I want to insert the value of the of the field in the DB. <%=rsqa.Fields.Item("recini").Value%> That is a persons initials, i want to insert those initials in a column if it is checked, if it isnt checked nothing is inserted.. Tag: Server.CreateObject("Access.Application") Tag: 326879
  - 4
    - How to change the default "Update" in a DetailsView Using a DetailsView to update data in SQL 2005, How do I change the default "Update" hyperlink to a more user friendly button? Thanks Tag: Server.CreateObject("Access.Application") Tag: 326877
  - 5
    - Using a stored procedure to return multiple recordsets with .Filter support I have a stored procedure which returns 2 tables and 1 output value. I want the first table to be assigned to rs1 and the second to rs2. However when I run this, I get the following error as I begin to refer to the rs2 recordset (Do while not rs2.eof). I have even used 2 ".execute" statements in the code below, but the code assigns the first recordset twice. Microsoft VBScript runtime error '800a01a8' Object required: 'rs2' /output.asp, line 166 How can I assign the two tables to the appropriate recordsets? Also, I need the .MoveFirst method support, and if possible, the .Filter method. The code for calling the Stored Procedure is below ' -------------------------------------------------------------------------------- Set rs1 = Server.CreateObject("ADODB.Recordset") Set rs2 = Server.CreateObject("ADODB.Recordset") Set adocmd = Server.CreateObject("ADODB.Command") adocmd.CommandTimeout = 120 adocmd.ActiveConnection = conn adocmd.CommandType = adCmdStoredProc adocmd.CommandText = "dbo.spr_MyProcedure" With adocmd set param = .createparameter("@searchstring", adVarchar, adParamInput, 40, guid) .parameters.append param set param = .createparameter("@numvalues", adInteger, adParamOutput) .parameters.append param On Error Resume Next errorstring = "" errornumber = 0 set rs1 = .execute set rs2 = rs1.NextRecordset '-- check the return value If Err.Number <> 0 Then errorstring = "<p>Error Number " & Err.Number & "<br>" & "The Error Code was: " & Err.Description & "</p>" errornumber = Err.Number Response.Write(errorstring) Response.Redirect(HomePath & "/error.asp?eid=unknown") End If numvalues = .Parameters("@numvalues").Value End With On Error GoTo 0 set adocmd = nothing ' -------------------------------------------------------------------------------- Thank You, Julian Tag: Server.CreateObject("Access.Application") Tag: 326874
  - 6
    - How do i call a function defined in html script tags from asp page? Hi All, i have this.asp page: <script type="text/vbscript"> Function myFunc(val1ok, val2ok) ' do something ok myFunc = " return something ok" End Function </script> <html> <body> <% val1ok = something1 val2ok = something2 thenewVal = myFunc((val1ok), (val2ok)) %> </body> </html> i want to call and use the returned value of Function myFunc(val1ok, val2ok) , without omitting the html script tags and replacing them in <% %>, (My Question is:) How do i call a function defined in html script tags from asp page? Tag: Server.CreateObject("Access.Application") Tag: 326863
  - 7
    - Mobile Phone plan calculator Hi guys, I'm working on my first ASP web site. The idea of the site is to calculate which mobile phone plan is right for you. The idea is that the user answers a few questions about their calling habits, and the server calculates the ammount of talk time for each plan and then recommends on or two. I've created 2 excell sheets already. One is a user input sheet, the other is a database of all the plans available. At the moment the excell sheet works like this. The user selects a rate plan, enters in their details and calling habits, and a total talk time is displayed on the bottom of the page. I want to go one step further. I want the ASP page im working on to calculate the total talk time for ALL the plans in my database (based on the users input) and then recommend the 3 with the most talk time. As you can probably tell, I'm completely lost. All of the tutorials I've seen are simple "add this to, delete this from" database blah blah. I need help! :) Psy Tag: Server.CreateObject("Access.Application") Tag: 326859
  - 8
    - input box Hi, I have an input box that sends data over to the next page. This input box was in a loop, there creating data looking like this: 2, 0, 0, 3, 0, 4, 0, 22, 0, 0, 0 How do i break the data up in such a way that i can populate it into my db while running through a recordset? Any help would be highly appreciated. Thanx Tag: Server.CreateObject("Access.Application") Tag: 326856
  - 9
    - Accessing network resources via classic ASP I would like for server-side VBscript code to save a file to a remote server's network share. I've noticed that the exact code that would run from the command prompt does not get access to files on remote disks via ASP. Is there a workaround? Do you know if ASP.Net has a solution? Thanks in advance! Tag: Server.CreateObject("Access.Application") Tag: 326852
  - 10
    - Update Multiple Records How do I update multiple records in a table in ASP using loops ? For example. I have a table with the following colums ID | Col1 | Col2 ------------------------- 1 | 50 | 100 2 | 25 | 130 3 | 55 | 70 I want to add *66* and *77* into the ID # *1* and ID # *3* respectively. So the result should be ID | Col1 | Col2 ------------------------- 1 | 116 | 177 2 | 25 | 130 3 | 121 | 147 Note: All datatype of the colums are integer -- cancer10 ------------------------------------------------------------------------ Posted via http://www.codecomments.com ------------------------------------------------------------------------ Tag: Server.CreateObject("Access.Application") Tag: 326850
  - 11
    - asp.net problem Hi I have an asp.net 2.0 project and am experiencing a problem. In the project, I am trying to make use of Membership. I have one Role, called "Basic User" and two users - "admin" and "test". "admin" is a member of the Role but "test" is not. I have only a few pages in the project at the moment: - . SecurePage.aspx - The page I want only authenticated users that are members of the Role to use. . Login.aspx - Login page . Unauthorized.aspx - Informs user that they cannot view the secure page because of a lack of permissions SecurePage.aspx just contains a ChangePassword control. Unauthorized.aspx has some text and a LoginStatus control. So in the SecurePage.aspx, I have this code to handle this: - Protected Sub form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) If User.Identity.IsAuthenticated = False Then Server.Transfer("login.aspx") End If If Roles.IsUserInRole("Basic User") = False Then Server.Transfer("unauthorized.aspx") End If End Sub If I go to the SecurePage and am not authenticated, it transfers me to login.aspx. If I then login with the user "admin", which is in the Role "Basic User", it works ok. If I first login with "test", which is NOT in the Role, then I am transfered to the "unauthorized.aspx" page. However, if I click "Logout" on the LoginStatus control on the "unauthorized" page it refreshes and changes to display "Login". So, if I then click "Login", I am taken back to the login page. The URL in the address bar at this point is: - http://localhost:1489/Lesson09/login.aspx?ReturnUrl=%2funauthorized.aspx If I then login with using "admin" - which is a member of the Role - this is where I get a problem. Instead of being taken to the SecurePage.aspx as expected, I get taken back to the "unauthorized.aspx" page. This is obviously wrong. Now, I know that this should work but does anybody know why it is not working? Is there some settings or something I need to change on my PC? Am I missing a step or not doing something? I've checked the obvious things - like that the user was actually in the Role etc. However, I just cannot get this to work. I am new to ASP.Net and so I don't really know where to start to look for what the problem is? I have gone through re-doing the project twice now and I still get the same problem. For info, I am using: - - Visual Studio .Net 2005 (Professional) (up to date) - Latest .Net installed - Windows XP Pro - Internet Explorer 6 (version 6.0.2900.2180.xpsp_sp2_gdr.050301-1519) SP2 I would very much appreciate any help or advice on this problem. Thanks in advance. Kind regards Darren Brook email: darrenbrook@btconnect.com Tag: Server.CreateObject("Access.Application") Tag: 326845
  - 12
    - asp does not find table I must have forgotten someting. I did something like this about 4 years ago and got it to work. Now I need to do it again and I get this error message: Technical Information (for support personnel) a.. Error Type: Microsoft JET Database Engine (0x80040E37) The Microsoft Jet database engine cannot find the input table or query 'verify'. Make sure it exists and that its name is spelled correctly. /meddir/verifyreturn.asp, line 35 b.. Browser Type: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 2.0.50727; .NET CLR 1.1.4322) c.. Page: POST 50 bytes to /meddir/verifyreturn.asp This is my code, does anyone see where I've made my mistake. My table is at this physical location on the server (win 2000, latest service pack, IIS 5): d:\Inetpub\namcp.org\fpdb\verify.mdb This is my data.asp file: <% strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" &_ "Data Source=d:\Inetpub\namcp.org\fpdb\verify.mdb;" &_ "Persist Security Info=False" %> This is my script that generate the error message from above: <% Option Explicit Dim strConnect %>  <html> <head> <meta name="GENERATOR" content="Microsoft FrontPage 6.0"> <meta name="ProgId" content="FrontPage.Editor.Document"> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <title>New Page 1</title> </head> <body> <% Dim objconn, objrs Dim lcsql, strName, strEmail, strPassword, strCookie1, strCookie2 Set objconn = Server.CreateObject("ADODB.Connection") Set objrs=Server.CreateObject("ADODB.Recordset") objconn.open strConnect strEmail = request.form("Email") Session("Email") = strEmail strPassword = request.form("password") Session("UserPassword") = strPassword 'lcsql="select * FROM verify WHERE Email = '"+request.form("Email")+"' and password = '"+request.form("password")+"'" lcsql="select * FROM verify WHERE Email = 'terry@windigo.com'" objrs.Open lcsql,objconn,0,1,1 If objrs.EOF then %> <Script Language=VBscript> ReturnItem = msgbox( "Either your name or password was incorrect, try again.", vbOKOnly, "INCORRECT ENTRY") </Script> <% else Session("LoggedIn") = "StartUp" 'Session("JobType") = objrs.fields("JobType") 'Session("IDNumber") = objrs.fields("Password") Server.Transfer "Index_Copy(2).htm" end if objrs.Close objconn.Close Tag: Server.CreateObject("Access.Application") Tag: 326838
  - 13
    - DATABASE ACCESS I am trying to create a unique type of registration form for my job upcoming Holiday Christmas Party. There will be 60 tables for seatings with 10 people max at table. How can I write some codes to support this? I need to be able to see the number of people who are seating and any available seats at a given table. How can I set my database and pull the information to give what I want. Tag: Server.CreateObject("Access.Application") Tag: 326837
  - 14
    - Global Objects inside User Controls? [note: I am relatively new to ASP.NET, so I'm very possibly doing something stupid or overlooking something obvious. Please be forgiving, and walk me through your answer as much as possible. Much appreciated.] Here is the situation. I'm developing an application where: I have defined a class (DBClass) to provide an abstraction layer for interacting with a database. When an instance of the class is created, it creates a connection to the database. My initial plan was that, at the very top of each page I would: 1) include the DBClass class file, so the page knows about the class 2) create an instance of DBClass, which I call DB. My thought was, once the DB instance was created, I would be able to use it anywhere on the page. However, on the page I am also making use of a "user control". This user control has to have access to the database. When I simply reference DB in the control file, the compiler complains, because I have not created the instance DB in the control file. I'm sure I'm probably just approaching this the wrong way or leaving out something obvious.... can anyone help? ---G Tag: Server.CreateObject("Access.Application") Tag: 326834
  - 15
    - Auto Incrementing number display on form submit I dont know if this is possible or if someone has a better way to do this but here it is: I have a page where the user enters an rma#, lot#, and number of barcodes they need to print, here is the code for the results page that shows the barcodes to print: <% RMABarCode = Request.Form("idrma") NoTimes = Request.Form("NoTimes") If Len(RMABarCode)>0 Then If IsNumeric(NoTimes) Then For i = 1 to NoTimes response.write "<div><img src='barcode.asp?code=" & RMABarCode & "&height=25&width=1&mode=code39'></div>" & Request.Form("idrma") & "-" & Request.Form("idlot") & "<p></p>" Next End If End If %> So if the user entered rma# 1234, lot#1, and number of barcodes(NoTimes) 3 it displays (barcode) ** being the physical barcode ** 1234-1 ** what is displayed under the barcode ** (barcode) 1234-1 (barcode) 1234-1 What i need to add is that each barcode has a unique number. What i need it to display is: (barcode) 1234-1(1) (barcode) 1234-1(2) (barcode) 1234-1(3) The number of barcodes needed(NoTimes) is also going to be the unique identity of the barcode... Does that make sence?? If so, can it be done?? Thanks in advance. Respectfully, Danny Tag: Server.CreateObject("Access.Application") Tag: 326830
  - 16
    - filter results to display those older than 'today'? I've been going round in circles here trying to get this to work and my ignorance of ASP is now showing me up. I want to construct a query string to allow me to filter entries to be displayed on a web page with respect to the date-entry contained in the database. i.e. an archived results page will show all entries where "my_date" is less than 'todays date' I have tried to do this by; Dim strSQL Dim showdate showdate = Date then... strSQL = "Select * FROM my_database WHERE my_date <" & showdate Although this does give a result, it has no actual bearing on todays date and wondered what strinkingly obvious this I'm doing wrong? when I use > i get all results displayed, when i use < I get none at all. thanks for any help Tag: Server.CreateObject("Access.Application") Tag: 326823
  - 17
    - Cross Domain Cookie? By IP Perhaps? Guys, Anyone know of a way to allow a cookie to be read by multiple domains, or even better a specific IIS server IP? We're looking to track users across multiple domains within our website group, appreciate any help? Cheers, @sh Tag: Server.CreateObject("Access.Application") Tag: 326822
  - 18
    - run excel I want to run excel in server. Server have IIS and MS SQL. My plan is, get data from MS sql and attach it in excel and run macro(vba) get result and save it as htm in server. I know it's weird, but I can run it in excel and don't want to write code again. (actually have no idea). So, my question is, load excel and run it (vba). possible? Thank you. Tag: Server.CreateObject("Access.Application") Tag: 326820
  - 19
    - Sending files from Servlet/JSP page to ASP Page Hi everyone, I want to transfer a file from servlet page or JSP to an ASP page. Since the two pages are in different server (WAS and IIS), I cannot just send file path to the ASP page and let it retrieves the file itself. If i path file paths's to servlet/JSP it should send those files to ASP page on different server(IIS) for processing.I don't want to use file input type ="File" for selecting the file to upload,i want it to happen in background. I want the ASP page can get the file and then process it. Do you guys know how to do it? If any of you know, please reply. I really appreciate it. Srini Tag: Server.CreateObject("Access.Application") Tag: 326815
  - 20
    - validating input boxes This is really starting to annoy me, I've got a form, that has some input boxes, a example of the code is here:- <form action="admin_save_stock.asp" method="post" name="MyFormData"> <input name="Make" type="text" id="MenuText" value=<% response.write rsTable("Make") %> size="50" maxlength="50"> <input name="DateBought" id="MenuText" type="text" value=<% response.write rsTable("DateBought") %> size="10" maxlength="10"> </form> I also have a FUNCTION that checks to make sure the dates etc are correct :- But, the code will work as far as giving me the error MSGBOX but it still posts to the next page for some reason its ignoring the " MyFormData_OnSubmit = False " Why ? <Script language="vbscript"> Function MyFormData_OnSubmit() Dim FormOkay FormOkay=True if isdate(MyFormData.DateBought.Value)=False then msgbox "Error in date", vbokayonly+vbinformation,"Checking Data" MyFormData.DateBought.SetFocus FormOkay=False end if if FormOkay=False then MyFormData_OnSubmit = False else MyFormData_OnSubmit = True end if end Function </Script> thankls Mike. Tag: Server.CreateObject("Access.Application") Tag: 326805
  - 21
    - Generate Email from Form Submission I have a form on my ASP 3.0 web site and I need to monitor submissions. Is it possible to generate an email upon form submission? If so, how do I invoke the email functionality from an ASP 3.0 page? Thanks Dave Tag: Server.CreateObject("Access.Application") Tag: 326798
  - 22
    - How do I get the parameter and value of clients web browser temporary system path? Hi All, myGetImage.asp is suppose to create a temporary file in the client side, and display in on the client web browser. myGetImage.asp needs to know the clients web browser temporary system path, in order to create the temp file. How do I get the parameter and value of clients web browser temporary system path? Tag: Server.CreateObject("Access.Application") Tag: 326790
  - 23
    - How do I assure/be certain/check in ASP that an html element was fully loaded in the client side? Hi All, Hi All, (this is not the same topic as the my previous topic) What objects/methods/properties does VBScript offer for: Assuring/guarantee/make certain that ASP/VBSCript an ELEMENT - e.g. <img ... /> - was FULLY Loaded into web Browser My Question is: describe, i have a page that does this a dll thatt does that the problem temp file How do I assure in ASP that an html element was fully loaded in the client side? myGetImage.asp uses a myGetImg.dll that does the following steps: 1. myGetImg.dll gets a data base record field 2. myGetImg.dll creates a temporary image - out of step 1 - on the client side - eg. myTempImg.jpg 3. myGetImage.asp has the <img .../> tag, and displays myTempImg.jpg on the client side. 4. myGetImage.asp uses a simple for...next loop for delaying - because in step 6 myTempImg.jpg is deleted - and Server.ScriptTimeout has a bigger value than the default. 5. myTempImg.jpg is supposed to be shown/displayed on the client side 6. myGetImg.dll deletes the myTempImg.jpg i'm not complete with step 4: that uses for...next loop for delaying, because it can very annoying on the client side to wait so long, for a image to be displayed on the client browser. My problem is: On some case - eg where myTempImg.jpg has big size - the myTempImg.jpg is deleted by myGetImg.dll, before myTempImg.jpg was displayed on the client/web browser. the for..next/and Server.ScriptTimeout don't seem as a good idea, because they sometimes they work and sometimes not. i've test my page on intranet and it's ok, but i'm not sure this will be valid for internet testing. My Question is: is there any object/way/method in asp, that can assure/verify/check/make certain that myTempImg.jpg was fully/100% loaded into the client web server, before myGetImg.dll deletes it. OR How do I assure/be certain/check in ASP that an html element was fully loaded in the client side? Tag: Server.CreateObject("Access.Application") Tag: 326789
  - 24
    - Question of programming principle I am an experienced but self-taught ASP programmer, and sometimes wonder about major issues of principle in programming. For example: I have a web application that iterates over a set of database records, and displays each one on screen. The details of how each record is displayed can vary a lot, so each record might have one to a half-dozen parameters indicating how it displays, and the total list of parameters that any record could have tops 40. Which of the following represents better programming practice: 1) Create a parameters table in the database with a 1:many relationship to the main records, and as each record is processed in the script, do a database query to pull associated parameters, and store the resulting recordset as an array in memory. At each decision point in the script, call a function to check the parameter array and return values if present. Advantages of this approach: orthodox database design; meaning of all the parameters and their values is easily documented in the database. Disadvantage: one to 50 extra database queries per screen, which will affect performance and scalability. 2) Code the parameters into one or more fields in the main record (probably one field for integers and one for text strings) separated by some marker. For example, 2x0x5 for integers or text1&&&text2&&&text3 for text strings. As each record is processed in the script, use the ASP split funciton to create arrays of these parameters. At each decision point in the script, check the appropriate position in the relevant array. Advantage of this approach: no extra database query for each record. Disadvantage: unorthodox, un-normalized database design; parameter sequence and meaning of the values must be documented in the code, which can get messy; and setting up the parameter strings for each record can be tedious and error-prone. Overall, it seems to be a trade-off of hygeine vs. performance. Which approach is better? Tag: Server.CreateObject("Access.Application") Tag: 326788
  - 25
    - bubble sort!? So heres the deal... I work for a company in which numbers are dropping. The owners created a game where calling potential clients racks up points for crap like basketball ticekts and such. The owners called upon me to develop a system where users could enter information to list user name, data stamp it, and then add form data such as the person they called and if it was a cold call or not. All that was pretty easy. Oh, by the by, I had never programmed anything prior to this. I was strictly html. So I made the game... Users enter data, gets dropped into a csv in our _private folder. Then I made it so that the data can be read in html format, simple fso... Well not for me, but I got it to work... So now, the owner wants this list to be sortable by the last name of the agent.... This is where I have the problem. You see, I have a boss, a programmer. He is in Canada where as I am in California. He is far to busy to assist me, and his teaching methods consist of telling me one key word, and leaving me to google the hell out of it. So his key work was bubble sort. Now I have been playing with this for,,, well over a week now (a few days past deadline) and I cannot get it to work properly. I can get bubble sort to work on an array of pre-defined data... My problem( which I have taken forever to get to, sorry) is that I need to get it to look at the whole csv, find out where the eof is, then read up from there... I have no idea how to do this, and no jedi like mentor to ask assistance. I ask for help and either get harped at or a "lol"... Its getting old... Here is the code for the game ++++++++++++++++++++++++++++++++++ <script language="vbscript"> sub referrals_onchange() DIM intCounter for intCounter = 1 to 5 if CInt(document.all.item("referrals").value) >= intCounter then document.all.item("referral_"&intCounter).style.display="block" else document.all.item("referral_"& intCounter).style.display="none" end if next end sub </script> </head> <body> <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" id="AutoNumber1" bgcolor="#C0C0C0"> <tr> <td width="100%" colspan="3"> <img src="../images/1newbanner.jpg" width="513" height="57"><form method="POST" name="FrontPage_Form1" action="--WEBBOT-SELF--" target="_self"> <input TYPE="hidden" NAME="VTI-GROUP" VALUE="0"><p> <font face="Arial" size="2" color="#000066">Welcome <span id="lblCurrentUserName"></span></font></p> <hr> <p> <font face="Arial"><font size="2" color="#000066">Please enter the name of the agent with whom you made contact:<br> First Name: </font><font color="#000066"> <input type="text" name="agentFname" size="20" maxlength="15"></font><font size="2" color="#000066"><br> Last Name: </font><font color="#000066"> <input type="text" name="agentLname" size="20" maxlength="20"></font></font></p> <hr> <p> <font face="Arial"><font size="2" color="#000066">Please enter the agents phone number:<br> </font><font color="#000066"> <input type="text" name="agentNumber" size="20" maxlength="10"></font><font size="2" color="#000066"> ( </font><font size="1" color="#FF0000">must have 10 digits </font><font size="2" color="#000066"> )</font></font></p> <p> <font face="Arial"><font size="2" color="#000066">What is the agents e-mail address:<br> </font><font color="#000066"> <input type="text" name="agentEmail" size="40"></font></font></p> <p> <font face="Arial"><font size="2" color="#000066">Please select a category which best describes the agent with whom you made contact:<br> Active Agent </font><font color="#000066"> <input type="radio" value="active" checked name="agentType"></font><font size="2" color="#000066"> Inactive Agent </font><font color="#000066"> <input type="radio" name="agentType" value="inactive"></font><font size="2" color="#000066">Cold Call</font><font color="#000066"><input type="radio" name="agentType" value="cold"></font></font></p> <p> <font face="Arial" color="#000066" size="2">How many referrals this agent give you?<br> <select size="1" name="referrals"> <option value="0">0</option> <option value="1">1</option> <option value="2">2</option> <option value="3">3</option> <option value="4">4</option> <option value="5">5</option> </select></font></p> <p>  </p> <p> <input type="text" name="referral_1" size="20" style="display:none"></p> <p> <input type="text" name="referral_2" size="20" style="display:none"></p> <p> <input type="text" name="referral_3" size="20" style="display:none"></p> <p> <input type="text" name="referral_4" size="20" style="display:none"></p> <p> <input type="text" name="referral_5" size="20" style="display:none"></p> <hr> <p> <font color="#000066" face="Arial"><input type="submit" value="Submit" name="B1"><input type="reset" value="Reset" name="B2"></font></p> <input type="hidden" name="uname" value="hidden"> </form> </td> </tr> </table> <iframe src="date_user.asp" width="80%" height=100 frameborder=0 scrolling=no name="date_time" styke="display: none"> </iframe> ++++++++++++++++++++++++++++++++++++++++++ this is the code for data_user.asp ++++++++++++++++++++++++++++++++++++++++++ <script language="vbscript"> dim txtUserName txtUserName = "<% = (Session("UserName")) %>" Sub window_onload() window.parent.document.all.item("uname").value = txtUserName window.parent.document.all.item("lblCurrentUserName").InnerText = txtUserName end sub </script> ++++++++++++++++++++++++++++++++++++ this is the admin page i am trying to create +++++++++++++++++++++++++++++++++++++ <b><font color="#000066" face="Arial">Marketing Contest Results <% csv_to_read="../_private/game.csv" set fso = createobject("scripting.filesystemobject") set act = fso.opentextfile(server.mappath(csv_to_read)) imported_text = act.readline imported_text = replace(imported_text,chr(13),",") imported_text = replace(imported_text,chr(34),"") split_text=split(imported_text,",") num_imported=ubound(split_text)+1 total_imported_text = act.readall total_imported_text = replace(total_imported_text,chr(13),",") total_imported_text = replace(total_imported_text,chr(34),"") total_split_text=split(total_imported_text,",") total_num_imported=ubound(total_split_text) %> </font> </b> <table width="100%"border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" > <tr> <% for table = 0 to num_imported -1 %> <td width="<% response.write 100/(num_imported) 'make the cell widths even %>%"bgcolor="#C0C0C0"> <font face="Arial" size="1" color="#000066"> <b><%= split_text(count) %></b>  </td> <% count=count+1 next %> </tr> <tr> <font face="Arial" size="1" color="#000066"> <% 'Reset the counter count=0 for tablea = 0 to (total_num_imported/ (num_imported)-1) %> <% for table = 0 to num_imported -1 %> <td width="<%= 100/(num_imported) %>%"> <font face="Arial" size="1" color="#000066"> <%= total_split_text(count) %> </font>  </td> <% count=count+1 next ' end of the observation %> </tr> <% next 'end of the csv %> </table> +++++++++++++++++++++++++++++++++++++++++++++++++ so there it is... I no Im lame... I have no idea how to do any of this, but do not remember it being in my job description either. Either way, I have to learn or Im gone... All advice will be appreciated. Thanks very much, - joe Tag: Server.CreateObject("Access.Application") Tag: 326775

hi

i have a big problem. i have an asp file with the following source code....

******
Set r_ = Server.CreateObject ("Access.Application.10")

s1 = "DoAnything()"

with r_
.visible = false
.OpenCurrentDatabase "D:\SP5\Data\SPIS_LUPK_Vers.mdb"
sApp = .Eval(s1)
.CloseCurrentDataBase
.Quit acQuitSaveNone

End With

******

my problem is, that the createobject on my iis 15sec. goes....that is not
normally, or ????

what is the problem ? IIS settings ? DComCnfg ?? ASP Problem ??? Wrong
Settings ?

please help me....it's very important....

thanks
david

Top

Re: Server.CreateObject("Access.Application") by Bob

Bob
Tue Nov 07 15:28:42 CST 2006

David Di Donato wrote:
> hi
>
> i have a big problem. i have an asp file with the following source
> code....
>
> ******
> Set r_ = Server.CreateObject ("Access.Application.10")
>
> s1 = "DoAnything()"
>
> with r_
> .visible = false
> .OpenCurrentDatabase "D:\SP5\Data\SPIS_LUPK_Vers.mdb"
> sApp = .Eval(s1)
> .CloseCurrentDataBase
> .Quit acQuitSaveNone
>
> End With
>
> ******
>
> my problem is, that the createobject on my iis 15sec. goes....that is
> not normally, or ????
>
> what is the problem ? IIS settings ? DComCnfg ?? ASP Problem ??? Wrong
> Settings ?
>
Wouldn't know. I've never automated Access in a server application like
ASP:
http://support.microsoft.com/default.aspx?scid=KB;en-us;q257757

--
Microsoft MVP -- ASP/ASP.NET
Please reply to the newsgroup. The email account listed in my From
header is my spam trap, so I don't check it very often. You will get a
quicker response by posting to the newsgroup.

Top