|
[x]
Posted via EE Mobile
|
||
Search, ask, and monitor your questions on the go with EE Mobile. Visit Experts Exchange from your mobile device and never be out of touch again. |
||
| 11/04/2009 at 09:29AM PST, ID: 24871656 |
|
[x]
Attachment Details
|
||
|
[x]
The Solution Rating System
|
||
With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.
Your Input Matters If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support. Thank you! |
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38: 39: 40: 41: 42: 43: 44: 45: 46: 47: 48: 49: 50: 51: 52: 53: 54: 55: 56: 57: 58: 59: 60: 61: 62: 63: 64: 65: 66: 67: 68: 69: 70: 71: 72: 73: 74: 75: 76: 77: 78: 79: 80: 81: 82: 83: 84: 85: 86: 87: 88: 89: 90: 91: 92: 93: 94: 95: 96: 97: 98: 99: 100: 101: 102: 103: 104: 105: 106: 107: 108: 109: 110: 111: 112: 113: 114: 115: 116: 117: 118: 119: 120: 121: 122: 123: 124: 125: 126: 127: 128: 129: 130: 131: 132: 133: 134: 135: 136: 137: 138: 139: 140: 141: 142: 143: 144: 145: 146: 147: 148: 149: 150: 151: 152: 153: 154: 155: 156: 157: 158: 159: 160: 161: 162: 163: 164: 165: 166: 167: 168: 169: 170: 171: 172: 173: 174: 175: 176: 177: 178: 179: 180: 181: 182: 183: 184: 185: 186: 187: 188: 189: 190: 191: 192: 193: 194: 195: 196: 197: 198: 199: 200: 201: 202: 203: 204: 205: 206: 207: 208: 209: 210: 211: 212: 213: 214: 215: 216: 217: 218: 219: 220: 221: 222: 223: 224: 225: 226: 227: 228: 229: 230: 231: 232: 233: 234: 235: 236: 237: 238: 239: 240: 241: 242: 243: 244: 245: 246: 247: 248: 249: 250: 251: 252: 253: 254: 255: 256: 257: 258: 259: 260: 261: 262: 263: 264: 265: 266: 267: 268: 269: 270: 271: 272: 273: 274: 275: 276: 277: 278: 279: 280: 281: 282: 283: 284: 285: 286: 287: 288: 289: 290: 291: 292: 293: 294: 295: 296: 297: 298: 299: 300: 301: 302: 303: 304: 305: 306: 307: 308: 309: 310: 311: 312: 313: 314: 315: 316: 317: 318: 319: 320: 321: 322: 323: 324: 325: 326: 327: 328: 329: 330: 331: 332: 333: 334: 335: 336: 337: 338: 339: 340: 341: 342: 343: 344: 345: 346: 347: 348: 349: 350: 351: 352: 353: 354: 355: 356: 357: 358: 359: 360: 361: 362: 363: 364: 365: 366: 367: 368: 369: 370: 371: 372: 373: 374: 375: 376: 377: 378: 379: 380: 381: 382: 383: 384: 385: 386: 387: 388: 389: 390: 391: 392: 393: 394: 395: 396: 397: 398: 399: 400: 401: 402: 403: 404: 405: 406: 407: 408: 409: 410: 411: 412: 413: 414: 415: 416: 417: 418: 419: 420: 421: 422: 423: 424: 425: 426: 427: 428: 429: 430: 431: 432: 433: 434: 435: 436: 437: 438: 439: 440: 441: 442: 443: 444: 445: 446: 447: 448: 449: 450: 451: 452: 453: 454: 455: 456: 457: 458: 459: 460: 461: 462: 463: 464: 465: |
Imports System
Imports System.Data
Imports System.Configuration
Imports System.Collections
Imports System.Web
Imports System.Web.Security
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.WebParts
Imports System.Web.UI.HtmlControls
Imports System.Net.Mail
Imports System.Linq
Imports System.Linq.Queryable
Public Class MailHelper
''' <summary>
''' Sends an mail message
''' </summary>
''' <param name="from">Sender address</param>
''' <param name="recepient">Recepient address</param>
''' <param name="bcc">Bcc recepient</param>
''' <param name="cc">Cc recepient</param>
''' <param name="subject">Subject of mail message</param>
''' <param name="body">Body of mail message</param>
Public Shared Sub SendMailMessage(ByVal from As String, ByVal recepient As String, ByVal bcc As String, ByVal cc As String, ByVal subject As String, ByVal body As String)
' Instantiate a new instance of MailMessage
Dim mMailMessage As New MailMessage()
' Set the sender address of the mail message
mMailMessage.From = New MailAddress(from)
' Set the recepient address of the mail message
mMailMessage.To.Add(New MailAddress(recepient))
' Check if the bcc value is nothing or an empty string
If Not bcc Is Nothing And bcc <> String.Empty Then
' Set the Bcc address of the mail message
mMailMessage.Bcc.Add(New MailAddress(bcc))
End If
' Check if the cc value is nothing or an empty value
If Not cc Is Nothing And cc <> String.Empty Then
' Set the CC address of the mail message
mMailMessage.CC.Add(New MailAddress(cc))
End If
' Set the subject of the mail message
mMailMessage.Subject = subject
' Set the body of the mail message
mMailMessage.Body = body
' Set the format of the mail message body as HTML
mMailMessage.IsBodyHtml = True
' Set the priority of the mail message to normal
mMailMessage.Priority = MailPriority.Normal
' Instantiate a new instance of SmtpClient
Dim mSmtpClient As New SmtpClient()
' Send the mail message
mSmtpClient.Send(mMailMessage)
End Sub
End Class
Partial Class PanelVB
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'dim mycountries=New SortedList
'mycountries.Add("6000","NURSING")
'mycountries.Add("0000","Select a department")
'mycountries.Add("6010","PATIENT")
'mycountries.Add("6011","PATIENT EDUC")
'mycountries.Add("6012","PATIENT EDUC")
'mycountries.Add("6080","RECRUIT/RETENTN")
'mycountries.Add("6090","FLOAT POOL")
'mycountries.Add("6100","MEDICAL")
'mycountries.Add("6150","ORTHO/NEURO")
'mycountries.Add("6200","SURGICAL")
'mycountries.Add("6205","MED/SURG NRSG ADMIN")
'mycountries.Add("6250","PROGRESSIVE CARE UNIT")
'mycountries.Add("6300","PEDIATRICS")
'mycountries.Add("6350","2A TRANSITIONAL CARE")
'mycountries.Add("6400","CRITICAL CARE UNIT")
'mycountries.Add("6460","OBSTETRICS")
'mycountries.Add("6500","NURSERY")
'mycountries.Add("6550","PERINATAL COORDINATOR")
'mycountries.Add("6600","OPERATING ROOM")
'mycountries.Add("6601","PRE-SURGERY CENTER")
'mycountries.Add("6605","SURG & OP SERV ADMIN")
'mycountries.Add("6650","RECOVERY ROOM")
'mycountries.Add("6670","OUTPATIENT SURGERY")
'mycountries.Add("6700","LABOR & DELIVERY")
'mycountries.Add("6740","OR SUPPORT")
'mycountries.Add("6750","CENTRAL SERVICES")
'mycountries.Add("6770","IV SOLUTIONS")
'mycountries.Add("6780","EMERGENCY")
'mycountries.Add("6781","MINOR CARE")
'mycountries.Add("6784","ER REGISTRATION")
'mycountries.Add("6785","PRE HOSPITAL SUPPORT")
'mycountries.Add("6850","SPECIAL PROCEDURES UNIT")
'mycountries.Add("6851","CHEMOTHERAPY")
'mycountries.Add("6880","CANCER CENTER ADMIN")
'mycountries.Add("6900","MENTAL HEALTH CENTER")
'mycountries.Add("6905","MENTAL HEALTH CLINIC")
'mycountries.Add("6950","MENTAL HEALTH ADMIN")
'mycountries.Add("7120","EKG")
'mycountries.Add("7140","EEG")
'mycountries.Add("7150","RADIOLOGY ADMINISTRATION")
'mycountries.Add("7210","DIAGNOSTIC RADIOLOGY")
'mycountries.Add("7220","NUCLEAR MEDICINE")
'mycountries.Add("7230","ULTRASOUND")
'mycountries.Add("7231","ECHOCARDIOGRAM")
'mycountries.Add("7240","CT SCAN")
'mycountries.Add("7250","MRI")
'mycountries.Add("7260","RADIATION ONCOLOGY")
'mycountries.Add("7270","CARDIAC VASC CATHLAB")
'mycountries.Add("7280","LMC Radiology")
'mycountries.Add("7300","PHARMACY")
'mycountries.Add("7301","EMPLOYEE PRESCRIPTNS")
'mycountries.Add("7302","PHARMACY -CANCER")
'mycountries.Add("7340","PAIN MANAGEMENT CTR")
'mycountries.Add("7350","ANESTHESIOLOGY")
'mycountries.Add("7360","PULMONARY")
'mycountries.Add("7361","HOME RESPIRATORY PGM")
'mycountries.Add("7363","NIP NICOTINE PREVENT")
'mycountries.Add("7365","CARDIOPULMONARY")
'mycountries.Add("7370","I/P PHYSICAL THERAPY")
'mycountries.Add("7371","O/P PHYSICAL THERAPY")
'mycountries.Add("7375","REHAB ADMINISTRATION")
'mycountries.Add("7380","OCCUPATIONAL THERAPY")
'mycountries.Add("7390","SPEECH THERAPY")
'mycountries.Add("7410","PASTORAL CARE")
'mycountries.Add("7420","SOCIAL SERVICES")
'mycountries.Add("7430","HOSPICE")
'mycountries.Add("7680","HEALTH INFO SRVCS")
'mycountries.Add("7685","TRANSCRIPTION")
'mycountries.Add("7850","INFECTION CONTROL")
'mycountries.Add("8010","DIETARY")
'mycountries.Add("8011","NUTRITIONAL COUNSEL")
'mycountries.Add("8013","O/P NUTRITION COUNS")
'mycountries.Add("8015","CAFETERIA")
'mycountries.Add("8300","PLANT MAINTENANCE")
'mycountries.Add("8310","LMC PLANT MAINT")
'mycountries.Add("8340","BIO-MEDICAL")
'mycountries.Add("8341","TRIMEDX")
'mycountries.Add("8350","SECURITY")
'mycountries.Add("8360","SAFETY COORDINATOR")
'mycountries.Add("8500","ENVIRONMENTAL SERVICES")
'mycountries.Add("8600","LINEN SERVICES")
'mycountries.Add("9010","ACCOUNTING")
'mycountries.Add("9020","BUSINESS OFFICE")
'mycountries.Add("9040","ADMITTING")
'mycountries.Add("9060","SWITCHBOARD")
'mycountries.Add("9100","MGT INFO SYSTEMS")
'mycountries.Add("9101","AHIS")
'mycountries.Add("9160","COMMUNICATIONS")
'mycountries.Add("9400","FOUNDATION")
'mycountries.Add("9410","DIABETIC PROGRAM")
'mycountries.Add("9440","MEDICAL LIBRARY")
'mycountries.Add("9450","RISK MANAGEMENT")
'mycountries.Add("9460","QUALITY ASSURANCE")
'mycountries.Add("9490","CORP RESPONSIBILITY")
'mycountries.Add("9500","ADMINISTRATION")
'mycountries.Add("9501","LC HEALTH ALLIANCE")
'mycountries.Add("9502","COMMUNITY SERVICE")
'mycountries.Add("9503","EMERGENCY PREPARED")
'mycountries.Add("9506","COMMUNITY EDUCATION")
'mycountries.Add("9510","PERSONNEL")
'mycountries.Add("9520","VOLUNTEER SERVICES")
'mycountries.Add("9521","AUXILIARY /GIFT SHOP")
'mycountries.Add("9522","FOUNDATION")
'mycountries.Add("9530","COMMUNITY RELATIONS")
'mycountries.Add("9540","EDUCATION")
'mycountries.Add("9550","MATERIALS MANAGEMENT")
'mycountries.Add("9560","PRINT SHOP")
'mycountries.Add("9570","CARONDELET HOUSE")
'mycountries.Add("9580","MEDICAL STAFF SUPPORT")
'
' rb.DataSource=mycountries
' rb.DataValueField="Key"
' rb.DataTextField="Value"
' If rb.SelectedValue = "" Then
' rb.DataBind()
'End If
If Not Page.IsPostBack Then
Start.Enabled = False
NextSteps.Enabled = False
Finish.Enabled = False
PrevSteps.Visible = False
NextSteps.Visible = False
Finish.Visible = False
ViewState("PanelSeed") = 0
Panel0.Visible = True
Panel1.Visible = False
Panel2.Visible = False
Panel3.Visible = False
Panel4.Visible = False
Panel5.Visible = False
Panel6.Visible = False
Panel7.Visible = False
Panel8.Visible = False
Panel9.Visible = False
Panel10.Visible = False
Panel11.Visible = False
Panel12.Visible = False
Panel13.Visible = False
Panel14.Visible = False
Panel15.Visible = False
Panel16.Visible = False
Panel17.Visible = False
Panel18.Visible = False
Panel19.Visible = False
Panel20.Visible = False
Panel21.Visible = False
Panel22.Visible = False
Panel23.Visible = False
Panel24.Visible = False
Panel25.Visible = False
Panel26.Visible = False
Panel27.Visible = False
Panel28.Visible = False
Panel29.Visible = False
Panel30.Visible = False
Panel31.Visible = False
Panel32.Visible = False
Panel33.Visible = False
Panel34.Visible = False
Panel35.Visible = False
Panel36.Visible = False
Panel37.Visible = False
Panel38.Visible = False
Panel39.Visible = False
Panel40.Visible = False
Panel41.Visible = False
Panel42.Visible = False
Panel43.Visible = False
Panel44.Visible = False
Panel45.Visible = False
Panel46.Visible = False
Panel47.Visible = False
Panel48.Visible = False
Panel49.Visible = False
Panel50.Visible = False
Panel51.Visible = False
Panel52.Visible = False
Panel53.Visible = False
Panel54.Visible = False
Panel55.Visible = False
Panel56.Visible = False
Panel57.Visible = False
Panel58.Visible = False
Panel59.Visible = False
Panel60.Visible = False
Panel61.Visible = False
Panel62.Visible = False
Panel63.Visible = False
Panel64.Visible = False
Panel65.Visible = False
Panel66.Visible = False
Panel67.Visible = False
Panel68.Visible = False
Panel69.Visible = False
Panel70.Visible = False
Panel71.Visible = False
Panel72.Visible = False
Panel73.Visible = False
Panel74.Visible = False
Panel75.Visible = False
Panel76.Visible = False
Panel77.Visible = False
Panel78.Visible = False
Panel79.Visible = False
Panel80.Visible = False
Panel81.Visible = False
Panel82.Visible = False
Panel83.Visible = False
Panel84.Visible = False
Panel85.Visible = False
Panel86.Visible = False
Panel87.Visible = False
Panel88.Visible = False
Panel89.Visible = False
Panel90.Visible = False
Panel91.Visible = False
Panel92.Visible = False
Panel93.Visible = False
Panel94.Visible = False
Panel95.Visible = False
Panel96.Visible = False
Panel97.Visible = False
Panel98.Visible = False
Panel99.Visible = False
Panel100.Visible = False
Panel101.Visible = False
Panel102.Visible = False
Panel103.Visible = False
Panel104.Visible = False
Panel105.Visible = False
Panel106.Visible = False
Panel107.Visible = False
Panel108.Visible = False
Panel109.Visible = False
Panel110.Visible = False
Panel111.Visible = False
Panel112.Visible = False
Panel113.Visible = False
Panel114.Visible = False
Panel115.Visible = False
Panel116.Visible = False
Panel117.Visible = False
Panel118.Visible = False
Panel119.Visible = False
Panel120.Visible = False
Panel121.Visible = False
Panel122.Visible = False
Panel123.Visible = False
Panel124.Visible = False
End If
End Sub
Protected sub displayMessage(s as Object,e As EventArgs)
'lbl1.text="Your favorite country is: " & rb.SelectedItem.Text
Start.Enabled = True
end sub
Protected sub showNext(s as Object,e As EventArgs)
'lbl1.text="Your favorite country is: " & rb.SelectedItem.Text
NextSteps.Enabled = True
end sub
Protected Sub PrevStep(ByVal sender As [Object], ByVal e As EventArgs)
Dim ctlname As String
Dim ctltextbox As Control
Dim CurrentPanel As String = "Panel" + ViewState("PanelSeed").ToString()
ViewState("PanelSeed") = CInt(ViewState("PanelSeed")) - 1
Dim PrevPanel As String = "Panel" + ViewState("PanelSeed").ToString()
Dim p As Panel = CType(FindControl(CurrentPanel), Panel)
p.Visible = False
p = CType(FindControl(PrevPanel), Panel)
p.Visible = True
If CInt(ViewState("PanelSeed")) = 0 Then
' FUserName.Text = UserName.Text
' FAddress.Text = Address.Text
' FZipCode.Text = ZipCode.Text
' FComment.Text = Comment.Text
Start.Visible = True
PrevSteps.Visible = False
NextSteps.Visible = False
Finish.Visible = False
End If
If CInt(ViewState("PanelSeed")) = 0 Then
' FUserName.Text = UserName.Text
' FAddress.Text = Address.Text
' FZipCode.Text = ZipCode.Text
' FComment.Text = Comment.Text
Start.Visible = True
PrevSteps.Visible = False
NextSteps.Visible = False
Finish.Visible = False
End If
ctlname = "RBL" & CInt(ViewState("PanelSeed"))
ctltextbox = FindControl(ctlname)
If ctltextbox IsNot Nothing Then
If Not CType(ctltextbox, RadioButtonList).Text = "" Then
NextSteps.Enabled = True
End If
End If
End Sub
Protected Sub NextStep(ByVal sender As Object, ByVal e As EventArgs)
Dim ctlname As String
Dim ctltextbox As Control
Dim CurrentPanel As String = "Panel" + ViewState("PanelSeed").ToString()
ViewState("PanelSeed") = CInt(ViewState("PanelSeed")) + 1
Dim NextPanel As String = "Panel" + ViewState("PanelSeed").ToString()
Dim p As Panel = CType(FindControl(CurrentPanel), Panel)
p.Visible = False
p = CType(FindControl(NextPanel), Panel)
p.Visible = True
If Not CInt(ViewState("PanelSeed")) = 0 Then
' FUserName.Text = UserName.Text
' FAddress.Text = Address.Text
' FZipCode.Text = ZipCode.Text
' FComment.Text = Comment.Text
Start.Visible = False
PrevSteps.Visible = True
NextSteps.Visible = True
NextSteps.Enabled = False
Finish.Visible = False
End If
If CInt(ViewState("PanelSeed")) = 124 Then
' FUserName.Text = UserName.Text
' FAddress.Text = Address.Text
' FZipCode.Text = ZipCode.Text
' FComment.Text = Comment.Text
Start.Visible = False
PrevSteps.Visible = True
NextSteps.Visible = False
Finish.Visible = True
Finish.Enabled = True
End If
ctlname = "RBL" & CInt(ViewState("PanelSeed"))
ctltextbox = FindControl(ctlname)
If ctltextbox IsNot Nothing Then
If Not CType(ctltextbox, RadioButtonList).Text = "" Then
NextSteps.Enabled = True
End If
End If
End Sub
Protected Sub btnSendFeedback_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Dim bcc, cc, comment1, comment, name, phone, subject, msgbody As String
Dim x As Integer
Dim ctlname As String
Dim ctltextbox As Control
Dim HtmlNewLine as string ="<br />"
msgbody += "A new test has been sent by " & txtName.Text & HtmlNewLine & vbCrLf & vbCrLf & _
"In the" & rb.SelectedItem.Text & " department (" & rb.SelectedItem.Value & ")" & HtmlNewLine & vbCrLf & vbCrLf
For x = 1 To 123
ctlname = "RBL" & x
ctltextbox = FindControl(ctlname)
If ctltextbox IsNot Nothing Then
msgbody += x & ".) " & CType(ctltextbox, RadioButtonList).Text & HtmlNewLine & vbCrLf & vbCrLf
End If
Next
'kpowell@dada.org
name = ""
phone = ""
comment = ""
bcc = ""
cc = ""
subject = "Test results were sent from the Test Form"
MailHelper.SendMailMessage("NOREPLY.Manditory@dada.org", "jeremy@adad.tv", bcc, cc, subject, msgbody)
lbl1.text="Your test has been sent "
PrevSteps.Enabled = False
Finish.Enabled = False
End Sub
End Class
|
Advertisement
There are currently no qualifying experts in .NET Framework 2.x
There are currently no qualifying experts in .NET Framework 2.x