image145

S NetObjects ScriptBuilder - [D:\wait\ocinfo\live\index.asp]

^ File Edit View Script Jags Tools Window Help
			a.	& O * my	□ aro#
m ED |X ® H EJ H	li Mili li SI S n	♦--- 3--	1T BR — HI H2 H3 H4 H5 H6		[Jj] <3S>

*

USJXJ

-|g|x|

			}<%0 Language=VBScript %>
[			if isempty(Session("StudentlD")) then	_i
			Response.Redirect /index.asp"
B CC ECMAScript 1.0 Reference			end i£
B CC HTML 4.0 Reference			if isempty(Session("CourselD")) then
:	CC Microsoft Active Server Pages Reference		Response.Redirect "../student menu.asp"
	B ^ Built-ln Objects		end if
	Ę-fil Application		set conn = server.createobject ("adodb.connection")
	| Ę\-£? Methods		conn.open Application("DNS"), Application("UserHame"), Application("P«
	.....& Lock
	.....& Unlock		if not IsEmpty(Request.Form("Add")) then
	B Events		TempHessage = Reąuest.form("AddHessage")
	Request		TempPlace = instr(TempHessage, "'")
	Ę-® Response		Do Until TempPlace = 0
	B S Server		TempHessage = left(TempHessage, TempPlace - 1) £ ^,,srr £ right(Tei
	B S Session		TempPlace = instr(TempHessage,
B CC Microsoft DOM 1.0 Reference			loop
B CC Microsoft JScript 3.0 Reference			set RSCurrentHessage = conn.Execute("select TopicHessage from 0CCh«
B CC Microsoft VBScript 3.0 Reference			£ "where TopicID = " £ Reąuest.Form("ThreadID"))
B CC Netscape JavaScript 1.2 Reference			AppendString = RSCurrentHessage("TopicHessage")
	B CC Netscape Server-Side JavaScript Reference		£ "<P>From: <A HREF=""mailto:" £ Session("StudentEmailAddress")
	E CC 5.0 Reference		£ """>" £ Session ("StudentName") £ "</A><BR>Date: "
	0 Cfl T ools and T echnologies	Z.	£ Datę £ "</P><P>" £ TempHessage
O Reference | ti-^ Map | J§! Desktop			conn.Execute "update OCChalkboard set TopicHessage = ^,rr £ AppendSt] i
Script Library | 'j^-j Component Gallery			<i .......i .................................

Ln1 Pos1 T otai 421    [insert    [javaScript

3-33