<%@LANGUAGE="VBSCRIPT"%> <% ' *** Edit Operations: declare variables MM_editAction = CStr(Request("URL")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Request.QueryString End If ' boolean to abort record edit MM_abortEdit = false ' query string to execute MM_editQuery = "" %> <% ' *** Redirect if username exists MM_flag="MM_insert" If (CStr(Request(MM_flag)) <> "") Then MM_dupKeyRedirect="wrong.htm" MM_rsKeyConnection=MM_Dromoi_Test_STRING MM_dupKeyUsernameValue = CStr(Request.Form("email")) MM_dupKeySQL="SELECT email FROM Diagonismos WHERE email='" & MM_dupKeyUsernameValue & "'" MM_adodbRecordset="ADODB.Recordset" set MM_rsKey=Server.CreateObject(MM_adodbRecordset) MM_rsKey.ActiveConnection=MM_rsKeyConnection MM_rsKey.Source=MM_dupKeySQL MM_rsKey.CursorType=0 MM_rsKey.CursorLocation=2 MM_rsKey.LockType=3 MM_rsKey.Open If Not MM_rsKey.EOF Or Not MM_rsKey.BOF Then ' the username was found - can not add the requested username MM_qsChar = "?" If (InStr(1,MM_dupKeyRedirect,"?") >= 1) Then MM_qsChar = "&" MM_dupKeyRedirect = MM_dupKeyRedirect & MM_qsChar & "requsername=" & MM_dupKeyUsernameValue Response.Redirect(MM_dupKeyRedirect) End If MM_rsKey.Close End If %> <% ' *** Insert Record: set variables If (CStr(Request("MM_insert")) <> "") Then MM_editConnection = MM_Dromoi_Test_STRING MM_editTable = "Diagonismos" MM_editRedirectUrl = "correct.htm" MM_fieldsStr = "Onoma|value|email|value|uessalonikh|value|ksypolhth|value|eleysina|value|poyli|value|trapezi|value|ti_soykana_kai_pineis|value" MM_columnsStr = "Onoma|',none,''|email|',none,''|uessalonikh|',none,''|ksypolhth|',none,''|eleysina|',none,''|poyli|',none,''|trapezi|',none,''|[ti soykana kai pineis]|',none,''" ' create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr, "|") MM_columns = Split(MM_columnsStr, "|") ' set the form values For i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(i+1) = CStr(Request.Form(MM_fields(i))) Next ' append the query string to the redirect URL If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If End If %> <% ' *** Insert Record: construct a sql insert statement and execute it If (CStr(Request("MM_insert")) <> "") Then ' create the sql insert statement MM_tableValues = "" MM_dbValues = "" For i = LBound(MM_fields) To UBound(MM_fields) Step 2 FormVal = MM_fields(i+1) MM_typeArray = Split(MM_columns(i+1),",") Delim = MM_typeArray(0) If (Delim = "none") Then Delim = "" AltVal = MM_typeArray(1) If (AltVal = "none") Then AltVal = "" EmptyVal = MM_typeArray(2) If (EmptyVal = "none") Then EmptyVal = "" If (FormVal = "") Then FormVal = EmptyVal Else If (AltVal <> "") Then FormVal = AltVal ElseIf (Delim = "'") Then ' escape quotes FormVal = "'" & Replace(FormVal,"'","''") & "'" Else FormVal = Delim + FormVal + Delim End If End If If (i <> LBound(MM_fields)) Then MM_tableValues = MM_tableValues & "," MM_dbValues = MM_dbValues & "," End if MM_tableValues = MM_tableValues & MM_columns(i) MM_dbValues = MM_dbValues & FormVal Next MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")" If (Not MM_abortEdit) Then ' execute the insert Set MM_editCmd = Server.CreateObject("ADODB.Command") MM_editCmd.ActiveConnection = MM_editConnection MM_editCmd.CommandText = MM_editQuery MM_editCmd.Execute MM_editCmd.ActiveConnection.Close If (MM_editRedirectUrl <> "") Then Response.Redirect(MM_editRedirectUrl) End If End If End If %> λαϊκοί δρόμοι - ασκήσεις

ΕΡΩΤΗΣΕΙΣ ΑΣΚΗΣΕΙΣ ΠΑΝΩ ΣΤΟΥΣ ΔΡΟΜΟΥΣ

1.Στην σελίδα του Κύρτσου Λεωνίδα παρτιτούρες για μπουζούκι υπάρχουν πέντε παρτιτούρες για μπουζούκι Σε τι δρόμο είναι το κάθε τραγούδι?

2.Στην σελίδα του Χρίστου Σιταρίδη επαγγελματικά midifiles μπορείτε να ακούσετε το επίκαιρο τραγούδι Τι σου 'κανα και πίνεις .Σε τι δρόμο είναι ?

Μπορείτε να απαντήσετε στην παρακάτω φόρμα και θα λάβετε επιβεβαιωτικό e-mail σε 24 ώρες.

Όσοι απαντήσουν σωστά, θα κερδίσουν ένα CD με την εφαρμογή των Λαϊκών Δρόμων, εμπλουτισμένη με περισσότερο υλικό.

 

Το όνομά σας:
Email:(υποχρεωτικό)
Τραγούδι
Γραμμένο στον δρόμο:
Θεσσαλονίκη:
Ήσουνα ξυπόλητη:
Ελευσίνα :
Θα ζήσω ελεύθερο πουλί :
Στο τραπέζι που τα πίνω :
Τι σου'κανα και πίνεις:

Καλή επιτυχία!