<%@ Language=VBScript %>
<%
dim dbpath
dbpath = server.MapPath("..") & "\databases\saudiafrah.mdb"
dim cn
dim rs1
dim rs2
set cn = server.CreateObject("ADODB.Connection")
set rs1 = server.CreateObject("ADODB.Recordset")
set rs2 = server.CreateObject("ADODB.Recordset")
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath
cn.Open
'checking for correct administrator
rs1.Open "SELECT * FROM TBLCATEGORY ORDER BY CID",cn
rs2.Open "SELECT * FROM TBLLOCATION ORDER BY LOCID",cn
'Response.Write("ok")
%>
أفراح السعودية - منسقة أفراح افراح السعودية -اول موقع مختص بتنظيم الافراح على شبكة الانترنت
