
Cuban Sandwich shop

Arturo Cigar shop
Sometimes I just want to share a small interesting thing I have found.
Dim otl
Set otl = CreateObject("Outlook.Application")
Const olAppointmentItem = 1
Sub CreateGame(Start, EndDate,Name)
Set e1 = otl.CreateItem(olAppointmentItem)
e1.Start = Start
e1.End = EndDate
e1.Subject = Name
' e1.Location = "TV"
e1.Save
End Sub
CreateGame "8/12/2006 9:00PM", "8/12/2006 11:00PM", "DAL @ Seattle"
CreateGame "8/21/2006 7:00PM", "8/21/2006 9:00PM", "DAL New Orleans @ Shreveport, LA (ESPN) "
CreateGame "8/26/2006 7:00PM", "8/26/2006 9:00PM", "DAL SAN FRANCISCO "
CreateGame "8/31/2006 7:00PM", "8/31/2006 9:00PM", "DAL MINNESOTA"
CreateGame "9/10/2006 3:15PM", "9/10/2006 5:15PM", "DAL @ Jacksonville"
CreateGame "9/17/2006 7:15PM", "9/17/2006 9:15PM", "DAL WASHINGTON"
CreateGame "9/24/2006 12:00PM", "9/24/2006 2:00PM", " DAL BYE"
CreateGame "10/1/2006 12:00PM", "10/1/2006 2:00PM", "DAL @ Tennessee"
CreateGame "10/8/2006 3:15PM", "10/8/2006 5:15PM", "DAL @ Philadelphia"
CreateGame "10/15/2006 12:00PM","10/15/2006 2:00PM", "DAL HOUSTON"
CreateGame "10/23/2006 7:30PM", "10/23/2006 9:30PM", "DAL NY GIANTS"
CreateGame "10/29/2006 7:15PM", "10/29/2006 9:15PM", "DAL @ Carolina"
CreateGame "11/5/2006 12:00PM", "11/5/2006 2:00PM", "DAL @ Washington"
CreateGame "11/12/2006 3:15PM", "11/12/2006 5:15PM", "DAL @ Arizona"
CreateGame "11/19/2006 12:00PM","11/19/2006 2:00PM", "DAL INDIANAPOLIS"
CreateGame "11/23/2006 3:15PM", "11/23/2006 5:15PM", "DAL TAMPA BAY"
CreateGame "12/3/2006 12:00PM", "12/3/2006 2:00PM", "DAL @ NY Giants"
CreateGame "12/10/2006 12:00PM","12/10/2006 2:00PM", "DAL NEW ORLEANS"
CreateGame "12/16/2006 7:00PM", "12/16/2006 9:00PM", "DAL @ Atlanta"
CreateGame "12/25/2006 4:00PM", "12/25/2006 6:00PM", "DAL PHILADELPHIA"
CreateGame "12/31/2006 12:00PM","12/31/2006 2:00PM", "DAL DETROIT"
Set otl = Nothing
Msgbox "Finished"
*[local-name() = 'the-element-name-here']
foreach (XmlAttribute att in
Document.DocumentElement.Attributes)
if (att.LocalName == "ns1")
xmlNSMgr.AddNamespace(att.LocalName,
att.Value);
xmlDoc.DocumentElement.Prefix;
xmlDoc.DocumentElement.Attributes["xmlns:" + xPathPrefix].Value;
((e.CommandSource as ImageButton).Parent.Parent as GridViewRow).RowIndex;
// Assuming you wanted the 112th row and
// had an index variable to use here,
// not a hardcoded one
Control control =
myGrid.Rows[112].Cells[1].Controls[1] as Control;
string scriptText =
"< script >
document.getElementById('" +
control.ClientID +
"').scrollIntoView(); < /script >";
xmlns="http://tempuri.org/PurchaseData.xsd"
xmlns:prd=
"http://tempuri.org/PurchaseData.xsd"
exclude-result-prefixes="pd"
// Declare a Class
CodeTypeDeclaration ct = new CodeTypeDeclaration("data");
ct.IsClass = true;
// Declare a Connection
csne = new CodeSnippetExpression("this.ConnectionString");
// You need a Param array of things passed to a constructor.
CodeExpression[] cParams = { csne };
coc = new CodeObjectCreateExpression("SqlConnection", cParams);
// Then .. all the instancing and declaring on one line :
codeVar =
new CodeVariableDeclarationStatement("SqlConnection", "sqlConnection", coc);
cmm.Statements.Add(codeVar);
// This could be a VB thing as well.
CodeDomProvider prov = new Microsoft.CSharp.CSharpCodeProvider();
System.Text.StringBuilder sb = new System.Text.StringBuilder();
TextWriter tw = new StringWriter(sb);
prov.GenerateCodeFromMember(ct, tw, null);
' BRIAN ONEIL
Dim fsDim sh
Set sh = CreateObject("WScript.Shell")
sh.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\ MenuExt\ Add To &Trusted Sites\","file:\\C:\Program Files\TrustedSiteContextMenu\TrustedSiteAdder.HTML"
sh.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\ MenuExt\ Add To &Trusted Sites\Flags",1,"REG_DWORD"
Set sh = Nothing
MsgBox "Registry Entries Created."
// Brian O'Neil
// alert("Adding the current page to Trusted Sites...");
var parentwin = external.menuArguments;
var doc = parentwin.document;
var urlParts = doc.URL.split("/");
var httpColon = urlParts[0].substring(0,urlParts[0].indexOf(":"));
var domain = urlParts[2];
var domainParts = domain.split(".");
var domainName = domainParts[domainParts.length-2] +
"." + domainParts[domainParts.length-1];
var prefix =
domain.substring(0,domain.indexOf(domainName)-1);
Sh = new ActiveXObject("WScript.Shell");
var key =
"HKEY_CURRENT_USER\\ Software\\Microsoft\\Windows\\ CurrentVersion\\ Internet Settings\\ ZoneMap\\ Domains\\"
key = key + domainName;
key = key + "\\" + prefix;
Sh.RegWrite(key + "\\" + httpColon, 2, "REG_DWORD");
Sh = null;
parentwin = null;
doc = null;
alert("To Undo this action, remove key "
+ key
+ " from the Registry.");
window.close();
C:\Program Files\TrustedSiteContextMenu