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

ri File Edit View Sctipt Tags Tools Window Help

D

^ ea |x (Si H g b i u m m m := |= 1T er — hi m H3 H4 hś hs (U <s®

^ „„„y, ^ Session("StudentName") 4 "</A><BR>Date:

| PJ live"

Script Library | j£,j Component Gallery

4 Datę 4 ^rr</P><P>" 4 TempHessage conn.Execute "update OCChalkboard set TopicHessage = '"4 AppendSti 4 "' where TopicID = " 4 Reąuest.Form("ThreadID")

CurrentTopicID = Reąuest.Form("ThreadID") elseif not IsEmpty(Reąuest.Form("Create")) then TempHessage = Reąuest.form("CreateHessage")

TempPlace = instr(TempHessage, "

Do Until TempPlace = 0

TempHessage = left(TempHessage, TempPlace - 1) 4 "^s" 4 right(Tei TempPlace = instr(TempHessage, " loop

TempTopic = Reąuest.form("CreateTopic")

TempPlace = instr(TempTopic, "'")

Do Until TempPlace = 0

TempTopic = left(TempTopic, TempPlace - 1) 4 "^s" 4 right(TempToj TempPlace = instr(TempTopic, " loop

AppendString = "<P>From: <A HREF=""mailto:" 4 Session("StudentEmai; £ rrer^rr £ Session ("StudentName") 4 "</A><BR>Date: " _

4 Datę 4 ^rr<BR>Topic: " 4 TempTopic _

4 "</P><P>" 4 TempHessage

conn.Execute "insert into OCChalkboard (TopicName, TopicHessage, Cl 4 "¹" 4 TempTopic 4 "¹, " _

4 "¹" 4 AppendString 4 "¹, " _

'J

±L

Ln 23 Pos 1 Total 421

Modified

Insert

VB Script

3-35