image147

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

0# & mm « « [fiftSfe SB- %| S0t EO *»• □

S3 |x ®

b i u m m m f- 1T br — hi H2 H3 H4 hs H6 S3 s®

Components

Script Components

Document

B Sil

_

■0 % ■ & Request.Form( 0A-0 BR 0 P 0 P 0 A-0 BR 0 BR 0 P

0 IDOCTYPE Ś R| HTMI

O Reference [t₀ Map | jy Desktop

Script Library |    Component Gallery

[ Ln 1

Pos 28 Total 421

Modified

<%@ Language=VBScript %>    j

<%

i£ isempty(Session("StudentlD")) then    ~

Response.Redirect    /index.asp"

end if

i£ isempty(Session("CourselD")) then

Response.Redirect ".. / s tudent_menu. asp " end if

set conn = server.createobject ("adodb.connection")

conn.open Application("DNS"), Application("UserName"), Application("Pi

if not IsEmpty(Request. Form("Add")) then TempHessage = Reąuest.form("AddHessage")

TempPlace = instr(TempHessage, "'")

Do Until TempPlace = 0

TempHessage = left(TempHessage, TempPlace TempPlace = instr(TempHessage, " loop

set RSCurrentHessage = conn.Execute("select TopicHessage from OCChJl 4 "where TopicID = " 4 Reąuest.Form("ThreadID"))

AppendString = RSCurrentHessage("TopicHessage") _

4 "<P>From: <A HREF=""mailto:" 4 Session("StudentEmailAddress")

4 """>" & Session ("StudentWame") 4 "</A><BR>Date: " _

4 Datę 4 "</P><P>" 4 TempHessage

conn.Execute "update OCChalkboard set TopicHessage = ¹" 4 AppendSti i

__J

1) &

4 right(Tei

ii

Insert

VB Script

dSti .

3-34