'--------------------------------------------------------------------
'
' Seika-Town Office
'
'    Basic Function Include File for VBScript(ASP)
'
'                                                   2000/08/01 17:00
'
'--------------------------------------------------------------------

strAlign = ""
EchoSrc = EchoSrc & DIVLine(strAlign)

strSize = ""
strColor = ""
strFace = ""
EchoSrc = EchoSrc & FONTStart(strSize, strColor, strFace)

strAction = ""
strMethod = ""
strTarget = ""
strEnctype = ""
EchoSrc = EchoSrc & FORMStart(strAction, strMethod, strTarget, strEnctype)

strAction = ""
strMethod = ""
strTarget = ""
strEnctype = ""
strName = ""
EchoSrc = EchoSrc & FORMObjStart(strAction, strMethod, strTarget, strEnctype)

strAction = ""
strMethod = ""
strTarget = ""
strEnctype = ""
strOnSubmit = ""
EchoSrc = EchoSrc & FORMOnSubmitStart(strAction, strMethod, strTarget, _
	strEnctype, strOnSubmit)

strAlign = ""
strSize = ""
strWidth = ""
blnNoshade = False
EchoSrc = EchoSrc & HRLine(strAlign, strSize, strWidth, blnNoshade)

strSrc = ""
strAlt = ""
strAlign = ""
strWidth = ""
strHeight = ""
strHspace = ""
strVspace = ""
strBorder = ""
strIsmap = ""
strUsemap = ""
EchoSrc = EchoSrc & IMGLine(strSrc, strAlt, strAlign, strWidth, strHeight, _
	strHspace, strVspace, strBorder, strIsmap, strUsemap)

strType = ""
strName = ""
strValue = ""
strSize = ""
strMaxlength = ""
blnChecked = False
strSrc = ""
EchoSrc = EchoSrc & INPUTLine(strType, strName, strValue, strSize, _
	strMaxlength, blnChecked, strSrc)

strAddress = ""
strSrc = ""
strAlt = ""
EchoSrc = EchoSrc & LINKImgLine(strAddress, strSrc, strAlt)

strAddress = ""
EchoSrc = EchoSrc & LINKStart(strAddress)

strAddress = ""
strSrc = ""
EchoSrc = EchoSrc & LINKStringLine(strAddress, strSrc)

strAddress = ""
strTarget = ""
strSrc = ""
EchoSrc = EchoSrc & LINKStringTargetLine(strAddress, strTarget, strSrc)

strFrom = ""
strTo = ""
strCc = ""
strBcc = ""
strSubject = ""
strBody = ""
strAttachFile = ""  '"S:\Home\Public\public_html\abc.txt"
SendMail strFrom, strTo, strCc, strBcc, strSubject, strBody, strAttachFile

strValue = ""
blnSelected = False
strView = ""
EchoSrc = EchoSrc & OPTIONLine(strValue, blnSelected, strView)

strName = ""
strSize = ""
blnMultiple = False
EchoSrc = EchoSrc & SELECTStart(strName, strSize, blnMultiple)

strLanguage = "VBScript"
strScript = ""
EchoSrc = EchoSrc & SENDScript(strLanguage, strScript)

strAlign = ""
strWidth = ""
strHeight = ""
strCellspacing = ""
strCellpadding = ""
strBorder = ""
strBgcolor = ""
strBackground = ""
EchoSrc = EchoSrc & TABLEStart(strAlign, strWidth, strHeight, strCellspacing, _
	strCellpadding, strBorder, strBgcolor, strBackground)

strAlign = ""
strValign = ""
strWidth = ""
strHeight = ""
blnNowrap = False
strColspan = ""
strRowspan = ""
strBgcolor = ""
strBackground = ""
EchoSrc = EchoSrc & TDStart(strAlign, strValign, strWidth, strHeight, _
	blnNowrap, strColspan, strRowspan, strBgcolor, strBackground)

strName = ""
strRows = ""
strCols = ""
strValue = ""
EchoSrc = EchoSrc & TEXTAREAStart(strName, strRows, strCols, strValue)

strAlign = ""
strValign = ""
strBgcolor = ""
strBackground = ""
EchoSrc = EchoSrc & TRStart(strAlign, strValign, strBgcolor, strBackground)