The VB’s MkDir function creates a directory in a specified path. If the directory already exists, MkDir raises error 75 (Path/file access error); yet, it raises the same error code
‘ Return the index in a ListControl given a value’ Example:’ Dim i As Integer = GetIndexFromText(ListBox1, “hellovalue”)Function GetIndexFromValue(ByVal lst As ListControl, ByVal value As String) As _ Integer Return
‘ Rotate an image by a specified angle (in degrees)’ The x and y parameters are the coordinates of the upper-left point’ Note: requires Imports System.Drawing.Imaging” Example:’ Dim gr As
‘ Skew an image by a given amount along one or both axes (the dx and dy ‘ parameters)’ The x and y parameters are the coordinates of the upper-left
‘ Flip an image on one or both axes. The x and y’ parameters are the coordinates of the upper-left point’ Note: requires Imports System.Drawing.Imaging” Example:’ Dim gr As Graphics
‘ Return the date of the Monday for a specified week..’ This function can be tweaked to return any weekday. I use it in Access to’ subdivide reports into weekly
‘ This routine demonstrates how to create an Enhanced Metafile (EMF) from a ‘ bitmap image, contained in a PictureBox.’ You must use a PictureBox control, since the Image control
AUTH_TYPE request.getAuthType()CONTENT_LENGTH request.getContentLength()CONTENT_TYPE request.getContentType()DOCUMENT_ROOT getServletContext().getRealPath()PATH_INFO request.getPathInfo()PATH_TRANSLATED request.getPathTranslated()QUERY_STRING request.getQueryString()REMOTE_ADDR request.getRemoteAddr()REMOTE_HOST request.getRemoteHost()REMOTE_USER request.getRemoteUser()REQUEST_METHOD request.getMethod()SCRIPT_NAME request.getServletPath()SERVER_NAME request.getServerName()SERVER_PORT request.getServerPort()SERVER_PROTOCOL request.getProtocol()SERVER_SOFTWARE getServletContext().getServerInfo() HTTP_XXX_YYY Variables of the form HTTP_HEADER_NAME can be accessed using the request.getHeader(Header-Name) Example:
Public Function GetHtmlString(rs)Dim StrHtmlDim FldLimiter,RowLimiterFldLimiter=””RowLimiter=””If Not rs.EOF ThenStrHtml=”” ‘Table Tag’Prefix for 1 col valueStrHtml=StrHtml & “”StrHtml=StrHtml & rs.GetString(2,-1,FldLimiter,RowLimiter)’Trim of the Last StrHtml=Left(StrHtml,Len(StrHtml)-Len(“”))’Close TableStrHtml=StrHtml & “”End IfEnd Function Usage: Response.Write(GetHtmlString(rs))