<%
'---- CursorTypeEnum Values ----
Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3
'---- LockTypeEnum Values ----
Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3
Const adLockBatchOptimistic = 4
if Request("note") <> "" then
Set Conn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.RecordSet")
Conn.Open "anstine","web_usr","web"
sql = "Insert into classchat ("
sql = sql & "chattime, from_, "
sql = sql & "note, notes"
sql = sql & " ) VALUES ('"
sql = sql & Now & "', '" & Request.form("from")
sql = sql & "','" & Request.form("note") & "', '"
sql = sql & Request.form("email") & "')"
conn.execute sql
conn.close
end if
'Response.Expires = Now() - 1
'Response.AddHeader "Pragma","no-cache"
'Response.CacheControl = "Public"
%> <% sql = ""
sql = "SELECT chattime, from_, notes, note FROM classchat ORDER BY chattime DESC;"
Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
Conn.Open "anstine","web_usr","web"
rs.Open sql,conn
%> Active Chat<%i = 0%> | <%="Name"%> | <%="Note Date n' Time"%> |
<%=" Message "%> |
<%Do While Not RS.EOF%>
<% RS.MoveNext
Loop
%> Copyright © 2004 International Tempest Class Association