% ' FP_ASP ASP που δημιουργήθηκε αυτόματα από ένα στοιχείο του FrontPage. Μην την επεξεργαστείτε. On Error Resume Next Session("FP_OldCodePage") = Session.CodePage Session("FP_OldLCID") = Session.LCID Session.CodePage = 65001 Session.LCID = 1032 Err.Clear strErrorUrl = "" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("VTI-GROUP") = "3" Then Err.Clear Set fp_conn = Server.CreateObject("ADODB.Connection") FP_DumpError strErrorUrl, "Δεν είναι δυνατή η δημιουργία σύνδεσης" Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "Δεν είναι δυνατή η δημιουργία συνόλου εγγραφών" fp_conn.Open Application("_ConnectionString") FP_DumpError strErrorUrl, "Δεν είναι δυνατό το άνοιγμα βάσης δεδομένων" fp_rs.Open "", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "Δεν είναι δυνατό το άνοιγμα συνόλου εγγραφών" fp_rs.AddNew FP_DumpError strErrorUrl, "Δεν είναι δυνατή η προσθήκη νέου συνόλου εγγραφών στη βάση δεδομένων" Dim arFormFields3(0) Dim arFormDBFields3(0) Dim arFormValues3(0) FP_SaveFormFields fp_rs, arFormFields3, arFormDBFields3 fp_rs.Update FP_DumpError strErrorUrl, "Δεν είναι δυνατή η ενημέρωση της βάσης δεδομένων" fp_rs.Close fp_conn.Close FP_FormConfirmation "text/html; charset=utf-8",_ "Επιβεβαίωση φόρμας",_ "Σας ευχαριστούμε που υποβάλλατε τις ακόλουθες πληροφορίες:",_ "index.htm",_ "Επιστροφή στη φόρμα." End If End If Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") %>
|
||
07/02/08 |
|
Καλώς Ηρθατε στην προσωπική ΙστοσελίδατουΜαθηματικού Τσανασίδη ΑντώνηΓενικές Πληροφορίες
|
This site was last updated 07/02/08