Jump to content

Akasha

Members
  • Posts

    71
  • Joined

  • Last visited

Everything posted by Akasha

  1. Yes is an oracle database. Unfortunately not mine, so I’m not able to change the datatype. I will take a look at the articles thanks
  2. Yes, pretty sure. Here is the data from the database. The first query shows only a few characters, then i set long to 2000 and then you see all data. https://www.dropbox.com/s/hq899w71tzsg8bn/data.PNG Second is what asp is showing me. https://www.dropbox.com/s/ope3aehesg2roju/asp.PNG Maybe my query is wrong? set rs1 = Server.CreateObject("ADODB.recordset")rs1.Open "select tc.id_number, tc.x_cust_ref_num, tc.title as tct, tg.title as tcg, login_name, case_history from table_case tc, table_site ts, table_gbst_elm tg, table_user tu where (ts.objid = tc.case_reporter2site) and (ts.name like 'blabla%') and (tg.objid = tc.casests2gbst_elm) and (tu.objid = tc.case_owner2user) and tc.x_cust_ref_num like '%" + ticket + "%'", conn,1,1 regards Leandra
  3. Thanks for the reply, unfortunately it gives the same result I just replaced rs1.fields("case_history") with rs1.fields.item("case_history").value, but stil the first 70 characters are shown. I have the same problem if i go to sqlpus with cmd. In that case I use Set Long 2000. Isn't there some kind solution in asp?
  4. Hello, I use asp to retrieve data from a sql database. One of the fields to display has the data type LONG. But for some reason only the first 70 karakters are shown. if ticket <> "" then set rs1 = Server.CreateObject("ADODB.recordset") rs1.Open "select case_history ........etc , conn,1,1 if rs1.RecordCount > 0 then do until rs1.EOF Response.write(rs1.fields("case_history")) rs1.MoveNext loop else response.write("No data Found") end if rs1.closeend if Is there a possibilty so that the full text from the field case_history is shown? thnx Akasha
  5. Cool thnxonly problem now is.it doesn't disappear anymore
  6. Ok thnx so i have created this, but still not working function showtip(txt) { t=txt show() } function outtip(t) { clearTimeout(s)if (document.all) {document.all["text"+t].style.pixelTop = -50;}if (document.GetElementById) {document.GetElementById("text"+t).style.Top = -50;}}function show() { if (document.all) {document.all["text"+t].style.pixelTop = x;document.all["text"+t].style.pixelLeft = y;}if (document.GetElementById) {document.GetElementById("text"+t).style.Top = x;document.GetElementById("text"+t).style.Left = y;}s = setTimeout("show()",10) }</script>
  7. well, what do you use in mozilla then???
  8. HelloI found some code and used it for my website, and it works fine with IE but when i use it in Mozilla it doesn't work.I am a beginner with javascript so i doe not really know how ik can fix this or if its even fixableThe code shows a text when i rollover a link.This is the part in the head of the page <script LANGUAGE="JavaScript"> var t var x = 450, y = 650 var txt = 0 document.write("<div id='text1' style='position:absolute;top:-80px;left:100px;width:400px;height:20px'><font size=+2 color='#CCCCCC'>Muziek</font></div>") document.write("<div id='text2' style='position:absolute;top:-80px;left:100px;width:400px;height:20px'><font size=+2 color='#CCCCCC'>Fotoos</font></div>") document.write("<div id='text3' style='position:absolute;top:-80px;left:100px;width:400px;height:20px'><font size=+2 color='#CCCCCC'>Video</font></div>") </script> <script LANGUAGE="JavaScript"> function showtip(txt) { t=txt show() } function outtip(t) { clearTimeout(s) document.all["text"+t].style.pixelTop = -50 } function show() { document.all["text"+t].style.pixelTop = x document.all["text"+t].style.pixelLeft = ys=setTimeout("show()",10) } </script> and this i sthe part in the body of the page <a href="music.asp" onMouseover="showtip('1')" onMouseout="outtip('1')" target="_self"><img src="Images/music_icon.gif" border="0"></a><a href="galleries.asp" onMouseover="showtip('2')" onMouseout="outtip('2')" target="_self"><img src="Images/photo_icon.gif" border="0"></a><a href="videos.asp" onMouseover="showtip('3')" onMouseout="outtip('3')" target="_self"><img src="Images/video_icon.gif" border="0"></a> how can i make it work in IE as wel in mozillathnx in advance
  9. Akasha

    Sending email

    But when i put the code into my asp file it works fine, so i guess the server isn't blocked right??
  10. Akasha

    Sending email

    HelloI have an asp webpage with the code for sending an email, this works absolutely fine. No have i copied into a macrofuntion of excel with vbscript.But i getting an error "The transport failed to connect to the server."but in my asp code it works perfect. Sub SaveInformation() Const LastMeeting = 10 Dim Meeting For Meeting = 2 To LastMeeting If Range("A" & Meeting).Value <> "" And Range("B" & Meeting).Value <> "" And Range("C" & Meeting).Value <> "" And _ Range("D" & Meeting).Value <> "" And Range("E" & Meeting).Value <> "" Then If Range("F" & Meeting).Value = "" Then Const cdoSendUsingMethod = "http://schemas.microsoft.com/cdo/configuration/sendusing" Const cdoSendUsingPort = 2 Const cdoSMTPServer = "http://schemas.microsoft.com/cdo/configuration/smtpserver" Const cdoSMTPServerCOS = "[I]myserver name[/I]" Const cdoSMTPServerPort = "http://schemas.microsoft.com/cdo/configuration/smtpserverport" Const cdoSMTPServerPortCOS = 25 Const cdoSMTPConTimeout = "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout" Const cdoSMTPConTimeoutCOS = 5 Dim objConfig ' As CDO.Configuration Dim objMessage ' As CDO.Message Dim Fields ' As ADODB.Fields ' Get a handle on the config object and it's fields Set objConfig = CreateObject("CDO.Configuration") Set Fields = objConfig.Fields ' Set config fields we care about With Fields .Item(cdoSendUsingMethod) = cdoSendUsingPort .Item(cdoSMTPServer) = cdoSMTPServerCOS .Item(cdoSMTPServerPort) = cdoSMTPServerPortCOS .Item(cdoSMTPConTimeout) = cdoSMTPConTimeoutCOS .Update End With ' Sending a text e-mail Set objMessage = CreateObject("CDO.Message") Set objMessage.Configuration = objConfig With objMessage .To = "nlv15673@prle.natlab.research.philips.com" .From = "administrator@no-reply.com" .Subject = "Notification website ITX" .TextBody = "Best regards" .BodyPart.AddBodyPart.ContentClass = "urn:content-classes:calendarmessage" .BodyPart.AddBodyPart.ContentMediaType = "text/vcalendar; charset=""utf-8""" .Send End With Set objMessage = Nothing Set Fields = Nothing Set objConfig = Nothing Range("F" & Meeting).Value = "Yes" End If End If Next ActiveWorkbook.SaveEnd Sub I want to send an calender invitation to lotus notes.How do i do that and what is wrong with the code above???
  11. Akasha

    I dont know how

    HelloI want to make an asp script which will check in a database if there are upcoming meeting. if so an email is sent to all of the employees.But this email needs to be sent every workday 7 o'clock.The garanty that the employees activate this asp script is very smal.Therefore i wanted to make a cronjob or something that will envoke my script every morning, but i don't know how.Can you help me or do you know a better solution please tell me
  12. Hello in my url i have an parameterfor exampleprojects.asp?res=L1024Is there a way to request that paramter with asp script??
  13. Ok i have created a macro. Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("a1:f10")) Is Nothing Then Exit Sub Else ActiveWorkbook.Save End IfEnd Sub Local it works fine <IFRAME FRAMEBORDER="0" SRC="<%=Server.MapPath("bestand2.xls")%>" WIDTH="90%" height="300" SCROLLING="no"></IFRAME> But when i want to use it on the server, using the iframe code, he wants to open the file local, and that logicalbut when i do it like this <IFRAME FRAMEBORDER="0" SRC="<%=paginalocatie%>Uploads/bestand2.xls" WIDTH="90%" height="300" SCROLLING="no"></IFRAME> paginalocatie is the location which i am getting from a databaseThen he want to save it, getting the message file already exists do you want to replace, then i say yes, but nothing happens :)Does anyone how to figure this out??
  14. Yes but the don't have the code to accomplish what i want.perhaps it wasn't clear. let my try to explain it again.I have an website and an excel file. (already an existing one with data)I want to view the complete excel in the browser, like ou would see it in excel.So that the employees can add record, modify the data or something.Then when they push a button, those modification are been saved.So i though what if i work with a macro, but i can't figure out how to close that excel so he uses the macro.Does anyone know how to fix this???
  15. hii have an excel file on the server. now i want to open it local with asp.then modify the workbook and submit the button so that the changed wiil be saved.it must also be printed to a pdf creator so i have a copy from th file in pdf format.is this possible, and if so, do you have a example of a code somewhere thanks in advance
  16. Akasha

    sending email

    Hello I have a form in my website and when the form is submitted it must send an email.But they are using lotus notus, so i got the following code: Call SendNotesMail( "Notification website ITX" , "" , "test@test.com",bodytext , True)Response.Redirect("../main.asp?message=Newsitem has been added with a notification") Sub SendNotesMail(Subject , Attachment , Recipient , BodyText , SaveIt ) 'Set up the objects required for Automation into lotus notes Dim Maildb 'The mail database Dim UserName 'The current users notes name Dim MailDbName 'The current users notes mail database name Dim MailDoc 'The mail document itself Dim AttachME 'The attachment richtextfile object Dim Session 'The notes session Dim EmbedObj 'The embedded object (Attachment) 'Start a session to notes Set Session = CreateObject("Notes.NotesSession") 'Get the sessions username and then calculate the mail file name 'You may or may not need this as for MailDBname with some systems you 'can pass an empty string UserName = Session.UserName MailDbName = Left(UserName, 1) & Right(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf" 'Open the mail database in notes Set Maildb = Session.GETDATABASE("", MailDbName) 'Set Maildb = Session.GETDATABASE("", "mail.box") If Maildb.ISOPEN = True Then 'Already open for mail Else Maildb.OPENMAIL End If 'Set up the new mail document Set MailDoc = Maildb.CREATEDOCUMENT MailDoc.Form = "Memo" MailDoc.sendto = Recipient MailDoc.Subject = Subject MailDoc.Body = BodyText MailDoc.SAVEMESSAGEONSEND = SaveIt 'Set up the embedded object and attachment and attach it If Attachment <> "" Then Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment") Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachment, "Attachment") 'MailDoc.CREATERICHTEXTITEM ("Attachment") End If 'Send the document MailDoc.PostedDate=Now() 'Gets the mail to appear in the sent items folder MailDoc.SEND 0, Recipient 'Clean Up Set Maildb = Nothing Set MailDoc = Nothing Set AttachME = Nothing Set Session = Nothing Set EmbedObj = NothingEnd Sub But i get the following error, what is wrong? Microsoft VBScript runtime error '800a01ad'ActiveX component can't create object: 'Notes.NotesSession'
  17. Hello i am making a website.In my header there are images and they are static.Only sometimes when a project is choosen the associated picture wil get a border.did that with asp(code will follow)But when you press a link it takes a long time before the header is finished loading the images, so i got a preloading script from the internet.But i have this feeling i just can't get it to work, what am i doing wrong? Code for preloading images <script language="JavaScript" type="text/JavaScript"><!-- function preloadImages() { var d=document; if(d.images){ if(!d.p) d.p=new Array(); var i,j=d.p.length,a=preloadImages.arguments; for(i=0; i<a.length; i++) if (a[i].indexOf("#")!=0){ d.p[j]=new Image; d.p[j++].src=a[i];}}} --> </script> My body tag <body topmargin="8" onLoad="preloadImages('fotologo/53984 .JPG','fotologo/mosccryst2 copy.jpg','fotologo/DSC_1061adv.jpg', 'fotologo/DSC_0054.jpg','fotologo/neonkunstwerk_Asten.jpg','fotologo/DSC_0026i.jpg','background.gif','logo4.jpg')"> an finally the code who places the images on the screen, i used asp so that when a particular project is chosen, a border is shown around the images which is associated. <table bgcolor="#000000" cellpadding="7px" class="borders"> <tr class="borders"> <td width="15%" align="right"><img src="logo4.jpg" height="75"></td> <% if request("project") = "gro" then response.Write("<td><img class='borderpic' src='fotologo/53984 .JPG' height='74'></td>") else response.Write("<td><img src='fotologo/53984 .JPG' height='74'></td>") end if if request("project") = "mos" then response.Write("<td><img class='borderpic' src='fotologo/mosccryst2 copy.jpg' height='74'></td>") else response.Write("<td><img src='fotologo/mosccryst2 copy.jpg' height='74'></td>") end if if request("project") = "rijs" then response.Write("<td><img class='borderpic' src='fotologo/DSC_1061adv.jpg' height='74'></td>") else response.Write("<td><img src='fotologo/DSC_1061adv.jpg' height='74'></td>") end if if request("project") = "kerk" then response.Write("<td><img class='borderpic' src='fotologo/DSC_0054.jpg' height='74'></td>") else response.Write("<td><img src='fotologo/DSC_0054.jpg' height='74'></td>") end if if request("project") = "ast" then response.Write("<td><img class='borderpic' src='fotologo/neonkunstwerk_Asten.jpg' height='74'></td>") else response.Write("<td><img src='fotologo/neonkunstwerk_Asten.jpg' height='74'></td>") end if if request("project") = "lei" then response.Write("<td><img class='borderpic' src='fotologo/DSC_0026i.jpg' height='74'></td>") else response.Write("<td><img src='fotologo/DSC_0026i.jpg' height='74'></td>") end if %> </tr> </table> Perhaps i want to preload to many images or does the preload script en the asp not work together. What is wrong and what can i do about it?thanx in advance
  18. Akasha

    CDO and LOTUS NOTES

    Hellodoes anyone has an example for mehow to send an email with CDO using lotus notes?thanx in advance
  19. Akasha

    Sending Email

    Finally got it working you know sending email with asp :)I was very happy about it.But then my boss told me everyone is using Lotus Notus and that the code wasn't working.Is there a cdo code for Lotus Notus or is cdo only for outlook?
  20. Akasha

    2 comboboxes

    already found the problem :) also for multiple selects function move(from,to){ for (var i=0; i < from.options.length; i++) { var x = from.options[i]; if (x.selected) { to.options[to.options.length] = new Option(x.text, x.value, false, false); } } for (var i=(from.options.length-1); i>=0; i--) { var o = from.options[i]; if (o.selected) { from.options[i] = null; } }}
  21. Akasha

    2 comboboxes

    ok he deletes from one combobox and add something to the otherbut he is only adding blank thingies :)this is my java script function move(from,to){ var x = document.getElementById(from) to.options[to.options.length] = new Option(x.text, x.value); x.remove(x.selectedIndex)}
  22. Akasha

    2 comboboxes

    The first as well as the second are filled dynamically by a query out a database.So i gues i need to create 2 arrays fill these with the query and fill the comboboxes with the array.but is it possible to just delete a item out of an array. Because i think a gap is created and that is not the intention.
  23. Akasha

    2 Comboboxes

    Hello i have 2 multiple comboboxesthe first one contains people that are on the project.The second one contains the other members that are not on the project.Between the 2 comboboxes there are 2 buttons with the value < > When a person selects a person en presses < the selected person from combobox 2 must go to combobox 1When a person selects a person en presses > the selected person from combobox 1 must go to combobox 2I hope its clear what i wantdoes anyone has a code for this or somethingthanks in advance
×
×
  • Create New...