<%@LANGUAGE="VBSCRIPT" CODEPAGE="1254"%> <% PATH = "" PAGENAME = "Ana Sayfa" PAGEEXTERNAL = false %> <% Response.Buffer = True Response.Expires = 0 Session.LCID = 1055 %> <% Const WEB_SITE_NAME = "bizimbeton.com" Const WEB_SITE_TITLE = "Bizim Beton - Hazır Beton" Const SITE_BUILD_DATE = 2007 Const PLUSACTIVECOUNT = 0 Const PLUSTODAYCOUNT = 0 Const PLUSTOTALCOUNT = 0 Const SECURITYCODELETTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890" Const MAIL_HOST_USERNAME = "mailhost@tolgabasaran.com" Const MAIL_HOST_PASSWORD = "123456" Const MAIL_HOST_ADDRESS = "mail.tolgabasaran.com" Const CRYPTO_CONTAINER = "hakkitolgabasaran" Const CRYPTO_PASSWORD = "tolgabasaran.com" Const CRYPTO_ALGORITHM = 26115 Const CRYPTO_CALGSHA = 32772 Const MAX_PHOTO_UPLOAD_SIZE = 150 Const SEARCH_PAGE_SIZE = 10 Const AUTHOR = "Grafikirler Ltd. Şti. - www.grafikirler.com" Const AUTHORIZATION = "Hakkı Tolga BAŞARAN - tolga@grafikirler.com" %> <% 'OBJECT TANIMLAMALARI 'PERSITS ENCRYPT OBJECT ' Dim objEncrypt, objContext, objKey ' Set objEncrypt = Server.CreateObject("Persits.CryptoManager") ' Set objContext = objEncrypt.OpenContext("", false) ' Set objKey = objContext.GenerateKeyFromPassword(CRYPTO_PASSWORD) ' Set objKey = Nothing 'PERSITS UPLOAD OBJECT ' Dim ObjUpload ' Set objUpload = Server.CreateObject("Persits.Upload.1") 'PERSITS JPEG OBJECT ' Dim objImage ' Set objImage = Server.CreateObject("Persits.Jpeg") %> <% Dim DBPATH, MYDBCON, DEFCON DBPATH = Server.MapPath(PATH & "config/mdb/sitedb.mdb") MYDBCON = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & DBPATH APPLICATION_TITLE = PAGENAME & " - " & WEB_SITE_NAME & " - " & WEB_SITE_TITLE %> <% '-------------------------------------------------------------------- ' Microsoft ADO ' ' (c) 1996-1998 Microsoft Corporation. All Rights Reserved. ' ' ' ' ADO constants include file for VBScript ' '-------------------------------------------------------------------- '---- CursorTypeEnum Values ---- Const adOpenForwardOnly = 0 Const adOpenKeyset = 1 Const adOpenDynamic = 2 Const adOpenStatic = 3 '---- CursorOptionEnum Values ---- Const adHoldRecords = &H00000100 Const adMovePrevious = &H00000200 Const adAddNew = &H01000400 Const adDelete = &H01000800 Const adUpdate = &H01008000 Const adBookmark = &H00002000 Const adApproxPosition = &H00004000 Const adUpdateBatch = &H00010000 Const adResync = &H00020000 Const adNotify = &H00040000 Const adFind = &H00080000 Const adSeek = &H00400000 Const adIndex = &H00800000 '---- LockTypeEnum Values ---- Const adLockReadOnly = 1 Const adLockPessimistic = 2 Const adLockOptimistic = 3 Const adLockBatchOptimistic = 4 '---- ExecuteOptionEnum Values ---- Const adRunAsync = &H00000010 Const adAsyncExecute = &H00000010 Const adAsyncFetch = &H00000020 Const adAsyncFetchNonBlocking = &H00000040 Const adExecuteNoRecords = &H00000080 '---- ConnectOptionEnum Values ---- Const adAsyncConnect = &H00000010 '---- ObjectStateEnum Values ---- Const adStateClosed = &H00000000 Const adStateOpen = &H00000001 Const adStateConnecting = &H00000002 Const adStateExecuting = &H00000004 Const adStateFetching = &H00000008 '---- CursorLocationEnum Values ---- Const adUseServer = 2 Const adUseClient = 3 '---- DataTypeEnum Values ---- Const adEmpty = 0 Const adTinyInt = 16 Const adSmallInt = 2 Const adInteger = 3 Const adBigInt = 20 Const adUnsignedTinyInt = 17 Const adUnsignedSmallInt = 18 Const adUnsignedInt = 19 Const adUnsignedBigInt = 21 Const adSingle = 4 Const adDouble = 5 Const adCurrency = 6 Const adDecimal = 14 Const adNumeric = 131 Const adBoolean = 11 Const adError = 10 Const adUserDefined = 132 Const adVariant = 12 Const adIDispatch = 9 Const adIUnknown = 13 Const adGUID = 72 Const adDate = 7 Const adDBDate = 133 Const adDBTime = 134 Const adDBTimeStamp = 135 Const adBSTR = 8 Const adChar = 129 Const adVarChar = 200 Const adLongVarChar = 201 Const adWChar = 130 Const adVarWChar = 202 Const adLongVarWChar = 203 Const adBinary = 128 Const adVarBinary = 204 Const adLongVarBinary = 205 Const adChapter = 136 Const adFileTime = 64 Const adDBFileTime = 137 Const adPropVariant = 138 Const adVarNumeric = 139 '---- FieldAttributeEnum Values ---- Const adFldMayDefer = &H00000002 Const adFldUpdatable = &H00000004 Const adFldUnknownUpdatable = &H00000008 Const adFldFixed = &H00000010 Const adFldIsNullable = &H00000020 Const adFldMayBeNull = &H00000040 Const adFldLong = &H00000080 Const adFldRowID = &H00000100 Const adFldRowVersion = &H00000200 Const adFldCacheDeferred = &H00001000 Const adFldKeyColumn = &H00008000 '---- EditModeEnum Values ---- Const adEditNone = &H0000 Const adEditInProgress = &H0001 Const adEditAdd = &H0002 Const adEditDelete = &H0004 '---- RecordStatusEnum Values ---- Const adRecOK = &H0000000 Const adRecNew = &H0000001 Const adRecModified = &H0000002 Const adRecDeleted = &H0000004 Const adRecUnmodified = &H0000008 Const adRecInvalid = &H0000010 Const adRecMultipleChanges = &H0000040 Const adRecPendingChanges = &H0000080 Const adRecCanceled = &H0000100 Const adRecCantRelease = &H0000400 Const adRecConcurrencyViolation = &H0000800 Const adRecIntegrityViolation = &H0001000 Const adRecMaxChangesExceeded = &H0002000 Const adRecObjectOpen = &H0004000 Const adRecOutOfMemory = &H0008000 Const adRecPermissionDenied = &H0010000 Const adRecSchemaViolation = &H0020000 Const adRecDBDeleted = &H0040000 '---- GetRowsOptionEnum Values ---- Const adGetRowsRest = -1 '---- PositionEnum Values ---- Const adPosUnknown = -1 Const adPosBOF = -2 Const adPosEOF = -3 '---- enum Values ---- Const adBookmarkCurrent = 0 Const adBookmarkFirst = 1 Const adBookmarkLast = 2 '---- MarshalOptionsEnum Values ---- Const adMarshalAll = 0 Const adMarshalModifiedOnly = 1 '---- AffectEnum Values ---- Const adAffectCurrent = 1 Const adAffectGroup = 2 Const adAffectAll = 3 Const adAffectAllChapters = 4 '---- ResyncEnum Values ---- Const adResyncUnderlyingValues = 1 Const adResyncAllValues = 2 '---- CompareEnum Values ---- Const adCompareLessThan = 0 Const adCompareEqual = 1 Const adCompareGreaterThan = 2 Const adCompareNotEqual = 3 Const adCompareNotComparable = 4 '---- FilterGroupEnum Values ---- Const adFilterNone = 0 Const adFilterPendingRecords = 1 Const adFilterAffectedRecords = 2 Const adFilterFetchedRecords = 3 Const adFilterPredicate = 4 Const adFilterConflictingRecords = 5 '---- SearchDirectionEnum Values ---- Const adSearchForward = 1 Const adSearchBackward = -1 '---- PersistFormatEnum Values ---- Const adPersistADTG = 0 Const adPersistXML = 1 '---- StringFormatEnum Values ---- Const adStringXML = 0 Const adStringHTML = 1 Const adClipString = 2 '---- ConnectPromptEnum Values ---- Const adPromptAlways = 1 Const adPromptComplete = 2 Const adPromptCompleteRequired = 3 Const adPromptNever = 4 '---- ConnectModeEnum Values ---- Const adModeUnknown = 0 Const adModeRead = 1 Const adModeWrite = 2 Const adModeReadWrite = 3 Const adModeShareDenyRead = 4 Const adModeShareDenyWrite = 8 Const adModeShareExclusive = &Hc Const adModeShareDenyNone = &H10 '---- IsolationLevelEnum Values ---- Const adXactUnspecified = &Hffffffff Const adXactChaos = &H00000010 Const adXactReadUncommitted = &H00000100 Const adXactBrowse = &H00000100 Const adXactCursorStability = &H00001000 Const adXactReadCommitted = &H00001000 Const adXactRepeatableRead = &H00010000 Const adXactSerializable = &H00100000 Const adXactIsolated = &H00100000 '---- XactAttributeEnum Values ---- Const adXactCommitRetaining = &H00020000 Const adXactAbortRetaining = &H00040000 '---- PropertyAttributesEnum Values ---- Const adPropNotSupported = &H0000 Const adPropRequired = &H0001 Const adPropOptional = &H0002 Const adPropRead = &H0200 Const adPropWrite = &H0400 '---- ErrorValueEnum Values ---- Const adErrInvalidArgument = &Hbb9 Const adErrNoCurrentRecord = &Hbcd Const adErrIllegalOperation = &Hc93 Const adErrInTransaction = &Hcae Const adErrFeatureNotAvailable = &Hcb3 Const adErrItemNotFound = &Hcc1 Const adErrObjectInCollection = &Hd27 Const adErrObjectNotSet = &Hd5c Const adErrDataConversion = &Hd5d Const adErrObjectClosed = &He78 Const adErrObjectOpen = &He79 Const adErrProviderNotFound = &He7a Const adErrBoundToCommand = &He7b Const adErrInvalidParamInfo = &He7c Const adErrInvalidConnection = &He7d Const adErrNotReentrant = &He7e Const adErrStillExecuting = &He7f Const adErrOperationCancelled = &He80 Const adErrStillConnecting = &He81 Const adErrNotExecuting = &He83 Const adErrUnsafeOperation = &He84 '---- ParameterAttributesEnum Values ---- Const adParamSigned = &H0010 Const adParamNullable = &H0040 Const adParamLong = &H0080 '---- ParameterDirectionEnum Values ---- Const adParamUnknown = &H0000 Const adParamInput = &H0001 Const adParamOutput = &H0002 Const adParamInputOutput = &H0003 Const adParamReturnValue = &H0004 '---- CommandTypeEnum Values ---- Const adCmdUnknown = &H0008 Const adCmdText = &H0001 Const adCmdTable = &H0002 Const adCmdStoredProc = &H0004 Const adCmdFile = &H0100 Const adCmdTableDirect = &H0200 '---- EventStatusEnum Values ---- Const adStatusOK = &H0000001 Const adStatusErrorsOccurred = &H0000002 Const adStatusCantDeny = &H0000003 Const adStatusCancel = &H0000004 Const adStatusUnwantedEvent = &H0000005 '---- EventReasonEnum Values ---- Const adRsnAddNew = 1 Const adRsnDelete = 2 Const adRsnUpdate = 3 Const adRsnUndoUpdate = 4 Const adRsnUndoAddNew = 5 Const adRsnUndoDelete = 6 Const adRsnRequery = 7 Const adRsnResynch = 8 Const adRsnClose = 9 Const adRsnMove = 10 Const adRsnFirstChange = 11 Const adRsnMoveFirst = 12 Const adRsnMoveNext = 13 Const adRsnMovePrevious = 14 Const adRsnMoveLast = 15 '---- SchemaEnum Values ---- Const adSchemaProviderSpecific = -1 Const adSchemaAsserts = 0 Const adSchemaCatalogs = 1 Const adSchemaCharacterSets = 2 Const adSchemaCollations = 3 Const adSchemaColumns = 4 Const adSchemaCheckConstraints = 5 Const adSchemaConstraintColumnUsage = 6 Const adSchemaConstraintTableUsage = 7 Const adSchemaKeyColumnUsage = 8 Const adSchemaReferentialConstraints = 9 Const adSchemaTableConstraints = 10 Const adSchemaColumnsDomainUsage = 11 Const adSchemaIndexes = 12 Const adSchemaColumnPrivileges = 13 Const adSchemaTablePrivileges = 14 Const adSchemaUsagePrivileges = 15 Const adSchemaProcedures = 16 Const adSchemaSchemata = 17 Const adSchemaSQLLanguages = 18 Const adSchemaStatistics = 19 Const adSchemaTables = 20 Const adSchemaTranslations = 21 Const adSchemaProviderTypes = 22 Const adSchemaViews = 23 Const adSchemaViewColumnUsage = 24 Const adSchemaViewTableUsage = 25 Const adSchemaProcedureParameters = 26 Const adSchemaForeignKeys = 27 Const adSchemaPrimaryKeys = 28 Const adSchemaProcedureColumns = 29 Const adSchemaDBInfoKeywords = 30 Const adSchemaDBInfoLiterals = 31 Const adSchemaCubes = 32 Const adSchemaDimensions = 33 Const adSchemaHierarchies = 34 Const adSchemaLevels = 35 Const adSchemaMeasures = 36 Const adSchemaProperties = 37 Const adSchemaMembers = 38 '---- SeekEnum Values ---- Const adSeekFirstEQ = &H1 Const adSeekLastEQ = &H2 Const adSeekAfterEQ = &H4 Const adSeekAfter = &H8 Const adSeekBeforeEQ = &H10 Const adSeekBefore = &H20 '---- ADCPROP_UPDATECRITERIA_ENUM Values ---- Const adCriteriaKey = 0 Const adCriteriaAllCols = 1 Const adCriteriaUpdCols = 2 Const adCriteriaTimeStamp = 3 '---- ADCPROP_ASYNCTHREADPRIORITY_ENUM Values ---- Const adPriorityLowest = 1 Const adPriorityBelowNormal = 2 Const adPriorityNormal = 3 Const adPriorityAboveNormal = 4 Const adPriorityHighest = 5 '---- CEResyncEnum Values ---- Const adResyncNone = 0 Const adResyncAutoIncrement = 1 Const adResyncConflicts = 2 Const adResyncUpdates = 4 Const adResyncInserts = 8 Const adResyncAll = 15 '---- ADCPROP_AUTORECALC_ENUM Values ---- Const adRecalcUpFront = 0 Const adRecalcAlways = 1 %> <% Set DEFCON = Server.CreateObject("ADODB.Connection") DEFCON.Open MYDBCON %> <% ' Tarih Biçimlendirme fonksiyonları Function Day2Chars(strDate) if strDate = "" or isNull(strDate) then strDate = Now Day2Chars = Day(strDate) if Len(Day2Chars) = 1 then Day2Chars = "0" & Day2Chars End Function Function Month2Chars(strDate) if strDate = "" or isNull(strDate) then strDate = Now Month2Chars = Month(strDate) if Len(Month2Chars) = 1 then Month2Chars = "0" & Month2Chars End Function Function Year2Chars(strDate) if strDate = "" or isNull(strDate) then strDate = Now Year2Chars = Right(Year(strDate),2) End Function Function Year4Chars(strDate) if strDate = "" or isNull(strDate) then strDate = Now Year4Chars = Year(strDate) End Function Function Hour2Chars(strDate) if strDate = "" or isNull(strDate) then strDate = Now Hour2Chars = Hour(strDate) if Len(Hour2Chars) = 1 then Hour2Chars = "0" & Hour2Chars End Function Function Minute2Chars(strDate) if strDate = "" or isNull(strDate) then strDate = Now Minute2Chars = Minute(strDate) if Len(Minute2Chars) = 1 then Minute2Chars = "0" & Minute2Chars End Function Function Second2Chars(strDate) if strDate = "" or isNull(strDate) then strDate = Now Second2Chars = Second(strDate) if Len(Second2Chars) = 1 then Second2Chars = "0" & Second2Chars End Function Function FormatDate(strDate, intType, strSeperator) ' intType seçenekleri; ' 0: Kısa Tarih ve kısa saat (örn: 13.06.2005 21:04), 1: Sadece kısa tarih (örn: 13.06.2005), 2: sadece kısa saat (örn: 21:04), 3: Gün, kısa tarih ve kısa saat (örn: Pazartesi, 13.06.2005 21:04), ' 4: Gün ve kısa tarih (örn: Pazartesi, 13.06.2005), 5: Gün ve Uzun tarih (örn: Pazartesi, 13 Haziran 2005), 6: Gün, uzun tarih ve kısa saat (örn: Pazartesi, 13 Haziran 2005 21:04), ' 7: Gün, uzun tarih ve uzun saat (örn: Pazartesi, 13 Haziran 2005 21:04:00), 8: En kısa tarih (örn: 13.06.05), 9: Uzun tarih (örn: 13 Haziran 2005), 10: Uzun Tarih ve Kısa saat (örn: 13 Haziran 2005 21:04); ' Varsayılan ayar (intType belirtilmemişse) 5; if intType = "" or isNull(intType) or intType>10 then intType = 5 if strDate = "" or isNull(strDate) then strDate = Now if strSeperator = "" then strSeperator = "." if intType = 0 then myFormatDate = Day2Chars(strDate) & strSeperator & Month2Chars(strDate) & strSeperator & Year4Chars(strDate) & " " & Hour2Chars(strDate) & ":" & Minute2Chars(strDate) end if if intType = 1 then myFormatDate = Day2Chars(strDate) & strSeperator & Month2Chars(strDate) & strSeperator & Year4Chars(strDate) end if if intType = 2 then myFormatDate = Hour2Chars(strDate) & ":" & Minute2Chars(strDate) end if if intType = 3 then myFormatDate = WeekDayName(WeekDay(strDate)) & ", " & Day2Chars(strDate) & strSeperator & Month2Chars(strDate) & strSeperator & Year4Chars(strDate) & " " & Hour2Chars(strDate) & ":" & Minute2Chars(strDate) end if if intType = 4 then myFormatDate = WeekDayName(WeekDay(strDate)) & ", " & Day2Chars(strDate) & strSeperator & Month2Chars(strDate) & strSeperator & Year4Chars(strDate) end if if intType = 5 then myFormatDate = WeekDayName(WeekDay(strDate)) & ", " & Day2Chars(strDate) & " " & MonthName(Month(strDate)) & " " & Year4Chars(strDate) end if if intType = 6 then myFormatDate = WeekDayName(WeekDay(strDate)) & ", " & Day2Chars(strDate) & " " & MonthName(Month(strDate)) & " " & Year4Chars(strDate) & " " & Hour2Chars(strDate) & ":" & Minute2Chars(strDate) end if if intType = 7 then myFormatDate = WeekDayName(WeekDay(strDate)) & ", " & Day2Chars(strDate) & " " & MonthName(Month(strDate)) & " " & Year4Chars(strDate) & " " & Hour2Chars(strDate) & ":" & Minute2Chars(strDate) & ":" & Second2Chars(strDate) end if if intType = 8 then myFormatDate = Day2Chars(strDate) & strSeperator & Month2Chars(strDate) & strSeperator & Year2Chars(strDate) end if if intType = 9 then myFormatDate = Day2Chars(strDate) & " " & MonthName(Month(strDate)) & " " & Year4Chars(strDate) end if if intType = 10 then myFormatDate = Day2Chars(strDate) & " " & MonthName(Month(strDate)) & " " & Year4Chars(strDate) & " " & Hour2Chars(strDate) & ":" & Minute2Chars(strDate) end if FormatDate = myFormatDate End Function Function MYDATESERIAL MYDATESERIAL = Day2Chars(now)&Month2Chars(now)&Year4Chars(now) End Function '################################################################################################## ' Güvenlik Uygulaması (form için) Function ClearForm(strText,strImportance) if strImportance=1 then strCharSerias = Array(32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,58,59,60,62,63,64,91,92,93,94,96,123,124,125,126,128,131,132,133,134,135,136,137,138,139,140,141,142,143,144,145,146,147,148,149,150,151,152,153,154,155,156,157,158,159,160,161,162,163,164,165,167,168,169,170,171,172,173,174,175,176,177,178,179,180,181,182,183,184,185,186,187,188,189,190,191,192,193,194,195,196,197,198,200,201,202,203,204,205,206,207,208,209,210,211,212,213,215,216,217,218,219,221,222,223,224,225,226,227,228,229,230,232,233,234,235,236,237,238,239,240,241,242,243,244,245,247,248,249,250,251,253,254,255) else strCharSerias = Array(34,35,37,38,39,42,60,62,63) end if For Each strChar In strCharSerias strText = Replace(strText,Chr(strChar),"") Next strText = Trim(strText) ClearForm = strText End Function ' Güvenlik Kodu oluşturma Function GetSecurityNumber(intLen) Randomize mySecurityNumber = "" for iks = 1 to intLen mySecurityNumber = mySecurityNumber & Mid(SECURITYCODELETTERS,INT(RND*LEN(SECURITYCODELETTERS))+1,1) & " " next GetSecurityNumber = mySecurityNumber End Function '################################################################################################## ' Hata ayıklama, sayfaya yazdırma fonksiyonu Function HataAyikla(msg) if not msg="" then errMsgCnt=Split(msg,";") if UBound(errMsgCnt)>1 then ERRCNT="lar" else ERRCNT="" for intIi=0 to UBound(errMsgCnt)-1 myMsg=myMsg & "• " & errMsgCnt(intIi) if intIi<>UBound(errMsgCnt)-1 then myMsg=myMsg&",
" else myMsg=myMsg&".
" next HataAyikla="Aşağıdaki hata" & ERRCNT & " nedeniyle işlem tamamlanamadı!
" & UBound(errMsgCnt) & " hata bulundu...
"&myMsg else HataAyikla="" end if End Function '################################################################################################## ' Yazı biçimlendirme fonksiyonu; Function FormatText(strText, intType) ' intType seçenekleri; ' 0: DeĞiŞiKLik YoK, 1: TÜM HARFLER BÜYÜK, 2: Yalnızca İlk Harfler Büyük, ' 3: tüm harfler küçük, 4: Yalnızca cümle baş harfi büyük, 5: Haber yazısı, 6: Türkçeden ingilizceye. ' Varsayılan ayar (intType belirtilmemişse) 0; if intType="" or isNull(intType) or intType>4 then intType=0 if intType = 0 then myStrText = strText end if if intType = 1 then for nx=1 to Len(strText) myStrTexts = Mid(strtext,nx,1) myStrTexts = Replace(myStrTexts,"i", "İ") myStrTexts = Replace(myStrTexts,"ı", "I") myStrTexts = UCase(myStrTexts) myStrText = myStrText & myStrTexts next end if if intType = 2 then myStrText=Split(strText," ") for n=0 to UBound(myStrText) mx=myStrText(n) strNx=strNx & UCase(Left(mx,1)) & LCase(Right(mx,Len(mx)-1)) if n") end if if intType = 6 then myStrTexts = Replace(strText,"ç","c") myStrTexts = Replace(myStrTexts,"Ç","C") myStrTexts = Replace(myStrTexts,"ğ","g") myStrTexts = Replace(myStrTexts,"Ğ","G") myStrTexts = Replace(myStrTexts,"ı","i") myStrTexts = Replace(myStrTexts,"İ","I") myStrTexts = Replace(myStrTexts,"ö","o") myStrTexts = Replace(myStrTexts,"Ö","O") myStrTexts = Replace(myStrTexts,"ş","s") myStrTexts = Replace(myStrTexts,"Ş","S") myStrTexts = Replace(myStrTexts,"ü","u") myStrText = Replace(myStrTexts,"Ü","U") end if FormatText = myStrText End Function '################################################################################################## ' Url Encoding uygulaması Function FormatMenuName(strMenu) myMenu = LCase(strMenu) myMenu = FormatText(myMenu,6) myMenu = Replace(myMenu, " ", ".", 1, -1, 1) myMenu = Replace(myMenu, chr(34), "", 1, -1, 1) FormatMenuName = myMenu End Function '################################################################################################## ' Email adresi kontrolü Function EmailAddress(strEmail) Et_Isareti = InStr(2, strEmail , "@" ) If Et_Isareti = VBIsNull Then EmailAddress = False Else Et_Isareti_Krakter_Sayisi = Et_Isareti Et_Isareti = True End If If Et_Isareti = True Then Nokta = InStr(Et_Isareti_Krakter_Sayisi + 2, strEmail , "." ) If Nokta = VBIsNull Then EmailAddress = False Else EmailAddress = True End If Else EmailAddress = False End If End Function '################################################################################################## ' Telefon Numarası Biçimlendirme Function FormatTelephone(telNo) if not telNo="" then x = "" x = "(" & Mid(telno,1,3) x = x & " " & Mid(telno,4,3) & ")" x = x & " " & Mid(telno,7,3) x = x & " " & Mid(telno,10,2) x = x & " " & Mid(telno,12,2) else x = "" end if FormatTelephone = x End Function '################################################################################################## ' Mesaj Biçimlendirme fonksiyonu Function FormatWriting(strText,PATH) imagePath = PATH & "images/common/smiley" if not isNull(strText) then nnx = strText nnx=Replace(nnx, ":[","",1,-1,1) nnx=Replace(nnx, ":-[","",1,-1,1) nnx=Replace(nnx, ":D","",1,-1,1) nnx=Replace(nnx, ":-D","",1,-1,1) nnx=Replace(nnx, ":o)","",1,-1,1) nnx=Replace(nnx, ":0)","",1,-1,1) nnx=Replace(nnx, "xx(","",1,-1,1) nnx=Replace(nnx, ":o]","",1,-1,1) nnx=Replace(nnx, ":0]","",1,-1,1) nnx=Replace(nnx, "xx|","",1,-1,1) nnx=Replace(nnx, "xx[","",1,-1,1) nnx=Replace(nnx, ":]","",1,-1,1) nnx=Replace(nnx, ":-]","",1,-1,1) nnx=Replace(nnx, ":(","",1,-1,1) nnx=Replace(nnx, ":-(","",1,-1,1) nnx=Replace(nnx, "(ö)","",1,-1,1) nnx=Replace(nnx, "(Ö)","",1,-1,1) nnx=Replace(nnx, ":*","",1,-1,1) nnx=Replace(nnx, ":-*","",1,-1,1) nnx=Replace(nnx, ":s","",1,-1,1) nnx=Replace(nnx, ":S","",1,-1,1) nnx=Replace(nnx, ":-S","",1,-1,1) nnx=Replace(nnx, ":-s","",1,-1,1) nnx=Replace(nnx, ":O","",1,-1,1) nnx=Replace(nnx, "8|","",1,-1,1) nnx=Replace(nnx, "8)","",1,-1,1) nnx=Replace(nnx, ":)","",1,-1,1) nnx=Replace(nnx, ":-)","",1,-1,1) nnx=Replace(nnx, ":p","",1,-1,1) nnx=Replace(nnx, ":P","",1,-1,1) nnx=Replace(nnx, ":-P","",1,-1,1) nnx=Replace(nnx, ":b","",1,-1,1) nnx=Replace(nnx, ":B","",1,-1,1) nnx=Replace(nnx, ":-b","",1,-1,1) nnx=Replace(nnx, ";)","",1,-1,1) nnx=Replace(nnx, ";-)","",1,-1,1) nnx=Replace(nnx, "(é)","",1,-1,1) nnx=Replace(nnx, "(è)","",1,-1,1) nnx=Replace(nnx, "[b]","") nnx=Replace(nnx, "[/b]","") nnx=Replace(nnx, "[i]","") nnx=Replace(nnx, "[/i]","") nnx=Replace(nnx, "[u]","") nnx=Replace(nnx, "[/u]","") nnx=Replace(nnx, "[saat]",time) nnx=Replace(nnx, "[tarih]",date) nnx=Replace(nnx, "[gün]",WeekDayName(Weekday(Date))) nnx=Replace(nnx, "[ay]",MonthName(Month(Date))) nnx=Replace(nnx, "[yil]",Year(Now)) nnx=Replace(nnx, vbCrLf, "
") FormatWriting = nnx else FormatWriting = strText end if End Function '################################################################################################## ' Metin sansürleme Function CensuredText(strText) strLen = Len(strText) CensuredText = Left(strText,1) & String(strLen-2,"*") & Right(strText,1) End Function '################################################################################################## ' Şifreleme fonksiyonları ' Function Encode(strText) ' Set Blober = objKey.EncryptText(strText) ' Encode = (Blober.Hex) ' Encode = strText ' End Function ' Function Decode(strText) ' Set Blober = objEncrypt.CreateBlob ' Blober.Hex = (strText) ' Decode= objKey.DecryptText(Blober) ' Decode = strText ' End Function '################################################################################################## Function CopyRightDate() if SITE_BUILD_DATE = Year(Now) then CopyRightDate = SITE_BUILD_DATE else copyRightDate = SITE_BUILD_DATE & "-" & Year(Now) end if End Function Function CopyRightText() CopyRightText = "© " & CopyRightDate & " - " & WEB_SITE_NAME & "." if Not PAGEEXTERNAL then CopyRightText = CopyRightText & " " & WEB_SITE_TITLE end if CopyRightText = CopyRightText & ". Tüm hakları saklıdır.
" 'CopyRightText = "Türkçe | English
" & CopyRightText 'CopyRightText = CopyRightText & "
sektör hoteller emlak inşaat tekstil
" End Function Function CopyRightTextEn() CopyRightTextEn = "© " & CopyRightDate & " - " & WEB_SITE_NAME & "." if Not PAGEEXTERNAL then CopyRightTextEn = CopyRightTextEn & " " & WEB_SITE_TITLE end if CopyRightTextEn = CopyRightTextEn & ". All rights reserved.
" 'CopyRightTextEn = "Türkçe | English
" & CopyRightTextEn 'CopyRightTextEn = CopyRightTextEn & "
sektör hoteller emlak inşaat tekstil
" End Function '################################################################################################## Function PERSONEL_DETAY(strText) if not strText="" or not isNull(strText) then splText = Split(strText,vbCrLf) for each txt in splText myText = myText & "" & txt & "" next else myText = "-" end if PERSONEL_DETAY = myText End Function '################################################################################################## ' Cümle Kısaltma Fonksiyonu Function SHORTENER(strText,intLen,intType) if intType<=0 or intType=1 then strSuffix = "..." elseif intType=2 then strSuffix = "." else strSuffix = "" end if if Right(strText,1)="." then strText = Trim(Left(strText,len(strText)-1)) end if SHORTENER = Trim(Left(strText,intLen)) & strSuffix End Function '################################################################################################## '################################################################################################## %> Bizim Beton

<% Set Haber = DefCon.Execute("SELECT TOP 3 id, title, content, regdate FROM news WHERE active=1 ORDER BY regdate DESC") Do While Not Haber.Eof HCON = Haber(1) %>
<%=FormatDate(Haber(3),11,"")%>
 <%=SHORTENER(HCON,40,1)%>

<%Haber.MoveNext Loop %> Tüm Haberler

WEB SİTEMİZE HOŞGELDİNİZ!

     1950 Yılında Bulgaristan’ın Rusçuk kentinden babaları Ömer Hoca tarafından Türkiye’ye gönderilmiş iki kardeşten Ahmet Bilgin Eskişehir’e yerleşerek BİLGİN Ailesinin çalışma hayatını başlatmıştır.
     Şeker Fabrikası taşocaklarında başlayan iş hayatı Eskişehir’in diplomalı terzisi olarak 1952 yılında “Venüs Terzisi” adıyla ticaret hayatıyla devam etmiştir.    
    Yıllarca Eskişehir Ticaret Odası üyeliği yapan Ahmet Bilgin terziliğin yanında briket imalatı, kum ocağı işletmeciliği, inşaat malzemeleri bayiliği, mıcır ocağı işletmeciliği yaparak iş hayatında varlığını sürdürmüştür.
 
FAALİYET ALANLARI
 
 

 
<%=COPYRIGHTTEXT%>