<% '------------an to pagecode einai 03.xx eimaste sti selida me ta stoixeia ton omiliton------------------ PageCode = Request("PageCode") pagesplit=Split(pagecode,".") if pagesplit(0)=03 OR pagecode=03 then omilites=1 end if '--------------------------------------------------------------------------------------------------------- Dim TrueFalse(10,1) TrueFalse(1,0) = "ΟΧΙ" TrueFalse(1,1) = "ΝΑΙ" TrueFalse(2,0) = "NO" TrueFalse(2,1) = "YES" TrueFalse(3,0) = "NON" TrueFalse(3,1) = "OUI" TrueFalse(4,0) = "NON" TrueFalse(4,1) = "SI" TrueFalse(5,0) = "NON" TrueFalse(5,1) = "SI" TrueFalse(6,0) = "NON" TrueFalse(6,1) = "SI" TrueFalse(7,0) = "NON" TrueFalse(7,1) = "SI" TrueFalse(8,0) = "NON" TrueFalse(8,1) = "SI" Dim DataTypes() Dim ColumnTitles() EntryID = Request.QueryString("EntryID") TablePageID = Request.QueryString("TablePageID") orderby = Request.QueryString("orderby") direction = request.querystring("direction") pageNo = Request.QueryString("PageNo") display = Request.QueryString("display") LangID = Request.queryString("langid") header = "" set oConn =Server.CreateObject("ADODB.Connection") set oRs =Server.CreateObject("ADODB.Recordset") oConn.open Application("ConStr") oRs.open "entryheaders " & TablePageID, oConn, 3, 1, 1 'response.write "========"&tablepageid 'response.end if oRs.EOF = false then response.write "" MailBody = MailBody & "

" ColumnsNo = oRs("ColumnsNumber") TableID = oRs("TableID") toEmail = oRs("toEmail") '------------------------------------------mail to proto kommati gia ton proedro,to deftero gia tin epitropi------------ if instr(toEmail,";") then SplitMail=Split(toEmail,";") 'to proto mail pou tha iparxei sto backend paei ston proedro proedrosemail=SplitMail(0) 'to defterp mail pou tha iparxei sto backend paei stin epitropi epitropiemail =SplitMail(1) else proedrosemail=toEmail 'an iparxei mono ena mail apo to backend valto kai stous dio epitropiemail =toEmail end if set oRs2 =Server.CreateObject("ADODB.Recordset") SQL="SELECT TOP 1 * FROM TABLE8 ORDER BY ID DESC" oRs2.open SQL,oConn,3,1,1 'sto table 8 to teleftaio stoixei pou bike einai to minima pou molis egrapsa targetmail=oRs2(5) if targetmail<>"" then 'an exo epikesei proedro if targetmail=1 then toEmail=proedrosemail else toEmail=epitropiemail 'an exo epikesei epitropi end if else toEmail=epitropiemail 'an den exo epileksei tipote paei kai stous dio Noselecteddropdown=1 end if '---------------------------------------------------------------------------------------------------- Redim DataTypes(ColumnsNo) Redim ColumnTitles(ColumnsNo) Redim RealDataType(ColumnsNo) i = 0 pageTitle = oRs("ColumnDescr") oRs.movenext While oRs.EOF = false i = i + 1 if isnull(oRs("ForeignTable")) then ColumnName = oRs("ColumnName") else ColumnName = oRs("ForeignValueField") end if DataTypes(i) = oRs("ColumnName") RealDataType(i) = oRs("DataType") ColumnTitles(i) = oRs("ColumnDescr") oRs.movenext wend Dim GroupValues() oRs.close 'Response.Write "" 'to kopsa oste na mi fainetai sto front end to onoma tou listing oRs.open "entry " & TablePageID & "," & entryID ,oConn, 0, 1, 1 'response.write "entry " & TablePageID & "," & entryID 'response.end if oRs.EOF = false then myData=oRs.getrows() i = 0 if omilites =1 then last=uBound(myData)-1 else last=uBound(myData) end if 'i teleftaia stili tou select exei ton arithmo selidon kai tin pairno moni tis oste na boro na kano ta split sti periptosi ton omiliton 'for j = 1 to uBound(myData)-1 for j=1 to last i = 1 - i response.write "" MailBody = MailBody & "" myVal = myData(j, 0) if lcase(RealDataType(j))= "bit" then if myVal then myVal=TrueFalse(LangID,1) else myVal=TrueFalse(LangID,0) end if else if myVal & "" = "" then myVal = " " end if if instr(lcase(DataTypes(j)), "email") then if myVal <> " " then myVal = "" & myVal & "" end if elseif instr(lcase(DataTypes(j)), "url") then if myVal <> " " then myVal = "" & myVal & "" end if elseif instr(lcase(DataTypes(j)), "image") then ' data type image if Trim( myVal ) <> " " and Trim( myVal ) <> "," then if Instr(myVal, ",") then 'myVal = "

" & Right( myVal, Len( myVal ) - Instr(myVal, ",") ) & "" 'to allaksa oste dipla sti foto na mi fainetai o titlos myVal = "

" else myVal = "

" End If else MyVal = " " end if elseif instr(lcase(DataTypes(j)), "file") then ' data type image if Trim( myVal ) <> " " and Trim( myVal ) <> "," then myVal = "" & myVal & "" else MyVal = " " end if end if if myVal <> " " Then if j <> 1 then if left(lcase(RealDataType(j)),4) = "text" or instr(lcase(DataTypes(j)), "image") then 'response.write "" 'to svino oste na fainontai oi perigfares ton stilon sto front end response.write "" elseif instr(lcase(DataTypes(j)), "image") then response.write "" elseif lcase(RealDataType(j))= "bit" then response.write "" else response.write "" response.write "" end if '----------------------------------------na fainetai sto mail to onoma sxolia------------------------- if j=5 then MailBody = MailBody & "" else MailBody = MailBody & "" end if MailBody = MailBody & "" else response.write "" MailBody = MailBody & "" end if 'Response.Write "" & chr(13) else if j<>1 then if Noselecteddropdown=1 then '----------------------------------------na fainetai sto mail an den exei epileksei kanena mail o xristis kai oi dio proorismoi------------------------- MailBody = MailBody & "" else MailBody = MailBody & "" end if MailBody = MailBody & "" else MailBody = MailBody & "" end if End If response.write "" MailBody = MailBody & "" next end if '-------------------------------i teleftaia stili periexei ton aritho ton selidon pou prepei na ginoun split sti periptosi ton omiliton----------- ' THA PREPEI NA ORISTEI SINODOS GIA KATHE XRISTI!!! if omilites=1 AND myData(1,0)<>""then 'pagecode=request("pagecode") set oRs2 =Server.CreateObject("ADODB.Recordset") if Instr(myData(1,0),"'") then sql="select sunodoID from op_sunodoi where sunodoDescr1='"&myData(1,0)&"''" else sql="select sunodoID from op_sunodoi where sunodoDescr1='"&myData(1,0)&"'" end if oRs2.open SQL, oConn, 3,1,1 sinodosid=oRs2(0) if myData(uBound(myData),0)<>"" then 'an iparxei sinedrio sto opoio exei perastei aftos o omilitis myvalarray=Split(myData(uBound(myData),0),",") response.write "" response.write "" end if oRs2.close end if '------------------------------------------------------------------------------------------------------------------------- if display <> "4" and showonly = false Then if request("pagecode")=10 OR left(request("pagecode"),2)=02 OR left(request("pagecode"),2)=07 OR request.querystring("firstpage")=1 then response.write "" End If response.write "

" &pageTitle& "

" & ColumnTitles(j) & "

" response.write "

" & myVal & "

" response.write "

" & myVal & "

" & ColumnTitles(j) & ": " & myVal & "

" & ColumnTitles(j) & "

" & myVal & "

Σχόλια

" & ColumnTitles(j) & "

" & myVal & "

" & myVal & "

Προς την Επιτροπή

" & ColumnTitles(j) & "

" & myVal & "

" & myVal & "

" & ColumnTitles(uBound(myData)) & "

" for h=0 to uBound(myvalarray,1) if h mod 10 =0 then response.write "
" response.write ""&myvalarray(h)&"" if h<>uBound(myvalarray,1) then response.write ","end if next response.write "

" else response.write "

" end if select case langid case "1" Response.Write "Επιστροφή" Case "2" Response.Write "Back" Case else Response.Write "Back" end select Response.Write "

" MailBody = MailBody & "" end if oRs.close set oRs = nothing oconn.close set oConn = nothing if display = "4" Then set objMail = CreateObject("CDONTS.NewMail") objMail.From = "info@parliament.com" objMail.BodyFormat = 0 objMail.MailFormat = 0 objMail.to = toEmail objMail.subject = "Βουλή Εφήβων - Φόρμα επικοινωνίας" objMail.Body = MailBody objMail.send set objMail = Nothing End If if TablePageFooter & "" <> "" Then Response.Write "

" & TablePageFooter & "

"%>