Monthly archives: October 2007

 

 

 

96

VbScript: Number of days in month

Code: daysInMonth = Day(DateSerial(thisYear, thisMonth + 1, 0)) It adds 1 to the month and uses DateSerial to get a Date representing the 0th day of the following month. That is the last day of the month you entered. The Day function gives you the number of that day, which equals the number of days [...]

 

148

Any good code highlighters for blogs?

Well, as I’m posting my tips here, I came across the problem with pasting programming code. Now I’m looking for a good online utility that would take code and HTML-escape it. It would be even better if it also did color-coding. If I find something good, I’ll post a link here. For now, I’ll just [...]

 

185

How to split a string with XSL

I needed to break a string like this “Hot Waffles,Fresh Fruits,Pastries,Bagels,Cereals,Muffins,Juices,Milk,Coffee” into separate XML elements. How to do it? Use a “tokenize” function! <xsl:template name=”breakfast”> <xsl:param name=”allItems”/> <xsl:for-each select=”tokenize($allItems, ‘,’)”> <item><xsl:value-of select=’.’/></item> </xsl:for-each> </xsl:template> Result: <item>Hot Waffles</item> <item>Fresh Fruits</item> <item>Pastries</item> <item>Bagels</item> <item>Cereals</item> <item>Muffins</item> <item>Juices</item> <item>Milk</item> <item>Coffee</item>

 

 

180

SQL Server: Delete in batches

When there’s a large amount of data to be deleted, the performance of SQL suffers a lot. One way around it is to delete in batches, for example 10 000 rows at a time. Instead of : delete from yourtable where [condition] i’d use: – set rowcount to delete sets of 10 000 records (use [...]

 

183

VBScript: save the output as a file

To save as Excel CSV file: Response.ContentType=”application/csv” Response.AddHeader “Content-Disposition”, “filename=myfile.csv” To save as any type: Response.ContentType=”application/x-msdownload” Response.AddHeader “Content-Disposition”, “filename=sitemap.xml”

 

 

 

187

Check for HTTPS

VBScript: If LCase(request.ServerVariables(“HTTPS”)) = “off” Then response.write “Error: access denied” response.end End If JavaScript: if(location.protocol != “https:”) { alert(“Error”); }