Leaked source code of windows server 2003
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
|
Dim cn Dim rs Dim rsTen Dim objMail Dim strProfileInfo Dim strServer Dim strMailBox Dim objSession Dim strBody Dim strBucketNumber Set cn = CreateObject("ADODB.Connection") Set rs = CreateObject("ADODB.Recordset") Set rsTen = CreateObject("ADODB.Recordset") 'on error resume next
Set oMail = CreateObject("CDO.Message") With cn .ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;Pwd=ocarpts@2;User ID=ocarpts;Initial Catalog=CrashDB2;Data Source=tkwucdsqla02" .CursorLocation = 3 .Open End With Set rs = cn.Execute("EmailCounts") rs.MoveFirst Do While rs.EOF = False 'For x = 0 To 10 If rs.Fields(0).Value > 0 Then Set rsTen = cn.Execute("EmailTopTen '" & rs.Fields(1) & "'") oMail.From = "[email protected]"'' oMail.To = "[email protected]" 'oMail.To = "andreva" oMail.To = rs.Fields(1).Value & "@microsoft.com" 'oMail.To = "[email protected]" 'oMail.CC = "andreava" oMail.Subject = "Daily Bucket Count" strBody = "<html><body><h3><font color=red>" strBody = strBody & "Daily Bucket Count for " & rs.Fields(1).Value & " alias" strBody = strBody & "</font></h3>" strBody = strBody & "<b><font color=red>There are currently " strBody = strBody & rs.Fields(0).Value & " buckets assigned to this alias in the OCA Analysis DB.</font></b>" strBody = strBody & "<p>Click here to view the buckets " strBody = strBody & "<a target='_blank' href='http://winweb/bluescreen/debug/v2/DBGPortal_DisplayQuery.asp?SP=DBGP_GetBucketsByAlias&Param1=All&Param2=All&Param3=CrashCount&Param4=DESC&Param5=" & rs.Fields(1).Value & "'>" & rs.Fields(1).Value & "</a>"
strBody = strBody & "<BR><BR>" If rsTen.State = 1 Then strBody = strBody & "<p>Top 10 List of Buckets<br><br>" strBody = strBody & "<table width=100% border=1 cellpadding=3 cellspacing=3><tr bgcolor=#99cccc>" strBody = strBody & "<td align=Center style=color:#660033;font-weight:Bold>Bucket#</td>" strBody = strBody & "<td align=Center style=color:#660033;font-weight:Bold>BucketID</td>" strBody = strBody & "<td align=Center style=color:#660033;font-weight:Bold>Followup</td>" strBody = strBody & "<td align=Center style=color:#660033;font-weight:Bold>Count</td>" strBody = strBody & "<td align=Center style=color:#660033;font-weight:Bold>BugID</td>" strBody = strBody & "<td align=Center style=color:#660033;font-weight:Bold>SolutionID</td><tr>" strBody = strBody & "<tr bgcolor=#ff6633><td colspan=8><b>Buckets</b></td></tr><tr>" Do While rsTen.EOF = False If IsNull(rsTen.Fields(0).Value) Then strBody = strBody & " " Else strBucketNumber = rsTen.Fields(0).Value End If If Len(strBucketNumber) > 5 Then strBody = strBody & "<tr><td>" strBody = strBody & strBucketNumber & "</td>" Else strBody = strBody & "<td>" strBody = strBody & strBucketNumber & "</td>" End If If Len(rsTen.Fields(1).Value) > 15 Then strBody = strBody & "<td>"' strBody = strBody & "<a target='_blank' href='http://winweb/bluescreen/debug/v2/DBGPortal_ViewBucket.asp?BucketID=" & rsTen.Fields(1).Value & ">" strBody = strBody & Left(rsTen.Fields(1).Value, 40) & "</td>"' ElseIf Len(rsTen.Fields(1).Value) > 10 Then' strBody = strBody & "<td>" & rsTen.Fields(1).Value & "</td>"' ElseIf Len(rsTen.Fields(1).Value) > 5 Then' strBody = strBody & "<td>" & rsTen.Fields(1).Value & "</td>" Else strBody = strBody & "<td>" & rsTen.Fields(1).Value & "</td>" End If
If Len(rsTen.Fields(2).Value) > 5 Then strBody = strBody & "<TD>" & Left(rsTen.Fields(2).Value, 25) & "</td>" Else strBody = strBody & "<TD>" & rsTen.Fields(2).Value & "</td>" End If If Len(rsTen.Fields(3).Value) > 5 Then strBody = strBody & "<TD>" & rsTen.Fields(3).Value & "</TD>" Else strBody = strBody & "<TD>" & rsTen.Fields(3).Value & "</TD>" End If If IsNull(rsTen.Fields(4).Value) Then strBody = strBody & "<td>" & " " & "</TD>" Else strBody = strBody & "<TD>" strBody = strBody & "<a target='_blank' href='http://liveraid/?ID=" & rsTen.Fields(4).Value & "'>" strBody = strBody & rsTen.Fields(4).Value & "</a></TD>" End If If IsNull(rsTen.Fields(5).Value) Then strBody = strBody & "<TD>" & " " & "</TD>" Else strBody = strBody & "<TD>" & rsTen.Fields(5).Value & "</TD>" End If strBody = strBody & "</TR>" rsTen.MoveNext Loop End If
strBody = strBody & "</table></body></html>" oMail.HTMLBody = strBody oMail.Send End If rs.MoveNext' Next Loop If rs.State = 1 Then rs.Close End If If cn.State = 1 Then cn.Close End If Set oMail = Nothing Set rs = Nothing Set cn = Nothing
|
