Microsoft Windows Hosting, ASP, ASP.NET, Multiple Domain Name Plans

home | about us | contact us

Hosting web sites since 1997

WEB HOSTING

ECOMMERCE

DOMAIN NAMES

SUPPORT

REFERRAL PARTNERS

ORDER

LOGIN

For Phone Support Call: 1.212.753.1520

ASP Scripts

asp.NET Scripts

HTML Scripts

JAVA Scripts

PERL Scripts

PHP Scripts

WML Scripts

Support Tools ASP Scripts
.

Adovbs / Ado adsi / ADO version / Cache / Cache expire / Cache stop / CDONTS Retrieving messages / Database / Databaselisttables / Databasereadtable / DataDSNConnection / DataDSN-LessConnection / DataMSSQLconnection / Date / Dateadd / Datecountdown / Datediff / Datefirstlast / Dateformat / Datejulian / Dateleap / Datepart / Datesub / Dbcommon / Dbconnect / Dbselect / Directory / Dirattr / Dircreate / Dirdelete / Dirfiles / DirRecursive / DirRecDetails / DomainNameValidation / Doublequote / File / Fileappend / Fileappend2 / Filecopy / Filedelete / Filedir / Filefilter / FileFindString / Filemove / Fileread / Filewrite / FPoswsadm.exe / GetUrl / Global / Globalredirect / Globalsession / Httpheader / ListFiles / Mail / Mailascii / Mailattach / Mailhtml / Newmailobject / Number / Numberfileread / Numberrandom / Permissionscaclsref / Permissionschange / Referer / RegularExpression / SaveAndSend / Save to file / SearchStringinFile / SendForm / Serverpath / Serverprevious / Serverredirect / Servertrack / Servervariables / SetScriptTimeOut / Sitesearch / Sleep / Sort2Arrays / SortArray / SortDouble / SortInteger / SortLong / SortSingle / SortString / SortVariant / Special / Specialchars / String / Stringcase / Stringmatch / Stringpart / Stringsplit / Time / Timeadd / Timediff / Timeformat / Timepart / Timesub / UsernameValidation / GetXMLAuth / POSTForm / ConnecttoMySQL / EditTableMySQL / ListTablesMySQL AuthSMTP

..
Adovbs

<%
'--------------------------------------------------------------------
' 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
%>

..
Ado adsi

Using ADO for Querying
The following example shows how Automation clients can use ActiveX Data Objects (ADO) to query directory services using ADSI and its OLE DB implementation. The ADO object model consists of the following objects: 
Connection 
An open connection to an OLE DB data source such as ADSI. 
Command 
Defines a specific command to execute against the data source. 
Parameters 
An optional collection for any parameters to provide to the command object. 
Recordset 
A set of records from a table, command object, or SQL syntax. A recordset can be created without any underlying Connection object. 
Field 
A single column of data in a recordset. 
Property 
A collection of values supplied by the provider for ADO. 
Error 
Contains details about data access errors, refreshed for each time an error occurs in a single operation. 
For more information, see the Microsoft Platform SDK under ActiveX Data Objects. 
The following example disables the user accounts on an ldap server. 
Dim X as IADs
Dim con As New Connection, rs As New Recordset
Dim MyUser As IADsUser
 
con.Provider = "ADsDSOObject"
con.Open "Active Directory Provider", "CN=Foobar,CN=Users,DC=MICROSOFT,DC=COM,O=INTERNET", "Password"
Set rs = con.Execute("<LDAP://ldapserver.microsoft.com/O=Internet/DC=COM/DC=MICROSOFT/OU=MyOrg>;(objectClass=User);ADsPath;onelevel")
 
While Not rs.EOF
 MyUser = GetObject(rs.Fields(0).Value)
 MyUser.AccountDisabled = True
 rs.MoveNext
Wend

..
ADO version

back to top
..

..
Cache

back to top
..

..
Cache expire

back to top
..

..
Cache stop

back to top
..

..
CDONTS Retrieving messages

back to top
..

..
Database

How to connect to database
   I do not wish to write DB connect code in every page, How ? 
   How to write a simple select statement and display the result?

How to connect to database in ASP

There are tow ways of connecting ot a database.
Using a System DSN
1.) Create a system DSN using the ODBC Wizard in the Control Panel
2.) Connect to the database using a simple connection string: "DSN=System
DSN Name"

Using a  DSN-less connection
1.) Place the Access database file (the *.mdb file) in a web-shared directory
2.) Specify the driver and the physical location of the database file

Setting Up a DSN 
You need to set up a DSN (Data Source Name) for each database that you uses.
Following is the process of setting DSN

Simply double-click the ODBC applet in the Control Panel
-> Choose the System DSN tab
-> Click Add

Choose the type of database (MS Acccess in this case)
-> Click finish.

Now type in the Database Name in the Data Source Name box
-> Click Select.
-> Navigate to the drive and directory where the database is
located, and select it.
-> Close the window now.

Now, its all set to call the database by name in your scripts
The system will know which ODBC driver to use and also the location database is located.
Now each time you need to access the Database just create the connection object as follows.

<%
Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "DSN=myDSN"
objConn.Open
%>

I do not wish to write connect script each time. How do I do it ?
Now each time you need to access the Database just create the connection
object as follows.

<%
Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "DSN=myDSN"
objConn.Open
%>

Hey, But don't you think that writing this script on each page would not be a good idea in terms of scalability !
A better approach would be to have this code in an include file centrally.
Create a file called say 'dbObject.asp' and perhaps place it in the
/scripts directory.

dbObject.asp might look something like this
<%
Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "DSN=myDSN"
objConn.Open
%>

Add the following in every page   page that you need to use database connectivity.

How to write a simple select statement and display the result
Select the Last and First Name from Employee Table

'On Error Resume Next
Dim conn
' Create Connection Object
set conn = Server.CreateObject("Adodb.Connection")
conn.open "empDSN"
set rs    = Server.CreateObject("Adodb.Recordset")
empSQL   = "SELECT lasttname, firstname from Employee"
rs.open empSQL, conn

If rs.eof then
	response.write "There are no records in the database"
Else
Do While Not rs.EOF
	Response.write rs.fields("lastname") & rs.fields("firstname") & ""
	rs.MoveNext
Loop
End If
%>

<%
con.Close
%>

..
Databaselisttables

back to top
..

..
Databasereadtable

<%
' Example how to read database file by using ODBC Data Source Name (DSN)

'=======  Change here ! ============
myDataSourceName = "myDSN"   '  your ODBC DSN
TableToRead = "myTable"	        '  The name of the table from your ".mdb" file
'===================================

'==== Connecting to the database ======================
If IsObject(Session("myDataSourceName_conn")) Then
    Set conn = Session("myDataSourceName_conn")
Else
    Set conn = Server.CreateObject("ADODB.Connection")
    conn.open myDataSourceName,"",""
    Set Session("myDataSourceName_conn") = conn
End If
sql = "SELECT * From " & TableToRead
Set rs= Server.CreateObject("ADODB.Recordset")	
rs.Open sql, conn, 3, 3
'==== conection is done ===============================

<html>
<head>
<title>Database reading example</title>
</head>
<body>
Below should be a list of elements

<%
'=========== Read and display the data from the table =====
On Error Resume Next
rs.MoveFirst
count=1
Do while not rs.eof
Response.Write count & " ------------------------" & " "
	For i = 0 To rs.Fields.Count-1
	Response.Write rs.Fields(i).Name & " : " & rs.Fields(i) & " "
	next
rs.MoveNext
count=count+1
Loop
'=========== end ===========================================
%>
</body>
</html>

..
DataDSNConnection

back to top
..

..
DataDSN-LessConnection

back to top
..

..
DataMSSQLconnection

back to top
..

..
Date

Date formats
   Date Parts
   Date Add and Subtract
   Date Difference
   Is this year a Leap year
   How to calculate Julian Date
   Date countdown till a given date
   First and Last day of Month

Date Format  [ Relative to the date as 2/7/2000 10:37:48 AM ]

<%=FormatDateTime(Now(),1) %> 
Outputs as : Monday, February 07, 2000

<%=FormatDateTime(Now(),2)%>
Outputs as : 2/7/2000

<%=Now%>
Outputs as : 2/7/2000 10:24:57 AM

Date Part  [ Relative to the date 2/7/2000 10:37:48 AM ]

Day

Today is <%=Day(Date)%>
Outputs as : Today is 7

Week

This is week # <%= DatePart("ww",date)%> of the this year 
Outputs as : This is week # 7 of this year

This is weekday <%= WeekDay(Date)%> of this year
Outputs as : This is weekday 2 of this year

Today is <%=WeekDayName(WeekDay(Date))%> 
Outputs as : Today is Monday

Month

The month Now is <%=Month(Date)%> 
Outputs : The month Now is 2

Another way, of saying the current month is <%=(DatePart("m",date))%> 
Outputs : Another way, of saying the current month is 2

The MonthName is <%=MonthName(Month(Date))%> 
Outputs : The MonthName is February

Year

The year is <%=Year(Date)%>
Outputs : The year is 2000

Date Add and Subtract

Add

Day

2 Days from 2/9/2000 it will be <%=DateAdd("d",2,CDate("2/9/2000"))%>
Outputs : 2 Days from now it will be 2/11/2000

Month

2 Months from 2/9/2000 it will be <%=DateAdd("m",2,CDate("2/9/2000"))%>
Outputs : 2 Months from 2/9/2000 it will be 4/9/2000

Year

2 Years from 2/9/2000 it will be <%=DateAdd("yyyy",2,CDate("2/9/2000"))%>
Outputs : 2 Years from 2/9/2000 it will be 2/9/2002

Subtract

Day

2 Days back from 2/9/2000 it was <%=DateAdd("d",-2,CDate("2/9/2000"))%>
Outputs : 2 Days back from now it was be 2/7/2000

Month

2 Months back from 2/9/2000 it was be <%=DateAdd("m",-2,CDate("2/9/2000"))%>
Outputs : 2 Months back from 2/9/2000 it was 12/9/1999

Year

2 Years from 2/9/2000 it will be <%=DateAdd("yyyy",-2,CDate("2/9/2000"))%>
Outputs : 2 Years back from 2/9/2000 it was 2/9/1998

Date Difference     	[ Relative Date : 2/7/2000 ]

Day

Its <%=DateDiff("d","2/7/2000","8/15/1947")*-1 %> days between '8/15/1947' and '2/7/2000'
Outputs : Its 19169 days between '8/15/1947' and '2/7/2000'

Week

Its <%=DateDiff("ww","2/7/2000","8/15/1947")*-1 %> weeks between '8/15/1947' and '2/7/2000'
Outputs : Its 2739 weeks between '8/15/1947' and '2/7/2000'

Month

Its <%=DateDiff("m","2/7/2000","8/15/1947")*-1 %> months between '8/15/1947' and '2/7/2000'
Outputs : Its 630 months between '8/15/1947' and '2/7/2000'

Quarter

Its <%=DateDiff("q","2/7/2000","8/15/1947")*-1 %> quarters between '8/15/1947' and '2/7/2000'
Outputs : Its 210 Quarters between '8/15/1947' and '2/7/2000'

Year

Its <%=DateDiff("yyyy","2/7/2000","8/15/1947")*-1 %> years between '8/15/1947' and '2/7/2000'
Outputs : Its 53 between '8/15/1947' and '2/7/2000'

Leap Year

<%
Dim lYear
lYear = Year(CDate("2/9/2000"))
leap_yes = "is a leap year"
leap_no = "is not a leap year"
If (lYear mod 4 = 0) AND ((lYear mod 1 0) OR (lYear mod 4 = 0)) then
' It is a Leap Year
Response.Write lYear & " " & leap_yes
else
' it is not a leap year
Response.Write lYear & " " & leap_no
End if
%gt;
Outputs : 2000 is a leap year

Julian Date

<%
d0=DateSerial ("2000", "1", "1")
d1=Date - d0 + 1
Response.write "Today's Julian Date Is #" & d1
%> 
Outputs : Today's Julian Date Is #38

Date Countdown

<%
dim strDateTime
strDateTime = CDate("2/9/2000")
strFutureDay = #12/31#
Response.write "There are" & INT(strFutureDay - strDateTime) & " more days till December 31st."
%> 
Outputs : There are 327 more days till December 31st.

How to find first and last day of the month

Calculate first date of current month

<%
BaseDate = CDate("2/9/2000")
FirstOfMonth = DateSerial(Year(BaseDate), Month(BaseDate) + iOffset, 1)
Response.write "The first date of this month is " & FirstOfMonth
%>
Outputs : The first date of this month is 2/1/2000

Calculate last date of current month

<%
BaseDate = CDate("2/9/2000")
EndOfMonth = DateSerial(Year(BaseDate), Month(BaseDate) + 1, 0)
Response.write "The last date of this month is " & EndOfMonth
%>
Outputs : The last date of this month is 2/29/2000

..
Dateadd

back to top
..

..
Datecountdown

back to top
..

..
Datediff

back to top
..

..
Datefirstlast

back to top
..

..
Dateformat

back to top
..

..
Datejulian

back to top
..

..
Dateleap

back to top
..

..
Datepart

back to top
..

..
Datesub

back to top
..

..
Dbcommon

back to top
..

..
Dbconnect

Connect to Database
How to connect to database in ASP

There are two ways of connecting ot a database.
Using a System DSN
1.) Create a system DSN using the ODBC Wizard in the Control Panel
2.) Connect to the database using a simple connection string: "DSN=System
DSN Name"

Using a  DSN-less connection
1.) Place the Access database file (the *.mdb file) in a web-shared directory
2.) Specify the driver and the physical location of the database file

Setting Up a DSN 
You need to set up a DSN (Data Source Name) for each database that you uses.
Following is the process of setting DSN

Simply double-click the ODBC applet in the Control Panel
-> Choose the System DSN tab
-> Click Add

Choose the type of database (MS Acccess in this case)
-> Click finish.

Now type in the Database Name in the Data Source Name box
-> Click Select.
-> Navigate to the drive and directory where the database is
located, and select it.
-> Close the window now.

<%
Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "DSN=myDSN"
objConn.Open
%>

..
Dbselect

back to top
..

..
Directory

Get the filenames of a directory
   Attributes of a Directory
   Create a  Directory
   Delete of a Directory

Get the filenames in a directory

Replace "directoryname" with your directory name.
Note : Replace 'directoryname' with the name od directory you wish to read
In case of NT the directory mush have read permission for being read from anonymous account

<%Set MyDirectory=Server.CreateObject("Scripting.FileSystemObject")
Set MyFiles=MyDirectory.GetFolder(Server.MapPath("directoryname"))
For each filefound in MyFiles.files
Response.write filefound.Name
Next
%>

Attributes of a directory

<%
' Code for setting the target directory 'images'
Set fso = Server.CreateObject ("scripting.filesystemobject")
location = server.mappath("images")
Set folder = fso.GetFolder(location)
%>

Size : <% =folder.size %> 
Output : Size : 84 bytes

Created : <% =folder.datecreated %> 
Output : Created : 1/23/2000 10:13:13 AM

Modified : <% =folder.datelastmodified %> 
Output : Modified : 1/23/2000 10:13:14 AM

Name : <% =folder.name %> 
Output : Name : images

Create a directory
Note : You'll need permissions on the parent directory set to allow the IUSR_machinename to create the directory.
This means that the IUSR will need to be given NTFS Change permissions

<%
set fs=createobject("scripting.filesystemobject")
MyFolder=server.mappath("/download/incoming/")

If NOT fs.folderexists(MyFolder) then
fs.createfolder(MyFolder)
End If
	' Check if the creation was a success or not
If fs.folderexists(MyFolder) then
Response.write "Success"
Else
Response.write "Failure."
End If
%>

Delete a directory
Note : You'll need permissions on the parent directory set to allow the IUSR_machinename to create the directory.
This means that the IUSR will need to be given NTFS Change permissions

<%
set fs=createobject("scripting.filesystemobject")
MyFolder=server.mappath("/download/incoming/")

set delDir = fs.getfolder(myFolder)
delDir.delete
set delDir = Nothing

'Check if the deletion was a success or Not
If fs.folderexists(myFolder) then
Response.write "Deleted"
Else
Response.write "Error"
End If
%>

..
Dirattr

back to top
..

..
Dircreate

back to top
..

..
Dirdelete

back to top
..

..
Dirfiles

back to top
..

..
DirRecursive

<%
'********** DirFolder - Returns Delimited String of All folders and files
Dim ArrayOutput, StringOutput, StringOutputType, StringOutputName, delimiter
delimiter = "|"
Function DirFolder ( StartPath )
	On error resume next
	Dim fso, folderObject, folderObject2, subFolder, Files, File 
	Set fso = CreateObject("Scripting.FileSystemObject")
	Set folderObject = fso.GetFolder(StartPath)
	Set folderObject2 = folderObject.SubFolders

For Each subFolder in FolderObject2
		StringOutput = StringOutput & subFolder & delimiter
		StringOutputType = StringOutputType & "Folder" & delimiter
		StringOutputName = StringOutputName & subFolder & delimiter
		DirFolder (subFolder) 'Recursive
		Set Files = subFolder.Files
		For Each File in Files
			StringOutput = StringOutput & File & delimiter
			StringOutputType = StringOutputType & File.Type & delimiter
			StringOutputName = StringOutputName & File.Name & delimiter
		Next 
	Next
end function
'**************************************************

DirFolder (Server.MapPath("/"))
ArrayOutput = Split (StringOutput,  delimiter)

For Each Item in ArrayOutput
	Response.Write Item & " "
next
%>

..
DirRecDetails

For Each subFolder in FolderObject2
		StringOutput = StringOutput & subFolder & delimiter
		StringOutputType = StringOutputType & "Folder" & delimiter
		StringOutputName = StringOutputName & subFolder.Name & delimiter
		DirFolder (subFolder) 'Recursive
		Set Files = subFolder.Files
		For Each File in Files
			StringOutput = StringOutput & File & delimiter
			StringOutputType = StringOutputType & File.Type & delimiter
			StringOutputName = StringOutputName & File.Name & delimiter
		Next 
	Next
end function
'**************************************************

DirFolder (Server.MapPath("/"))
ArrayOutput = Split (StringOutput, delimiter)
ArrayOutputType = Split (StringOutputType, delimiter)
ArrayOutputName = Split (StringOutputName, delimiter)
i=0
For Each Item in ArrayOutput
	Response.Write Item & "     " & ArrayOutputType(i) & "     " & ArrayOutputName(i) & " "
	i = i+1
next
%>

..
DomainNameValidation

back to top
..

..
Doublequote

back to top
..

..
File

Get the filenames of a directory
   Copy a File or Files
   Move a File or Files
   Delete a File or Files
   Read contents of File
   Write to a File
   Append to a File

Get the filenames in a directory

<%
Set MyDirectory=Server.CreateObject("Scripting.FileSystemObject")
Set MyFiles=MyDirectory.GetFolder(Server.MapPath("directoryname"))
For each filefound in MyFiles.files
Response.write filefound.Name
Next
%>

Copy a File

Use the file system operations, Copy is supported by the FileSystemObject object.
CopyFile source, destination[, overwrite]

<%
Dim fileObj
Set fileObj = Server.CreateObject("Scripting.FileSystemObject")
fileObj.CopyFile "C:\InetPub\wwwroot\*.txt", "C:\Windows\Temp"
Set fileObj = Nothing
>% 
Note : The user must have write permissions to copy a file from one directory to another.

Move a File or Files

Use the file system operations, Rename is supported by the FileSystemObject object.
MoveFile source, destination

<%
Dim fileObj
Set fileObj = Server.CreateObject("Scripting.FileSystemObject")
fileObj.MoveFile "C:\InetPub\wwwroot\*.txt", "C:\Windows\Temp"
Set fileObj = Nothing
%> 
Note : The user must have minimum delete permissions on the source directory
and write permissions on the destination directory.

Delete a File or Files

<%
Dim fileObj
Set fileObj = Server.CreateObject("Scripting.FileSystemObject")
fileObj.DeleteFile "C:\InetPub\wwwroot\*.txt", False
Set fileObj = Nothing
%> 
Note :	The optional parameter for the DeleteFile method is Force.
	This defaults to False, and determines whether or not read-only files will be deleted.
	Only if Force is set to True will read-only files be deleted.

Read a File
<%
Set fs = CreateObject("Scripting.FileSystemObject")
filename = server.mappath("/somedirectory/readfile.txt")
Set thisfile= fs.OpenTextFile(filename,1,False)
Do until thisfile.AtEndOfStream
	thisline = thisfile.readline
	If thisline "" then
	 Response.write thisline
	End If
Loop
thisfile.close
set thisfile = Nothing
set fs = Nothing

Write to a File
<%

Set myText = "Hi, I am writing to a file "
Set fs         = CreateObject("Scripting.FileSystemObject")
filename      = server.mappath("/somedirectory/writefile.txt")
Set thisfile= fs.OpenTextFile(filename,2,True)
thisfile.writeline(myText)
thisfile.close
Set thisfile = Nothing
Set fs          = Nothing

Append to a File
<%
Set myText = "Hi, I am writing to a file "
Set fs = CreateObject("Scripting.FileSystemObject")
filename = server.mappath("/somedirectory/appendfile.txt")
Set thisfile = fs.OpenTextFile(filename,8,True)
thisfile.writeline(myText)
thisfile.close
Set thisfile = Nothing
Set fs = Nothing
%>

Note :
Notice the numbers 1,2 and 8 in the above examples. Here is what they represent
1: Opens file for reading. Cannot write to this file
2: Opens file for writing. This file can't be read. Writing anything to this file would overwrite the previous contents.
8: Opens the file for appending. The previous contents is not overwritten.

Notice the "True" and "False"   parameters in examples above
True: The file will be created if it doesn't exist
False: A new will not be created if it doesn't already exist.

..
Fileappend

back to top
..

..
Fileappend2

back to top
..

..
Filecopy

back to top
..

..
Filedelete

back to top
..

..
Filedir

back to top
..

..
Filefilter

back to top
..

..
FileFindString

<%
Function RegExpTest(patrn, strng)
 Dim regEx, Match, Matches ' Create variable.
 Set regEx = New RegExp ' Create regular expression.
 regEx.Pattern = "\b" & patrn & "\b" ' Set pattern.
 regEx.IgnoreCase = True ' Set case insensitivity.
 regEx.Global = True ' Set global applicability.
 Set Matches = regEx.Execute(strng) ' Execute search.

RegExpTest = Matches.Count
End Function

Function SearchInFileResult(PathToFile, SearchString)
 If Len(SearchString) < 3 Then
 SearchInFileResult = 0
 Else
 SearchString = Replace(SearchString, ",", "")
 SearchString = Replace(SearchString, ".", "")
 SearchWords = Split(SearchString, " ")
 Dim FoundCounter
 FoundCounter = 0
 Set fso = CreateObject("Scripting.FileSystemObject")
 Set File = fso.GetFile(PathToFile)

For Each SearchWord In SearchWords
 Set TextStream = File.OpenAsTextStream
 If Len(SearchWord) < 3 Then
 Else
 S = TextStream.ReadAll
 ThisSearchResult = RegExpTest(Trim(SearchWord), S)
 FoundCounter = FoundCounter + ThisSearchResult
 End If
 TextStream.Close
 Next

Set fso = Nothing
        Set File = Nothing
        Set TextStream = Nothing

SearchInFileResult = FoundCounter
    End If
End Function

Sub File_Find_String (StartPath, SearchString)
    On error resume next
    Dim fso, folderObject, folderObject2, subFolder, Files, File
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set folderObject = fso.GetFolder(StartPath)
    Set folderObject2 = folderObject.SubFolders

For Each subFolder In folderObject2
        'If IfPublicDir(subFolder.Name) = 1 Then
            'StringOutput = StringOutput & subFolder & delimiter
            'StringOutputType = StringOutputType & "Folder" & delimiter
            'StringOutputName = StringOutputName & subFolder.Name & delimiter
            DirFolder (subFolder) 'Recursive
            Set Files = subFolder.Files
            For Each File In Files
                'Response.Write File
                Hits = SearchInFileResult(File, SearchString)
                If Hits > 0 Then
                    StringOutput = StringOutput & Hits & "   " & File & delimiter
                    StringOutputType = StringOutputType & File.Type & delimiter
                    StringOutputName = StringOutputName & File.Name & delimiter
                End If
            Next
        'End If
    Next
End Sub

Dim nl, delimiter, StringOutput, StringOutputType, StringOutputName
nl = Chr(13) & Chr(10)
delimiter = "|"

StartPath = Server.MapPath("/")
SearchString = "mail"
Response.Write "Search result from : " & StartPath & " "
Response.Write "Search Criteria : " & SearchString & " "

File_Find_String StartPath, SearchString
 ResultArray = Split(StringOutput, Delimiter)
 For Each Item In ResultArray
 Response.Write Item & " "
 next
 
%>

..
Filemove

back to top
..

..
Fileread

Read a File
<%
Set fs = CreateObject("Scripting.FileSystemObject")
filename = server.mappath("/somedirectory/readfile.txt")
Set thisfile= fs.OpenTextFile(filename,1,False)
Do until thisfile.AtEndOfStream
	thisline = thisfile.readline
	If thisline "" then
	 Response.write thisline
	End If
Loop
thisfile.close
set thisfile = Nothing
set fs = Nothing

Read ALL

<%
Set fs = CreateObject("Scripting.FileSystemObject")
filename = server.mappath("/files/data.txt")
Set thisfile= fs.OpenTextFile(filename,1,False)
	S = thisfile.ReadAll
thisfile.close

Response.Write S

set thisfile = Nothing
set fs       = Nothing

Notice the numbers 1,2 and 8 in the above examples. Here is what they represent
1: Opens file for reading. Cannot write to this file
2: Opens file for writing. This file can't be read. Writing anything to this file would overwrite the previous contents.
8: Opens the file for appending. The previous contents is not overwritten.

Notice the "True" and "False"  parameters in examples above
True: The file will be created if it doesn't exist
False: A new will not be created if it doesn't already exist.

..
Filewrite

back to top
..

..
FP oswsadm.exe

Short form of each option is the first letter, except for
       -pw for -password, -pn for -propertyname, -pv for
       -propertyvalue, -cr for cloneright, -cu for cloneusers,
       -ds for -databaseserver, -dn for -databasename,
       -du for -databaseuser, -dp for -databasepassword,
       -sp for -siteprovision

SMTP mail server settings

owsadm -o setproperty -p <port> -pn SMTPHost -pv smarthost
 
Additionally, you can set subscriptions properties with the following:
 
owsadm -o setproperty -p /lm/w3svc/1 -pn MailReplyTo -pv webmaster@owslab1.com
owsadm -o setproperty -p /lm/w3svc/1 -pn MailSender -pv robot@owslab11.gov

examples:
 owsadm.exe -o merge -p 80 -w webname
 owsadm.exe -o delete -p 80 -w webname
 owsadm.exe -o rename -p 80 -w webname -d newname
 owsadm.exe -o setDirExec -p 80 -w webname -d folder
 owsadm.exe -o roles -p 80 -w webname -n nameofrole
 -c command -cr rolename -cu
 owsadm.exe -o anonrole -p 80 -w webname -c enable -n rolename
 owsadm.exe -o anonrole -p 80 -w webname -c disable -n rolename
 owsadm.exe -o roleusers -p 80 -w webname -n nameofrole
 -c command -u usernames
 owsadm.exe -o users -p 80 -w webname -c command -u username -pw password
 owsadm.exe -o rolerights -p 80 -w webname -n nameofrole
 -c command -r rightnames
 owsadm.exe -o recalc -p 80 -w webname
 owsadm.exe -o putfile -p 80 -w webname -d url -f filename
 owsadm.exe -o recalcfile -p 80 -w webname -d url
 owsadm.exe -o setproperty -p 80 -w webname -pn SourceControlProject
 -pv "<FrontPage-based Locking>"
 owsadm.exe -o install -p 80 -u user
 owsadm.exe -o create -p 80 -w webname
 owsadm.exe -o setadminport -p 10865
 owsadm.exe -o accountlimits -p 80 -limit 10
 owsadm.exe -o upgrade -p 80
 owsadm.exe -o uninstall -p 80
 owsadm.exe -o check -p 80
 owsadm.exe -o check -p all
 owsadm.exe -o disable -p 80
 owsadm.exe -o getproperty -pn AccessControl
 owsadm.exe -o databaseconnection -ds machinename -du accountname
 -dp accountpassword
 owsadm.exe -o backupdb -p 80
 owsadm.exe -o restoredb -p 80

..
GetUrl

back to top
..

..
Global

back to top
..

..
Globalredirect

back to top
..

..
Globalsession

back to top
..

..
Httpheader

back to top
..

..
ListFiles

This program is very usefull for friquetly changed pages. You can easily add a new page
or delete a page without any need to edit the main page.

By using this program you can just upload the new pages that you are adding or delete the old 
ones. The main page will automatically update its links to the new added pages into
your main page.

'=======  Parameters =========

myAbsolutePath = "c:\home\Mywebsite\SomeDirToList"  ' Your absolute path to the dir to list
URLdir = "SomeDirToList/"         'The Path to your files starting from your web root dir
FileNameExtension = ".htm"        'The file name extension of the files to be listed
'====== End Parameters =======

Function DirFiles (FolderPath, FileNameExtention)
             Set FSO = CreateObject("Scripting.FileSystemObject")
             Set Folder = FSO.GetFolder(FolderPath)
             Set Files = Folder.Files

If Files.Count > 0 Then
 For Each nFile In Files
				If Right(nFile.Name,4)=FileNameExtention then
	 				S = S & "<a href=" & URLdir & nFile.Name & ">" & nFile.Name & "</a> "
				end if
 Next
			else
			S="No files found."
 End If
 Response.Write S

Set FSO = nothing
Set Folder = nothing
Set Files = nothing
End function

DirFiles myAbsolutePath, FileNameExtension

..
Mailascii

back to top
..

..
Mailattach

back to top
..

..
Mailhtml

back to top
..

..
Newmailobject

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>NewMail Object</title>
</head>

<body>

<h1>NewMail Object (CDONTS Library)</h1>
The NewMail object provides for sending a message with very
few lines of code.
<h4>At a Glance</h4>
<table rules="all" border="1" frame="box">
 <tbody>
 <tr vAlign="top">
 <td width="48%">Specified in type library:</td>
 <td width="52%">CDONTS.DLL</td>
 </tr>
 <tr vAlign="top">
 <td width="48%">First available in:</td>
 <td width="52%">CDO for NTS Library version 1.2</td>
 </tr>
 <tr vAlign="top">
 <td width="48%">Parent objects:</td>
 <td width="52%">(none)</td>
 </tr>
 <tr vAlign="top">
 <td width="48%">Child objects:</td>
 <td width="52%">(none)</td>
 </tr>
 <tr vAlign="top">
 <td width="48%">Default property:</td>
 <td width="52%"><a href="http://msdn.microsoft.com/library/psdk/cdo/_denali_value_property_cdonts_newmail_object_.htm">Value</a></td>
 </tr>
 </tbody>
</table>
 

<h4>Properties</h4>
<table rules="all" border="1" frame="box">
 <tbody>
 <tr vAlign="top">
 <td width="32%"> 
 Name</td>
 <td width="18%">Available since version</td>
 <td width="32%"> 
 Type</td>
 <td width="18%"> 
 Access</td>
 </tr>
 <tr vAlign="top">
 <td width="32%"><a href="http://msdn.microsoft.com/library/psdk/cdo/_denali_bcc_property_cdonts_newmail_object_.htm">Bcc</a></td>
 <td width="18%">1.2</td>
 <td width="32%">String</td>
 <td width="18%">Write-only</td>
 </tr>
 <tr vAlign="top">
 <td width="32%"><a href="http://msdn.microsoft.com/library/psdk/cdo/_denali_body_property_cdonts_newmail_object_.htm">Body</a></td>
 <td width="18%">1.2</td>
 <td width="32%">IStream object or String</td>
 <td width="18%">Write-only</td>
 </tr>
 <tr vAlign="top">
 <td width="32%"><a href="http://msdn.microsoft.com/library/psdk/cdo/_denali_bodyformat_property_cdonts_newmail_object_.htm">BodyFormat</a></td>
 <td width="18%">1.2</td>
 <td width="32%">Long</td>
 <td width="18%">Write-only</td>
 </tr>
 <tr vAlign="top">
 <td width="32%"><a href="http://msdn.microsoft.com/library/psdk/cdo/_denali_cc_property_cdonts_newmail_object_.htm">Cc</a></td>
 <td width="18%">1.2</td>
 <td width="32%">String</td>
 <td width="18%">Write-only</td>
 </tr>
 <tr vAlign="top">
 <td width="32%"><a href="http://msdn.microsoft.com/library/psdk/cdo/_denali_contentbase_property_cdonts_newmail_object_.htm">ContentBase</a></td>
 <td width="18%">1.2</td>
 <td width="32%">String</td>
 <td width="18%">Write-only</td>
 </tr>
 <tr vAlign="top">
 <td width="32%"><a href="http://msdn.microsoft.com/library/psdk/cdo/_denali_contentlocation_property_cdonts_newmail_object_.htm">ContentLocation</a></td>
 <td width="18%">1.2</td>
 <td width="32%">String</td>
 <td width="18%">Write-only</td>
 </tr>
 <tr vAlign="top">
 <td width="32%"><a href="http://msdn.microsoft.com/library/psdk/cdo/_denali_from_property_cdonts_newmail_object_.htm">From</a></td>
 <td width="18%">1.2</td>
 <td width="32%">String</td>
 <td width="18%">Write-only</td>
 </tr>
 <tr vAlign="top">
 <td width="32%"><a href="http://msdn.microsoft.com/library/psdk/cdo/_denali_importance_property_cdonts_newmail_object_.htm">Importance</a></td>
 <td width="18%">1.2</td>
 <td width="32%">Long</td>
 <td width="18%">Write-only</td>
 </tr>
 <tr vAlign="top">
 <td width="32%"><a href="http://msdn.microsoft.com/library/psdk/cdo/_denali_mailformat_property_cdonts_newmail_object_.htm">MailFormat</a></td>
 <td width="18%">1.2</td>
 <td width="32%">Long</td>
 <td width="18%">Write-only</td>
 </tr>
 <tr vAlign="top">
 <td width="32%"><a href="http://msdn.microsoft.com/library/psdk/cdo/_denali_subject_property_cdonts_newmail_object_.htm">Subject</a></td>
 <td width="18%">1.2</td>
 <td width="32%">String</td>
 <td width="18%">Write-only</td>
 </tr>
 <tr vAlign="top">
 <td width="32%"><a href="http://msdn.microsoft.com/library/psdk/cdo/_denali_to_property_cdonts_newmail_object_.htm">To</a></td>
 <td width="18%">1.2</td>
 <td width="32%">String</td>
 <td width="18%">Write-only</td>
 </tr>
 <tr vAlign="top">
 <td width="32%"><a href="http://msdn.microsoft.com/library/psdk/cdo/_denali_value_property_cdonts_newmail_object_.htm">Value</a></td>
 <td width="18%">1.2</td>
 <td width="32%">String</td>
 <td width="18%">Write-only</td>
 </tr>
 <tr vAlign="top">
 <td width="32%"><a href="http://msdn.microsoft.com/library/psdk/cdo/_denali_version_property_cdonts_newmail_object_.htm">Version</a></td>
 <td width="18%">1.2</td>
 <td width="32%">String</td>
 <td width="18%">Read-only</td>
 </tr>
 </tbody>
</table>
 

<h4>Methods</h4>
<table rules="all" border="1" frame="box">
 <tbody>
 <tr vAlign="top">
 <td width="32%"> 
 Name</td>
 <td width="18%">Available since version</td>
 <td width="50%"> 
 Parameters</td>
 </tr>
 <tr vAlign="top">
 <td width="32%"><a href="http://msdn.microsoft.com/library/psdk/cdo/_denali_attachfile_method_cdonts_newmail_object_.htm">AttachFile</a></td>
 <td width="18%">1.2</td>
 <td width="50%">Source as Object or String, 
 (optional) FileName as String, 
 (optional) EncodingMethod as Long</td>
 </tr>
 <tr vAlign="top">
 <td width="32%"><a href="http://msdn.microsoft.com/library/psdk/cdo/_denali_attachurl_method_cdonts_newmail_object_.htm">AttachURL</a></td>
 <td width="18%">1.2</td>
 <td width="50%">Source as Object or String, 
 ContentLocation as String, 
 (optional) ContentBase as String, 
 (optional) EncodingMethod as Long</td>
 </tr>
 <tr vAlign="top">
 <td width="32%"><a href="http://msdn.microsoft.com/library/psdk/cdo/_denali_send_method_cdonts_newmail_object_.htm">Send</a></td>
 <td width="18%">1.2</td>
 <td width="50%">(optional) From as String, 
 (optional) To as String, 
 (optional) Subject as String, 
 (optional) Body as Object or String, 
 (optional) Importance as Long</td>
 </tr>
 <tr vAlign="top">
 <td width="32%"><a href="http://msdn.microsoft.com/library/psdk/cdo/_denali_setlocaleids_method_cdonts_newmail_object_.htm">SetLocaleIDs</a></td>
 <td width="18%">1.2</td>
 <td width="50%">CodePageID as Long</td>
 </tr>
 </tbody>
</table>
 

<h4>Remarks</h4>
The NewMail object is not built on the normal API
architecture. It is meant for rapid generation of notification mail by an
automated process running in the Microsoft® Windows NT® Server. No user
interface is supplied, and no interaction with human users is expected during
the generation and sending of the message. Therefore the NewMail object's
properties are not designed to be read back and inspected. With the sole
exception of <a href="http://msdn.microsoft.com/library/psdk/cdo/_denali_version_property_cdonts_newmail_object_.htm">Version</a>,
they can only be written.
The NewMail object is self-contained and does not expose any
of the <a href="http://msdn.microsoft.com/library/psdk/cdo/_denali_properties_common_to_all_cdo_for_nts_library_objects.htm">Properties
Common to All CDO for NTS Library Objects</a>.
Attachments and recipients, once added to the NewMail object,
cannot be removed, and the NewMail object itself cannot be deleted. When the <a href="http://msdn.microsoft.com/library/psdk/cdo/_denali_send_method_cdonts_newmail_object_.htm">Send</a>
method completes successfully, the NewMail object is invalidated but not removed
from memory. The programmer should Set the invalid object to Nothing
to remove it from memory, or reassign it to another NewMail object. Attempted
access to a sent NewMail object results in a return of CdoE_INVALID_OBJECT.
The NewMail object does not belong to the hierarchy
encompassing the other CDO for NTS Library objects. It cannot access, nor can it
be accessed from, any of the other objects. Like the <a href="http://msdn.microsoft.com/library/psdk/cdo/_denali_session_object_cdonts_library_.htm">Session</a>
object, it is considered a top-level object and is created directly from a
Microsoft® Visual Basic® program. Its ProgID is CDONTS.NewMail. This code
fragment creates a NewMail object through early binding:
<pre> Dim objNewMail As CDONTS.NewMail 
 Set objNewMail = CreateObject("CDONTS.NewMail") 
 </pre>
The main advantage of the NewMail object is the ease and
simplicity with which you can generate and send a message. You do not have to
log on to a session nor deal with a folder or a messages collection. You have
only to create the NewMail object, send it, and Set it to Nothing.
You can supply critical information in the parameters of the <a href="http://msdn.microsoft.com/library/psdk/cdo/_denali_send_method_cdonts_newmail_object_.htm">Send</a>
method. In many cases you only need three lines of code:
<pre> Set objNewMail = CreateObject("CDONTS.NewMail") 
 objNewMail.Send "me@microsoft.com", "you@microsoft.com", "Hello", _ 
 "I sent this in 3 statements!", 0 ' low importance 
 Set objNewMail = Nothing ' canNOT reuse it for another message 
 </pre>
Including an attachment can add as little as one statement to
your code, because you can pass information in the parameters of the <a href="http://msdn.microsoft.com/library/psdk/cdo/_denali_attachfile_method_cdonts_newmail_object_.htm">AttachFile</a>
method:
<pre> Set objNewMail = CreateObject("CDONTS.NewMail") 
 Call objNewMail.AttachFile("\\server\schedule\sched.xls", "SCHED.XLS") 
 objNewMail.Send "Automated Schedule Generator", "you@microsoft.com", _ 
 "Schedule", "Here's the latest master schedule", 0 
 Set objNewMail = Nothing 
 </pre>

</body>

</html>

..
Mail

Sending ascii email using CDONT
   Sending HTML email using CDONT
   Sending attachments in email using CDONT

Using CDONTS to send a simple ascii mail

There is a component that is made available after the server installation of SMTP service.
It is called CDONTS and it makes sending email rather easy.
Considering that the SMTP service has been properly installed, it is fairly simple to use this feature.

<%
Dim MyBody
Dim MyCDONTSMail
Set MyCDONTSMail = CreateObject("CDONTS.NewMail")
MyCDONTSMail.From = "somebody@nowhere.com"
MyCDONTSMail.To = "nobody@nowhere.com"
MyCDONTSMail.Subject = "This is a Test"
MyBody = "Thank you " & vbCrLf
MyBody = MyBody & "Please do visit us again" & vbCrLf
MyBody = MyBody & "Always at your service"
MyCDONTSMail.Body= MyBody
MyCDONTSMail.Send
set MyCDONTSMail=nothing
%>

Using CDONTS to send a HTML based email message

This is a simple program and I assume that you have a hang of HTML
Note : If the recepient's email does not support HTML then this would not be a very good approach.

<%
Dim MyCDONTSMail
Dim HTML
Set MyCDONTSMail = CreateObject("CDONTS.NewMail")
HTML = "<!DOCTYPE HTML PUBLIC""-//IETF//DTD HTML//EN"">"
HTML = HTML & "<html>"
HTML = HTML & "<head>"
HTML = HTML & "<title>Sending CDONTS Email Using HTML</title>"
HTML = HTML & "</head>"
HTML = HTML & "<body bgcolor=""FFFFFF"">"
HTML = HTML & ""
HTML = HTML & "Name Of Store "
HTML = HTML & "Incoming Customer Order "
HTML = HTML & "Bla Bla Bla Bla Bla"
HTML = HTML & "<body>"
HTML = HTML & "<html>"
MyCDONTSMail.From= "myself@myplace.com"
MyCDONTSMail.To="toyou@urplace.com"
MyCDONTSMail.Subject="Saying Hello"
MyCDONTSMail.BodyFormat=0
MyCDONTSMail.MailFormat=0
MyCDONTSMail.Body=HTML
MyCDONTSMail.Send
set MyCDONTSMail=nothing
%>

Using CDONTS to send a file attachment and have a Carbon Copy Recipient.
	
<%
Dim MyBody
Dim MyCDONTSMail

Set MyCDONTSMail = CreateObject("CDONTS.NewMail")
MyCDONTSMail.From= "somebody@nowhere.com"
MyCDONTSMail.To= "nobody@nowhere.com"
MyCDONTSMail.Cc="nobody2@nowhere.com"
MyCDONTSMail.Subject="This is a Test"

MyCDONTSMail.AttachFile Server.MapPath("/somedirectory/myfile.txt")
' or you could specify the path exactly if you knew it like below
' MyCDONTSMail.AttachFile "C:\inetpub\wwwroot\somedirectory\myfile.txt"
MyBody = "Thank you" & vbCrLf
MyBody = MyBody & "Please visit us again" & vbCrLf
MyBody = MyBody & "Always at your service"
MyCDONTSMail.Body= MyBody
MyCDONTSMail.Send
set MyCDONTSMail=nothing
%>

..
Number

back to top
..

..
Numberfileread

back to top
..

..
Numberrandom

back to top
..

..
Permissionscaclsref

Displays or modifies access control lists (ACLs) of files

CACLS filename [/T] [/E] [/C] [/G user:perm] [/R user [...]]

[/P user:perm [...]] [/D user [...]]

filename      Displays ACLs.

/T            Changes ACLs of specified files in

the current directory and all subdirectories.

/E            Edit ACL instead of replacing it.

/C            Continue on access denied errors.

/G user:perm  Grant specified user access rights.

Perm can be: R  Read

W  Write

C  Change (write)

F  Full control

/R user	 Revoke specified user's access rights (only valid with /E).

/P user:perm  Replace specified user's access rights.

Perm can be: N  None

R  Read

W  Write

C  Change (write)

F  Full control

/D user       Deny specified user access.

Wildcards can be used to specify more that one file in a command.

You can specify more than one user in a command.

..
Permissionschange

'Changes ACLs of specified files in  the current directory and all subdirectories by using "cacls.exe"

Function ChangePermission (Path, User, Action,  Permission)

If Action="grant" then
		A="/G"
           		Select Case Permission
			Case "read" P = ":R"
			Case "write" P = ":W"
			Case "change" P = ":C"
			Case "full" P = ":F"
		end select

elseif Action="replace" then
		A="/P"
           		Select Case Permission
			Case "read" P = ":R"
			Case "write" P = ":W"
			Case "change" P = ":C"
			Case "full" P = ":F"
		end select

elseif Action="deny" then
		A="/D"
		
	end if

Set W=Server.CreateObject("WScript.Shell")

eXs="cacls.exe " & Path & " /T /E /C " & A & " " & User & P

Result = W.Run (eXs,0,1)
	Response.write eXs & " "
	If Result=0 then
		Response.Write User & "@" & Path & " change permissions granted. "
	else
		Response.Write User & "@" & Path & " change permissions error. "
	end if

Set W=nothing

end function

======================================================
Cacls.exe  reference:

Displays or modifies access control lists (ACLs) of files

CACLS filename [/T] [/E] [/C] [/G user:perm] [/R user [...]]

[/P user:perm [...]] [/D user [...]]

filename      Displays ACLs.

/T            Changes ACLs of specified files in

the current directory and all subdirectories.

/E            Edit ACL instead of replacing it.

/C            Continue on access denied errors.

/G user:perm  Grant specified user access rights.

Perm can be: R  Read

W  Write

C  Change (write)

F  Full control

/R user	 Revoke specified user's access rights (only valid with /E).

/P user:perm  Replace specified user's access rights.

Perm can be: N  None

R  Read

W  Write

C  Change (write)

F  Full control

/D user       Deny specified user access.

Wildcards can be used to specify more that one file in a command.

You can specify more than one user in a command.

..
Referer

back to top
..

..
RegularExpression

back to top
..

..
Savetofile

'===== Parameters =================
 
PrivateDirectory = c:\home\MyWebSite\MyPrivateDirectoy\"
FileToSave = "Orders.txt"

'===== End Parameters =============
 
Function SaveInFile ( Path, NFile, S)
filespec=Path & NFile
Set fso = CreateObject("Scripting.FileSystemObject")
 
If (fso.FileExists(filespec)) Then 
        Set f = fso.GetFile(filespec) 
        Set TextStream = f.OpenAsTextStream(8)
                TextStream.Writeline "========================="
                TextStream.Write S
        TextStream.Close
        set f=nothing
        set TextStream=nothing
else
        Set Folder = FSO.GetFolder(Path)
        Set TextStream = Folder.CreateTextFile(NFile)
                TextStream.Writeline "========================="
                TextStream.Write S
        TextStream.Close
        set f=nothing
        set TextStream=nothing
end if
end function

SaveInFile PrivateDirectory, FileToSave , S
===============================

..
SaveAndSend

This is an useful function for savng the form results into a file and sending it to an e-mail
 address. 
After the form is submitted the user is redirected to the next URL.

'===== Parameters =================

PrivateDirectory = c:\home\MyWebSite\MyPrivateDirectoy\"
FileToSave = "Orders.txt"
BackLink = "http://MyWebSite"
Recipient = "senderaddress@mail.com"
Sender = "your@address.com
Subject = "Some subject"

'===== End Parameters =============

Function SaveInFile ( Path, NFile, S)
filespec=Path & NFile
Set fso = CreateObject("Scripting.FileSystemObject")

If (fso.FileExists(filespec)) Then 
        Set f = fso.GetFile(filespec) 
        Set TextStream = f.OpenAsTextStream(8)
                TextStream.Writeline "========================="
                TextStream.Write S
        TextStream.Close
        set f=nothing
        set TextStream=nothing
else
        Set Folder = FSO.GetFolder(Path)
        Set TextStream = Folder.CreateTextFile(NFile)
                TextStream.Writeline "========================="
                TextStream.Write S
        TextStream.Close
        set f=nothing
        set TextStream=nothing
end if
end function

S = Now & chr(13)
S = S & "REMOTE_HOST   :  " & Request.ServerVariables("REMOTE_HOST")& chr(13)
For Each item In Request.QueryString()
S = S & item & " : " & Request.QueryString(item)& chr(13)
next  
For Each item In Request.Form()
S = S & item & " : " & Request.Form(item)& chr(13)
next  
               
                    Dim myMail
                    Set myMail = Server.CreateObject("CDONTS.NewMail") 
                    myMail.from = Sender
                    myMail.to = Recipient
                    myMail.subject = Subject
                    myMail.body = S
                    myMail.Send()
                    Set myMail = Nothing

SaveInFile PrivateDirectory, FileToSave , S

Response.write "<html>"
Response.write "<head>"
Response.write "<meta http-equiv='Refresh' content='4; URL=<%=BackLink%>'>"
Response.write "</head>"
Response.write "<body>"
Response.write "<center><h2>Thank you."
Response.write "</body>"
Response.write "</html>"

..
SearchStringinFile

Function RegExpTest(patrn, strng) 
	Dim regEx, Match, Matches ' Create variable. 
	Set regEx = New RegExp ' Create regular expression. 
	regEx.Pattern = "\b" & patrn & "\b"  ' Set pattern. 
	regEx.IgnoreCase = True ' Set case insensitivity. 
	regEx.Global = True ' Set global applicability. 
	Set Matches = regEx.Execute(strng) ' Execute search.

RegExpTest = Matches.Count 
End Function

Function SearchInFileResult(PathToFile,SearchString)
	If Len(SearchString)<3 then
		SearchInFileResult = 0
	else
		SearchString = Replace(SearchString,",","")
		SearchString = Replace(SearchString,".","")
		SearchWords = Split (SearchString," ")
		Dim FoundCounter
		FoundCounter = 0
		Set FSO = CreateObject("Scripting.FileSystemObject")
		Set File = FSO.GetFile(PathToFile)

For Each SearchWord in SearchWords
			Set TextStream = File.OpenAsTextStream
				If Len(SearchWord)<3 then
				else
					S = TextStream.ReadAll
					ThisSearchResult = RegExpTest(Trim(SearchWord), S) 
					FoundCounter = FoundCounter +	ThisSearchResult
				end if
			TextStream.Close
		Next

Set FSO = nothing
		Set File = nothing
		Set TextStream = nothing

SearchInFileResult = FoundCounter 
	end if
end function

..
SendForm

IF you don't want to save the form results this function will help you to send the results to 
your e-mail address.

The function is generic. It is also checking for either "GET" or "POST" form results.
It is reading all the fields and sending them in the same order they were recieved.

'======= Parameters ================

Recepient = "your@e_mailaddress.com"
Sender = "your@e-mailaddress.com"
Subject = "Some subject"

'======= End Parameters ============

For Each item In Request.QueryString()
S = S & item & " : " & Request.QueryString(item)& chr(13)
next                 
For Each item In Request.Form()
S = S & item & " : " & Request.Form(item)& chr(13)
next

Dim myMail
                    Set myMail = Server.CreateObject("CDONTS.NewMail")

myMail.from = Sender
                    myMail.to = Recepient
                    myMail.subject = "Test Subject"
                    myMail.body = S
                    myMail.Send()

Set myMail = Nothing
                    Response.Write "This mail has been sent."

..
Serverpath

back to top
..

..
Serverprevious

back to top
..

..
Serverredirect

back to top
..

..
Servertrack

How to log visitor Visits
1. Create an ascii file with the filename as current systemtime
2. Get the visitors IP Address
3. Check if the referring page exists

<%
' Lets get the date right so we can name the log file
LogFileDate = Date
LogFileName = ""
	 If Month(LogFileDate) 
LogFileName = "0"
End If
	 LogFileName = LogFileName & Month(LogFileDate)
	 If Day(LogFileDate) 
LogFileName = LogFileName & "0"
End If

' Now place it in the proper directory and deal with it
LogFileName = "/tracking/" & LogFileName & Day(LogFileDate) & Year(LogFileDate) & ".log"
Set fs = CreateObject("Scripting.FileSystemObject")
' Make sure we can APPEND to the file - thats what the 8 is for
Set a = fs.OpenTextFile(server.mappath(LogFileName), 8, True, False)
	' If there is NO REFERER Then Skip this mess
if Request.ServerVariables("HTTP_REFERER") then
Request.ServerVariables("HTTP_REFERER") = 0
Else
' If there is a Referer then write the information to the log
a.Wriste("Referer: " & Request.ServerVariables("HTTP_REFERER"))
a.Write(" IP Address: " & Request.ServerVariables("REMOTE_ADDR")) & VBcrlf
End if
' Now its recorded adn ready for the next visitor
%>

..
Servervariables

back to top
..

..
SetScriptTimeOut

back to top
..

..
Sitesearch

<% Option Explicit %>
<%

'Set the response buffer to true
Response.Buffer = False

'Dimension global variables
Dim fsoObject			'File system object
Dim fldObject			'Folder object	
Dim sarySearchWord		'Array to hold the words to be searched for
Dim strSearchWords		'Holds the search words
Dim blnIsRoot			'Set to true if we are searching in the root directory
Dim strFileURL			'Holds the path to the file on the site
Dim strServerPath		'Holds the server path to this script
Dim intNumFilesShown		'Holds the number of files shown so far
Dim intTotalFilesSearched	'Holds the number of files searched
Dim intTotalFilesFound		'Holds the total matching files found
Dim intFileNum			'Holds the file number
Dim intPageLinkLoopCounter	'Loop counter to display links to the other result pages
Dim sarySearchResults(4000,2)	'Two Dimensional Array holding the search results
Dim intDisplayResultsLoopCounter 'loop counter to diplay the results of the search
Dim intResultsArrayPosition	'Stores the array position of the array storing the results
Dim blnSearchResultsFound	'Set to true if search results are found
Dim strFilesTypesToSearch	'Holds the types of files to be searched
Dim strBarredFolders		'Holds the folders that you don't want searched
Dim strBarredFiles		'Holds the names of the files not to be searched
Dim blnEnglishLanguage		'Set to True if the user is using English

' -------------------------- Change the following line to the number of results you wish to have on each page ------------------------------------
Const intRecordsPerPage = 100 'change this to the number of results to show on each page

' --------------------- Place the names of the files types you want searching in the following line sepeararted by commas --------------------------
strFilesTypesToSearch = "."

' --------------------- Place the names of the folders you don't want searched in the following line spearated by commas --------------------------
strBarredFolders = "cgi_bin,_bin" 'cgi_bin and _bin have been put in here as examples, but you can put any folders in here

' ---------- Place the names of the files you don't want searched in the following line spearated by commas include the file extension -------------
strBarredFiles = "adminstation.htm,no_allowed.asp" 'adminstration.htm and not_allowed.asp have been put in as an examples

' -------------------- Set this boolean to False if you are not using an English language web site --------------------------------------------------
blnEnglishLanguage = True 'True = HTML Encode best for English sites \ False = no Emcoding best for non English sites

'-----------------------------------------------------------------------------------------------------------------------------------------------------

'Initalise variables
intTotalFilesSearched = 0

%>
<html>
<head>
<title>Search the Website</title>
<meta name="Description" content="Search the web site for pages or information that you are after">
<meta name="KeyWords" content="site search">
 
 

<script language="JavaScript">
<!-- Hide from older browsers...

//Preload search icon
var search_icon_off = new Image(); 
search_icon_off.src = "site_search_icon_off.gif";

//Check the form before submitting
function CheckForm () {

//Check for a word to search
	if (document.frmSiteSearch.search.value==""){
		alert("Please enter at least one keyword to search");
		document.frmSiteSearch.search.focus();
		return false;
	}
	
	return true
}
// -->
</script>
 
</head>
<body bgcolor="#FFFFFF" text="#000000" link="#0000CC" vlink="#0000CC" alink="#FF0000">
<h1 align="center">Site Search Engine</h1>
 
<form method="get" name="frmSiteSearch" action="site_search.asp" onSubmit="return CheckForm();">
 <table cellpadding="0" cellspacing="0" width="90%" align="center">
 <tr> 
 
 <td height="66" width="165" align="right" rowspan="3" valign="middle"><img src="site_search_icon_on.gif" width="58" height="52" align="absmiddle" alt="Search the Web Site" name="searchIcon"> 
 </td>
 <td height="66" width="15" align="right" rowspan="3" valign="middle"> </td>
 <td class="arial" height="4" width="571"> Search the Web Site: </td>
 </tr>
 <tr> 
 <td class="normal" height="2" width="571">
 <input type="TEXT" name="search" maxlength="50" size="36" value="<% =Request.QueryString("search") %>">
 <input type="submit" value="Search >>" name="submit">
 </td>
 </tr>
 <tr> 
 <td class="normal" height="34" width="571" valign="top"> Search On : 
 <input type="radio" name="mode" value="allwords" CHECKED>
 All Words 
 <input type="radio" name="mode" value="anywords">
 Any Words 
 <input type="radio" name="mode" value="phrase">
 Phrase</td>
 </tr>
 </table>
</form>

'Read in all the search words into one variable
strSearchWords = Trim(Request.QueryString("search"))

'If the site is in English then use the server HTML encode method
If blnEnglishLanguage = True Then
	'Replace any HTML tags with the HTML codes for the same characters (stops people entering HTML tags)
	strSearchWords = Server.HTMLEncode(strSearchWords)

'If the site is not english just change the script tags
Else
	'Just replace the script tag <> with HTML encoded < and >
	strSearchWords = Replace(strSearchWords, "<", "<", 1, -1, 1)
	strSearchWords = Replace(strSearchWords, ">", ">", 1, -1, 1)
End If

'Slit each word to be searched up and place in an array
sarySearchWord = Split(Trim(strSearchWords), " ")

'Read the file number to show from
intFileNum = CInt(Request.QueryString("FileNumPosition"))

'Set the number of files shown so far to the file number read in above
intNumFilesShown = intFileNum

'Create the file system object
Set fsoObject = Server.CreateObject("Scripting.FileSystemObject")

'If there is no words entered by the user to search for then dont carryout the file search routine
If NOT strSearchWords = "" Then

'Get the path and the root folder to be searched
	Set fldObject = fsoObject.GetFolder(Server.MapPath("./"))
	
	'Read in the server path to this ASP script
	strServerPath = fldObject.Path & "\"
	
	'Set to true as this is searching the root directory
	blnIsRoot = True
		
	'Call the search sub prcedure
	Call SearchFile(fldObject)			
	
	'Reset server variables
	Set fsoObject = Nothing
	Set fldObject = Nothing	
	
	
	'Call the Bubble Sort procedure to sort the results into highest matches first
	Call SortResultsByNumMatches(sarySearchResults, intTotalFilesFound)
		
	
	'Display the HTML table with the results status of the search or what type of search it is
	Response.Write vbCrLf & "	<table width=""98%"" border=""0"" cellspacing=""1"" cellpadding=""1"" align=""center"" bgcolor=""#CCCCCC"">"
	Response.Write vbCrLf & " 	 <tr>"
	
	'Display that there where no matching records found
	If blnSearchResultsFound = False Then 
		Response.Write vbCrLf & " 	 <td> Searched the site for " & strSearchWords & ".    Sorry, no results found.</td>" 
	
	'Else Search went OK so display how many records found
	Else	
		Response.Write vbCrLf & " 	 <td> Searched the site for " & strSearchWords & ".    Displaying Results " & intFileNum + 1 & " - " & intNumFilesShown & " of " & intTotalFilesFound & ".</td>"	 
	End If
	
	'Close the HTML table with the search status
	Response.Write vbCrLf & "	 </tr>"
	Response.Write vbCrLf & "	</table>"
		
	
	'HTML table to display the search results or an error if there are no results
	Response.Write vbCrLf & "	<table width=""95%"" border=""0"" cellspacing=""1"" cellpadding=""1"" align=""center"">"
	Response.Write vbCrLf & "	 <tr>" 
	Response.Write vbCrLf & "	 <td>" 
	
	'If no results are found then display an error message
	If blnSearchResultsFound = False Then 
	
		'Write HTML displaying the error
		Response.Write vbCrLf & "	 "
		Response.Write vbCrLf & "	 Your Search - " & strSearchWords & " - did not match any files on this site."
	 	Response.Write vbCrLf & "	 "
	 	Response.Write vbCrLf & "	 Suggestions:"
	 	Response.Write vbCrLf & "	 "
	 	Response.Write vbCrLf & "	 <ul><li>Make sure all words are spelled correctly.<li>Try different keywords.<li>Try more general keywords.<li>Try fewer keywords.</ul>"
	
	'Else display the results
	Else
		
		'Loop round to display each result within the search results array
		For intDisplayResultsLoopCounter = (intFileNum + 1) to intNumFilesShown
		
			Response.Write vbCrLf & "	 "
			Response.Write vbCrLf & "	 " & sarySearchResults(intDisplayResultsLoopCounter,1)
			Response.Write vbCrLf & "	 "
		Next
	End If
	
	'Close the HTML table displaying the results
	Response.Write vbCrLf & "	 </td>"
	Response.Write vbCrLf & "	 </tr>"
	Response.Write vbCrLf & "	</table>"

End If

'Display an HTML table with links to the other search results
If intTotalFilesFound > intRecordsPerPage then

'Display an HTML table with links to the other search results
	Response.Write vbCrLf & "	 "
	Response.Write vbCrLf & "	<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" align=""center"">"
	Response.Write vbCrLf & " 	 <tr>"
	Response.Write vbCrLf & " 	 <td>"
	Response.Write vbCrLf & "		<table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">"
	Response.Write vbCrLf & "		 <tr>"
	Response.Write vbCrLf & "		 <td width=""50%"" align=""center"">"
	
	Response.Write vbCrLf & "		Results Page:  "
	
		
	'If the page number is higher than page 1 then display a back link 	
	If intNumFilesShown > intRecordsPerPage Then 
		Response.Write vbCrLf & "		 <a href=""site_search.asp?FileNumPosition=" & intFileNum - intRecordsPerPage & "&search=" & Replace(strSearchWords, " ", "+") & "&mode=" & Request.QueryString("mode") & """ target=""_self""><< Prev</a> " 	 	
	End If 	
	
	
	'If there are more pages to display then display links to all the search results pages
	If intTotalFilesFound > intRecordsPerPage Then 
		
		'Loop to diplay a hyper-link to each page in the search results 	
		For intPageLinkLoopCounter = 1 to CInt((intTotalFilesFound / intRecordsPerPage) + 0.5)
			
			'If the page to be linked to is the page displayed then don't make it a hyper-link
			If intFileNum = (intPageLinkLoopCounter * intRecordsPerPage) - intRecordsPerPage Then
				Response.Write vbCrLf & "		 " & intPageLinkLoopCounter
			Else
			
				Response.Write vbCrLf & "		  <a href=""site_search.asp?FileNumPosition=" & (intPageLinkLoopCounter * intRecordsPerPage) - intRecordsPerPage & "&search=" & Replace(strSearchWords, " ", "+") & "&mode=" & Request.QueryString("mode") & """ target=""_self"">" & intPageLinkLoopCounter & "</a>  "			
			End If
		Next
	End If
	
	
	'If it is Not the last of the search results than display a next link 	
	If intTotalFilesFound > intNumFilesShown then 	
		Response.Write vbCrLf & "		 <a href=""site_search.asp?FileNumPosition=" & intNumFilesShown & "&search=" & Replace(strSearchWords, " ", "+") & "&mode=" & Request.QueryString("mode") & """ target=""_self"">Next >></a>"	 	
	End If 	
	
	
	'Finsh HTML the table 	
	Response.Write vbCrLf & "		 </td>" 	
	Response.Write vbCrLf & "		 </tr>"
	Response.Write vbCrLf & "		</table>"		
	Response.Write vbCrLf & "	 </td>"
	Response.Write vbCrLf & "	 </tr>"
	Response.Write vbCrLf & "	</table>"
	
 
End If

%>
 
 <div align="center"> 
 <table width="98%" border="0" cellspacing="1" cellpadding="1" bgcolor="#CCCCCC" align="center">
 <tr> 
 <td width="47%" height="18"> Searched <% = intTotalFilesSearched %> documents in total. </td>
 <td width="53%" align="right" height="18"><%				 
%>
 </td>
 </tr>
 </table>
 
 <script langauge="JavaScript">document.searchIcon.src = search_icon_off.src</script>

</body>
</html>
<%

'Sub procedure to do the search
Public Sub SearchFile(fldObject)

'Dimension local variabales
	Dim objRegExp				'Regular Expersions object
	Dim objMatches				'Holds the matches collection of the regular expresions object
	Dim filObject				'File object
	Dim tsObject				'Text stream object
	Dim subFldObject			'Sub folder object
	Dim strFileContents			'Holds the contents of the file being searched	
	Dim strPageTitle			'Holds the title of the page
	Dim strPageDescription			'Holds the description of the page
	Dim strPageKeywords			'Holds the keywords of the page
	Dim intSearchLoopCounter		'Loop counter to search all the words in the array
	Dim intNumMatches			'Holds the number of matches
	Dim blnSearchFound			'Set to true if the search words are found	
	
	'Error handler
	On Error Resume Next
	
	'Set the error object to 0
	Err.Number = 0
		 		
	'Create the regular expresions object
	Set objRegExp = New RegExp
		 		
	'If an error has occured then the server does not support Regular Expresions
	If Err.Number <> 0 Then 
		Response.Write(" Error The Server does not support the Regular Expessions object Please download the alternative version of this application from http://www.webwizguide.info/asp/sample_scripts/site_search_script.asp")
					
		'Reset error object
		Err.Number = 0
	End If
		
	'Loop to search each file in the folder
	For Each filObject in fldObject.Files
		
				
		'Check the file extension to make sure the file is of the extension type to be searched
		If InStr(1, strFilesTypesToSearch, fsoObject.GetExtensionName(filObject.Name), vbTextCompare) > 0 Then
	 
		 	'Check to make sure the file about to be searched is not a barred file if it is don't search the file
			If NOT InStr(1, strBarredFiles, filObject.Name, vbTextCompare) > 0 Then		 	
		 	
		 		'Initalise the search found variable to flase
			 	blnSearchFound = False
		 		
		 		'Initalise the number of matches variable
		 		intNumMatches = 0		 	
		 		
		 		'Set the regular exprsion object to read all cases of the occurance not just the first
		 		objRegExp.Global = True
		 		
		 		'Set the regular expression object to ignore case
		 		objRegExp.IgnoreCase = True
		 		
		 				 		
		 	
			 	'Open the file for searching
			 	Set tsObject = filObject.OpenAsTextStream
			
				'Read in the contents of the file
			 	strFileContents = tsObject.ReadAll		
		
				'Read in the title of the file
				strPageTitle = GetFileMetaTag("<title>", "</title>", strFileContents)
						
				'Read in the description meta tag of the file
				strPageDescription = GetFileMetaTag("<meta name=""description"" content=""", """>", strFileContents)
			 	
			 	'Read in the keywords of the file
			 	strPageKeywords = GetFileMetaTag("<meta name=""keywords"" content=""", """>", strFileContents)
			 			 	
			 	
			 	
			 	'Set the pattern using regular expressions to srip any HTML tags
			 	objRegExp.Pattern = "<[^>]*>"
			 	
			 	'Strip HTML tags from the contects of the file to be searched
			 	strFileContents = objRegExp.Replace(strFileContents,"")
			 		
			 	'Put the tittle, description and the keywords back into the file to be searched
			 	strFileContents = strFileContents & " " & strPageTitle & " " & strPageDescription & " " & strPageKeywords
			 	
			 
			 				 	
			 	'If the user has choosen to search by phrase 
			 	If Request.QueryString("mode") = "phrase" Then
			 		
			 		'Set the pattern to search for
			 		objRegExp.Pattern = "\b" & strSearchWords & "\b"
			 		
			 		'Search the file for the phrase
			 		Set objMatches = objRegExp.Execute(strFileContents)
			 		
			 		'Check to see if the phrase has been found
			 		If objMatches.Count > 0 Then
			 		
			 			'Get the number of times the phrase is matched
			 			intNumMatches = objMatches.Count
			 		
			 			'If the search is found then set the search found variable to true
			 			blnSearchFound = True
			 		End If
			 	
			 	
			 	'Else the search is either by all or any words
			 	Else
			 			 	
			 		'If the search is by all words then initialise the search found variable to true
				 	If Request.QueryString("mode") = "allwords" then blnSearchFound = True
				 	
				 	
				 	'Loop round to search for each word to be searched
				 	For intSearchLoopCounter = 0 to UBound(sarySearchWord)
				 	
				 		'Set the pattern to search for
				 		objRegExp.Pattern = "\b" & sarySearchWord(intSearchLoopCounter) & "\b"
				 		
				 		'Search the file for the search words
				 		Set objMatches = objRegExp.Execute(strFileContents)
				 		 	
					 	'Check to see if any of the words have been found
					 	If objMatches.Count > 0 Then 
					 	
					 		'Get the number of times the search word is matched
			 				intNumMatches = intNumMatches + objMatches.Count
				 	
				 			'If the search word is found and the search is for any words then set the search found variable to true
				 			If Request.QueryString("mode") = "anywords" then blnSearchFound = True
				 			
				 		Else
				 			'If the search word is not found and the search is for all words then set the search found variable back to false as one of the words has not been found
				 			If Request.QueryString("mode") = "allwords" then blnSearchFound = False
				 			
				 		End If
				 	Next
			 	End If
			 				 	
			 	
			 	'Calculate the total files searched
			 	intTotalFilesSearched = intTotalFilesSearched + 1
			
			
			 	
			 	'If the page contains no title then Page Title variable the appropriate message to display
			 	If strPageTitle = "" Then strPageTitle = "No Title"
			 	
			 	'If the page contains no title then Page Description variable the appropriate message to display
			 	If strPageDescription = "" Then strPageDescription = "No Description"
			 	
			 		 				 			 	
			 	
			 	'If the search found variable is true then display the results
			 	If blnSearchFound = True Then
			 			 	
			 					 		 	
					'Calculate the total files found 
					intTotalFilesFound = intTotalFilesFound + 1
										
			 			 		
					'Check that the file shown is between the the files shown so far and the maximum files to show per page
					If intNumFilesShown < (intRecordsPerPage + intFileNum) and intTotalFilesFound > intNumFilesShown Then
	
						'Calculate the number of results shown
						intNumFilesShown = intNumFilesShown + 1
						
					End If	
		
					 		
				 		
			 		'Place the search results into the saerch results array
			 		'Calculate the array position of the results array
			 		intResultsArrayPosition = intResultsArrayPosition + 1
			 		
				 		
			 		'Set the search results found boolean to true
			 		blnSearchResultsFound = True
				 					 		
					'If the file is in the root directory then
					If blnIsRoot = True Then
						
						
						'Place the search results into the search results array
						sarySearchResults(intResultsArrayPosition,1) = "<a href=""./" & filObject.Name & """ target=""_self"">" & strPageTitle & "</a>" 
													
								 						 		
			 		'Else it is not in the root directiory
			 		Else
			 			'Place the search results into the search results array
			 			sarySearchResults(intResultsArrayPosition,1) = "<a href=""./" & strFileURL & fldObject.Name & "/" & filObject.Name & """ target=""_self"">" & strPageTitle & "</a>"			 			 								
						
					End If						
					
					'Place the rest of the search results in the search results array
					sarySearchResults(intResultsArrayPosition,1) = sarySearchResults(intResultsArrayPosition,1) & vbCrLf & "  " & strPageDescription
					sarySearchResults(intResultsArrayPosition,1) = sarySearchResults(intResultsArrayPosition,1) & vbCrLf & " Score " & intNumMatches & "  -  Last Updated " & FormatDateTime(filObject.DateLastModified, VbLongDate) & "  -  Size " & CInt(filObject.Size / 1024) & "kb"
					
					
					
					'Read in the number of search word matches into the second part of the two dimensional array
					sarySearchResults(intResultsArrayPosition,2) = intNumMatches
									
		 		End If
							
				'Close the text stream object
		 		tsObject.Close
			End If
		End If
	Next
	
	'Reset the Regular Expression object
	Set objRegExp = Nothing
		
	
	'Loop to search through the sub folders within the site
	For Each subFldObject In FldObject.SubFolders
										
		'Check to make sure the folder about to be searched is not a barred folder if it is then don't search
		If NOT InStr(1, strBarredFolders, subFldObject.Name, vbTextCompare) > 0 Then
			
			'Set to false as we are searching sub directories
			blnIsRoot = False
						
					
			'Get the server path to the file
			strFileURL = fldObject.Path & "\"
			
			'Turn the server path to the file into a URL path to the file
			strFileURL = Replace(strFileURL, strServerPath, "")
			
			'Replace the NT backslash with the internet forward slash in the URL to the file
			strFileURL = Replace(strFileURL, "\", "/")
			
			'Encode the file name and path into the URL code method
			strFileURL = Server.URLEncode(strFileURL)
			
			'Just incase it's encoded any backslashes
			strFileURL = Replace(strFileURL, "%2F", "/")
						
			'Call the search sub prcedure to search the web site
			Call SearchFile(subFldObject)
		End If
	Next

'Reset server variables
	Set filObject = Nothing
	Set tsObject = Nothing
	Set subFldObject = Nothing
End Sub

'Sub procedure to sort the array using a Bubble Sort to place highest matches first
Private Sub SortResultsByNumMatches(ByRef sarySearchResults, ByRef intTotalFilesFound)

'Dimension variables
	Dim intArrayGap 		'Holds the part of the array being sorted
	Dim intIndexPosition		'Holds the Array index position being sorted
	Dim intTempResultsHold		'Temperary hold for the results if they need swapping array positions		
	Dim intTempNumMatchesHold	'Temperary hold for the number of matches for the result if they need swapping array positions
	Dim intPassNumber		'Holds the pass number for the sort
	
	
	'Loop round to sort each result found
	For intPassNumber = 1 To intTotalFilesFound
	
		'Shortens the number of passes
		For intIndexPosition = 1 To (intTotalFilesFound - intPassNumber)
		
			'If the Result being sorted hass less matches than the next result in the array then swap them
			If sarySearchResults(intIndexPosition,2) < sarySearchResults((intIndexPosition+1),2) Then
			
				
				'Place the Result being sorted in a temporary variable
				intTempResultsHold = sarySearchResults(intIndexPosition,1)
				
				'Place the Number of Matches for the result being sorted in a temporary variable
				intTempNumMatchesHold = sarySearchResults(intIndexPosition,2)
				
				
				'Do the array position swap
				
				'Move the next Result with a higher match rate into the present array location
				sarySearchResults(intIndexPosition,1) = sarySearchResults((intIndexPosition+1),1)
									
				'Move the next Number of Matches for the result with a higher match rate into the present array location
				sarySearchResults(intIndexPosition,2) = sarySearchResults((intIndexPosition+1),2)
				
				'Move the Result from the teporary holding variable into the next array position
				sarySearchResults((intIndexPosition+1),1) = intTempResultsHold
				
				'Move the Number of Matches for the result from the teporary holding variable into the next array position
				sarySearchResults((intIndexPosition+1),2) = intTempNumMatchesHold			
			End If
		Next			
	Next					
End Sub

'Function to read in the files meta tags
Private Function GetFileMetaTag(ByRef strStartValue, ByRef strEndValue, ByVal strFileContents)

'Dimension Variables
	Dim intStartPositionInFile	'Holds the start position in the file
	Dim intEndPositionInFile	'Holds the end position in the file
	
	
	'Get the start position in the file of the meta tag
	intStartPositionInFile = InStr(1, LCase(strFileContents), strStartValue, 1)
	
	
	'If no description or keywords are found then you may be using http-equiv= instead of name= in your meta tags
	If intStartPositionInFile = 0 And InStr(strStartValue, "name=") Then
		
		'Swap name= for http-equiv= 
		strStartValue = Replace(strStartValue, "name=", "http-equiv=")
		
		'Check again for keywords or description
		intStartPositionInFile = InStr(1, LCase(strFileContents), strStartValue, 1)		
	End If
	
				    	
	'If there is a description then the position in file will be over 0
	If NOT intStartPositionInFile = 0 Then
					
		'Get the end position of the HTML meta tag
		intStartPositionInFile = intStartPositionInFile + Len(strStartValue)
						
		'Get the position in file of the closing tag for the meta tag
		intEndPositionInFile = InStr(intStartPositionInFile, LCase(strFileContents), strEndValue, 1)
	
		'Read in the meta tag from the file for the function to return
		GetFileMetaTag = Trim(Mid(strFileContents, intStartPositionInFile, (intEndPositionInFile - intStartPositionInFile)))
					
	'If the is no meta tag then the GetFileMetaTag function returns a null value
	Else
		GetFileMetaTag = ""
		       		
	End If

End Function
%>

..
Sleep

back to top
..

..
Sort2Arrays

back to top
..

..
SortArray

back to top
..

..
SortDouble

Private Sub QuicksortDouble(list() As Double, ByVal min As Integer, ByVal max As Integer)
Dim med_value As Double
Dim hi As Integer
Dim lo As Integer
Dim i As Integer

' If the list has no more than CutOff elements,
 ' finish it off with SelectionSort.
 If max <= min Then Exit Sub

' Pick the dividing value.
    i = Int((max - min + 1) * Rnd + min)
    med_value = list(i)

' Swap it to the front.
    list(i) = list(min)

lo = min
 hi = max
 Do
 ' Look down from hi for a value < med_value.
 Do While list(hi) >= med_value
 hi = hi - 1
 If hi <= lo Then Exit Do
 Loop
 If hi <= lo Then
 list(lo) = med_value
 Exit Do
 End If

' Swap the lo and hi values.
 list(lo) = list(hi)
 
 ' Look up from lo for a value >= med_value.
 lo = lo + 1
 Do While list(lo) < med_value
 lo = lo + 1
 If lo >= hi Then Exit Do
 Loop
 If lo >= hi Then
 lo = hi
 list(hi) = med_value
 Exit Do
 End If
 
 ' Swap the lo and hi values.
 list(hi) = list(lo)
 Loop
 
 ' Sort the two sublists.
 QuicksortDouble list(), min, lo - 1
 QuicksortDouble list(), lo + 1, max
End Sub

..
SortInteger

Private Sub QuicksortInt(list() As Integer, ByVal min As Integer, ByVal max As Integer)
Dim med_value As Integer
Dim hi As Integer
Dim lo As Integer
Dim i As Integer

' If the list has no more than CutOff elements,
 ' finish it off with SelectionSort.
 If max <= min Then Exit Sub

' Pick the dividing value.
    i = Int((max - min + 1) * Rnd + min)
    med_value = list(i)

' Swap it to the front.
    list(i) = list(min)

' Swap the lo and hi values.
 list(lo) = list(hi)
 
 ' Look up from lo for a value >= med_value.
 lo = lo + 1
 Do While list(lo) < med_value
 lo = lo + 1
 If lo >= hi Then Exit Do
 Loop
 If lo >= hi Then
 lo = hi
 list(hi) = med_value
 Exit Do
 End If
 
 ' Swap the lo and hi values.
 list(hi) = list(lo)
 Loop
 
 ' Sort the two sublists.
 QuicksortInt list(), min, lo - 1
 QuicksortInt list(), lo + 1, max
End Sub

..
SortLong

Private Sub QuicksortLong(list() As Long, ByVal min As Integer, ByVal max As Integer)
Dim med_value As Long
Dim hi As Integer
Dim lo As Integer
Dim i As Integer

' If the list has no more than CutOff elements,
 ' finish it off with SelectionSort.
 If max <= min Then Exit Sub

' Pick the dividing value.
    i = Int((max - min + 1) * Rnd + min)
    med_value = list(i)

' Swap it to the front.
    list(i) = list(min)

' Swap the lo and hi values.
 list(lo) = list(hi)
 
 ' Look up from lo for a value >= med_value.
 lo = lo + 1
 Do While list(lo) < med_value
 lo = lo + 1
 If lo >= hi Then Exit Do
 Loop
 If lo >= hi Then
 lo = hi
 list(hi) = med_value
 Exit Do
 End If
 
 ' Swap the lo and hi values.
 list(hi) = list(lo)
 Loop
 
 ' Sort the two sublists.
 QuicksortLong list(), min, lo - 1
 QuicksortLong list(), lo + 1, max
End Sub

..
SortSingle

Private Sub QuicksortSingle(list() As Single, ByVal min As Integer, ByVal max As Integer)
Dim med_value As Single
Dim hi As Integer
Dim lo As Integer
Dim i As Integer

' If the list has no more than CutOff elements,
 ' finish it off with SelectionSort.
 If max <= min Then Exit Sub

' Pick the dividing value.
    i = Int((max - min + 1) * Rnd + min)
    med_value = list(i)

' Swap it to the front.
    list(i) = list(min)

' Swap the lo and hi values.
 list(lo) = list(hi)
 
 ' Look up from lo for a value >= med_value.
 lo = lo + 1
 Do While list(lo) < med_value
 lo = lo + 1
 If lo >= hi Then Exit Do
 Loop
 If lo >= hi Then
 lo = hi
 list(hi) = med_value
 Exit Do
 End If
 
 ' Swap the lo and hi values.
 list(hi) = list(lo)
 Loop
 
 ' Sort the two sublists.
 QuicksortSingle list(), min, lo - 1
 QuicksortSingle list(), lo + 1, max
End Sub

..
SortString

Private Sub QuicksortString(list() As String, ByVal min As Integer, ByVal max As Integer)
Dim med_value As String
Dim hi As Integer
Dim lo As Integer
Dim i As Integer

' If the list has no more than CutOff elements,
 ' finish it off with SelectionSort.
 If max <= min Then Exit Sub

' Pick the dividing value.
    i = Int((max - min + 1) * Rnd + min)
    med_value = list(i)

' Swap it to the front.
    list(i) = list(min)

' Swap the lo and hi values.
 list(lo) = list(hi)
 
 ' Look up from lo for a value >= med_value.
 lo = lo + 1
 Do While list(lo) < med_value
 lo = lo + 1
 If lo >= hi Then Exit Do
 Loop
 If lo >= hi Then
 lo = hi
 list(hi) = med_value
 Exit Do
 End If
 
 ' Swap the lo and hi values.
 list(hi) = list(lo)
 Loop
 
 ' Sort the two sublists.
 QuicksortString list(), min, lo - 1
 QuicksortString list(), lo + 1, max
End Sub

..
SortVariant

Private Sub QuicksortVariant(list() As Variant, ByVal min As Integer, ByVal max As Integer)
Dim med_value As Variant
Dim hi As Integer
Dim lo As Integer
Dim i As Integer

' If the list has no more than CutOff elements,
 ' finish it off with SelectionSort.
 If max <= min Then Exit Sub

' Pick the dividing value.
    i = Int((max - min + 1) * Rnd + min)
    med_value = list(i)

' Swap it to the front.
    list(i) = list(min)

' Swap the lo and hi values.
 list(lo) = list(hi)
 
 ' Look up from lo for a value >= med_value.
 lo = lo + 1
 Do While list(lo) < med_value
 lo = lo + 1
 If lo >= hi Then Exit Do
 Loop
 If lo >= hi Then
 lo = hi
 list(hi) = med_value
 Exit Do
 End If
 
 ' Swap the lo and hi values.
 list(hi) = list(lo)
 Loop
 
 ' Sort the two sublists.
 QuicksortVariant list(), min, lo - 1
 QuicksortVariant list(), lo + 1, max
End Sub

..
Special

back to top
..

..
Specialchars

back to top
..

..
String

How to Split a String
   How to Match a String
   How to convert a string to lower case and UPPER case
   How to format a string.  Say a phone number

How to split a String 
<%
myString = "I, am, just, about, to, split, this, string"
myArray = Split(myString,",")
For Each myItem in myArray
Response.Write myItem & ""
Next
%>
Outputs : 
I
am
just
about
to
split
this
string

How to Match a String 
<%
myString = "Once upon a time, in the Indian Jungles...."
If InStr(myString,"India") Then
Response.Write "String 'India' is a present" & ""
Else
Response.Write "String 'India' is not a present" & ""
End If
%>
Outputs : String 'India' is a present

Converting String to UPPER and lower Case
Say we have the follwoing string
<%
strTemp = "The quick brown fox Jumps over the lazy Dog."
%>
LOWER Case String:<%= LCase(strTemp) %>
UPPER Case String:<%= UCase(strTemp) %> 
Output : 
LOWER Case String: the quick brown fox jumps over the lazy dog.
UPPER Case String: THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG.

How to get various parts of a String 
Say we have a phone number <%=lCF%>
phno = "8003218684"

Code for getting string length
<% phno_legnth = len(tele) %>

Code for formatting
<%= left(phno,3) %>-<%= mid(phno,4,3) %>-<%= right(phno,4) %> 
Output : After Formatting phno : 800-321-8684

Note :

<%= left(phno(counter),3) %> yields 800
<%= mid(phno(counter),4,3) %> yields 321
<%= right(phno(counter),4) %> yields 8684

..
Stringcase

back to top
..

..
Stringmatch

back to top
..

..
Stringpart

back to top
..

..
Stringsplit

back to top
..

..
Time

Time formats
   Time Parts
   Time Add and Subtract
   Time Difference

Time Format 	[ All output relative to time as 2/7/2000 11:52:18 AM ]

<% =FormatDateTime(Now(),1)%>
Outputs : 11:52:18 AM

<%=FormatDateTime(Now(),2)%>
Outputs : 11:52

<%=Time()%>
Outputs : 11:52:18 AM

Time Part

Seconds

It is <%=Second(Time)%> seconds in time <%=Time()%>
Outputs : It is 18 seconds in time 11:52:18 AM

It is <%=DatePart("s",Now)%> seconds in time <%=Time()%>
Outputs : It is 18 seconds in time 11:52:18 AM

Minutes

It is <%=Minute(Time)%> minutes in time <%=Time()%>
Outputs : It is 52 minutes in time 11:52:18 AM

It is <%=DatePart("n",Now)%> minutes in time <%=Time()%>
Outputs : It is 52 minutes in time 11:52:18 AM

Hours

It is <%=Hour(Time)%> hours in time <%=Time()%>
Outputs : It is 11 hours in time 11:52:18 AM

It is <%=DatePart("h",Now)%> hours in time <%=Time()%>
Outputs : It is 11 hours in time 11:52:18 AM

Time Add and Subtract

Add

Seconds

Time now is <%=Now%>
30 seconds from now it will be <%=DateAdd("s",30,Now)%>	
Outputs as : Time now is 2/7/2000 12:08:05 PM .
30 seconds from now it will be 2/7/2000 12:10:16 PM

Minutes

Time now is <%=Now%>
30 minutes from now it will be <%=DateAdd("n",30,Now)%>		
Outputs as : Time now is 2/7/2000 12:08:05 PM .
30 minutes from now it will be 2/7/2000 12:39:46 PM

Hour

Time now is <%=Now%>
2 hours from now it will be <%=DateAdd("h",2,Now)%>		
Outputs as : Time now is 2/7/2000 12:08:05 PM .
2 hours from now it will be 2/7/2000 2:09:46 PM

Subtract

Seconds

Time now is <%=Now%>
30 seconds before the time was <%=DateAdd("s",-30,Now)%>	
Outputs as : Time now is 2/7/2000 12:08:05 PM .
30 seconds before the time was 2/7/2000 12:09:16 PM

Minutes

Time now is <%=Now%>
30 minutesbefore time was <%=DateAdd("n",-30,Now)%>	
Outputs as : Time now is 2/7/2000 12:08:05 PM .
30 minutes before time was 2/7/2000 11:39:46 AM

Hours

Time now is <%=Now%>
2 hours before time was <%=DateAdd("h",-2,Now)%>	
Outputs as : Time now is 2/7/2000 12:08:05 PM .
2 hours before time was 2/7/2000 10:09:46 AM

Time Difference [ Relative to Time Now as 2/7/2000 12:15:13 PM ]

Seconds

Its <%=DateDiff("s",Now,"8/15/1947")*-1 %>seconds since '8/15/1947'
Outputs as : Its 1656245713 seconds since '8/15/1947'

Minutes

Its <%=DateDiff("n",Now,"8/15/1947")*-1 %>minutes since '8/15/1947'
Outputs as : Its 27604095 minutes since '8/15/1947'

Hours

Its <%=DateDiff("h",Now,"8/15/1947")*-1 %>hours since '8/15/1947'
Outputs as : Its 460068 hours since '8/15/1947'

..
Timeadd

back to top
..

..
Timediff

back to top
..

..
Timeformat

back to top
..

..
Timepart

back to top
..

..
Timesub

back to top
..

..
UsernameValidation

back to top
..

..
GetXMLAuth

back to top
..

..
POSTForm

back to top
..

..
ConnecttoMySQL

back to top
..

..
EditTableMySQL

<%
' This program show the records for specified client from a table
' It allows then to be updated
' It does not matter how many fields there are into the table and what type they are
' The table should have some index field to indetify the rows

If Request.QueryString("client_id")<>"" then
	client_id = Request.QueryString("client_id")
else
	client_id = Request.Form("client_id")
end if

If Request.QueryString("Table_Name")<>"" then
	Table_Name = Request.QueryString("Table_Name")
else
	Table_Name = Request.Form("Table_Name")
end if

ListSQL = "SELECT * FROM " & Table_Name & " WHERE `client_id`='" & client_id & "' ORDER BY `index` ASC"

Function Update_Records()
	Dim i, params, param, param_name
	i=0
 
	Set objRS = objConn.Execute(ListSQL)
	objRS.MoveFirst
	Do while not objRS.eof
		For each Item in objRS.Fields
			param_name = Item.Name & i
			param = Request.Form(param_name)
			If param="" then
				params = params & "`" & Item.Name & "` =NULL, "
			else
				params = params & "`" & Item.Name & "` = '" & param & "', "
			end if
    		Next

params = Left(params, Len(params)-2) 'Remove the last comma
		UpdateSQL = "UPDATE `" & Table_Name & "` SET " & params & " WHERE `client_id`='" & client_id & "' AND `index`='" & Request.Form("index" & i) & "' LIMIT 1 ;"
		'Response.Write updateSQL_str & " "
		Set update_result = objConn.Execute(UpdateSQL)
 		objRS.MoveNext
		params = ""
		i=i+1
 	Loop
	Update_Records = update_result
end function

If Request.Form("update")="Update" then
	Update_Records
	Response.write "Records have been updated succefuly."
end if
%>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Payment admin</title>
</head>

<tr>
<%

Set objRS = objConn.Execute(ListSQL)

'On Error Resume Next
objRS.MoveFirst

For each Item in objRS.Fields
	name=Item.Name & count
	value=Item.Value
 old_name="old_" & Item.Name & count
	size=Item.Name & "_size"
%>
	<td bgColor="#bbffbb" >|<%=name%></td>
<%
next
%>
</tr>

count=0
Do while not objRS.eof
%>
<tr>
<%

For each Item in objRS.Fields
	name=Item.Name & count
	value=Item.Value
 old_name="old_" & Item.Name & count
	size=Item.Name & "_size"
%>
	<td class="small" bgColor="#bbffbb" ><input type=text name=<%=name%> value="<%=value%>" size=<%=Len(value)%> ></td>
	<input type=hidden name=<%=old_name%> value="<%=value%>" >
<%
next

objRS.MoveNext
count=count+1
%>
</tr>
<%
Loop

</table>
<input type=submit name=update value=Update >
</form>

</body>

</html>

..
ListTablesMySQL

back to top
..

..
AuthSMTP

back to top
..