%@ Language=VBScript %>
<%
gdate=Dateadd("h",7,now())
session("konn")=replace(replace(Request("konn"),"<","<"),">",">")
if session("konn") <> "" then
session("Ccolor_Name")=request("CcolorName")
session("Ccolor_mesage")=request("Ccolormesage")
Application("mesage")=Application("mesage") &" < ------------------- "& session("konn") & " ---- > เพิ่งมาใหม่.....ขอคุยด้วยคนนะจ๊ะ " & gdate & "
"
Response.Redirect("chat.html")
End If%>
| |