• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 508
  • Last Modified:

AJAXED ASP

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
sasha85
Asked:
sasha85
  • 4
1 Solution
 
sasha85Author Commented:
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
 
hieloCommented:
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
 
sasha85Author Commented:
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
 
sasha85Author Commented:
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
 
sasha85Author Commented:
GOD! i misread your post...
hielo!!!!!!! it is working!!!!!!!
wow!!!!
thank you!!!
0

Featured Post

Concerto Cloud for Software Providers & ISVs

Can Concerto Cloud Services help you focus on evolving your application offerings, while delivering the best cloud experience to your customers? From DevOps to revenue models and customer support, the answer is yes!

Learn how Concerto can help you.

  • 4
Tackle projects and never again get stuck behind a technical roadblock.
Join Now