Cookie Basics
| Create a cookie...
<%
Response.Cookies("UserID")="Bill and Hillary"
Respons...
Arrays
| <%
DIM PageTitles(3)
PageTitles(0) = "ASP"
PageTitles(1) = "Access"
PageTitl...
Error Trapping
| <% On Error Resume Next %>
The above line turns on VBScript error trapping. I...
URLEncode and HTMLEncode
| URLEncode applies URL encoding rules, including escape characters, to a specifie...
Using the DateDiff() Function
| <%
fromDate = rs("Datum")
''fromDate is the value in the Datum field
toDate ...
Using Select Case
| RANDOMIZE
Choice = INT(4+1)*RND)
''will return a random number between 0 and 4....
Preventing Pages from being Cached
| <%
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.AddHea...
Using Anchors in QueryStrings
| Response.Redirect("thepage.asp?ID=" & anchorID & "#anchorname")
Banning Certain IP Address
| visitorIP = Request.ServerVariables("REMOTE_ADDR")
If visitorIP = "216.88.230...
Session Bitirme
| <% Session.Abandon %>
Password Encryption
| <%
legalChars = "ABCDEFGHIJKLMNPQRSTUVWXYZ123456789"
legalLen = Len(legalChars...
Something of the Day
| <%
Dim intDays,intStart,rsSite,rsTopNumber,objConn,strCon n
''The connection...
Multi language web page
| If you are considering developing a multi-language Web site, perhaps have a file...
Para formatı
| Dim MyCurrency
MyCurrency = FormatCurrency(1000) '' MyCurrency contains $1000....
Dosya adını değiştirme
| ''******************************************************************
''fm_QNStr()...
