<%
Set Sur = Server.CreateObject("ADODB.Connection")
Sur.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(""&chatyolu&"")
Set efkan = Server.CreateObject("ADODB.Recordset")
Set efkan1 = Server.CreateObject("ADODB.Recordset")
oda=request.querystring("oda")
If oda<>"" then
session("oda")=oda
ElseIf session("oda")="" then
session("oda")=1
ElseIf session("oda")="" then
session("oda")=session("oda")
End If %>
<% sor = "SELECT * FROM oda where id ="&session("oda")&" "
efkan.open sor, sur, 1, 3
odaadi=efkan("adi")
efkan.close%>
Chat Odasi : <%=odaadi%> |
|
<% if Request.form("uye")<>"" And Request.form("mesaj")<>"" then
sor="SELECT * FROM CHAT "
efkan.Open sor,Sur,1,3
efkan.AddNew
efkan("uye") =temizle(Request.Form ("uye"))
mesaj =left(Request.Form ("mesaj"),500)
efkan("mesaj") =temizle(mesaj)
efkan("tarih") =Now()
efkan("oda") = session("oda")
efkan("ip") = Request.ServerVariables("REMOTE_ADDR")
efkan.update
Session ("uye") = efkan("uye")
efkan.close
End if
%>
|
|
|