Solved

AJAXED ASP

Posted on 2007-11-16
5
492 Views
Last Modified: 2012-08-14
http://www.webdevbros.net/ajaxed/
I need help from someone who realy understands how the ajaxed work
http://www.webdevbros.net/2007/07/02/ajaxed-calling-server-side-vbscript-procedures-from-client-side-equivalent-to-php-xajax/
http://www.webdevbros.net/2007/07/02/ajaxed-calling-server-side-vbscript-procedures-from-client-side-equivalent-to-php-xajax/ 

when i add some code(under or above) to the basic code that you can see there,
i got a strange error inside browser alert that say
"root": "{null}"
and after those 2 words i got the 'code that i added'

that is the code that alerting
xxxxxx { "root" : {null}
*without the xxxxxx the code works just fine...
i tried to add the xxxxxx between asp line with response.write it gave me the same error
and when i put the xxxxxx at the end of the code there was no error but the code not worked at all(without errors)

<!--#include file="ajaxed.asp"-->
xxxxxx
<%
 
dim sse, mysqlj, connTempj, connstring, rstempj
sse=session("alerti")
Set connTempj = Server.CreateObject("ADODB.Connection")
set rstempj = server.createObject("adodb.recordset")
 
ConnString = myconnectionstring                       
connTempj.Open ConnString
 
 
mySQLj="SELECT alert,time FROM crmalerts WHERE time=(SELECT Max(time) FROM crmalerts)"
 
 
 
rstempj.open mySQLj, connTempj  
 
 
palert=rstempj("alert")
ptime=rstempj("time")
 
 
 
 
 
 
set page = new AjaxedPage
page.draw() 
sub init() : end sub 
 
 
sub callback(action) 
if not rstempj.EOF and action = "poll" and session("alertime")<>ptime then
session("alertime")=ptime
page.return(poll())
end if
end sub 
 
 
 
function poll()  
  poll = "<p style='background:#828282;color:#000000;font-size:20px;'>" & palert & ptime & "</p>"
end function
 
 
 
 
 
sub main() 
%> 
<script>  
var tId=""; // create global variable to hold the interval handler 
function pollDB() {
 /* call the server and when return, call the javascript function showResult with the result */   
ajaxed.callback('poll', showResult);
  
} 
 
function showResult(result) {    
$('res').style.display = 'block';
$('data').innerHTML = result; // put the result into the div with id="res"
}
 
 
// onLoad (or set the same in the page load asp thingy ) 
window.onload=function() { tId=setInterval('pollDB()',6000); 
}
 
</script> 
 
 
<div id="res" style="cursor:progress;background:#828282;border:1px solid;position:absolute;left:210px;width:200px; top:290px;display:none">
<div id="data" style="float:left;width:100%"></div>
<div style="float:right" onclick="$('res').style.display = 'none'">X</div>
</div>
 
 
<% end sub %>

Open in new window

0
Comment
Question by:sasha85
  • 4
5 Comments
 

Author Comment

by:sasha85
ID: 20302723
i found the function that give this alert but don't realy understood it well...
the function called 'public sub draw()'
that is the code of all the functions
http://ilmc.brinkster.net/comersus/crm/ajax/ajaxedPage.txt
0
 
LVL 82

Accepted Solution

by:
hielo earned 500 total points
ID: 20303311
It seems that for some reason the buffer is not fully flushed. In ajaxedpage.asp, locate:
sub draw()
and modify the "if" clause immediately after init() with the following:
            if isCallback() then
                  response.clear()
                  writeln("{ ""root"": {")
                  status = 0
                  callback(left(RF(callbackFlagName), 255))
                  if status = 0 then write(" null ")
                  if status = 1 then
                        writeln(vbcrlf & "} }")
                  else
                        writeln(vbcrlf & "}")
                  end if
                  response.flush()
                  response.end()
            else

0
 

Author Comment

by:sasha85
ID: 20303687
to update?
i tried to delete all this
but when i do this it still gives me the browser alert...but this time the lert is empty...
empty alert with ok button

if isCallback() then
			writeln("{ ""root"": {")
			status = 0
			callback(left(RF(callbackFlagName), 255))
			if status = 0 then write(" null ")
			if status = 1 then
				writeln(vbcrlf & "} }")
			else
				writeln(vbcrlf & "}")
			end if
		else
			if loadPrototypeJS then loadJSFile(loc("prototype.js"))
			loadJSFile(loc("ajaxed.js"))
			execJS(array(_
				"ajaxed.prototype.debug = " & iif(debug, "true", "false") & ";",_
				"ajaxed.prototype.indicator.innerHTML = '" & loadingText & "';"_
			))
			main()
		end if

Open in new window

0
 

Author Comment

by:sasha85
ID: 20303690
i'm not sure but i think it got something to do with
private sub setHTTPHeader
http://ilmc.brinkster.net/comersus/crm/ajax/ajaxedPage.txt
0
 

Author Comment

by:sasha85
ID: 20303722
GOD! i misread your post...
hielo!!!!!!! it is working!!!!!!!
wow!!!!
thank you!!!
0

Featured Post

Master Your Team's Linux and Cloud Stack!

The average business loses $13.5M per year to ineffective training (per 1,000 employees). Keep ahead of the competition and combine in-person quality with online cost and flexibility by training with Linux Academy.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Shoutout to Emily Plummer (http://www.experts-exchange.com/members/eplummer26.html) for giving me this article! She did most of it, I just finished it up and posted it for her :)    Introduction In a previous article (http://www.experts-exchang…
This article will show, step by step, how to integrate R code into a R Sweave document
The viewer will learn how to create and use a small PHP class to apply a watermark to an image. This video shows the viewer the setup for the PHP watermark as well as important coding language. Continue to Part 2 to learn the core code used in creat…
In this fifth video of the Xpdf series, we discuss and demonstrate the PDFdetach utility, which is able to list and, more importantly, extract attachments that are embedded in PDF files. It does this via a command line interface, making it suitable …

813 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

13 Experts available now in Live!

Get 1:1 Help Now