<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim ListaTop__MMColParam ListaTop__MMColParam = "True" If (Request("MM_EmptyValue") <> "") Then ListaTop__MMColParam = Request("MM_EmptyValue") End If %> <% Dim ListaTop Dim ListaTop_cmd Dim ListaTop_numRows Set ListaTop_cmd = Server.CreateObject ("ADODB.Command") ListaTop_cmd.ActiveConnection = MM_GalepinPortal_STRING ListaTop_cmd.CommandText = "SELECT * FROM links WHERE xeloTop = ?" ListaTop_cmd.Prepared = true ListaTop_cmd.Parameters.Append ListaTop_cmd.CreateParameter("param1", 11, 1, -1, ListaTop__MMColParam) ' adBoolean Set ListaTop = ListaTop_cmd.Execute ListaTop_numRows = 0 %> <% Dim menu_insima__MMColParam menu_insima__MMColParam = "insima" If (Request("MM_EmptyValue") <> "") Then menu_insima__MMColParam = Request("MM_EmptyValue") End If %> <% Dim menu_insima Dim menu_insima_cmd Dim menu_insima_numRows Set menu_insima_cmd = Server.CreateObject ("ADODB.Command") menu_insima_cmd.ActiveConnection = MM_GalepinPortal_STRING menu_insima_cmd.CommandText = "SELECT * FROM menus WHERE grupo = ? ORDER BY ranking ASC" menu_insima_cmd.Prepared = true menu_insima_cmd.Parameters.Append menu_insima_cmd.CreateParameter("param1", 200, 1, 255, menu_insima__MMColParam) ' adVarChar Set menu_insima = menu_insima_cmd.Execute menu_insima_numRows = 0 %> <% Dim menu_nostri__MMColParam menu_nostri__MMColParam = "nostri" If (Request("MM_EmptyValue") <> "") Then menu_nostri__MMColParam = Request("MM_EmptyValue") End If %> <% Dim menu_nostri Dim menu_nostri_cmd Dim menu_nostri_numRows Set menu_nostri_cmd = Server.CreateObject ("ADODB.Command") menu_nostri_cmd.ActiveConnection = MM_GalepinPortal_STRING menu_nostri_cmd.CommandText = "SELECT * FROM menus WHERE grupo LIKE ? ORDER BY ranking ASC" menu_nostri_cmd.Prepared = true menu_nostri_cmd.Parameters.Append menu_nostri_cmd.CreateParameter("param1", 200, 1, 255, "%" + menu_nostri__MMColParam + "%") ' adVarChar Set menu_nostri = menu_nostri_cmd.Execute menu_nostri_numRows = 0 %> <% Dim menu_hot__MMColParam menu_hot__MMColParam = "hot" If (Request("MM_EmptyValue") <> "") Then menu_hot__MMColParam = Request("MM_EmptyValue") End If %> <% Dim menu_hot Dim menu_hot_cmd Dim menu_hot_numRows Set menu_hot_cmd = Server.CreateObject ("ADODB.Command") menu_hot_cmd.ActiveConnection = MM_GalepinPortal_STRING menu_hot_cmd.CommandText = "SELECT * FROM menus WHERE grupo LIKE ? ORDER BY ranking ASC" menu_hot_cmd.Prepared = true menu_hot_cmd.Parameters.Append menu_hot_cmd.CreateParameter("param1", 200, 1, 255, "%" + menu_hot__MMColParam + "%") ' adVarChar Set menu_hot = menu_hot_cmd.Execute menu_hot_numRows = 0 %> <% Dim menu_altro__MMColParam menu_altro__MMColParam = "altro" If (Request("MM_EmptyValue") <> "") Then menu_altro__MMColParam = Request("MM_EmptyValue") End If %> <% Dim menu_altro Dim menu_altro_cmd Dim menu_altro_numRows Set menu_altro_cmd = Server.CreateObject ("ADODB.Command") menu_altro_cmd.ActiveConnection = MM_GalepinPortal_STRING menu_altro_cmd.CommandText = "SELECT * FROM menus WHERE grupo LIKE ? ORDER BY ranking ASC" menu_altro_cmd.Prepared = true menu_altro_cmd.Parameters.Append menu_altro_cmd.CreateParameter("param1", 200, 1, 255, "%" + menu_altro__MMColParam + "%") ' adVarChar Set menu_altro = menu_altro_cmd.Execute menu_altro_numRows = 0 %> <% Dim Lista_xone Dim Lista_xone_cmd Dim Lista_xone_numRows Set Lista_xone_cmd = Server.CreateObject ("ADODB.Command") Lista_xone_cmd.ActiveConnection = MM_GalepinPortal_STRING Lista_xone_cmd.CommandText = "SELECT * FROM Arie ORDER BY area ASC" Lista_xone_cmd.Prepared = true Set Lista_xone = Lista_xone_cmd.Execute Lista_xone_numRows = 0 %> <% Dim Lista_argomenti Dim Lista_argomenti_cmd Dim Lista_argomenti_numRows Set Lista_argomenti_cmd = Server.CreateObject ("ADODB.Command") Lista_argomenti_cmd.ActiveConnection = MM_GalepinPortal_STRING Lista_argomenti_cmd.CommandText = "SELECT * FROM Argomenti ORDER BY argomento ASC" Lista_argomenti_cmd.Prepared = true Set Lista_argomenti = Lista_argomenti_cmd.Execute Lista_argomenti_numRows = 0 %> <% Dim Repeat3__numRows Dim Repeat3__index Repeat3__numRows = -1 Repeat3__index = 0 menu_nostri_numRows = menu_nostri_numRows + Repeat3__numRows %> <% Dim Repeat4__numRows Dim Repeat4__index Repeat4__numRows = -1 Repeat4__index = 0 menu_hot_numRows = menu_hot_numRows + Repeat4__numRows %> <% Dim Repeat5__numRows Dim Repeat5__index Repeat5__numRows = -1 Repeat5__index = 0 menu_altro_numRows = menu_altro_numRows + Repeat5__numRows %> <% Dim HLooper2__numRows HLooper2__numRows = -8 Dim HLooper2__index HLooper2__index = 0 Lista_argomenti_numRows = Lista_argomenti_numRows + HLooper2__numRows %> <% Dim HLooper1__numRows HLooper1__numRows = -8 Dim HLooper1__index HLooper1__index = 0 Lista_xone_numRows = Lista_xone_numRows + HLooper1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 menu_insima_numRows = menu_insima_numRows + Repeat2__numRows %> Venetian dictionary - dizionario veneto - galepin vèneto

Come xé che se pol contribuir a "el Galepin"?

Se pol laorar so ƚe schède, a documentando paròƚe niove, o mandando ƚa coresion de schède xà prexenti. No sta ver pasion se no te vedi publicà i to contribudi, vien registrà tuto el material vàƚido e i vegnarà doparài a 'l momento de 'l bixògno (pròsime edision on line o stanpe de galepini o schède ilustràe). Te gà da contribuir ƚa to lengua, come efetivamente parlada e scrita (co' propietà ortogràfega e fonèdega) inte ƚa to rexion, pagòto, bixiaco, axoƚan, triestin, sandonatexe, ect...

 

Te pol contribuir a 'l conpletamento, par cuanto posìbiƚe, de i paradigmi de i vèrbi.

 

Te pol rejistrar mòdi de dir e fraxeloxìa in reƚasion a na paròƚa particoƚar, che i andarà inte ƚa sesion pròpia de ƚa schèda (senpre in variansa local pròpia).

 

Te pol contribuir a 'l potensiamento tràmite donasion.

 

Te pol suportar e èsar suportà, co' un banner publicitario. I vixitadori i xé in xènare vèneti rexidenti, disendenti de vèneti da tuto el mondo, turisti forèsti interesài a lengua e costumanse vènete che i gà in programa de végner inte ƚa Venèsia. Tuti i xé a alta propension de acuisto de servisi e prodoti.

 

Semo in serca senpre de espèrti de asp/VBscript/Access, Apache/PHP/MySQL e de Access par el laoro offline.

 

Contata el Galepin

 

 

 

 

 

Log in
<% ListaTop.Close() Set ListaTop = Nothing %> <% menu_insima.Close() Set menu_insima = Nothing %> <% menu_nostri.Close() Set menu_nostri = Nothing %> <% menu_hot.Close() Set menu_hot = Nothing %> <% menu_altro.Close() Set menu_altro = Nothing %> <% Lista_xone.Close() Set Lista_xone = Nothing %> <% Lista_argomenti.Close() Set Lista_argomenti = Nothing %>