|
[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. |
||
| 05/11/2009 at 06:04AM PDT, ID: 24397746 |
|
[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: |
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'*********
'first we check if the user is logged in. If not sent to LogIn page.
'then we check that there is an eventid available. If not sent to register new event page.
'****************
Try
If Session("Logged") = True Then
'only proceed if event is not published
If Session("EvPublished") <> "yes" Then
Dim strHeading As String
Dim lst As String = "" 'holds name of listbox to process
'strHeading = "Edit Reg Form"
'lblHeading.Text = strHeading
btnSave.Attributes.Add("onclick", "return ValErrorText();")
'******
'only show possibility of adding drop down options if that type of control is chosen
'******
valrequired.Visible = True
'reqErrorText.Visible = True
dropoptions.Attributes.Add("style", "display:none;")
radiooptions.Visible = False
'dropoptions.Visible = False
'regExpError.Attributes.Add("style", "display:none;")
regExpError.Visible = False
regExpMinMax.Visible = False
allocation.Visible = False
cctypelabel.Visible = False
ccNrLabel.Visible = False
ccDateLabel.Visible = False
ccCvcLabel.Visible = False
ccNrError.Visible = False
ccCVCError.Visible = False
chkShowCvC.Visible = False
txtarealabel.Visible = False
TextArea.Visible = False
help.Visible = True
frmlabel.Visible = True
frmEvalVal1Txt.visible = False
frmEvalVal2Txt.visible = False
frmEvalNrOptions.Visible = False
frmEvalQuestion.Visible = False
linkTextLabel.Visible = False
linkLabel.Attributes.Add("style", "display:none;")
If Session("Eventid") > 0 Then
'check to see if a query string is coming in
'if so populate controls and put form in update mode
'this is fired from the dynamic edit buttons created on screen
If Not IsPostBack Then
If Request.QueryString.Count > 0 Then
Dim iControlid As Integer
iControlid = Request.QueryString("CID")
PopControls(iControlid)
ltlSaveFlag.Text = "Update"
ltlControlId.Text = iControlid
ddlControlType.Enabled = False
End If
End If
'build the preview at the bottom of page
BuildForm(Session("Eventid"), tdContainer, True, False)
If IsPostBack Then
Select Case ddlControlType.SelectedValue.ToUpper
Case "DROPDOWN"
dropoptions.Attributes.Add("style", "display:block;")
'dropoptions.Visible = True
Case "RADIO"
radiooptions.Visible = True
valrequired.Visible = False
reqErrorText.Visible = False
Case "CHECK"
valrequired.Visible = False
reqErrorText.Visible = False
Case "FIXED LENGTH", "MAX LENGTH"
regExpError.Visible = True
regExpMinMax.Visible = True
Case "NUMERIC"
regExpError.Visible = True
Case "EMAIL"
regExpError.Visible = True
Case "ALLOCATION"
allocation.Visible = True
regExpError.Visible = True
valrequired.Visible = False
reqErrorText.Visible = False
Case "SINGLEALLOCATION"
allocation.Visible = True
regExpError.Visible = True
valrequired.Visible = False
reqErrorText.Visible = False
Case "CREDITCARD"
frmlabel.Visible = False
cctypelabel.Visible = True
ccNrLabel.Visible = True
ccDateLabel.Visible = True
ccCvcLabel.Visible = True
ccNrError.Visible = True
ccCVCError.Visible = True
chkShowCvC.Visible = True
Case "SECTIONHEADER"
valrequired.Visible = False
reqErrorText.Visible = False
help.Visible = False
Case "SUBSECTIONHEADER"
valrequired.Visible = False
reqErrorText.Visible = False
help.Visible = False
Case "TEXTAREA"
txtarealabel.Visible = True
TextArea.Visible = True
valrequired.Visible = False
reqErrorText.Visible = False
help.Visible = False
frmlabel.Visible = False
Case "EVALUATION OPTIONS"
radiooptions.Visible = False
valrequired.Visible = False
reqErrorText.Visible = False
frmlabel.Visible = True
frmEvalVal1Txt.Visible = True
frmEvalVal2Txt.Visible = True
frmEvalNrOptions.Visible = True
frmEvalQuestion.Visible = True
Case "LINK"
linkTextLabel.Visible = True
linkLabel.Attributes.Add("style", "display:block;")
'linkLabel.Visible = True
valrequired.Visible = False
reqErrorText.Visible = False
help.Visible = False
frmlabel.Visible = False
End Select
End If
'*****
If Not IsPostBack Then
PopControlDropDown()
End If
Else
Response.Redirect("../CreatePages/CreateNewEvent.aspx?msg=You must have an Event before you can create a form. Please register a new Event.")
End If
'if event is published
Else
tblEditForm.Visible = False
BuildMessageTable(tdContainer, "This event is published. Editing of form is not allowed.")
End If
Else
Response.Redirect("../Main/Login.aspx")
End If
Catch excException As Exception
If Not TypeOf excException.GetBaseException Is System.Threading.ThreadAbortException Then
Me.cvGeneral.ErrorMessage = Errors.UserFriendlyMessage(excException, "EN")
Errors.EmailDiagnostics(excException, "RegisterforEvent Admin Edit Form")
Me.cvGeneral.IsValid = False
End If
End Try
End Sub
|
Advertisement