Asian Union
of Pankration Athlima Pars
Razm Group
Armud advertising group
Borna Monji Co.
Karsaz advertising group
Iran Kung Fu Federation
Iran Wushu Federation
Iran Martial Arts Federation
Darabi Design
Samples of Multimedia
Presentation of Khak Khesh Khane co.
Presentation of Mohit Salamat Kar co.
Presentation of pavilion produced in Mohit Salamat Kar Co.
<%
if not Response.Cookies("mycookie").HasKeys then
dim conn
set conn = server.createobject("ADODB.connection")
conn.provider = "Microsoft.Jet.OLEDB.4.0"
conn.open(server.mappath("../db/abt.mdb"))
dim rs,k
set rs = server.createobject("ADODB.Recordset")
rs.open "c",conn,,3,2
rs.movelast
k = rs("id") + 1
rs.movefirst
rs.addnew
rs("id") = k
rs("ip") = request.ServerVariables("REMOTE_ADDR")
rs("os") = request.ServerVariables("HTTP_USER_AGENT")
rs("da") = date
rs.update
rs.close
set rs = nothing
conn.close
set conn = nothing
Response.Cookies("mycookie")("date") = Date
Response.Cookies("mycookie").Expires = Date + 1
End If
%>
Designing and Programming
