CAST in VB6

 dim date1 as date
date1=datetimepicker1.value

CAST('" & Format(date1, "mm/dd/yyyy") & "')

Print Web Page

 //Copy and Paste this into <body> section
<SCRIPT Language="Javascript">

/*
This script is written by Eric (Webcrawl@usa.net)
For full source code, installation instructions,
100's more DHTML scripts, and Terms Of
Use, visit dynamicdrive.com
*/

function printit(){ 
if (window.print) {
    window.print() ; 
} else {
    var WebBrowser = '<OBJECT ID="WebBrowser1" WIDTH=0 HEIGHT=0 CLASSID="CLSID:8856F961-340A-11D0-A96B-00C04FD705A2"></OBJECT>';
document.body.insertAdjacentHTML('beforeEnd', WebBrowser);
    WebBrowser1.ExecWB(6, 2);//Use a 1 vs. a 2 for a prompting dialog box    WebBrowser1.outerHTML = ""; 
}
}
</script>

<SCRIPT Language="Javascript"> 
var NS = (navigator.appName == "Netscape");
var VERSION = parseInt(navigator.appVersion);
if (VERSION > 3) {
    document.write('<form><input type=button value="Print this Page" name="Print" onClick="printit()"></form>');       
}
</script>

Disable Right Click on Web Page

 //insert this script into <BODY> tag or<asp:contentPlaceHolder> tag

<script language=JavaScript>
<!--

//Disable right click script III- By Renigade (renigade@mediaone.net)
//For full source code, visit http://www.dynamicdrive.com

var message="";
///////////////////////////////////
function clickIE() {if (document.all) {(message);return false;}}
function clickNS(e) {if
(document.layers||(document.getElementById&&!document.all)) {
if (e.which==2||e.which==3) {(message);return false;}}}
if (document.layers)
{document.captureEvents(Event.MOUSEDOWN);document.onmousedown=clickNS;}
else{document.onmouseup=clickNS;document.oncontextmenu=clickIE;}

document.oncontextmenu=new Function("return false")
// -->
</script>

VB.NET Image SlideShow

 //For 3 images
<head runat="server">
<script type="text/javascript">
var image1=new Image()
image1.src="images/lab/DSC_0024.jpg"
var image2=new Image()
image2.src="images/lab/DSC_0018V.jpg"
var image3=new Image()
</script>
</head>
 //default image
<img alt="" src="~images/class/DSC_0223G.jpg" name="slide" width="333" height="140"/>      
<script type="text/javascript" >
var step=1
function slideit(){
if (!document.images)
return
document.images.slide.src=eval("image"+step+".src")
if (step<3)
step++
else
step=1
setTimeout("slideit()",2000)     //for 2 seconds
}
slideit()
</script>                         

Auto Redirect from HTML page to ASPX page in 3 seconds

 <html>
 <body>
<meta http-equiv="refresh" content="3; URL=http://www.mmpsedu.com/default.aspx">
</body>
</html>

VB.NET Vertical Marquee

 //go to source from design then paste this in<td> tag
 <marquee direction="up" onmouseover=this.stop() onmouseout=this.start() scrollDelay="100">
kapiil chaudhary
</marquee>

VB.NET OnmouseOver GridView Rowcolor Change [With RowdataBound]

 //Open GridView RowDataBound Property

If e.Row.RowType = DataControlRowType.DataRow Then

            e.Row.Attributes.Add("onmouseover", "this.style.cursor='pointer';this.style.backgroundColor='orangered'")
            e.Row.Attributes.Add("onmouseout", "this.style.backgroundColor='white'")
            e.Row.Attributes.Add("onclick", "window.open('Default3.aspx');")

        End If

//write on source code

  <asp:GridView ID="GridView2" OnRowDataBound="GridView2_RowDataBound" runat="server">

VB.NET OnmouseOver GridView Rowcolor Change [With CSS]

 //CSS Class Used to Highlight GridView Row

.rowStyle {
    background-color:#AAFFEE;
    cursor:pointer;
}

//VB.Net Code for GridView Highlight Row onmouseover

GridView1.DataSource = myDataSet
GridView1.DataBind() For Each rowItem As GridViewRow In GridView1.Rows
    rowItem.Attributes.Add("onmouseover", "javascript:this.className = 'rowStyle'")
    rowItem.Attributes.Add("onmouseout", "javascript:this.className = ''")
Next

VB.NET Capture Client Computer NAME

 Imports System.Net

Dim computer_name() As String
        computer_name = Split(System.Net.Dns.GetHostEntry(Request.ServerVariables("remote_addr")).HostName, ".")
        Response.Write(computer_name(0).ToUpper)

OR

Dim strComputerName As String
        Dim host As System.Net.IPHostEntry
        host = System.Net.Dns.GetHostEntry(Request.ServerVariables.Item("REMOTE_HOST"))
        strComputerName = host.HostName
        Response.Write(strComputerName)

VB.NET Read from TEXT File

 Dim FILENAME As String = "c:\IP.txt"

        Dim objStreamReader As StreamReader
        objStreamReader = File.OpenText(FILENAME)
        Dim contents As String = objStreamReader.ReadToEnd()
        Button1.Text = contents
        objStreamReader.Close()