Jump to content

Akasha

Members
  • Posts

    71
  • Joined

  • Last visited

Posts posted by Akasha

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

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

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

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

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

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

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

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

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

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

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

  12. 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 :)

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

  14. 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;  	}  }}

  15. 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)}

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

  17. 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 --------------------Greetz Akasha Valo aka Leandrawe are so young, our lives has just begunbut already we're considering, escape from this worldand we've waited for so long, for this moment to comewe're so anxious to be together.... together in death
    Pollux  Mar 3 2006, 10:59 AM Post #2  Easiest way is to do that with javascript. You'll need to write 2 functions: moveLeft() and moveRight() which are called onclick of the '<' and '>' buttons respectively.The functions will need to retrieve all the selected items from one select box and add them to the DOM in the other. You'll need to look up how to retrieve multiple values from a select, and also how to dynamically add items to a select box. Neither are very difficult so if you get stuck, or aren't sure where to start, post again in the javascript forum and I (or someone else) will give you a hand. 
  18. 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...