<% ' FP_ASP ASP που δημιουργήθηκε αυτόματα από ένα στοιχείο του Frontpage. Μην την επεξεργαστείτε. On Error Resume Next Session("FP_OldCodePage") = Session.CodePage Session("FP_OldLCID") = Session.LCID Session.CodePage = 1253 Session.LCID = 1032 Err.Clear strErrorUrl = "" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("VTI-GROUP") = "0" 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("Database1_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 arFormFields0(6) Dim arFormDBFields0(6) Dim arFormValues0(6) arFormFields0(0) = "Password" arFormDBFields0(0) = "password" arFormValues0(0) = Request("Password") arFormFields0(1) = "Username" arFormDBFields0(1) = "username" arFormValues0(1) = Request("Username") arFormFields0(2) = "EmailAddress" arFormDBFields0(2) = "ΔιεύθυνσηEmail" arFormValues0(2) = Request("EmailAddress") arFormFields0(3) = "eponimo" arFormDBFields0(3) = "Επώνυμο" arFormValues0(3) = Request("eponimo") arFormFields0(4) = "onoma" arFormDBFields0(4) = "Όνομα" arFormValues0(4) = Request("onoma") arFormFields0(5) = "PasswordVerify" arFormDBFields0(5) = "passwordverify" arFormValues0(5) = Request("PasswordVerify") FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0 fp_rs.Update FP_DumpError strErrorUrl, "Δεν είναι δυνατή η ενημέρωση της βάσης δεδομένων" fp_rs.Close fp_conn.Close FP_FormConfirmation "text/html; charset=windows-1253",_ "Επιβεβαίωση φόρμας",_ "Σας ευχαριστούμε που υποβάλλατε τις ακόλουθες πληροφορίες:",_ "join.htm",_ "Επιστροφή στη φόρμα." End If End If Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") %> pc.join

This site hosted by Free.ProHosting.com

pc.MANIA

GDM-club Εγγραφή χρήστη/ Member application

Μπορείτε να εγγραφείτε αυτόματα ως χρήστης του GDM-club συμπληρώνοντας και υποβάλλοντας αυτήν τη φόρμα. Μόνο οι εγγεγραμμένοι χρήστες επιτρέπονται στο GDM-club. Επιλέξτε ένα όνομα χρήστη για τον εαυτό σας και βεβαιωθείτε ότι αυτό το όνομα χρήστη δεν περιέχει κενά. Δημιουργήστε επίσης έναν ιδιωτικό κωδικό πρόσβασης. Αυτά τα δύο θα αποτελούν το "κλειδί" σας για το GDM-club από εδώ και στο εξής. Αυτές οι πληροφορίες θα διατηρηθούν σε μια βάση δεδομένων εγγραφής, στην οποία θα έχει πρόσβαση μόνο ο GDM και όχι οι απλοί χρήστες.

You can be members of the GDM-club by filling the application bellow. Only users with accounts are allowed at the GDM-club. Choose a username and make sure that it has no gaps. Create also a password. These two will be your 'key' for the GDM-club for now on. These information will be held in a database that only GDM can access and no single users.

GDM © 2004 [ont]. All rights reserved.
01/08/04.

Powered by GDM