Ad banner

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
    - 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: Ad banner Tag: 325262
  - 2
    - JavaScript and ASP Hi everybody, how r u? I hope fine... People, I have a Javascript function wich returns true ou false, how do I assign the result on ASP variable? <% blnResult = Javascript:function() %> All these work because I have a form wich fields are verified by JavaScript on the client... Is that possible to do? Tag: Ad banner Tag: 325256
  - 3
    - OO4O Transactions: Updates not being rolled=back I'm using OO4O via ASP to manipulate an Oracle 10g database (v10.1.0.4). At the start of each vbScript section I'm starting off the transaction as follows: oDB.AutoCommit = False oDB.BeginTrans And at the end of the section, I have the following: If iError > 0 then oDB.RollbackTrans Else oDB.CommitTrans End If Pretty simple... but unfortunately it doesnt work. All the help I can find only points to this code being correct... where am I going wrong? CJM Tag: Ad banner Tag: 325255
  - 4
    - Response.Redirect problem in Classic ASP Dear All, I am new to ASP/ASP.Net and am trying to workout the exact meaning of some old ASP Classic code. Can anyone please explain the meaning of the following line of code: Response.Redirect("store.asp?r=1&m=3") In particular I need to understand the parameters (i.e. r=1&m=3) that are being passed, and if they are defaults where can I get a listing and explanation of their meanings and uses? Thanks. Alasdair Stirling Tag: Ad banner Tag: 325249
  - 5
    - HELP We are looking to buy databases in the following industries * Pharmacy * Poker * Bingo * Casino * Sportsbook * Backgammon We will pay top $ for data Please contact albert_constantin@walla.com Thank you, Tag: Ad banner Tag: 325246
  - 6
    - Help! CDO I was using this code and was fine but not anymore. <% Function SendEmail( sEmailServer, sFromEmail, sToEmail, sSubject, sText ) Dim objMessage Set objMessage = Server.CreateObject("CDO.Message") objMessage.From = sFromEmail objMessage.To = sToEmail objMessage.Bcc = "xx@xx.ch" objMessage.Subject = sSubject objMessage.TextBody = sText objMessage.Send Set objMessage = Nothing End Function %> This seams to work on my server but how to insert the rest? Thanks for any HELP! <% Dim objMessage Dim myMail Set myMail=CreateObject("CDO.Message") myMail.Subject="Sending email with CDO" myMail.From= "sFromEmail" myMail.To="xxx@xxx.com" myMail.TextBody="This is a message." myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Name or IP of remote SMTP server myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "127.0.0.1" 'Server port myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 myMail.Configuration.Fields.Update myMail.Send set myMail=nothing %> fab Tag: Ad banner Tag: 325245
  - 7
    - Email Responding Hello Friends, I am new bie to ASP. My problem is, I have an Html file with name address and Email Id. when i click a submit button. the application should create a folder and the details must be stored in a text file and that text file must be stored in that folder. and a return email must be sent back to the address whihc is in the text file. If any body know this . please help me. I stucked here. Thanks In advance. Shun Tag: Ad banner Tag: 325244
  - 8
    - Error 70 : access denied Hello, Please anybody try to execute this code. I am having a "quick.html" with email Id and name etc..., and henext form is the below "gdform.asp". When i try to execute this i am getting the following error. Error 70 : Access Denied. Please anybody can help me. Thanks in advance. <% Dim landing_page, host_url Dim fso, outfile, filename, dirname, myFolder Dim req_method, key, value1 Dim bErr, errStr, bEmpty On Error resume next bErr = false bEmpty = true errStr = "" Set fso = Server.CreateObject("Scripting.FileSystemObject") host_url = Request.ServerVariables("HTTP_HOST") response.write(host_url) req_method = Request.ServerVariables("REQUEST_METHOD") dtNow = Now() filename = Server.MapPath("ssfm") dirname = filename filename = filename & "\gdform_" & DatePart("M", dtNow) & DatePart("D", dtNow) & DatePart("YYYY", dtNow) & DatePart("N", dtNow) & DatePart("S", dtNow) response.write(req_method) response.write(dtnow) response.write(filename) response.write(dirname) sub FormatVariableLine(byval var_name, byVal var_value) Dim tmpStr tmpStr = tmpStr & "<GDFORM_VARIABLE NAME=" & var_name & " START>" & vbCRLF tmpStr = tmpStr & var_value & vbCRLF tmpStr = tmpStr & "<GDFORM_VARIABLE NAME=" & var_name & " END>" FormatVariableLine = tmpStr end sub Sub OutputLine(byVal line) outfile.WriteLine(line) end sub if err.number = 0 then response.Write("<br> Error :" & err.number &"::"&err.description & filename) Set outfile = fso.CreateTextFile(filename, true) response.Write(filename) if err.number <> 0 then bErr = true response.Write("<br> Error :" & err.number &"::"&err.description) errStr = "Error creating file! Directory may not be writable or may not exist.<br>Unable to process request." else response.write("gaffar") if(req_method = "GET") then for each Item in request.QueryString if item <> "" then bEmpty = false key = item value1 = Request.QueryString(item) if(lcase(key) = "redirect") then landing_page = value1 else line = FormatVariableLine(key, value1) Call OutputLine(line) end if end if next elseif (req_method = "POST") then for each Item in request.form if item <> "" then bEmpty = false key = item value1 = Request.form(item) if(lcase(key) = "redirect") then landing_page = value1 else line = FormatVariableLine(key, value1) Call OutputLine(line) end if end if next end if outfile.close end if if(bEmpty = true) AND errStr = "" then bErr = true errStr = errStr & "<br>No variables sent to form! Unable to process request." end if if(bErr = false) then if (landing_page <> "") then response.Redirect "http://" & host_url & "/" & landing_page else response.Redirect "http://" & host_url end if else Response.Write errStr end if set fso = nothing else Response.Write " An Error Occurred creating mail message. Unable to process form request at this time." end if %> Tag: Ad banner Tag: 325243
  - 9
    - Parent directory dilemma Hi all, Currently building a web site in ASP/VBScript and have a number of include files. When I make the call to it via <%!-- include file="../blah/blah.inc" --%> I get the standard Windows 2003 Server error message about the parent paths thing (no probs there as I have them switched off) so I altered my call to the include file to use the virtual include (ie ...include virtual="/blah/blah.inc"... etc) and this works fine if I view the web site outside of my local network (ie www.domainname.com), however, when I view it from within my local network whilst i'm developing it (ie http://servername/rootfoldername/subfolder/pagename.asp) it doesn't like it. It's only when I alter the include statement to include the rootfoldername from the local address (which is the folder is resides in in WWWROOT) that it now works, however, access from the outside world will not... How can I get it so these two can live in harmony as I don't want to have to change all the include calls each time I work on it at different locations (sometimes I work on it from within the local network, sometimes externally)? Cheers muchly, Bj Tag: Ad banner Tag: 325237
  - 10
    - creating a document on the server (MS Word doc) I have a registration form where a user is able to, upon submission of the form, have their submission entered into a simple database... now Im looking to create a word document on the fly from that submission using this as a model to build from: http://www.freevbcode.com/ShowCode.Asp?ID=1727 There are no errors generated but there is NO .DOC file created at all either... Im not sure what Im doing wrong... any clue what I need to change to get this to work? heres the code: ' CREATE WORD DOCUMENT Set WordApp = CreateObject("word.application") Set WordDoc = WordApp.Documents.Add() WordApp.Application.Visible = False Set MyRange1 = WordDoc.Paragraphs.Add.Range MyRange1.InsertBefore("Appraisal Form") MyRange1.Style = "Heading 1" Set MyRange1 = WordDoc.Paragraphs.Add.Range MyRange1.InsertBefore("Manager: " & fname & vbcrlf & "Appraisee: " & lname) MyRange1.Font.Bold = true Set MyRange1 = WordDoc.Paragraphs.Add.Range MyRange1.InsertBefore(vbcrlf & "Please fill in all the required sections and return to HR via the internal mail system.") ' Set the directory location to store the generated documents WordDocPath = Server.MapPath("") ' Use the unique session ID as the filename. WordDoc.SaveAs WordDocPath & "" & session.sessionID & ".doc" WordDoc.Close WordApp.Quit Set WordDoc = Nothing Set WordApp = Nothing ' EMAIL WORD DOCUMENT 'Set mailer = Server.CreateObject("ASPMAIL.ASPMailCtrl.1") 'recipient = Email 'sender = "vance@ukonline.co.uk" 'subject = "Requested Form" 'message = "Please find the requested document attached." 'attach = WordDocPath & "\" & session.SessionID & ".doc" 'INSERT YOUR MAIL SERVER HERE 'mailserver = "xxx.xx.xx.xx" 'result = mailer.SMAttach(mailserver, recipient, sender, subject, message, attach) ' DELETE WORD DOCUMENT FROM SERVER 'Set fso = CreateObject("Scripting.FileSystemObject") 'fso.DeleteFile(WordDocPath & "\" & session.SessionID & ".doc") 'Response.Write "The requested form will arrive in your inbox (email) within a few minutes. Please complete and return to HR asap." 'Response.Write "There has been an error sending the document to you." & vbcrlf 'Response.Write "Right click the following link and select ""Save Target As..."" to retrieve the word document." & vbcrlf & vbcrlf Response.Write "<A href=""" & session.SessionID & ".doc"">Generated Document</A>" & vbcrlf & vbcrlf Tag: Ad banner Tag: 325236
  - 11
    - How to get a value calculated in a Function Hi, I have a function that looks up various values and then results in a value to a variable: Function ShouldItBeReferred If Claim3Date <> "" Then 'Do stuff...... TheAnswer = "Yes" Else TheAnswer = "No" End If 'and various other stuf......... If TheAnswer = "Yes" Then TheMessage = "Yes, for now." 'real messageto follow.. Else TheMessage = "No, for now." 'real messageto follow.. End If End Function Elsewhere on the page, a number of times, I need to Call the Function and find out the value of 'TheMessage' to display. I've tried: Call ShouldItBeReferred .......... nothing DisplayMessage = ShouldItBeReferred ..........nothing Please can you tell me how to call the function 'run it' and find out the value of 'TheMessage' Many thanks Jon Tag: Ad banner Tag: 325229
  - 12
    - ASP 3 transactions and SSI Using the ASP 3 transaction functionality requires that the transaction flag is set as the very first code row, I understand. I now have a requirement to implement a transaction in one of the pages. Unfortunately the whole site is based on SSI (server side includes) that are being picked up based on the users preferences. I have an index.asp page that does this selection, which is always loaded first. Is there any way around this, or do you guys have any other suggestions? Thanks alot! Anders Tag: Ad banner Tag: 325228
  - 13
    - Problems with CDOSys and Win2K Hello, I have a Win2K server that I run a website on. I have an asp page that sends an email to me when someone makes a request or provides feedback on the website. It has worked fine until some point in the last month. I know there were a bunch of "Critical Updates" that Microsoft forced on my machine and forced the restart. Could that have anything to do with the reason the email doesn't work anymore? I keep getting a "Page cannot be displayed" error when I post to the asp page that sends the email. I also have another third party ASP.net application that doesn't send email anymore, so that's why I wondered if it was the component. Below is the function that I'm using to send the email. Any help would be greatly appreciated. Thanks! if mailComp = "CDOSYS" then set cdoMessage = Server.CreateObject("CDO.Message") set cdoConfig = Server.CreateObject("CDO.Configuration") ' cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 ' cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver" ) = smtpServer cdoConfig.Fields.Update set cdoMessage.Configuration = cdoConfig cdoMessage.From = fromAddr cdoMessage.ReplyTo = replyTo cdoMessage.To = recipients cdoMessage.Subject = subject cdoMessage.HtmlBody = body on error resume next cdoMessage.Send if Err.Number <> 0 then SendMail = "Email send failed: " & Err.Description & "." end if set cdoMessage = Nothing set cdoConfig = Nothing exit function end if 'Send email (JMail version). if mailComp = "JMail" then set mailObj = Server.CreateObject("JMail.SMTPMail") mailObj.Silent = true mailObj.ServerAddress = smtpServer mailObj.Sender = fromAddr mailObj.ReplyTo = replyTo mailObj.Subject = subject addrList = Split(recipients, ",") for each addr in addrList mailObj.AddRecipient Trim(addr) next mailObj.ContentType = "text/html" mailObj.Body = body if not mailObj.Execute then SendMail = "Email send failed: " & mailObj.ErrorMessage & "." end if exit function end if Tag: Ad banner Tag: 325226
  - 14
    - shell.application Hello everyone, i have a little question: Does shell.application aplly/work with virtual directories or paths? thanks in advance, ember Tag: Ad banner Tag: 325221
  - 15
    - FileSystemObject CreateTextFile falling over I am trying to execute the following function which performs four tests to make sure the current environment is capable of uploading files. Test 1 completes ok, but test 2 results in the page hanging indefinitely. An error number is not returned (it just hangs on the line: Set testFile = fso.CreateTextFile(fileName, true) ). However when I execute test 2 using VBScript from within an Excel macro it creates the text file without any problem. I have given IUSR & IWAM Administrator rights but this has not helped. Does anyone please have any ideas? Many Thanks Iain function TestEnvironment() Dim fso, fileName, testFile, streamTest TestEnvironment = "" 'Test 1 Set fso = Server.CreateObject("Scripting.FileSystemObject") if not fso.FolderExists(uploadsDirVar) then TestEnvironment = "<B>Folder " & uploadsDirVar & " does not exist.</B><br>The value of your uploadsDirVar is incorrect. Open AdminFileUpload.asp in an editor and change the value of uploadsDirVar to the pathname of a directory with write permissions." exit function end if 'Test 2 fileName = uploadsDirVar & "\test.txt" on error resume next Set testFile = fso.CreateTextFile(fileName, true) If Err.Number<>0 then TestEnvironment = "<B>Folder " & uploadsDirVar & " does not have write permissions.</B><br>The value of your uploadsDirVar is incorrect. Open AdminFileUpload.asp in an editor and change the value of uploadsDirVar to the pathname of a directory with write permissions." exit function end if Err.Clear testFile.Close 'Test 3 fso.DeleteFile(fileName) If Err.Number<>0 then TestEnvironment = "<B>Folder " & uploadsDirVar & " does not have delete permissions</B>, although it does have write permissions.<br>Change the permissions for IUSR_<I>computername</I> on this folder." exit function end if Err.Clear 'Test 4 Set streamTest = Server.CreateObject("ADODB.Stream") If Err.Number<>0 then TestEnvironment = "<B>The ADODB object <I>Stream</I> is not available in your server.</B><br>Check the Requirements page for information about upgrading your ADODB libraries." exit function end if Set streamTest = Nothing end function Tag: Ad banner Tag: 325210
  - 16
    - Strip Query String from url Below is a script I use to strip everything from a url except the actual page. So for example, "http://www.cnn.com/mypage.asp?article=5&id=20" becomes "mypage.asp". I'm looking for a script that will strip any querystring from a url if it exists, so my result would be "http://www.cnn.com/mypage.asp". Can someone help me modify my script below to achieve this result? I'm horrible with string functions. CODE to Get URL ************** Right(Request.ServerVariables("SCRIPT_NAME"),Len(Request.ServerVariables("SCRIPT_NAME"))-InStrRev(Request.ServerVariables("SCRIPT_NAME"),"/")) Tag: Ad banner Tag: 325206
  - 17
    - in intranet, How can I get the userID using ASP? within the intranet, all user are required to login. How can I get the User ID and Domain in ASP page? Tag: Ad banner Tag: 325202
  - 18
    - cookies can't figure why my page won't redirect. When I call 10_6.asp it should call 10_5.asp heres the code... Thank You Kevin 10_6.asp <%@ Language=VBscript %> <% Option Explicit %> <% Response.Cookies("UserInformation")("LastVisit")= Now Response.Cookies("UserInformation")("Name") = "Scott" Response.Cookies("UserInformation")("UserAgentString") =_ Request.ServerVariables("HTTP_USER_AGENT") response.redirect "10_5.asp" %> 10_5.asp <%@ Language=VBscript %> <% Option Explicit %> <% Dim strCookieName, strKeyName 'NOTE: why don't I have an assignment statement for strCookieName? For Each strCookieName in Request.Cookies If Request.Cookies(strCookieName).HasKeys then for each strKeyName in Request.Cookies(strCookieName) Response.Write strCookieName & "(" & strKeyName & ") = " &_ Request.Cookies(strCookieName)(strKeyName) & "<br>" next else Response.write strCookieName & " = " &_ Request.Cookies(strCookieName) end if response.write "<br>" next %> Tag: Ad banner Tag: 325198
  - 19
    - Paging MySQL Database records......again This is a multi-part message in MIME format. ------=_NextPart_000_0062_01C6CE35.FF84A730 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable i post a while back on how to page thru database records. i dont really = understand the ASPFAQ one. Its not well commented. This is how i learn = anything, is if its commented on what does what. Can someone please help me. i have a datbase of about 90 records so far, = that i would like to page thru. Thank you. James Jones ------=_NextPart_000_0062_01C6CE35.FF84A730 Content-Type: text/html; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD> <META http-equiv=3DContent-Type content=3D"text/html; = charset=3Diso-8859-1"> <META content=3D"MSHTML 6.00.2900.2963" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=3D#ffffff> <DIV><FONT face=3DArial size=3D2>i post a while back on how to page thru = database=20 records. i dont really understand the ASPFAQ one. Its not well = commented. This=20 is how i learn anything, is if its commented on what does = what.</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>Can someone please help me. i = have a datbase=20 of about 90 records so far, that i would like to page thru.</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>Thank you.</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>James Jones</FONT></DIV> <DIV> </DIV></BODY></HTML> ------=_NextPart_000_0062_01C6CE35.FF84A730-- Tag: Ad banner Tag: 325184
  - 20
    - urgent i need help ....how can i send a e-mail to the person who has fillied my apply.html form ... i have a email (textbox field) ..i mean automatic email reply ... thanks friends those who give me that code or guide me .... Tag: Ad banner Tag: 325183
  - 21
    - out of bounds on array working through this tutorial and I just can't seem to find why I am over running my array. If you have time can you drop this into your debugger? I don't have one for asp pages. Using a text editor and my print statements don't seem to be revealing the error. Microsoft VBScript runtime error '800a0009' Subscript out of range: '[number: 43]' /Bp_1.asp, line 80 <%@ Language=VBscript %> <% Option Explicit %> <html> <body> <% '_____________________________________________ ' Display a calendar based upon the current date '------------------------------------------------- Function getMonthName(iMonth) Select Case iMonth case 1: GetMonthName = "January" case 2: GetMonthName = "February" case 3: GetMonthName = "March" case 4: GetMonthName = "April" case 5: GetMonthName = "May" case 6: GetMonthName = "June" case 7: GetMonthName = "July" case 8: GetMonthName = "August" case 9: GetMonthName = "September" case 10: GetMonthName = "October" case 11: getMonthName = "November" case 12: getMonthName = "December" case else getMonthName = "in valid month" end select end function Dim dbCurrentDate dbCurrentDate = Date() Dim aCalendarDays(42) Dim iFirstWeekday iFirstWeekDay = DatePart("w",DateSerial(Year(dbCurrentDate),Month(dbCurrentDate),1)) Dim iDaysInMonth iDaysInMonth = DatePart("d",DateSerial(Year(dbCurrentDate),Month(dbCurrentDate)+1, 1-1)) dim iLoop For iLoop = 1 to iDaysInMonth aCalendarDays(iLoop + iFirstWeekday - 1) = iLoop next Dim iColumns, iRows iColumns = 7 iRows = 6 - Int((42 - (iFirstWeekDay + iDaysInMonth)) / 7) %> <table align=center border=1 cellspacing=1 width=75% height=75% <th colspan=7> <% Response.Write GetMonthName(Month(dbCurrentDate)) Response.Write ", " & Year(dbCurrentDate) %> </th> <% Dim iRowsLoop, iColumnsLoop For iRowsLoop = 1 to iColumns 'create a new row response.write "<tr>" for iColumnsLoop = 1 to iColumns 'create a column if aCalendarDays((iRowsLoop-1)*7 + iColumnsLoop) > 0 then 'dispaly the date Response.Write "<td valign=top align=right width=""14%"">"_ & aCalendarDays((iRowsLoop-1)*7 + iColumnsLoop)_ & "</td>" else 'gray out cell response.write "<td bgcolor=gray> </td>" end if next 'close the row response.write "</tr>" next %> </table> <br><br> hello again </body> </html> Tag: Ad banner Tag: 325181
  - 22
    - Session Lost when opening Word Doc Hello All, I have an app on an intranet which uses the response.contenttype in ASP to create a word doc. The issue I am having is that when this doc is generated and opened, the session is lost. We have tried everything up to this point, setting timeout in IIS, refresh scripts, etc, until we realized it has something to to do with the Word document. I have spent a LOT of time trying to figure this out, or find an answer online. I have come across a few other posts, but no one repsonded to them. I am desperate for help! Tag: Ad banner Tag: 325173
  - 23
    - Email Challenge... OK, here is what I am attempting. I have an .asp page on our company intranet in which the user can key some referral information. Upon submit, the data is transferred to an SQL database and the user receives a confirmation of this submission. One of the fields that the employee selects is the sales rep to receive the referral. I would like to be able to send the rep an email with the information entered by the employee so they can contact the client. I am using Frontpage 2002 and I am aware that this process is not available within Frontpage but I believe it can be coded manually but I can't seem to find a good resource to assist me in this process. Our web-server is running Windows Server 2003. I believe this can be accomplished and I hope to get some direction. Any help would be appreciated. Thanks. Tag: Ad banner Tag: 325167
  - 24
    - Request.Form(var) empty with IE, works fine with Firefox. Help please. Hi, I've been trawling the web for answer to my problem with no luck although I'm hardly alone it seems! Below is the generated source for an ASP page that posts a value called 'album' to another ASP page. The other page retrieves the value with Request.Form('album'); On Firefox this works fine every time. On IE6, I always get nothing. I'm pretty sure it's the posting side that is at fault, so that's what I've shown here. Oh, I tried Request.QueryString too and again, fine on Firefox, nothing on IE6. Any help would be much appreciated. <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <meta http-equiv="Content-Language" content="en-us"> <title>Gallery</title>  <link rel="stylesheet" type="text/css" href="_themes/poetic2/poet1011.css"> <meta name="Microsoft Theme" content="poetic2 1011, default"> </head> <body> <form name='albumselect' action="gallery_intro.asp" method="post" target="intro"> <CENTER><h2>ALBUMS</h2></CENTER><hr><br> <CENTER><input name='album' type=image src='photogallery/Test One/Title.jpg' value='photogallery/Test One' onClick='submit();'></CENTER> <CENTER>Test One Photos</CENTER><br><hr><br> <CENTER><input name='album' type=image src='photogallery/Test Two/Title.jpg' value='photogallery/Test Two' onClick='submit();'></CENTER> <CENTER>Test Two Photos</CENTER><br><hr><br> <CENTER><input name='album' type=image src='photogallery/Test Three/Title.jpg' value='photogallery/Test Three' onClick='submit();'></CENTER> <CENTER>Test Three Photos</CENTER><br><hr><br> </form> </body> </html> Regards, Dave Tag: Ad banner Tag: 325161
  - 25
    - Problems Using onchange with option lists I am trying to take actions using onchange with an option list without success. I am not able to fully populate the list without a bad bad behavior (the list is not getting populated) What I am looking for, is being able to call a sub procedure each time a new item in the list is selected (of course after it has been populated) Below some of the code: <%Sub Refresh co_pais_envio_chk=co_pais_envio window.location.href="checkout_direccion.asp" End Sub%> <%rs_pais.MoveFirst%> <select name="cbo_pais_env" class="form1" id="cbo_pais_env" onchange=<%call refresh%>"> <option value="0" size="25">Seleccione</option> <%Do While Not rs_pais.EOF%> <%if cint(rs_pais("id_pais")) > 1000 then%> <option size="25" <%If CInt(co_pais_envio) = CInt(rs_pais("id_pais")) Then %> selected <%End If%> value="<%=rs_pais("id_pais") & "-" & rs_pais("co_zona_dhl_ve") & "-" & rs_pais("co_zona_mrw_ve")%>"><%=UCase(rs_pais("no_pais"))%></option> <%end if rs_pais.MoveNext Loop rs_pais.movefirst Do While Not rs_pais.EOF%> <%if cint(rs_pais("id_pais")) < 1000 then%> <option <%If CInt(co_pais_envio) = CInt(rs_pais("id_pais")) Then %> selected <%End If%> value="<%=rs_pais("id_pais") & "-" & rs_pais("co_zona_fedex") & "-" & rs_pais("co_zona_dhl_exp")%>"><%=UCase(rs_pais("no_pais"))%></option> <%end if rs_pais.MoveNext Loop rs_pais.Close Set rs_pais = Nothing %> Tag: Ad banner Tag: 325159
- Next
  - 1
    - 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: Ad banner Tag: 325158
  - 2
    - 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: Ad banner Tag: 325151
  - 3
    - 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: Ad banner Tag: 325145
  - 4
    - 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: Ad banner Tag: 325143
  - 5
    - 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: Ad banner Tag: 325137
  - 6
    - 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: Ad banner Tag: 325135
  - 7
    - 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: Ad banner Tag: 325130
  - 8
    - 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: Ad banner Tag: 325123
  - 9
    - cookie testing I need to revisit cookie testing. On the home page and every product page I write a cookie. I do this because some users enter by direct links to product pages. <% Response.Cookies("cookietest") = ("49") Response.Cookies("cookietest").Expires = Date + 2 %> On the cart page I test for the cookie... <% If Request.Cookies("cookietest") <> "49" Then Response.Redirect("err.asp?e=1") End If %> I have a user that insists he has cookies enabled, yet he keeps getting redirected to my error page which suggests he does not have cookies enabled. What could cause this? Is the above too simple for all circumstances? Is there more extensive code that I could setup on a hidden page where I can send users to get read out on how they actually have their browsers setup? i.e. Run a test on their browser and the results are emailed to me. thanks! Tag: Ad banner Tag: 325115
  - 10
    - ASP Compiling? I've got a website that is very fast. I just added a subroutine in the file global.asp (global.asp is run each time any page is called). The subroutine determines the user's country by comparing their IP address against a 6Meg Access database that converts IP to country. It then sets a Session variable with the user's country. After that, each time the subroutine is called it checks to see if that Session variable is set. If it is, it exits the subroutine - without calling the Access database. Regardless, I've noticed that my website is slightly slower than before. Even though the Access database is only called once per session, does ASP compile global.asp each time it is run, and is it slowing down because it is compiling/establishing/whatever a connection to the Access database that it is not using anyway? (Hey, I know MS SQL is faster than Access! I'm trying to understand more about ASP, that's all) Thanks! Vic Tag: Ad banner Tag: 325114
  - 11
    - I want to be able to send an email from a website into the inbox as an appointment to be accepted I need/want to be able to send an email from a website running IIS and CDONTS for mail (or ASPMAIL) that comes into the inbox as an appointment to be accepted. The company is not running Exchange internally or on the website (which is hosted). Here is the basic app: A visitor schedules an appointment to speak to a rep from the company. Their appointment data is kept in a SQL DB. I have their name, email, appointment date/time, and some simple notes. Later, someone from the company goes online and assigns the appointment to an internal staff person. Currently they get an email with the appointment information and can go online to view the SQL data. I would like the appointment to show up in their outlook mailbox. Any ideas. I posting this on the VBScript and general .asp newsgroups as well. Thanks, Matt Tag: Ad banner Tag: 325112
  - 12
    - ASp Spreadsheet Hi, i am having a problemn thinking on a solution to make a web application. This is the scenario: I have to make an application that should catch some user data on the screen and pass it to a database. Here is the problemn: the data that the user will pass is huge. I am talking about some columns and 27 rows. 3 rows as caption rows and the other 24 to get the data. How can i do that? I thought about making columns with textboxes (with ids like R1C1, R2C2, R1C4...) in a dynamic table inside a form and submit it. But the boss wants an excel spreadsheet look into it. I am relutant about using OWC because first, i don't know if the users will have the office installed and secondly because if they do have office installed, how can i know what version of office is everybody using? Does anybody have a sugestion about how can i do that? How can i make a spreadsheet interactive look like? How can i pass the data from the browser to the server? thanks, leokporto Tag: Ad banner Tag: 325111
  - 13
    - MS SQL search I want to search the content of some database tables, do asp has some function or tool do this? thx Tag: Ad banner Tag: 325108
  - 14
    - database search I want to do a searching on database some tables' content, is asp have so function or tool to do this? thx Tag: Ad banner Tag: 325107
  - 15
    - Using Access Database on Different Location for .NET 2.0 Hi! I am use to the include file on classic asp for maintaining MS Access database location. On using Visual Web Developer Express, I can only use the MS Access database if it is located on the same folder with the web app. Is there a way that I can locate MS Access as my database but the location is not located on the web application? Hope you might help. Me Tag: Ad banner Tag: 325105
  - 16
    - search form property DocTitle Hi, I got the sample from MS website on the search form. There is a property, DocTitle. It doesnt bring any data back to be displayed. Could someone help me and tell me what this is suppose to bring from pdf/word files? I thought it was the title in the word document for the document properties? I have something there in the document but it still doesnt display it. It seems to be always blank. thanks, Will Tag: Ad banner Tag: 325094
  - 17
    - External Server pull files from Internal Server I have an application that needs to pull files from an internal server. This is the setup. The web server is external facing, meaning exposed to the internet. I then have a file server that sits inside our domain. I created a COM object that can impersonate a user to retrieve files from that server. However, I cannot get the application to pull files from the internal server. I first tried a domain account that could reach both servers. This did not work. I then had the network team create the same account on both machines. This is not working either. I can impersonate the user (I am able to get the user/users authenticated), but the script keeps coming back with and access denied. The application creates a wscript.shell object to zip files from the internal server and place the actual zip on the external server. Here is an example of the code: <% Set wShell = Server.CreateObject("WSCRIPT.SHELL") strZip = "c:\progra~1\winzip\wzzip.exe -ee -ybc E:\\5200044298_1_mqh6Kw.zip \\InternalServer\SharedDrive\1125010" Set objLogon = Server.CreateObject("LoginAdmin.ImpersonateUser") objLogon.Logon "localuseraccount", "password", "",2,0 Response.write objLogon.getToken & "<br>" Response.Write objLogon.getResult & "<br>" set proc = wShell.exec(strZip) Response.Write "Return String = " & proc.StdOut.ReadAll & "<br>" set wShell = nothing objLogon.LogOff Set objLogon = nothing %> The com object basically takes a username,password,domain(if blank defaults to local box),Logon Type, and Logon Provider. I have tried several combinations of long on type and provider, but nothing seems to work. I am thinking that I am really only authentication to the local machine and not to the internal server. Our network people say they have everything between servers is setup correctly, but I am not sure. I can, using the FileSystemObject, copy the files from the internal server to the Web Server, but it is when I try to use the script shell that this does not work. Any ideas are appreciated. Daniel C. Di Vita Tag: Ad banner Tag: 325092
  - 18
    - delete session data for other users logged on I have a website that requires users to login. We track them by using sessions. We record the time and date that they login, their session id, the last page they visited, etc in a database. As as admin, I would like to be able to login and force a logout of other users logged in. Is this possible? I have looked online but there doesn't seem to be any information that addresses this. Tag: Ad banner Tag: 325080
  - 19
    - Error trying to send email This is a multi-part message in MIME format. ------=_NextPart_000_00ED_01C6CB04.FB90B3F0 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable error '80040211'=20 /register.asp, line 71=20 I receive this error when i attempt to send an email. My code is as follows: Dim ObjSendMail Set ObjSendMail =3D CreateObject("CDO.Message")=20 ObjSendMail.Configuration.Fields.Item = ("http://schemas.microsoft.com/cdo/configuration/sendusing") =3D 2 'Send = the message using the network (SMTP over the network). ObjSendMail.Configuration.Fields.Item = ("http://schemas.microsoft.com/cdo/configuration/smtpserver") =3D = "xxxxxxxx" ObjSendMail.Configuration.Fields.Item = ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") =3D 25 = ObjSendMail.Configuration.Fields.Item = ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") =3D False = 'Use SSL for the connection (True or False) ObjSendMail.Configuration.Fields.Item = ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = =3D 60 ' If your server requires outgoing authentication uncomment the lines = bleow and use a valid email address and password. ObjSendMail.Configuration.Fields.Item = ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") =3D = 1 'basic (clear-text) authentication ObjSendMail.Configuration.Fields.Item = ("http://schemas.microsoft.com/cdo/configuration/sendusername") = =3D"xxxxxx@xxxxx.xxx" ObjSendMail.Configuration.Fields.Item = ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = =3D"xxxxxxx" ObjSendMail.Configuration.Fields.Update ObjSendMail.To =3D register_email ObjSendMail.Subject =3D "Confirm Your Account" ObjSendMail.From =3D "From Us!" message =3D "Thank you for signing up! Please click the link below to = confirm your account. If the link does not work, then copy and paste the = link into your browser's address bar.<br><br>" message =3D message & "<a = href=3D"http://www.mywebsite.com/register.asp?func=3Dconfirm&email=3D" & = register_email & "confirmatoin_number=3D" & confirmation_number & = """>Confirm Your Account</a><br><br>" message =3D message & = "http://www.mywebsite.com/register.asp?func=3Dconfirm&email=3D" & = register_email & "confirmatoin_number=3D" & confirmation_number ObjSendMail.HTMLBody =3D message ObjSendMail.Send Set ObjSendMail =3D Nothing=20 just to verify, the username and password ARE correct. i even changed = the password on my mail server, and copied and pasted it here. (i have = them "xxx"ed out for my own security) the mail server is correct. i use all this same information in outlook = express. PLEASE HELP ME!!! This same script works for a friend of mine. i made = him a script which does the same thing pretty much, but it sends for = him......... Thanks, James Jones ------=_NextPart_000_00ED_01C6CB04.FB90B3F0 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>error '80040211'</FONT>=20 <P><FONT face=3DArial size=3D2>/register.asp</FONT><FONT face=3DArial = size=3D2>, line=20 71</FONT> </P> <P><FONT face=3DArial size=3D2></FONT> </P> <P><FONT face=3DArial size=3D2>I receive this error when i attempt to = send an=20 email.</FONT></P> <P><FONT face=3DArial size=3D2></FONT> </P> <P><FONT face=3DArial size=3D2>My code is as follows:</FONT></P> <P><FONT face=3DArial size=3D2></FONT> </P> <P><FONT face=3DArial size=3D2></FONT> </P> <P><FONT face=3DArial size=3D2></FONT> </P> <P><FONT face=3DArial size=3D2>Dim ObjSendMail<BR>Set ObjSendMail =3D=20 CreateObject("CDO.Message") <BR>ObjSendMail.Configuration.Fields.Item = ("<A=20 href=3D"http://schemas.microsoft.com/cdo/configuration/sendusing">http://= schemas.microsoft.com/cdo/configuration/sendusing</A>")=20 =3D 2 'Send the message using the network (SMTP over the=20 network).<BR>ObjSendMail.Configuration.Fields.Item ("<A=20 href=3D"http://schemas.microsoft.com/cdo/configuration/smtpserver">http:/= /schemas.microsoft.com/cdo/configuration/smtpserver</A>")=20 =3D "xxxxxxxx"<BR>ObjSendMail.Configuration.Fields.Item ("<A=20 href=3D"http://schemas.microsoft.com/cdo/configuration/smtpserverport">ht= tp://schemas.microsoft.com/cdo/configuration/smtpserverport</A>")=20 =3D 25 <BR>ObjSendMail.Configuration.Fields.Item ("<A=20 href=3D"http://schemas.microsoft.com/cdo/configuration/smtpusessl">http:/= /schemas.microsoft.com/cdo/configuration/smtpusessl</A>")=20 =3D False 'Use SSL for the connection (True or=20 False)<BR>ObjSendMail.Configuration.Fields.Item ("<A=20 href=3D"http://schemas.microsoft.com/cdo/configuration/smtpconnectiontime= out">http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout= </A>")=20 =3D 60<BR>' If your server requires outgoing authentication uncomment = the lines=20 bleow and use a valid email address and=20 password.<BR>ObjSendMail.Configuration.Fields.Item ("<A=20 href=3D"http://schemas.microsoft.com/cdo/configuration/smtpauthenticate">= http://schemas.microsoft.com/cdo/configuration/smtpauthenticate</A>")=20 =3D 1 'basic (clear-text) = authentication<BR>ObjSendMail.Configuration.Fields.Item=20 ("<A=20 href=3D"http://schemas.microsoft.com/cdo/configuration/sendusername">http= ://schemas.microsoft.com/cdo/configuration/sendusername</A>")=20 =3D"<A=20 href=3D"mailto:xxxxxx@xxxxx/">xxxxxx@xxxxx</A>.xxx"<BR>ObjSendMail.Config= uration.Fields.Item=20 ("<A=20 href=3D"http://schemas.microsoft.com/cdo/configuration/sendpassword">http= ://schemas.microsoft.com/cdo/configuration/sendpassword</A>")=20 =3D"xxxxxxx"<BR>ObjSendMail.Configuration.Fields.Update<BR>ObjSendMail.To= =3D=20 register_email<BR>ObjSendMail.Subject =3D "Confirm Your=20 Account"<BR>ObjSendMail.From =3D "From Us!"<BR>message =3D "Thank you = for signing=20 up! Please click the link below to confirm your account. If the link = does not=20 work, then copy and paste the link into your browser's address=20 bar.<br><br>"<BR>message =3D message & "<a href=3D"<A = href=3D"http://www.mywebsite.com/register.asp?func=3Dconfirm&email">h= ttp://www.mywebsite.com/register.asp?func=3Dconfirm&email=3D</A>"=20 & register_email & "confirmatoin_number=3D" & = confirmation_number=20 & """>Confirm Your = Account</a><br><br>"<BR>message =3D=20 message & "<A=20 href=3D"http://www.mywebsite.com/register.asp?func=3Dconfirm&email">h= ttp://www.mywebsite.com/register.asp?func=3Dconfirm&email=3D</A>"=20 & register_email & "confirmatoin_number=3D" &=20 confirmation_number</FONT><FONT face=3DArial = size=3D2><BR>ObjSendMail.HTMLBody =3D=20 message<BR>ObjSendMail.Send<BR>Set ObjSendMail =3D Nothing </FONT></P> <P><FONT face=3DArial size=3D2></FONT> </P> <P><FONT face=3DArial size=3D2>just to verify, the username and password = ARE=20 correct. i even changed the password on my mail server, and copied and = pasted it=20 here. (i have them "xxx"ed out for my own security)</FONT></P> <P><FONT face=3DArial size=3D2>the mail server is correct. i use all = this same=20 information in outlook express.</FONT></P> <P><FONT face=3DArial size=3D2>PLEASE HELP ME!!! This same script works = for a friend=20 of mine. i made him a script which does the same thing pretty much, but = it sends=20 for him.........</FONT></P> <P><FONT face=3DArial size=3D2></FONT> </P> <P><FONT face=3DArial size=3D2>Thanks,</FONT></P> <P><FONT face=3DArial size=3D2>James = Jones</FONT></P></DIV></BODY></HTML> ------=_NextPart_000_00ED_01C6CB04.FB90B3F0-- Tag: Ad banner Tag: 325077
  - 20
    - Tracking changes I have asked this here before, but am still trying to decide what's best, and would appreciate the input of seasoned Asp developers. It's an ASP-built Intranet app, so I can't show you the site, but I'll show you screen shots if you think that will help. The app is to keep track of issues called in to a Support help desk. These issues are called tickets. Each ticket has one and only one row in this given table (let's call it Ticket). Any additional info on a ticket will be entered into another table (called History), so it's possible to have many rows in that table for each one in the table I am focusing on. The app in question uses SQL Server 2000 as its datasource. The table contains info entered when a ticket was created, but I have included a mechanism for users to go back and change info that was originally entered. This leads me to my dillemma. The boss wants me to find a way to keep up with changes to that original info. It seems logical to keep this info in another table. Let's call this new table Audit. I have explored using a trigger which would create a row in the Audit table whenever an Update was used on the Ticket table. The problem with that is, you have one row per changed field, and that could add up. Actually, it's not a problem, just something to consider. The alternative is to have ASP code which would, when any edits are made, manually compare each new value in the form to each existing value, and record those items which have changed. This seems like it would put a lot of work on the web server. There are generally maybe 10 people using this app at any given time, so that may or may not be important. For the record, the Ticket table has about 40 fields. The PK is a single field, and it's an Identity with type int. Most of the other fields are int, as they contain FKs that point to values contained in statics tables. There are a few tables of type varchar, and 3 fields which contain large amounts of data, as they are description fields. Users type in up to 3000 characters here, but it's typically a few hundred characters. Besides keeping track of this stuff, I am going to have to consider that I will have to display this stuff, as well. I'd appreciate the input of those here who might have encountered such a thing. Tag: Ad banner Tag: 325071
  - 21
    - Access denied while sending mail from ASP I searched through this forum to find a answer to my problem but couldn't find it in any of the forums, so I'll describe the problem and the solution here. I am using ASP on SBS 2003 with IIS 6.0 and Exchange 6.5.7226.0. I have a page where the user can submit a form to send email. I followed Microsoft's sample code to use either CDOSYS or CDOEX, but I kept getting error 80070005, which is an access denied message. Here's my simple sample code: <% function sendEmail(to, from, subject, body) { var iMsg = Server.CreateObject("CDO.Message") iMsg.To = to iMsg.From = from iMsg.Subject = subject iMsg.TextBody = body iMsg.Send() } %> Here's what I did to fix the problem: From the IIS Manager, right-click Default Web Site, choose Properties, then the Home Directory tab. Change the Application pool from DefaultAppPool to ExchangeApplicationPool. No more error 80070005. Hope this helps. Tag: Ad banner Tag: 325070
  - 22
    - throttling download in ASP Hi, I am downloading files using ASP using the the binarywrite as below. objStream.LoadFromFile(strAbsFile) '-- send the stream in the response Response.BinaryWrite(objStream.Read) I was wondering is there any way I can control or throttle the download?. I want to make sure that the users are not taking up too much bandwidth while downloading the file. Thanks for your help and time :) Tag: Ad banner Tag: 325069
  - 23
    - Dynamic drop down list I hope this is the right group. I am very new to ASP so this is probably a stupid question. I have some vbscript that query's AD and populates a recordset. I know the recorset contains the information I want by doing a Response.write. I am having problems dynamically creating a drop down list from the data in the recordset. The drop down is created but it is empty. Any help would be greatly appreciated. A sample of the code: <% 'On Error Resume Next Set objRootDSE = GetObject("LDAP://RootDSE") strDNSDomain = objRootDSE.Get("defaultNamingContext") strOU = "OU=Generic Accounts," ' Use ADO to search Active Directory. Set objCommand = CreateObject("ADODB.Command") Set objConnection = CreateObject("ADODB.Connection") objConnection.Provider = "ADsDSOObject" objConnection.Open "Active Directory Provider" objCommand.ActiveConnection = objConnection strBase = "<LDAP://" & strOU &" " & strDNSDomain &">" strFilter = "(&(objectCategory=person)(objectClass=user))" strQuery = strBase & ";" & strFilter & ";cn;subtree" objCommand.CommandText = strQuery objCommand.Properties("Page Size") = 100 objCommand.Properties("Timeout") = 30 objCommand.Properties("Cache Results") = False Set objRecordSet = objCommand.Execute objRecordSet.MoveFirst Do Until objRecordSet.EOF sName = objRecordSet.Fields("cn").Value 'Response.Write(sName) genericAccount = "<option value= & '"sName"' & >" objRecordSet.MoveNext Loop %> <html><head><title>Dynamic Drop-Down Menu Example</title></head> <body> <form method="POST" action="test3.asp"> <p><select size="1" name="GenericAccounts"> <%=genericAccount%> </select></p> </form> </body> </html> Tag: Ad banner Tag: 325063
  - 24
    - Binary Stream opens in same frame instead of new window We have some doc mgt "lite" on our site. I basically have a window with a button that opens the relevant document (Excel, PDF, etc.). The button calls some javascript which basically performs a window open: window.open('document.asp?item=' + intDoc,'_self', ''); I use '_self' so that the document.asp itself does not open a new browser. the document.asp file basically retrieves the path and displays the document via the ADODB Stream object: select case vType Case "DOC", "RTF" Response.ContentType = "application/x-msword" Case "PDF" Response.ContentType = "application/pdf" Case "XLS", "CSV" Response.ContentType = "application/x-msexcel" end select set objStream = server.CreateObject("ADODB.Stream") objStream.Open objStream.Type = adTypeBinary objStream.LoadFromFile strFile Response.BinaryWrite objStream.Read For me and most every user, when we click the button on the original page, we first get the "File Download" pop-up and then - assuming you click Open - the document opens in a new window: Adobe for PDFs, Excel for excel docs, etc. For one user, documents are not opening in a new window, but rather in the original frame where the document button is located. Does anyone know if this is a browser setting? something I can control in my code? This particular user is using IE 6 and Excel 2003 and Adobe Reader 6.0. Thanks! Tag: Ad banner Tag: 325060
  - 25
    - UnauthorisedAccessException for thread hi, I am writing a new asp.net program. Here in, the user has to click on a button on a web page, and a new excel sheet should open up. I could do it successfully using Office 2k3 PIA's for the click event handler for the button. Then I decided to create a new thread and complete the process of creating an excel sheet in the new thread itself. But I am getting the following error. An unhandled exception of type 'System.UnauthorizedAccessException' occurred in Unknown Module. Additional information: Access is denied But, the code executes successfully when i remove the thread and directly code it in the click event handler for the asp button. What might be the problem?? How can I give access permission to the thread?? Should set some permission in the Internet Information Services Manager. OS: Win2k3 server IIS 6.0 version thanks in advance. Tag: Ad banner Tag: 325053

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

Top

Re: Ad banner by Evertjan

Evertjan
Wed Sep 06 00:35:32 CDT 2006

Kevin Raleigh wrote on 06 sep 2006 in
microsoft.public.inetserver.asp.general:

> 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.

This is better done with clientside javascript,
so ask the most relevant NG: comp.lang.javascript.
[Follow up set]

Or even better first do some research:
<http://www.google.com/search?q=rotating.banner+javascript>

> NOTE: This is for my church so if it were free I won't have to pay out of
> pocket.

If it were for my firm, it would also be beter for free.
;-)

--
Evertjan.
The Netherlands.
(Please change the x'es to dots in my emailaddress)

Top

Re: Ad banner by Mike

Mike
Wed Sep 06 07:56:04 CDT 2006

Kevin Raleigh wrote:
> 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.
>

Download a trial version of Adobe/Macromedia Fireworks and create an
animated gif.

Incidentally, 15-20 seconds seems a long time between rotations. Sit
and stare at your computer screen for that long and you will see what I
mean....

--
Mike Brind

Top

Re: Ad banner by Victor

Victor
Wed Sep 06 13:29:04 CDT 2006

"Kevin Raleigh" wrote...
> 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

Put it inside an IFrame. Have the IFrame refresh with JavaScript every 15-20 seconds,
You can then have a server side script select another banner on each refresh.

Vic

Top