<% sub writeFile (name , eponimo, fylo, age, phone, email, epaggelma, etaireia, address, city, tk, quest) dim fs,f, curTime,x ,ip set fs=Server.CreateObject("Scripting.FileSystemObject") set f=fs.OpenTextFile("C:\egeeRegistration\users.txt",8,true,0) curTime = Now() ip = Request.ServerVariables("REMOTE_ADDR") f.WriteLine(name & ";" & eponimo & ";" & fylo & ";" & age & ";" & phone & ";" & email & ";" & epaggelma & ";" & etaireia & ";" & address & ";" & city & ";" & tk & ";" & quest & ";" & curTime & ";" & ip) f.Close set f=Nothing set fs=Nothing end sub %>
Γενικά
Σεμινάριο
Grid
Εγγραφή <% Response.Write(Day(Date) & "/" & Month(Date) & "/" & Year(Date)) %>

Εγγραφή Στο Σεμινάριο

Ο αριθμός των συμμετεχόντων έχει συμπληρωθεί οπότε σας παρακαλούμε να μην εγγράφεστε.

<% //if Request.Form("submitForm")="" Then %>

Για την συμμετοχή στο σεμινάριο είναι απαραίτητη η συμπλήρωση της παρακάτω φόρμας. Η συμπλήρωση των πεδιών που σημειώνονται με αστερίσκο είναι απαραίτητη.

Όνομα*:
Επώνυμο*:
Φύλο*:
Ηλικία:
Τηλέφωνο:
E-Mail*:
Επάγγελμα:
Εταιρεία/Οργανισμός:
Διεύθυνση:
Πόλη:
Ταχυδρομικός Κώδικας:
 
Πόσο εξοικειωμένος/η είστε με τις τεχνολογίες Grid;* 

<% //else // dim onoma, eponimo, fylo, age, phone, email // dim epaggelma, etaireia, address, city, tk, quest // onoma = Request.Form("requiredOnoma") // eponimo = Request.Form("requiredEpwnymo") // fylo = Request.Form("requiredFylo") // age = Request.Form("age") // phone = Request.Form("phone") // email = Request.Form("requiredMail") // epaggelma = Request.Form("epaggelma") // etaireia = Request.Form("etaireia") // address = Request.Form("address") // city = Request.Form("city") // tk = Request.Form("tk") // quest = Request.Form("requiredQuest") // writeFile onoma , eponimo, fylo, age, phone, email, epaggelma, etaireia, address, city, tk, quest %> <% //End If %>
 @2005. :: UPatras EGEE Grid Team