Added line is this color
Deleted line is this color
+<pre> +Imports Microsoft.VisualBasic<br> +Imports System.Data.SqlClient<br> +Imports System.Data<br> +Imports System.Security.Cryptography<br> +Imports System<br> +Imports System.IO<br> +Imports System.Text<br> +Imports System.Web.UI<br> +Imports System.Web.UI.WebControls<br> +Imports System.ComponentModel +</pre> +<pre> +Namespace All +</pre> +<pre> + Public Class Choice<br> + Inherits QuestionChoice<br> + Public Sub New(ByVal Value As String, ByVal Text As String)<br> + MyBase.New(Value, Text)<br> + End Sub<br> + End Class +</pre> +<pre> + Public Class ChoiceMatrix<br> + Private _Choice As ArrayList<br> + Private _ChoiceOptions As ArrayList<br> + Public Sub New()<br> + _Choice = New ArrayList<br> + _ChoiceOptions = New ArrayList<br> + End Sub<br> + Public Sub AddChoice(ByVal vChoice As Choice)<br> + _Choice.Add(vChoice)<br> + End Sub<br> + Public Sub AddChoiceOption(ByVal vChoiceOption As ChoiceOption)<br> + _ChoiceOptions.Add(vChoiceOption)<br> + End Sub<br> + Public Function Choices() As ArrayList<br> + Return _Choice<br> + End Function<br> + Public Function ChoiceOptions() As ArrayList<br> + Return _ChoiceOptions<br> + End Function<br> + End Class +</pre> +<pre> + Public Class ChoiceMatrixWithSubOption<br> + Inherits Monkey.Survey.ChoiceMatrix<br> + Public Sub New()<br> + MyBase.New()<br> + End Sub<br> + End Class +</pre> +<pre> + Public Class ChoiceOption<br> + Inherits QuestionChoice<br> + Private _subOptions As ArrayList<br> + Private _ChoiceControlType As ChoiceControlTypes<br> + Public Sub New(ByVal Value As String, ByVal Text As String, ByVal ChoiceControlType As ChoiceControlTypes)<br> + MyBase.New(Value, Text)<br> + _subOptions = New ArrayList<br> + _ChoiceControlType = ChoiceControlType<br> + End Sub<br> + Public Sub AddSubOption(ByVal SubOption As ChoiceSubOption)<br> + _subOptions.Add(SubOption)<br> + End Sub<br> + Public ReadOnly Property ChoiceSubOptions() As ArrayList<br> + Get<br> + Return _subOptions<br> + End Get<br> + End Property<br> + Public ReadOnly Property ChoiceControlType() As ChoiceControlTypes<br> + Get<br> + Return _ChoiceControlType<br> + End Get<br> + End Property +</pre> +<pre> + End Class +</pre> +<pre> + Public Enum ChoiceControlTypes<br> + CheckBox '0<br> + RadioButton '1<br> + DropDown '2<br> + TextBox '3<br> + ListBox '4<br> + 'ListBox '2<br> + 'DropDown '3<br> + 'TextBox '4<br> + End Enum +</pre> +<pre> + Public Class ChoiceSubOption<br> + Inherits QuestionChoice<br> + Public Sub New(ByVal Value As String, ByVal Text As String)<br> + MyBase.New(Value, Text)<br> + End Sub<br> + End Class +</pre> +<pre> + Public Module clsAppFunctions<br> + Dim con As New SqlConnection<br> + Dim cmd As New SqlCommand("", con)<br> + Dim strSQL As String +</pre> +<pre> + Public Sub loadddlStatus(ByVal ddlstatus As DropDownList) +</pre> +<pre> + With ddlstatus.Items<br> + .Insert(0, "any status")<br> + .Insert(1, "not sent")<br> + .Insert(2, "sent")<br> + .Insert(3, "responded")<br> + .Insert(4, "declined")<br> + End With<br> + End Sub +</pre> +<pre> + Public Sub loadDDLType(ByVal ddlType As DropDownList)<br> + With ddlType.Items<br> + .Clear()<br> + .Insert(0, "EMail")<br> + .Insert(1, "FirstName")<br> + .Insert(2, "LastName")<br> + End With<br> + End Sub +</pre> +<pre> + Public Sub loadDDLStartsWith(ByVal ddlStartsWith As DropDownList)<br> + With ddlStartsWith.Items<br> + .Clear()<br> + .Insert(0, "starts with")<br> + .Insert(1, "ends with")<br> + .Insert(2, "contains")<br> + .Insert(3, "equals")<br> + End With<br> + 'ddlStartsWith.Items.Add(New ListItem("starts with", 0))<br> + 'ddlStartsWith.Items.Add(New ListItem("ends with", 1))<br> + 'ddlStartsWith.Items.Add(New ListItem("contains", 2))<br> + 'ddlStartsWith.Items.Add(New ListItem("equals", 3))<br> + End Sub +</pre> +<pre> +<br> + Public Function loadDDL(ByVal ddlload As DropDownList, ByVal con As SqlConnection, ByVal cmd As SqlCommand, ByVal strSQL As String)<br> + Dim i As Integer = 1<br> + Dim rd As SqlDataReader +</pre> +<pre> + cmd = New SqlCommand(strSQL, con)<br> + ddlload.Items.Insert(0, "Select")<br> + With cmd<br> + cmd.CommandType = Data.CommandType.Text<br> + rd = cmd.ExecuteReader<br> + End With +</pre> +<pre> + While rd.Read<br> + ddlload.Items.Insert(i, rd(0))<br> + i = i + 1<br> + End While<br> + rd.Close()<br> + Return 1<br> + End Function +</pre> +<pre> + Public Sub refreshGridViewWithDataAdapter(ByVal gridview1 As GridView, ByVal con As SqlConnection, ByVal strSql As String) +</pre> +<pre> + Dim cmd As New SqlCommand<br> + Dim ad As SqlDataAdapter<br> + Dim ds As New System.Data.DataSet +</pre> +<pre> + With cmd<br> + .CommandType = CommandType.Text<br> + .CommandText = strSql<br> + .Connection = con<br> + End With<br> + ad = New SqlDataAdapter(cmd)<br> + 'ad.SelectCommand = cmd +</pre> +<pre> + ad.Fill(ds)<br> + ' gridview1.DataSource = New DataSet("ds").Tables(0)<br> + If ds.Tables.Count <> 0 Then<br> + gridview1.DataSource = ds.Tables(0)<br> + gridview1.DataBind()<br> + Else<br> + gridview1.DataSource = Nothing<br> + gridview1.DataBind()<br> + End If +</pre> +<pre> + End Sub +</pre> +<pre> +<br> + Public Sub ExecuteQuery(ByVal con As SqlConnection, ByVal strSQL As String)<br> + Dim cmd As New SqlCommand(strSQL, con)<br> + cmd.CommandType = CommandType.Text<br> + cmd.ExecuteNonQuery()<br> + End Sub +</pre> +<pre> + Public Function checkExists(ByVal con As SqlConnection, ByVal strSQL As String)<br> + Dim cmd As New SqlCommand(strSQL, con)<br> + Dim rd As SqlDataReader<br> + cmd.CommandType = CommandType.Text<br> + rd = cmd.ExecuteReader +</pre> +<pre> + If rd.HasRows Then<br> + rd.Close()<br> + Return True<br> + Else<br> + rd.Close()<br> + Return False<br> + End If +</pre> +<pre> + End Function +</pre> +<pre> + End Module +</pre> +<pre> + Public Enum ControlTypes<br> + RadioButtonList = 1<br> + CheckBoxList = 2<br> + ListBox = 3<br> + DropDown = 4<br> + TextBox = 5<br> + Label = 6<br> + MultipleTextBox = 7<br> + MultipleDropDown = 8<br> + Image = 9<br> + Calendar = 10<br> + Buttons = 11<br> + Matrix = 12<br> + FileUpload = 13<br> + NameAddressUS = 14<br> + NameAddressGeneral = 15<br> + 'MatrixRadioButton = 12<br> + 'MatrixCheckBox = 14<br> + 'MatrixDropDown = 15 +</pre> +<pre> + End Enum +</pre> +<pre> + Public Module ModCommonFunctions<br> + Public Const COMMA = "," +</pre> +<pre> + Public Function OpenConnection(ByVal c As SqlConnection) As SqlConnection<br> + c.ConnectionString = ConfigurationManager.AppSettings("connectionstring")<br> + If c.State = Data.ConnectionState.Closed Then<br> + c.Open()<br> + End If<br> + Return c<br> + End Function<br> + Public Sub CloseConnection(ByRef c As SqlConnection)<br> + If c.State = Data.ConnectionState.Open Then<br> + c.Close()<br> + End If<br> + End Sub<br> + Public Sub SetFocus(ByVal ctrlname As Control, ByVal Pagename As Page) +</pre> +<pre> + Dim str As String<br> + Dim a As Integer = 0 +</pre> +<pre> + str = "<script languauge=javascript>document.getElementById('" & ctrlname.ID & "').focus();</script>" +</pre> +<pre> + Dim PgName As Page<br> + PgName = Pagename<br> + ' PgName.RegisterStartupScript("setfocus", str)<br> + End Sub +</pre> +<pre> + ' Public Shared Sub checkSession(ByVal intUserID)<br> + Public Sub checkSession(ByVal intUserID) +</pre> +<pre> + If CStr(intUserID) = "" Then<br> + HttpContext.Current.Response.Redirect("../home.aspx?expired=1")<br> + End If<br> + End Sub<br> + Public Function getDataSet(ByVal ds As System.Data.DataSet, ByVal sqlCmd As SqlCommand, ByVal strSql As String, ByVal sqlCon As SqlConnection) As System.Data.DataSet +</pre> +<pre> + Dim da As New SqlDataAdapter<br> + sqlCmd = New SqlCommand(strSql, sqlCon)<br> + da = New SqlDataAdapter(sqlCmd)<br> + da.Fill(ds) +</pre> +<pre> + Return ds<br> + End Function<br> + ' can be 192 or 128 +</pre> +<pre> + Public Function ConvertStringToBit(ByVal str) As Int32 +</pre> +<pre> + 'Dim i As Integer +</pre> +<pre> + If IsDBNull(str) = True Then<br> + 'i = -1<br> + Return -1<br> + Exit Function<br> + End If +</pre> +<pre> + 'If str = True Then<br> + ' i = 1<br> + 'Else<br> + ' i = 0<br> + 'End If +</pre> +<pre> + Return IIf(str = True, 1, 0) +</pre> +<pre> + End Function<br> + Function ChangeNullToString(ByVal strValue) As String<br> + Dim strReturn As String +</pre> +<pre> + If IsDBNull(strValue) = True Or IsNothing(strValue) = True Then<br> + strReturn = ""<br> + Else<br> + strReturn = strValue<br> + End If +</pre> +<pre> + Return strReturn<br> + End Function<br> + Function ChangeNumberToNull(ByVal txtValue) As String<br> + Dim retStr As String +</pre> +<pre> + If IsDBNull(txtValue) = True Or txtValue = "" Or IsNothing(txtValue) = True Then<br> + retStr = "Null"<br> + Else<br> + retStr = txtValue<br> + End If +</pre> +<pre> + Return retStr<br> + End Function<br> + Function ChangeToNull(ByVal txtValue) +</pre> +<pre> + If txtValue = "" Or IsDBNull(txtValue) = True Then<br> + txtValue = "null"<br> + Else<br> + txtValue = "'" & txtValue & "'"<br> + End If +</pre> +<pre> + ChangeToNull = txtValue +</pre> +<pre> + End Function<br> + Public Function NumbersOnly(ByVal Data As String) As String<br> + Dim strNumber As String = ""<br> + Try +</pre> +<pre> + Dim blndigit As Boolean = False<br> + Dim I As Integer +</pre> +<pre> + If IsDBNull(Data) = True Or Trim(Data) = "" Then<br> + Return ""<br> + Exit Function<br> + End If +</pre> +<pre> + For I = 1 To Len(Data)<br> + Select Case Mid(Data, I, 1)<br> + Case "0", "1", "2", "3", "4", "5", "6", "7", "8", "9"<br> + strNumber &= Mid(Data, I, 1)<br> + 'Case "1"<br> + ' strNumber &= Mid(Data, I, 1)<br> + 'Case "2"<br> + ' strNumber &= Mid(Data, I, 1)<br> + 'Case "3"<br> + ' strNumber &= Mid(Data, I, 1)<br> + 'Case "4"<br> + ' strNumber &= Mid(Data, I, 1)<br> + 'Case "5"<br> + ' strNumber &= Mid(Data, I, 1)<br> + 'Case "6"<br> + ' strNumber &= Mid(Data, I, 1)<br> + 'Case "7"<br> + ' strNumber &= Mid(Data, I, 1)<br> + 'Case "8"<br> + ' strNumber &= Mid(Data, I, 1)<br> + 'Case "9"<br> + ' strNumber &= Mid(Data, I, 1)<br> + End Select<br> + Next<br> + NumbersOnly = strNumber<br> + ' Return strNumber<br> + Catch ex As Exception<br> + Throw ex<br> + 'MsgBox(ex.Message, MsgBoxStyle.Information)<br> + End Try +</pre> +<pre> + End Function<br> + Public Function NumbersOnlyFound(ByVal Data As String) As Boolean +</pre> +<pre> + Try +</pre> +<pre> + Dim blnFound As Boolean = True<br> + Dim I As Integer +</pre> +<pre> + If IsDBNull(Data) = True Or Trim(Data) = "" Then<br> + Return ""<br> + Exit Function<br> + End If +</pre> +<pre> + For I = 1 To Len(Data) +</pre> +<pre> + Dim strVal As String +</pre> +<pre> + strVal = Mid(Data, I, 1)<br> + If strVal = "0" Or strVal = "1" Or strVal = "2" Or strVal = "3" Or _<br> + strVal = "4" Or strVal = "5" Or strVal = "6" Or strVal = "7" _<br> + Or strVal = "8" Or strVal = "9" Then<br> + Else<br> + blnFound = False<br> + Exit For<br> + End If<br> + Next +</pre> +<pre> + NumbersOnlyFound = blnFound +</pre> +<pre> + Catch ex As Exception<br> + Throw ex<br> + 'MsgBox(ex.Message, MsgBoxStyle.Information)<br> + End Try +</pre> +<pre> + End Function<br> + Function ChangeToZero(ByVal txtValue)<br> + If IsDBNull(txtValue) Then<br> + txtValue = 0<br> + ElseIf CStr(txtValue) = "" Then<br> + txtValue = 0<br> + Else<br> + txtValue = txtValue<br> + End If<br> + ChangeToZero = txtValue<br> + End Function<br> + Function ChangeNumberToEmpty(ByVal txtValue)<br> + If IsDBNull(txtValue) Or txtValue = "0" Then<br> + txtValue = ""<br> + Else<br> + txtValue = txtValue<br> + End If<br> + ChangeNumberToEmpty = txtValue<br> + Return ChangeNumberToEmpty<br> + End Function<br> + ' Function ChangeToEmptySQLString(ByVal txtValue)<br> + ' If IsDBNull(txtValue) Or Trim(txtValue) = "" Then<br> + ' ChangeToEmptySQLString = "''"<br> + ' Else<br> + ' ChangeToEmptySQLString = txtValue<br> + ' End If<br> + ' End Function +</pre> +<pre> + Function PrepareStringForDropDownList(ByVal strVariant As Object, Optional ByVal isValueAString As Boolean = False) +</pre> +<pre> + '' will be used only when a string datatype is used for value in a drowdown box and <br> + '' you want to return null for the first item as empty string or zero (as string) +</pre> +<pre> + ' '' NULL WILL BE RETURNED IF blnReturnNull = TRUE<br> + ' '' Emty quotes will be returned if blnreturnnull = false +</pre> +<pre> + 'Dim Str As String<br> + 'Dim Strnull As System.DBNull +</pre> +<pre> + '' If blnReturnNull = True Then<br> + If Trim(strVariant) = "" Or Trim(strVariant) = "0" Then<br> + PrepareStringForDropDownList = "Null"<br> + Exit Function<br> + Else<br> + If isValueAString = True Then<br> + PrepareStringForDropDownList = Quoted(Trim(strVariant))<br> + Else<br> + PrepareStringForDropDownList = strVariant<br> + End If<br> + End If +</pre> +<pre> + ''End If +</pre> +<pre> +<br> + '' If IsDBNull(strVariant) = True Or Trim(strVariant) = "" Then<br> + '' PrepareStringForDropDownList = "''"<br> + '' Else<br> + '' Str = strVariant<br> + '' PrepareStringForDropDownList = Quoted(Trim(Str))<br> + '' End If<br> + End Function<br> + Function PrepareString(ByVal strVariant As Object, ByVal blnReturnNull As Boolean) +</pre> +<pre> + ' NULL WILL BE RETURNED IF blnReturnNull = TRUE<br> + ' '' Emty quotes will be returned if blnreturnnull = false +</pre> +<pre> + Dim Str As String<br> + Dim Strnull As System.DBNull = Nothing +</pre> +<pre> + If blnReturnNull = True Then<br> + If IsDBNull(strVariant) = True Or Trim(strVariant) = "" Then<br> + PrepareString = "Null"<br> + Exit Function<br> + End If<br> + End If +</pre> +<pre> + If IsDBNull(strVariant) = True Or Trim(strVariant) = "" Then<br> + PrepareString = "''"<br> + Else<br> + Str = strVariant<br> + PrepareString = Quoted(Trim(Str))<br> + End If<br> + End Function<br> + Function PrepareString(ByVal strVariant As Object) +</pre> +<pre> + Dim Str As String +</pre> +<pre> + If IsDBNull(strVariant) = True Or Trim(strVariant) = "" Then<br> + PrepareString = "''"<br> + Else<br> + Str = strVariant +</pre> +<pre> + PrepareString = Quoted(Trim(Str))<br> + End If<br> + End Function<br> + Public Function Quoted(ByVal strToBeQuoted)<br> + Quoted = "'" & Replace(Trim(strToBeQuoted), "'", "''") & "'"<br> + Exit Function<br> + End Function<br> + Public Function PreparePwd(ByVal str As String)<br> + PreparePwd = "'" & Replace(str, "'", "''") & "'"<br> + End Function<br> + Public Function RemoveLastCharacter(ByVal str As String, ByVal LastChar As String) As String +</pre> +<pre> + Dim strReturn As String<br> + str = Trim(str) +</pre> +<pre> + If Right(str, 1) = LastChar Then<br> + strReturn = Left(str, Len(str) - 1)<br> + Else<br> + strReturn = str<br> + End If +</pre> +<pre> + Return strReturn +</pre> +<pre> + End Function +</pre> +<pre> + Function ConvertToBit(ByVal val As Boolean) As Integer<br> + If val = True Then<br> + ConvertToBit = 1<br> + Else<br> + ConvertToBit = 0<br> + End If<br> + End Function<br> + Public Sub cleartextboxes(ByRef p As Page)<br> + Dim c As Control +</pre> +<pre> + For Each c In p.Controls +</pre> +<pre> + If c.GetType.ToString.Equals("System.Web.UI.WebControls.TextBox") Then<br> + CType(c, TextBox).Text = ""<br> + End If +</pre> +<pre> + Next<br> + End Sub<br> + Public Sub setlstValue(ByRef lst As ListBox, ByVal strValue As Object) +</pre> +<pre> + If IsDBNull(strValue) = False Then<br> + lst.SelectedValue = strValue<br> + End If +</pre> +<pre> +<br> + End Sub<br> + Public Sub RefreshGrid(ByRef dg As DataGrid, ByRef sqlcmd As SqlCommand, ByVal strSQL As String) +</pre> +<pre> + Dim sqlReader As SqlDataReader +</pre> +<pre> + With sqlcmd<br> + .CommandText = strSQL<br> + .CommandType = Data.CommandType.Text<br> + sqlReader = .ExecuteReader<br> + End With +</pre> +<pre> + dg.DataSource = sqlReader +</pre> +<pre> + dg.DataBind()<br> + sqlReader.Close() +</pre> +<pre> + End Sub +</pre> +<pre> +<br> + Public Function getSelectedFromList(ByRef lst As Object) As String<br> + Dim str As String = "" +</pre> +<pre> + Dim i As Integer +</pre> +<pre> + For i = 0 To (lst.Items.Count - 1)<br> + If (lst.Items(i).Selected) Then<br> + str += lst.Items(i).Value & ","<br> + End If<br> + Next +</pre> +<pre> + If Len(str) > 0 Then str = Left(str, Len(str) - 1) +</pre> +<pre> + Return str<br> + End Function<br> + Public Sub setOptListValue(ByRef opt As RadioButtonList, ByVal strValue As Object) +</pre> +<pre> + Dim i As Integer +</pre> +<pre> + i = ConvertStringToBit(strValue) +</pre> +<pre> + If i <> -1 Then opt.SelectedValue = i +</pre> +<pre> + End Sub +</pre> +<pre> +<br> + Public Function ChangeDBNullToEmptyString(ByVal tStr As Object) As Object<br> + Dim str As String = ""<br> + If IsDBNull(tStr) = True Then<br> + Return str<br> + Else<br> + Return tStr<br> + End If<br> + End Function +</pre> +<pre> + Public Function ChangeCboValueToDBNull(ByVal str As String) As Object +</pre> +<pre> + If IsNothing(str) = True Or str = "0" Then<br> + Return DBNull.Value<br> + Else<br> + Return str<br> + End If +</pre> +<pre> + End Function<br> + Public Function ChangetxtValueToDBNull(ByVal str As String, ByVal allowEmptyString As Boolean) As Object +</pre> +<pre> + If allowEmptyString = False Then +</pre> +<pre> + If IsNothing(str) = True Or str = "" Then<br> + Return DBNull.Value<br> + Else<br> + Return str<br> + End If +</pre> +<pre> + Else +</pre> +<pre> + If IsNothing(str) = True Then<br> + Return DBNull.Value<br> + Else<br> + Return str<br> + End If +</pre> +<pre> + End If +</pre> +<pre> + End Function<br> + ' Public Shared Function CreatePasswordChar(ByVal Intlen As Integer) As String<br> + Public Function CreatePasswordChar(ByVal Intlen As Integer) As String<br> + Dim I As Integer<br> + CreatePasswordChar = "" +</pre> +<pre> + For I = 1 To Intlen<br> + CreatePasswordChar = CreatePasswordChar & "*"<br> + Next +</pre> +<pre> + Return CreatePasswordChar<br> + End Function +</pre> +<pre> + Public Sub ClearFields(ByVal parent As System.Web.UI.Control)<br> + Dim c As Control<br> + For Each c In parent.Controls<br> + If c.GetType() Is GetType(TextBox) Then<br> + 'is it a textbox?<br> + Dim t As TextBox = c<br> + t.Text = ""<br> + ElseIf c.GetType() Is GetType(HtmlControls.HtmlInputHidden) Then<br> + 'is it a hidden text?<br> + Dim h As HtmlControls.HtmlInputHidden = c<br> + h.Value = ""<br> + ElseIf c.GetType() Is GetType(DropDownList) Then<br> + 'is it a dropdown list?<br> + Dim d As DropDownList = c<br> + d.ClearSelection()<br> + ElseIf c.GetType() Is GetType(ListBox) Then<br> + 'is it a listbox?<br> + Dim l As ListBox = c<br> + l.ClearSelection()<br> + ElseIf c.GetType() Is GetType(RadioButtonList) Then<br> + 'is it a radiobutton list?<br> + Dim rl As RadioButtonList = c<br> + rl.ClearSelection()<br> + ElseIf c.GetType() Is GetType(CheckBox) Then<br> + 'is it a checkbox?<br> + Dim chk As CheckBox = c<br> + chk.Checked = False<br> + ElseIf c.GetType() Is GetType(CheckBoxList) Then<br> + 'is it a checkbox list?<br> + Dim cl As CheckBoxList = c<br> + cl.ClearSelection()<br> + End If<br> + If c.HasControls Then<br> + ClearFields(c)<br> + End If<br> + Next<br> + End Sub<br> + Public Function GetColumnCaption(ByVal intfieldID As Long, ByVal intsurveyId As Long, ByVal intForWhichlstBox As Int16) As String<br> + Dim conn As New SqlConnection<br> + OpenConnection(conn) +</pre> +<pre> + Dim columncaption As String +</pre> +<pre> + ' Dim cmd As New SqlCommand("Exec GetQuestionText " & ChangeToZero(intfieldID) & COMMA & ChangeToZero(intsurveyId), conn)<br> + Dim cmd As New SqlCommand("Exec GetQuestionText " & ChangeToZero(intfieldID) & COMMA & ChangeToZero(intsurveyId) & COMMA & ChangeToZero(intForWhichlstBox), conn)<br> + cmd.CommandType = Data.CommandType.Text<br> + columncaption = cmd.ExecuteScalar +</pre> +<pre> + If columncaption <> "" Then<br> + GetColumnCaption = columncaption<br> + Else<br> + GetColumnCaption = ""<br> + End If +</pre> +<pre> +<br> + End Function +</pre> +<pre> + 'Public Sub GetEncryptedvalue(ByVal val As String)<br> + ' Dim i As Long<br> + ' If Len(val) > 0 And val.Trim <> "" Then<br> + ' Dim str As String<br> + ' str = ""<br> + ' For i = 1 To Len(val)<br> + ' If str = "" Then<br> + ' ' str=mid(<br> + ' End If<br> + ' Next<br> + ' End If<br> + 'End Sub +</pre> +<pre> + Public Sub SetError()<br> + HttpContext.Current.Session("errormsg") = HttpContext.Current.Server.GetLastError.GetBaseException.Message<br> + End Sub<br> + Public Function getRecordSet(ByRef sqlcmd As SqlCommand, ByVal strSQL As String) As SqlDataReader +</pre> +<pre> + Dim sqlReader As SqlDataReader<br> + With sqlcmd<br> + .CommandText = strSQL<br> + .CommandType = Data.CommandType.Text<br> + sqlReader = .ExecuteReader()<br> + End With +</pre> +<pre> + Return sqlReader +</pre> +<pre> + End Function<br> + Public Function getSingleValue(ByRef sqlcmd As SqlCommand, ByVal strSQL As String) As String +</pre> +<pre> + Dim str As String +</pre> +<pre> + With sqlcmd<br> + .CommandText = strSQL<br> + .CommandType = Data.CommandType.Text<br> + str = ChangeDBNullToEmptyString(.ExecuteScalar)<br> + End With +</pre> +<pre> + Return str +</pre> +<pre> + sqlcmd.Parameters.Clear()<br> + End Function +</pre> +<pre> + 'for ins, upd, delete<br> + Public Sub runNonQuery(ByRef sqlcmd As SqlCommand, ByVal strSQL As String) +</pre> +<pre> + With sqlcmd<br> + .CommandText = strSQL<br> + .CommandType = Data.CommandType.Text<br> + .ExecuteNonQuery()<br> + End With +</pre> +<pre> + End Sub<br> + Public Sub CheckForSession() '' For Checking whether the session is expired or not<br> + If ChangeToZero(HttpContext.Current.Session("surveyId")) = 0 Then<br> + HttpContext.Current.Session.Abandon()<br> + HttpContext.Current.Response.Redirect("Home.aspx?reason=expired")<br> + End If<br> + End Sub<br> + Public Function IsFieldAsname(ByVal name As String) As Boolean<br> + IsFieldAsname = True<br> + Dim names, na, i, c<br> + names = name<br> + For Each na In names<br> + If Len(names) <= 0 Then<br> + IsFieldAsname = False<br> + Exit Function<br> + End If<br> + Next<br> + For i = 1 To Len(name)<br> + c = LCase(Mid(name, i, 1))<br> + If InStr("abcdefghijklmnopqrstuvwxyz_-.'", c) <= 0 Or IsNumeric(c) Then 'Chang ed by Senthil on Aug26th<br> + IsFieldAsname = False<br> + Exit Function<br> + End If<br> + Next<br> + End Function<br> + Public Function IsValidEmail(ByVal email As String) As Boolean<br> + IsValidEmail = True<br> + Dim names, name, i, c<br> + names = Split(email, "@")<br> + If UBound(names) <> 1 Then<br> + IsValidEmail = False<br> + Exit Function<br> + End If<br> + For Each name In names<br> + If Len(name) <= 0 Then<br> + IsValidEmail = False<br> + Exit Function<br> + End If<br> + For i = 1 To Len(name)<br> + c = LCase(Mid(name, i, 1))<br> + If InStr("abcdefghijklmnopqrstuvwxyz_-.'", c) <= 0 And Not IsNumeric(c) Then 'Changed by Senthil on Aug26th<br> + IsValidEmail = False<br> + Exit Function<br> + End If<br> + Next<br> + If Left(name, 1) = "." Or Right(name, 1) = "." Then<br> + IsValidEmail = False<br> + Exit Function<br> + End If<br> + If Left(name, 1) = "'" Or Right(name, 1) = "'" Then 'New validation Added by senthil on Aug 26th <br> + IsValidEmail = False<br> + Exit Function<br> + End If +</pre> +<pre> + Next<br> + If InStr(names(1), ".") <= 0 Then<br> + IsValidEmail = False<br> + Exit Function<br> + End If<br> + i = Len(names(1)) - InStrRev(names(1), ".")<br> + If i <> 2 And i <> 3 Then<br> + IsValidEmail = False<br> + Exit Function<br> + End If<br> + If InStr(email, "..") > 0 Then<br> + IsValidEmail = False<br> + End If<br> + End Function<br> + Public Function IsValidURL(ByVal Url As String) As Boolean<br> + IsValidURL = True<br> + Dim names, name, i, c<br> + names = Split(Url, "://")<br> + If UBound(names) <> 1 Then<br> + IsValidURL = False<br> + Exit Function<br> + End If<br> + For Each name In names<br> + If Len(name) <= 0 Then<br> + IsValidURL = False<br> + Exit Function<br> + End If<br> + For i = 1 To Len(name)<br> + c = LCase(Mid(name, i, 1))<br> + If InStr("abcdefghijklmnopqrstuvwxyz_-.'", c) <= 0 And Not IsNumeric(c) Then<br> + IsValidURL = False<br> + Exit Function<br> + End If<br> + Next<br> + If Left(name, 1) = "." Or Right(name, 1) = "." Then<br> + IsValidURL = False<br> + Exit Function<br> + End If<br> + If Left(name, 1) = "'" Or Right(name, 1) = "'" Then 'New validation Added by senthil on Aug 26th <br> + IsValidURL = False<br> + Exit Function<br> + End If +</pre> +<pre> + Next<br> + If InStr(names(1), ".") <= 0 Then<br> + IsValidURL = False<br> + Exit Function<br> + End If<br> + i = Len(names(1)) - InStrRev(names(1), ".")<br> + If i <> 2 And i <> 3 Then<br> + IsValidURL = False<br> + Exit Function<br> + End If<br> + If InStr(Url, "..") > 0 Then<br> + IsValidURL = False<br> + End If<br> + End Function<br> + Public Function GetModuleName(ByVal intModId As Integer) As String<br> + Dim strsql As String = ""<br> + Dim sqlcmd As SqlCommand = Nothing +</pre> +<pre> + strsql = "Exec GetModuleName " & Convert.ToString(intModId)<br> + With sqlcmd<br> + .CommandText = strsql<br> + .CommandType = Data.CommandType.Text<br> + GetModuleName = .ExecuteScalar<br> + .Parameters.Clear()<br> + End With +</pre> +<pre> + End Function<br> + Function AuthenticateUser() As Boolean +</pre> +<pre> + If HttpContext.Current.Session("UserID") Is Nothing Then Return False<br> + Return True +</pre> +<pre> + End Function<br> + End Module +</pre> +<pre> + Public Module modFillList +</pre> +<pre> + Public Sub FillList(ByRef chklst As CheckBoxList, ByRef cmd As SqlCommand, ByVal strSQL As String, ByVal strValue As String, ByVal strText As String) +</pre> +<pre> + Dim sqlReader As SqlDataReader +</pre> +<pre> + With cmd<br> + .CommandText = strSQL<br> + sqlReader = .ExecuteReader<br> + .CommandType = CommandType.Text<br> + End With +</pre> +<pre> +<br> + With chklst<br> + .DataSource = sqlReader<br> + .DataValueField = strValue<br> + .DataTextField = strText<br> + .DataBind()<br> + End With +</pre> +<pre> + sqlReader.Close()<br> + cmd.Parameters.Clear() +</pre> +<pre> + End Sub +</pre> +<pre> + Public Sub FillList(ByRef lst As ListBox, ByRef sqlcmd As SqlCommand, ByVal strSQL As String, ByVal strValue As String, ByVal strText As String, ByVal blnAddFirstRow As Boolean) +</pre> +<pre> + Dim sqlReader As SqlDataReader +</pre> +<pre> + With sqlcmd<br> + .CommandText = strSQL<br> + .CommandType = CommandType.Text<br> + sqlReader = .ExecuteReader +</pre> +<pre> + End With +</pre> +<pre> + With lst<br> + .DataSource = sqlReader<br> + .DataValueField = strValue<br> + .DataTextField = strText<br> + .DataBind()<br> + End With +</pre> +<pre> + If blnAddFirstRow = True Then<br> + lst.Items.Insert(0, (New ListItem("Select One", 0)))<br> + End If +</pre> +<pre> + sqlReader.Close()<br> + sqlcmd.Parameters.Clear() +</pre> +<pre> + End Sub<br> + Public Sub FillList(ByRef lst As DropDownList, ByRef sqlcmd As SqlCommand, ByVal strSQL As String, ByVal strValue As String, ByVal strText As String, ByVal blnAddFirstRow As Boolean, Optional ByVal FirstItem As String = "", Optional ByVal Val As Int16 = 0) +</pre> +<pre> + Dim sqlReader As SqlDataReader +</pre> +<pre> + With sqlcmd<br> + .CommandText = strSQL<br> + .CommandType = CommandType.Text<br> + sqlReader = .ExecuteReader +</pre> +<pre> + End With +</pre> +<pre> + With lst<br> + .DataSource = sqlReader<br> + .DataValueField = strValue<br> + .DataTextField = strText<br> + .DataBind()<br> + End With +</pre> +<pre> +<br> + If blnAddFirstRow = True Then<br> + If Val = 1 Then<br> + lst.Items.Insert(0, (New ListItem("", 0)))<br> + Else<br> + If FirstItem = "" Then<br> + lst.Items.Insert(0, (New ListItem("Select", 0)))<br> + Else<br> + lst.Items.Insert(0, (New ListItem(FirstItem, 0)))<br> + End If<br> + End If +</pre> +<pre> + End If +</pre> +<pre> + sqlReader.Close()<br> + sqlcmd.Parameters.Clear() +</pre> +<pre> + End Sub +</pre> +<pre> + Public Sub FillList(ByRef rbutlst As RadioButtonList, ByRef cmd As SqlCommand, ByVal strSQL As String, ByVal strValue As String, ByVal strText As String, ByVal intSelValue As Integer) +</pre> +<pre> + Dim sqlReader As SqlDataReader +</pre> +<pre> + With cmd<br> + .CommandText = strSQL<br> + sqlReader = .ExecuteReader<br> + .CommandType = CommandType.Text +</pre> +<pre> + End With +</pre> +<pre> + 'sqlReader.<br> + With rbutlst<br> + .DataSource = sqlReader<br> + .DataValueField = strValue<br> + .DataTextField = strText<br> + .DataBind()<br> + End With<br> + rbutlst.SelectedValue = intSelValue +</pre> +<pre> + sqlReader.Close()<br> + cmd.Parameters.Clear() +</pre> +<pre> + End Sub<br> + Public Sub FillList(ByRef chklst As CheckBoxList, ByRef cmd As SqlCommand, ByVal strSQL As String, ByVal strValue As String, ByVal strText As String, ByVal setvalues As Boolean) +</pre> +<pre> + Dim sqlReader As SqlDataReader +</pre> +<pre> + With cmd<br> + .CommandText = strSQL<br> + sqlReader = .ExecuteReader<br> + .CommandType = CommandType.Text +</pre> +<pre> + End With +</pre> +<pre> + With sqlReader<br> + While .Read()<br> + Dim stritemvalue, stritemtext<br> + stritemvalue = sqlReader.Item(strValue)<br> + stritemtext = sqlReader(strText)<br> + chklst.Items.Add(New ListItem(.Item(strText), .Item(strValue)))<br> + 'If System.Convert.ToBoolean(.Item(2)) = True Then<br> + ' chklst.Items.FindByValue(.Item(0)).Selected = True<br> + 'End If<br> + End While +</pre> +<pre> + End With +</pre> +<pre> + sqlReader.Close() +</pre> +<pre> + cmd.Parameters.Clear() +</pre> +<pre> + End Sub<br> + Public Function checkBox(ByRef c As CheckBox) As Integer<br> + Dim int As Integer<br> + If c.Checked = True Then<br> + int = 1<br> + Else<br> + int = 0<br> + End If<br> + End Function<br> + End Module +</pre> +<pre> + Public Class QuestionChoice<br> + Private _Value As String<br> + Private _Text As String<br> + Public Sub New(ByVal Value As String, ByVal Text As String)<br> + _Value = Value<br> + _Text = Text<br> + End Sub<br> + Public ReadOnly Property Value() As String<br> + Get<br> + Return _Value<br> + End Get<br> + End Property<br> + Public ReadOnly Property Text() As String<br> + Get<br> + Return _Text<br> + End Get<br> + End Property<br> + End Class +</pre> +<pre> + Public Class ReportQuestion<br> + Dim _questionText As String<br> + Dim _questionNo As String<br> + Public Property QuestionText() As String<br> + Get<br> + Return _questionText<br> + End Get<br> + Set(ByVal value As String)<br> + _questionText = value<br> + End Set<br> + End Property<br> + Public Property QuestionNo() As Integer<br> + Get<br> + Return _questionNo<br> + End Get<br> + Set(ByVal value As Integer)<br> + _questionNo = value<br> + End Set<br> + End Property +</pre> +<pre> +<br> + End Class +</pre> +<pre> + Public Class SubColumnInfo<br> + Public Sub New(ByVal Value As String, ByVal Text As String)<br> + 'MyBase.New(Value, Text)<br> + End Sub +</pre> +<pre> + End Class +</pre> +<pre> + Public Class SubColumns<br> + Private _Value As String<br> + Private _Text As String<br> + Public Sub New(ByVal Value As String, ByVal Text As String)<br> + _Value = Value<br> + _Text = Text<br> + End Sub<br> + Public ReadOnly Property Value() As String<br> + Get<br> + Return _Value<br> + End Get<br> + End Property<br> + Public ReadOnly Property Text() As String<br> + Get<br> + Return _Text<br> + End Get<br> + End Property<br> + End Class +</pre> +<pre> + Public Class RequiredFieldValidForCheckBoxLists<br> + Inherits System.Web.UI.WebControls.BaseValidator<br> + Private _listctrl As ListControl +</pre> +<pre> + Public Sub New()<br> + MyBase.EnableClientScript = False<br> + End Sub +</pre> +<pre> + Protected Overloads Overrides Function ControlPropertiesValid() As Boolean<br> + Dim ctrl As Control = FindControl(ControlToValidate)<br> + If Not (ctrl Is Nothing) Then<br> + _listctrl = CType(ctrl, ListControl)<br> + Return (Not (_listctrl Is Nothing))<br> + Else<br> + Return False<br> + End If<br> + End Function +</pre> +<pre> + Protected Overloads Overrides Function EvaluateIsValid() As Boolean<br> + Return Not (_listctrl.SelectedIndex = -1)<br> + End Function<br> + End Class +</pre> +<pre> + Public Class ValidatiorchkBoxLst<br> + Inherits System.Web.UI.WebControls.BaseValidator +</pre> +<pre> + Protected Overrides Function ControlPropertiesValid() As Boolean<br> + Return True<br> + End Function +</pre> +<pre> + Protected Overrides Function EvaluateIsValid() As Boolean<br> + ' Return this.EvaluateIsChecked()<br> + Return EvaluateIsChecked() +</pre> +<pre> + End Function<br> + Protected Overrides Sub OnPreRender(ByVal e As EventArgs)<br> + ' If MyBase.EnableClientScript Then<br> + If EnableClientScript Then<br> + 'this.clientscript()<br> + ClientScript()<br> + End If<br> + MyBase.OnPreRender(e)<br> + End Sub +</pre> +<pre> + Protected Function EvaluateIsChecked() As Boolean<br> + Dim _cbl As CheckBoxList<br> + _cbl = CType(FindControl(ControlToValidate), CheckBoxList) +</pre> +<pre> + Dim li As ListItem<br> + For Each li In _cbl.Items<br> + If li.Selected = True Then<br> + Return True<br> + End If<br> + Next<br> + Return False<br> + End Function<br> + Protected Sub ClientScript()<br> + MyBase.Attributes("evaluationfunction") = "cb_verify"<br> + Dim sb_Script As New StringBuilder<br> + sb_Script.Append("<script language='javascript'>")<br> + sb_Script.Append("\r")<br> + sb_Script.Append("\r")<br> + sb_Script.Append("function cb_vefify(val) {")<br> + sb_Script.Append("\r")<br> + sb_Script.Append("var val = document.all[document.all(\")<br> + sb_Script.Append(MyBase.ID)<br> + sb_Script.Append("\).controltovalidate);")<br> + sb_Script.Append("\r")<br> + sb_Script.Append("var col = val.all;")<br> + sb_Script.Append("\r")<br> + sb_Script.Append("if ( col != null ) {")<br> + sb_Script.Append("\r")<br> + sb_Script.Append("for ( i = 0; i < col.length; i++ ) {")<br> + sb_Script.Append("\r")<br> + sb_Script.Append("if (col.item(i).tagName == \'INPUT\') {")<br> + sb_Script.Append("\r")<br> + sb_Script.Append("if ( col.item(i).checked ) {")<br> + sb_Script.Append("\r")<br> + sb_Script.Append("\r")<br> + sb_Script.Append("return true;")<br> + sb_Script.Append("\r")<br> + sb_Script.Append("}")<br> + sb_Script.Append("\r")<br> + sb_Script.Append("}")<br> + sb_Script.Append("\r")<br> + sb_Script.Append("}")<br> + sb_Script.Append("\r")<br> + sb_Script.Append("\r")<br> + sb_Script.Append("\r")<br> + sb_Script.Append("return false;")<br> + sb_Script.Append("\r")<br> + sb_Script.Append("}")<br> + sb_Script.Append("\r")<br> + sb_Script.Append("}")<br> + sb_Script.Append("\r")<br> + sb_Script.Append("</script>")<br> + 'MyBase.Page.RegisterClientScriptBlock("RBLScript", sb_Script.ToString())<br> + MyBase.Page.ClientScript.RegisterClientScriptBlock(GetType(String), "RBLScript", sb_Script.ToString) +</pre> +<pre> + End Sub +</pre> +<pre> + End Class +</pre> +<pre> +End Namespace +</pre>