<% pageID = Request.QueryString("pageID") pageCode = Request.QueryString("pageCode") tablePageID = Request.QueryString("tablePageID") tableID = Request.QueryString("tableID") LangID = Request.QueryString("LangID") if LangID & "" = "" then LangID = 1 Dim choose(20) choose(1) = "-- Επιλέξτε --" choose(2) = "-- Choose --" choose(3) = "-- Selectionare --" choose(4) = "-- Chosissez --" choose(5) = "-- Walhen sie --" choose(6) = "-- Picker --" choose(7) = "-- Picker --" choose(8) = "-- Picker --" choose(9) = "-- Picker --" choose(10) = "-- Picker --" Dim numer(20) numer(1) = "Παρακαλούμε συμπληρώστε νούμερο" numer(2) = "Please give a number" numer(3) = "Donnez ein schiffre svp" numer(4) = "Παρακαλούμε συμπληρώστε νούμερο" numer(5) = "Παρακαλούμε συμπληρώστε νούμερο" numer(6) = "Παρακαλούμε συμπληρώστε νούμερο" numer(7) = "Παρακαλούμε συμπληρώστε νούμερο" numer(8) = "Παρακαλούμε συμπληρώστε νούμερο" numer(9) = "Παρακαλούμε συμπληρώστε νούμερο" numer(10) = "Παρακαλούμε συμπληρώστε νούμερο" set oConn = Server.CreateObject("ADODB.Connection") oConn.Open Application("ConStr") set oRs = Server.CreateObject("ADODB.Recordset") SQL = "SELECT TablePageHeader, TablePageFooter FROM CM_TableDetails INNER JOIN CM_Templates ON CM_TableDetails.display = CM_Templates.ID WHERE TablePageID = " & Request.QueryString("TablePageID") oRs.Open SQL, oConn, 3, 1, 1 if Not oRs.EOF Then TablePageHeader = oRs("TablePageHeader") TablePageFooter = oRs("TablePageFooter") end If oRs.Close if tableID & "" = "" then SQL = "SELECT TableID, display FROM CM_TableDetails WHERE TablePageID=" & TablePageID oRs.Open SQL, oConn, 3, 1, 1 if not oRs.EOF then TableID = oRs(0) display = oRs("display") End If oRs.Close End If %>

<% ii = 1 isWritten = "" SQL = "SELECT * FROM columnView WHERE tablepageID = " & tablepageID & " AND ShowInList = 1 ORDER BY TabIndex" oRs.Open SQL, oConn, 3, 1, 1 redim ForeignTables(50) while oRs.EOF = false TablePageTitle = oRs("TablePageTitle") ColumnName = oRs("ColumnName") ColumnDescr = oRs("ColumnDescr") Sortable = oRs("Sortable") Searchable = oRs("Searchable") ShowInList = oRs("ShowInList") tabIndex = oRs("tabIndex") selectMultiple = oRs("selectMultiple") ForeignPKfield = oRs("ForeignPKfield") ForeignTable = oRs("ForeignTable") Data_Type = oRs("Data_Type") opDisplay = oRs("opDisplay") if len(isWritten) = 0 then response.write "" response.write "" if TablePageHeader & "" <> "" Then Response.Write "" isWritten = "yes" end if response.write "" & chr(13) myDataType = "other" if lcase(Data_Type) = "text" then myDataType = "text" if lcase(Data_Type) = "bit" then myDataType = "bit" if left(lcase(Data_Type),13) = "smalldatetime" or left(lcase(Data_Type),8) = "datetime" then myDataType = "date" if lCase(Left(ColumnName, 5)) = "image" then myDataType = "image" if ForeignPKfield & "" <> "" then myDataType = "selection" select case myDataType case "text"%> <% case "bit" response.write "" & chr(13) case "selection" response.write "" & chr(13) response.write "" & chr(13) oRs2.Close set oRs2 = nothing case "date" response.write "" & chr(13)%> <%response.write "" & chr(13) case "image" response.write "" & chr(13) response.write "" & chr(13) case else response.write "" & chr(13) response.write "" & chr(13) end select if Data_Type = "float" Then Response.Write "" if selectMultiple = true Then Response.Write "" response.write "" & chr(13) ForeignTables(ii) = ForeignTable ii = ii + 1 oRs.MoveNext wend oRs.Close set oRs = nothing oConn.Close set oConn = nothing %> <% if TablePageFooter & "" <> "" Then %> <% End If %>

"& tablePageTitle &"
" & TablePageHeader & "
<%= ColumnDescr %>
		" & ColumnDescr & " " & _ "	" & ColumnDescr & "	" tableName = ForeignTable SQL = "SELECT * FROM CM_OperationalTables WHERE tableName = '" & tableName & "'" set oRs2 = Server.CreateObject("ADODB.Recordset") oRs2.Open SQL, oConn, 3, 1, 1 if oRs2("isMultilevel") = true then isMultilevel = true SQL3 = "SELECT " & oRs2("tablePK") & ", " & oRs2("tableValueKey") & LangID & ", " & oRs2("HierarchyColumn") & " FROM " & tableName & " ORDER BY " & oRs2("HierarchyColumn") & ", 2" else isMultilevel = false SQL3 = "SELECT " & oRs2("tablePK") & ", " & oRs2("tableValueKey") & LangID & " FROM " & tableName & " ORDER BY 2" end if oRs2.close oRs2.Open SQL3, oConn, 3, 1, 1 if oRs2.EOF = false then tableData = oRs2.getrows() select case cstr(opDisplay & "") case "2" for i = 0 to ubound(tableData , 2) response.write "" & tableData(1, i) & " " & chr(13) next case "3" for i = 0 to ubound(tableData , 2) response.write "" & tableData(1, i) & " " & chr(13) next case else if isMultilevel = False Then response.write "" & chr(13) response.write "" & choose(langID) & "" & chr(13) for i = 0 to ubound(tableData , 2) 'otan toustelnetai to contact 1 kathorizetai pio tha nai selected sto drop down,1-proedros,2-epitropi if Cint(request.querystring("contact")=1) AND Cint(tableData(0, i))=Cint(request.querystring("mailto")) then response.write "" & tableData(1, i) & "" & chr(13) else response.write "" & tableData(1, i) & "" & chr(13) end if next response.write "" & chr(13) else%> <% Response.Write "" end If end select erase tableData else response.write " " end if response.write "	" & ColumnDescr & "		" & ColumnDescr & "	Name:    Title:	" & ColumnDescr & "
	<%= TablePageFooter %>