% const onoma_Mdb="datab/database.mdb" dim piodatabase piodatabase="/datab/tours.mdb" Dim Sql,cn,counter,x Dim sthles() Dim Grames_Pinaka_array Dim Alldata Dim rs,numcols,numrows function FtiaxeDb(databasePath) err.clear on error resume next set cn = server.createObject("ADODB.Connection") cn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & server.MapPath(databasePath) if err then Response.Write(err.description) end function function makeRS(SQL) set rs = server.CreateObject("ADODB.Recordset") on error resume next rs.Open sql, CN if err then Response.Write(err.description) makeRS=rs end function function execRS(SQL) set rs = server.CreateObject("ADODB.Recordset") on error resume next rs.execute sql if err then Response.Write(err.description) execRS=rs end function function kleiseDB(databasePath) err.clear on error resume next cn.Close Set cn=nothing if err then Response.Write("
" & err.description) end if end function Function ReadData(Sql,onoma_bashs,MyErrorMessage) Ftiaxedb(onoma_bashs) makeRS(sql) 'on error resume next numrows=-1 If RS.eof then kleiseDb(onoma_bashs) numrows=-1 Else alldata=RS.getrows kleiseDb(onoma_bashs) numcols=ubound(alldata,1) numrows=ubound(alldata,2) end if End Function Function exec_sql(Sql,onoma_bashs,MyErrorMessage) on error resume next Ftiaxedb(onoma_bashs) makeRS(sql) kleiseDb(onoma_bashs) End Function %>
|
|
||
1. Bride's and groom's passports (No translation necessary) 2. Marriage License and Registration
of Marriage from your City Hall with the 3. Birth Certificates for each
of you. Both to be authenticated and translated 4. Divorce Certificate in the event there are any, translated into Greek. ** SUPPLEMENTS AND EXTRAS
|
|