<%@ Language=VBScript CodePage = "1256"%>
<% pageTitle = "الادارة" %>
<%
date = now()
traffic dept = request.form ("traffic dept")
name = request.form ("name ")
car no = request.form ("car no")
%>
<%
Function AddF()
addSQL= " insert into "&date&" (name,car no) values ('"&name&"','"&car no&"')"
ADO.execute(addSQL)
%>لقد تمت العملية بنجاح......
<%
End Function
%>
<%
If subject="" or body="" then
response.write "لم تقم بمل الفورم "
Else
AddF()
End If
%>
ةفاضإ ارابخلأ
<% ADO.close Set ADO=Nothing %>
لقد تمت العملية بنجاح