Accessing functions that reside on the server

Oct 3rd, 2000, 04:17 PM

Hi there..... I'm trying to create a table and assign each one of its cells an id on the fly with my asp page. I have created a database that holds a set of generic ids to be used. Here's what my codes look like, maybe you'll understand better:

<%
set RS=server.createobject("adodb.recordset")
sql = "SLECT GenericIDs FROM IDs"
RS.open sql, "TaskManager", adOpenStatic, adLockPessimistic
RS.movefirst

Generated = RS("GenericIDs")
response.write "<table name=mytable border=2 cellspacing=1 width=500>"
response.write"<tr>"
FOR i = 0 to 8
response.write "<td id="&Generated&" onmousedown=AssignColor(Generated) width=30</td>"
RS.movenext
Generated = RS("GenericIDs")
NEXT
response.write "</tr></table>"

SUB AssignColor(id)
received = id
response.write "<script language=vbscript>mytable.cells.item(received).style.backgroundcolor=green </script>"
END SUB
%>

At this point it looks like the function AssignColor cannot be executed properly. The table is displayed but when I click on any cell I get a 'Error on page' response at the bottom left of my browser. I'd be extremely grateful if I could get some help on this one. Thanks in advance.

**monte96** · Oct 3rd, 2000, 07:42 PM

I'll have a look at a way to do this..

your mixing up the server side code with your client side code. You can't call a sub that's on the server side from client side code (cuz it doesn't exist on the page) and response.write is not available in client side code at all.

**monte96** · Oct 4th, 2000, 10:21 AM

Try this...

Code:

<HTML>
<BODY>
<% 
Dim strSQL
Dim Generated

set RS=server.createobject("ADODB.Recordset") 
strSQL = "SELECT GenericIDs FROM IDs" 
RS.Open strSQL, "TaskManager", adOpenStatic, adLockPessimistic 

Generated = RS.Fields("GenericIDs") 
response.write "<table name=mytable border=2 cellspacing=1 width=500>" 
response.write"<tr>" 

Do until rs.EOF
  response.write "<td id=" & Generated & " onmousedown=AssignColor(" & Generated & ") width=30></td>" 
  RS.movenext
  Generated = RS.Fields("GenericIDs") 
Loop

Response.write "</tr></table>" 

%> 

<SCRIPT Language="VBScript">
Sub AssignColor(id) 
    mytable.cells.item(id).style.bgcolor=green
End Sub
</SCRIPT>
</BODY>
</HTML>
<%
rs.close
Set rs = Nothing
'You didn't mention a connection object but you'll want to close and release it as well..

Thread: Accessing functions that reside on the server

Thread Tools

Display

Posting Permissions