<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
FUNCTION CropSentence(strText, intLength, strTrial)
Dim wsCount
Dim intTempSize
Dim intTotalLen
Dim strTemp
wsCount = 0
intTempSize = 0
intTotalLen = 0
intLength = intLength - Len(strTrial)
strTemp = ""
IF Len(strText) > intLength THEN
arrTemp = Split(strText, " ")
FOR EACH x IN arrTemp
IF Len(strTemp) <= intLength THEN
strTemp = strTemp & x & " "
END IF
NEXT
CropSentence = Left(strTemp, Len(strTemp) - 1) & strTrial
ELSE
CropSentence = strText
END IF
END FUNCTION
Function IsBlank(Value)
'returns True if Empty or NULL or Zero
If IsEmpty(Value) or IsNull(Value) Then
IsBlank = True
Exit Function
ElseIf VarType(Value) = vbString Then
If Value = "" Then
IsBlank = True
Exit Function
End If
ElseIf IsObject(Value) Then
If Value Is Nothing Then
IsBlank = True
Exit Function
End If
ElseIf IsNumeric(Value) Then
If Value = 0 Then
'wscript.echo " Zero value found"
IsBlank = True
Exit Function
End If
Else
IsBlank = False
End If
End Function
Function stripTags(HTMLstring)
Set RegularExpressionObject = New RegExp
With RegularExpressionObject
.Pattern = "<[^>]+>"
'.Pattern = "<[^>]*>"
.IgnoreCase = True
.Global = True
End With
stripTags = RegularExpressionObject.Replace(HTMLstring, "")
Set RegularExpressionObject = nothing
End Function
%>
<%
Dim Recordset_news1__MMColParam
Recordset_news1__MMColParam = "1"
If (Request.QueryString("cid") <> "") Then
Recordset_news1__MMColParam = cint(Request.QueryString("cid"))
End If
%>
<%
'article query
Dim Recordset_news1
Dim Recordset_news1_numRows
Set Recordset_news1 = Server.CreateObject("ADODB.Recordset")
Recordset_news1.ActiveConnection = MM_conn_admin_STRING
'Recordset_news1.Source = "SELECT * from articles WHERE article_id = 65"
Recordset_news1.Source = "SELECT * from articles WHERE article_id = "&Recordset_news1__MMColParam&" "
Recordset_news1.CursorType = 0
Recordset_news1.CursorLocation = 2
Recordset_news1.LockType = 1
Recordset_news1.Open()
Recordset_news1_numRows = 0
%>
<%
'photo query
Dim Recordset_news2
Dim Recordset_news2_numRows
Set Recordset_news2 = Server.CreateObject("ADODB.Recordset")
Recordset_news2.ActiveConnection = MM_conn_admin_STRING
Recordset_news2.Source = "SELECT TOP 1 * from article_gallery WHERE gallery_article_id = "&Recordset_news1__MMColParam&" ORDER BY gallery_id DESC"
Recordset_news2.CursorType = 0
Recordset_news2.CursorLocation = 2
Recordset_news2.LockType = 1
Recordset_news2.Open()
Recordset_news2_numRows = 0
%>
<%
Function CptTone(txt)
if txt<>"" then
txt=Replace(txt,"ά","α")
txt=Replace(txt,"έ","ε")
txt=Replace(txt,"ή","η")
txt=Replace(txt,"ί","ι")
txt=Replace(txt,"ΐ","ϊ")
txt=Replace(txt,"ό","ο")
txt=Replace(txt,"ύ","υ")
txt=Replace(txt,"ΰ","ϋ")
txt=Replace(txt,"ώ","ω")
response.write(txt)
end if
End Function
%>
<%=(Recordset_news1.Fields.Item("article_title_gr").Value)%> | Αλέξανδρος Κυρίτσης
<%
Dim totallength, splitlength, text1, text2, splitposition, j, articlephoto1, articlephoto2
%>
" alt="<%=(Recordset_news1.Fields.Item("article_photo").Value)%>">
" alt="" class="star img-fluid">