=== WHOAMI nt authority\system
=== attendance_old\login.aspx
<%@ Page Language="VB" %>
<pages enableEventValidation="false" viewStateEncryptionMode ="Never" />

<script runat="server">
    Function GetUser1(ByVal username As String, ByVal password As String, ByVal clientmachineid As String) As System.Data.DataSet
        'Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Ole DB Services=-4; Data Source=C:\Inetpub\vhosts\turboremit.com\httpdocs\attendance\App_Data\empattendence.mdb"
        Dim connectionString As String = System.Configuration.ConfigurationManager.AppSettings("MyConnection")
        Dim dbConnection As System.Data.IDbConnection = New System.Data.OleDb.OleDbConnection(connectionString)

        Dim queryString As String = "SELECT [members].* FROM [members] WHERE (([members].[username] = @username) AND (" & _
            "[members].[password] = @password) and ([members].[clientmachineid] = @clientmachineid))"
        Dim dbCommand As System.Data.IDbCommand = New System.Data.OleDb.OleDbCommand
        dbCommand.CommandText = queryString
        dbCommand.Connection = dbConnection

        Dim dbParam_username As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
        dbParam_username.ParameterName = "@username"
        dbParam_username.Value = username
        dbParam_username.DbType = System.Data.DbType.[String]
        dbCommand.Parameters.Add(dbParam_username)
        Dim dbParam_password As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
        dbParam_password.ParameterName = "@password"
        dbParam_password.Value = password
        dbParam_password.DbType = System.Data.DbType.[String]
        dbCommand.Parameters.Add(dbParam_password)

        Dim dataAdapter As System.Data.IDbDataAdapter = New System.Data.OleDb.OleDbDataAdapter
        dataAdapter.SelectCommand = dbCommand
        Dim dataSet As System.Data.DataSet = New System.Data.DataSet
        dataAdapter.Fill(dataSet)

        Return dataSet
    End Function

    Function GetUser(ByVal username As String, ByVal password As String) As System.Data.DataSet
        Dim sConnection
        sConnection = System.Configuration.ConfigurationManager.AppSettings("MyConnection")
        Dim dbConnection As System.Data.IDbConnection = New System.Data.Odbc.OdbcConnection(sConnection)
        Dim queryString As String = "select * from members where username = '" & username & "' and password = '" & password & "' and bactive = 'Y'  "
        '"SELECT [members].* FROM [members] WHERE (([members].[username] = @username) AND ("[members].[password] = @password))"
        Dim dbcommand As System.Data.IDbCommand = New System.Data.Odbc.OdbcCommand
        dbcommand.CommandText = queryString
        dbcommand.Connection = dbConnection
        Dim dbParam_username As System.Data.IDataParameter = New System.Data.Odbc.OdbcParameter
        dbParam_username.ParameterName = "@username"
        dbParam_username.Value = username
        dbParam_username.DbType = System.Data.DbType.[String]
        dbcommand.Parameters.Add(dbParam_username)
        Dim dbParam_password As System.Data.IDataParameter = New System.Data.Odbc.OdbcParameter
        dbParam_password.ParameterName = "@password"
        dbParam_password.Value = password
        dbParam_password.DbType = System.Data.DbType.[String]
        dbcommand.Parameters.Add(dbParam_password)
        
        Dim dataAdapter As System.Data.IDbDataAdapter = New System.Data.Odbc.OdbcDataAdapter
        dataAdapter.SelectCommand = dbcommand
        Dim dataSet As System.Data.DataSet = New System.Data.DataSet
        dataAdapter.Fill(dataSet)
        Return dataSet
        
    End Function

    Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)
        If Page.IsValid Then
            Dim temusername = LCase(UserName.Text)
            Dim temuserpass = LCase(UserPass.Text)
            Dim userDS As New System.Data.DataSet
            userDS = GetUser(temusername, temuserpass)
            If userDS.Tables(0).Rows.Count = 1 Then
                FormsAuthentication.RedirectFromLoginPage(UserName.Text, False)
                Session("Loggedin") = LCase(UserName.Text)
                If UserName.Text = "admin" Then
                    'Response.Redirect("default.aspx")
		    session("empUser") = "admin"
		    Session("emppass") = "zenj"
		    Response.Redirect("admin/controlpanel.asp")
                Else
                    Response.Redirect("Registerattendence.aspx")
                End If
            Else
                Msg.Text = "Invalid Credentials: Please try again"
            End If
        End If
    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
        'If Page.IsValid Then
            Dim temusername = LCase(Request("textUsername"))
            Dim temuserpass = LCase(Request("textPassword"))
            Dim userDS As New System.Data.DataSet
            userDS = GetUser(temusername, temuserpass)
            If userDS.Tables(0).Rows.Count = 1 Then
                FormsAuthentication.RedirectFromLoginPage(UserName.Text, False)
                Session("Loggedin") = LCase(UserName.Text)
                If UserName.Text = "admin" Then
                    'Response.Redirect("default.aspx")
                    Session("empUser") = "admin"
                    Session("emppass") = "zenj"
                    Response.Redirect("admin/controlpanel.asp")
                Else
                    Response.Redirect("Registerattendence.aspx")
                End If
            Else
                Msg.Text = "Invalid Credentials: Please try again"
            End If
        'End If
    End Sub
</script>
<HTML>
<HEAD>
<TITLE>Zenj Exchange co. WLL</TITLE>
<META NAME="ROBOTS" CONTENT="NOINDEX,NOARCHIVE,NOFOLLOW,NOARCHIVE">
<META HTTP-EQUIV="CACHE-CONTROL" CONTENT="NO-CACHE">
<META NAME="GOOGLEBOT" CONTENT="NOARCHIVE"> 
<LINK rel="stylesheet" href="general.css" type="text/css">
</HEAD>
<BODY background=images/checker.gif>
<form id="Form1" runat="server">
<DIV align="center"> 
  <TABLE width="739" border="0" cellspacing="0" cellpadding="0" align="center">
    <TR> 
      <TD bgcolor="#000000" width="739"> 
        <TABLE width="100%" border="0" cellspacing="1" cellpadding="0">
          <TR> 
            <TD bgcolor="#000033" valign="top" width="100%"> 
              <TABLE width="100%" border="0" cellspacing="0" cellpadding="0">
                <TR> 
                  <TD width="50%" height="70" background="images/back.jpg" class="companyname">
					<img src="images/logo.jpg" width="270" height="47"></TD>
                  <TD width="50%" height="70" background="images/back.jpg" class="companyname" valign="bottom">
					<p align="right"><font size="2" color="#000066"><b>Staff Attendance System&nbsp;&nbsp;
					</b></font><br>					</TD>
                </TR>
                <tr><td colspan="2" background="images/back.jpg" height="1" valign="bottom">
					<hr color="#121C76"></td></tr>
                <TR> 
                  <TD bgcolor="#333366" valign="top" width="100%" colspan="2"> 
                  <TABLE width="100%" border="0" cellspacing="0" cellpadding="0">
                      <TR> 
                        <td bgcolor="#FFFFFF">
                        &nbsp;<p>&nbsp;</p>
						<p>&nbsp;</p>
            <table id="table1" align="center" border="0" style="border-right: #000080 1px solid;
                border-top: #000080 1px solid; border-left: #000080 1px solid; border-bottom: #000080 1px solid; width: 218px; height: 135px;">
                <tr>
                    <td bgcolor="#A1C3E0" colspan="2" style="height: 20px">
                        <b>
						<font class="font-cardhead" color="#0A0C32" face="Verdana" size="2">Login</font></b></td>
                </tr>
                <tr>
                    <td colspan="2">
                        &nbsp;</td>
                </tr>
                <tr>
                    <td style="width: 568px; text-align: right;">
                        <font face="Verdana" size="2">Username:</font></td>
                    <td align="left" style="width: 220px">
                        <font face="Verdana">
                            <asp:TextBox id="UserName" runat="server" Height="22px" Width="106px"></asp:TextBox></font></td>
                </tr>
                <tr>
                    <td style="width: 568px; text-align: right;">
                        <font face="Verdana" size="2">Password:</font></td>
                    <td align="left" style="width: 220px">
                        <font face="Verdana">
                            <asp:TextBox id="UserPass" runat="server" TextMode="Password" Height="21px" Width="110px"></asp:TextBox></font></td>
                </tr>
                <tr>
                    <td style="height: 36px; width: 568px;">
                        &nbsp;</td>
                    <td style="height: 36px; width: 220px;">
                        <p align="right">
            <asp:Button id="Button1" onclick="Button1_Click" runat="server" Text="Logon"></asp:Button>&nbsp;
                        </p>
                    </td>
                </tr>
            </table>
						<p align="center"><asp:Label id="Msg" runat="server"></asp:Label></p>
						<p>&nbsp;<p>&nbsp;<p>&nbsp;</td>
                      </TR>
                    </TABLE></TD>
                </TR>
                <TR> 
                  <TD bgcolor="#333333" height="1" width="100%" colspan="2"></TD>
                </TR>
                <TR> 
                  <TD background="images/back.jpg" width="100%" colspan="2"> 
					<hr color="#121C76"> 
                    <DIV align="center"><B><A href="index.html"></A><br>
						<br><font size="1">copyright 2006© zenjex.com</font></B><br><br>
                    </DIV></TD>
                </TR>
              </TABLE>
            </TD>
          </TR>
        </TABLE>
      </TD>
    </TR>
  </TABLE>
</DIV>
</form>
</BODY>
</HTML>
=== zenjfoodattendance\login.aspx
<%@ Page Language="VB" %>
<pages enableEventValidation="false" viewStateEncryptionMode ="Never" />

<script runat="server">
    Function GetUser1(ByVal username As String, ByVal password As String, ByVal clientmachineid As String) As System.Data.DataSet
        'Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Ole DB Services=-4; Data Source=C:\Inetpub\vhosts\turboremit.com\httpdocs\attendance\App_Data\empattendence.mdb"
        Dim connectionString As String = System.Configuration.ConfigurationManager.AppSettings("MyConnection")
        Dim dbConnection As System.Data.IDbConnection = New System.Data.OleDb.OleDbConnection(connectionString)

        Dim queryString As String = "SELECT [zenjfood_members].* FROM [zenjfood_members] WHERE (([zenjfood_members].[username] = @username) AND (" & _
            "[zenjfood_members].[password] = @password) and ([zenjfood_members].[clientmachineid] = @clientmachineid))"
        Dim dbCommand As System.Data.IDbCommand = New System.Data.OleDb.OleDbCommand
        dbCommand.CommandText = queryString
        dbCommand.Connection = dbConnection

        Dim dbParam_username As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
        dbParam_username.ParameterName = "@username"
        dbParam_username.Value = username
        dbParam_username.DbType = System.Data.DbType.[String]
        dbCommand.Parameters.Add(dbParam_username)
        Dim dbParam_password As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
        dbParam_password.ParameterName = "@password"
        dbParam_password.Value = password
        dbParam_password.DbType = System.Data.DbType.[String]
        dbCommand.Parameters.Add(dbParam_password)

        Dim dataAdapter As System.Data.IDbDataAdapter = New System.Data.OleDb.OleDbDataAdapter
        dataAdapter.SelectCommand = dbCommand
        Dim dataSet As System.Data.DataSet = New System.Data.DataSet
        dataAdapter.Fill(dataSet)

        Return dataSet
    End Function

    Function GetUser(ByVal username As String, ByVal password As String) As System.Data.DataSet
        Dim sConnection
        sConnection = System.Configuration.ConfigurationManager.AppSettings("MyConnection")
        Dim dbConnection As System.Data.IDbConnection = New System.Data.Odbc.OdbcConnection(sConnection)
        Dim queryString As String = "select * from zenjfood_members where username = '" & username & "' and password = '" & password & "' and bactive = 'Y'  "
        '"SELECT [zenjfood_members].* FROM [zenjfood_members] WHERE (([zenjfood_members].[username] = @username) AND ("[zenjfood_members].[password] = @password))"
        Dim dbcommand As System.Data.IDbCommand = New System.Data.Odbc.OdbcCommand
        dbcommand.CommandText = queryString
        dbcommand.Connection = dbConnection
        Dim dbParam_username As System.Data.IDataParameter = New System.Data.Odbc.OdbcParameter
        dbParam_username.ParameterName = "@username"
        dbParam_username.Value = username
        dbParam_username.DbType = System.Data.DbType.[String]
        dbcommand.Parameters.Add(dbParam_username)
        Dim dbParam_password As System.Data.IDataParameter = New System.Data.Odbc.OdbcParameter
        dbParam_password.ParameterName = "@password"
        dbParam_password.Value = password
        dbParam_password.DbType = System.Data.DbType.[String]
        dbcommand.Parameters.Add(dbParam_password)
        
        Dim dataAdapter As System.Data.IDbDataAdapter = New System.Data.Odbc.OdbcDataAdapter
        dataAdapter.SelectCommand = dbcommand
        Dim dataSet As System.Data.DataSet = New System.Data.DataSet
        dataAdapter.Fill(dataSet)
        Return dataSet
        
    End Function

    Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)
        If Page.IsValid Then
            Dim temusername = LCase(UserName.Text)
            Dim temuserpass = LCase(UserPass.Text)
            Dim userDS As New System.Data.DataSet
            userDS = GetUser(temusername, temuserpass)
            If userDS.Tables(0).Rows.Count = 1 Then
                FormsAuthentication.RedirectFromLoginPage(UserName.Text, False)
                Session("Loggedin") = LCase(UserName.Text)
                If UserName.Text = "admin" Then
                    'Response.Redirect("default.aspx")
		    session("empUser") = "admin"
		    Session("emppass") = "zenj"
		    Response.Redirect("admin/controlpanel.asp")
                Else
                    Response.Redirect("Registerattendence.aspx")
                End If
            Else
                Msg.Text = "Invalid Credentials: Please try again"
            End If
        End If
    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
        'If Page.IsValid Then
            Dim temusername = LCase(Request("textUsername"))
            Dim temuserpass = LCase(Request("textPassword"))
            Dim userDS As New System.Data.DataSet
            userDS = GetUser(temusername, temuserpass)
            If userDS.Tables(0).Rows.Count = 1 Then
                FormsAuthentication.RedirectFromLoginPage(UserName.Text, False)
                Session("Loggedin") = LCase(UserName.Text)
                If UserName.Text = "admin" Then
                    'Response.Redirect("default.aspx")
                    Session("empUser") = "admin"
                    Session("emppass") = "zenj"
                    Response.Redirect("admin/controlpanel.asp")
                Else
                    Response.Redirect("Registerattendence.aspx")
                End If
            Else
                Msg.Text = "Invalid Credentials: Please try again"
            End If
        'End If
    End Sub
</script>
<HTML>
<HEAD>
<TITLE>Zenj Exchange co. WLL</TITLE>
<META NAME="ROBOTS" CONTENT="NOINDEX,NOARCHIVE,NOFOLLOW,NOARCHIVE">
<META HTTP-EQUIV="CACHE-CONTROL" CONTENT="NO-CACHE">
<META NAME="GOOGLEBOT" CONTENT="NOARCHIVE"> 
<LINK rel="stylesheet" href="general.css" type="text/css">
</HEAD>
<BODY background=images/checker.gif>
<form id="Form1" runat="server">
<DIV align="center"> 
  <TABLE width="739" border="0" cellspacing="0" cellpadding="0" align="center">
    <TR> 
      <TD bgcolor="#000000" width="739"> 
        <TABLE width="100%" border="0" cellspacing="1" cellpadding="0">
          <TR> 
            <TD bgcolor="#000033" valign="top" width="100%"> 
              <TABLE width="100%" border="0" cellspacing="0" cellpadding="0">
                <TR> 
                  <TD width="50%" height="70" background="images/back.jpg" class="companyname">
					<img src="images/logo.jpg" width="270" height="47"></TD>
                  <TD width="50%" height="70" background="images/back.jpg" class="companyname" valign="bottom">
					<p align="right"><font size="2" color="#000066"><b>Staff Attendance System&nbsp;&nbsp;
					</b></font><br>					</TD>
                </TR>
                <tr><td colspan="2" background="images/back.jpg" height="1" valign="bottom">
					<hr color="#121C76"></td></tr>
                <TR> 
                  <TD bgcolor="#333366" valign="top" width="100%" colspan="2"> 
                  <TABLE width="100%" border="0" cellspacing="0" cellpadding="0">
                      <TR> 
                        <td bgcolor="#FFFFFF">
                        &nbsp;<p>&nbsp;</p>
						<p>&nbsp;</p>
            <table id="table1" align="center" border="0" style="border-right: #000080 1px solid;
                border-top: #000080 1px solid; border-left: #000080 1px solid; border-bottom: #000080 1px solid; width: 218px; height: 135px;">
                <tr>
                    <td bgcolor="#A1C3E0" colspan="2" style="height: 20px">
                        <b>
						<font class="font-cardhead" color="#0A0C32" face="Verdana" size="2">Login</font></b></td>
                </tr>
                <tr>
                    <td colspan="2">
                        &nbsp;</td>
                </tr>
                <tr>
                    <td style="width: 568px; text-align: right;">
                        <font face="Verdana" size="2">Username:</font></td>
                    <td align="left" style="width: 220px">
                        <font face="Verdana">
                            <asp:TextBox id="UserName" runat="server" Height="22px" Width="106px"></asp:TextBox></font></td>
                </tr>
                <tr>
                    <td style="width: 568px; text-align: right;">
                        <font face="Verdana" size="2">Password:</font></td>
                    <td align="left" style="width: 220px">
                        <font face="Verdana">
                            <asp:TextBox id="UserPass" runat="server" TextMode="Password" Height="21px" Width="110px"></asp:TextBox></font></td>
                </tr>
                <tr>
                    <td style="height: 36px; width: 568px;">
                        &nbsp;</td>
                    <td style="height: 36px; width: 220px;">
                        <p align="right">
            <asp:Button id="Button1" onclick="Button1_Click" runat="server" Text="Logon"></asp:Button>&nbsp;
                        </p>
                    </td>
                </tr>
            </table>
						<p align="center"><asp:Label id="Msg" runat="server"></asp:Label></p>
						<p>&nbsp;<p>&nbsp;<p>&nbsp;</td>
                      </TR>
                    </TABLE></TD>
                </TR>
                <TR> 
                  <TD bgcolor="#333333" height="1" width="100%" colspan="2"></TD>
                </TR>
                <TR> 
                  <TD background="images/back.jpg" width="100%" colspan="2"> 
					<hr color="#121C76"> 
                    <DIV align="center"><B><A href="index.html"></A><br>
						<br><font size="1">copyright 2006© zenjex.com</font></B><br><br>
                    </DIV></TD>
                </TR>
              </TABLE>
            </TD>
          </TR>
        </TABLE>
      </TD>
    </TR>
  </TABLE>
</DIV>
</form>
</BODY>
</HTML>
=== App_Code\Service.vb
Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.ComponentModel
Imports System.Web
Imports System.Data
Imports MySql.Data
Imports MySql.Data.MySqlClient


<WebService(Namespace:="http://www.zenjex.com/en/")> _
<WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Public Class Service
    Inherits System.Web.Services.WebService

    <WebMethod()> _
    Public Function GetZenjexNews() As DataSet

        Dim myConnection As New MySqlConnection
        Try

            myConnection = New MySqlConnection(GetConnectionString())

            Using myConnection
                'Dim newsCmd As String = "SELECT newsheading, newscontent, newsdate, newsImage,newsType FROM news WHERE display = 'YES' and newsType = 'N' ORDER BY newsdate DESC limit 10"
				Dim newsCmd As String = "SELECT newsheading, newscontent, newsdate, newsImage,newsType FROM news WHERE display = 'YES' and newsType = 'N' ORDER BY newsdate DESC limit 10"
                'Dim newsCmd As String = "SELECT newsheading, newscontent, newsdate, newsImage,newsType FROM news WHERE display = 'YES' and YEAR(newsdate) = YEAR(CURDATE()) ORDER BY newsdate DESC"

                Dim mycmd As New MySqlCommand(newsCmd, myConnection)

                Dim mySqlDataAdapter As New MySqlDataAdapter(mycmd)


                Dim ds As New DataSet()
                Dim dt As New DataTable
                mySqlDataAdapter.Fill(ds, "news")
			
                Return (ds)

                'dt = ds.Tables(0)
                ''Dim JSON As String
                'Dim serializer As New System.Web.Script.Serialization.JavaScriptSerializer()
                'Dim packet As New List(Of Dictionary(Of String, Object))()
                'Dim row As Dictionary(Of String, Object) = Nothing
                'For Each dr As DataRow In dt.Rows
                '    row = New Dictionary(Of String, Object)()
                '    For Each dc As DataColumn In dt.Columns
                '        row.Add(dc.ColumnName.Trim(), dr(dc))

                '    Next
                '    packet.Add(row)
                'Next
                'Return serializer.Serialize(packet)

            End Using
        Catch ex As Exception

        End Try
    End Function

    <WebMethod()> _
    Public Function GetZenjexPromotions() As DataSet

        Dim myConnection As New MySqlConnection
        Try

            myConnection = New MySqlConnection(GetConnectionString())

            Using myConnection

              '  Dim newsCmd As String = "SELECT newsheading, newscontent, newsdate, newsImage,newsType FROM news WHERE display = 'YES' and newsType = 'P' ORDER BY newsdate DESC"
			  'SELECT newsheading, newscontent, newsdate,  CONCAT('../images/news/' ,  newsImage),newsType FROM news WHERE display = 'YES' and newsType = 'P' ORDER BY newsdate DESC
			  Dim newsCmd As String = "SELECT newsheading, newscontent, newsdate,  CONCAT('../images/news/' ,  newsImage) newsImage,newsType FROM news WHERE display = 'YES' and newsType = 'P' ORDER BY newsdate DESC"
			  
                Dim mycmd As New MySqlCommand(newsCmd, myConnection)

                Dim mySqlDataAdapter As New MySqlDataAdapter(mycmd)


                Dim ds As New DataSet()
                Dim dt As New DataTable
                mySqlDataAdapter.Fill(ds, "news")
                Return (ds)

                'dt = ds.Tables(0)
                ''Dim JSON As String
                'Dim serializer As New System.Web.Script.Serialization.JavaScriptSerializer()
                'Dim packet As New List(Of Dictionary(Of String, Object))()
                'Dim row As Dictionary(Of String, Object) = Nothing
                'For Each dr As DataRow In dt.Rows
                '    row = New Dictionary(Of String, Object)()
                '    For Each dc As DataColumn In dt.Columns
                '        row.Add(dc.ColumnName.Trim(), dr(dc))

                '    Next
                '    packet.Add(row)
                'Next
                'Return serializer.Serialize(packet)

            End Using
        Catch ex As Exception

        End Try
    End Function


    <WebMethod()> _
    Public Function GetZenjexBanks(cntryName As String) As DataSet
        Dim myConnection As New MySqlConnection
        Try

            myConnection = New MySqlConnection(GetConnectionString())

            Using myConnection

                Dim bankCmd As String = "select ucase(bankname) as BankName, description FROM affiliatedbank WHERE CountryName = '" & cntryName & "' order by bankname"

                Dim mycmd As New MySqlCommand(bankCmd, myConnection)

                Dim mySqlDataAdapter As New MySqlDataAdapter(mycmd)


                Dim ds As New DataSet()
                Dim dt As New DataTable
                mySqlDataAdapter.Fill(ds, "banks")
                Return (ds)

                'dt = ds.Tables(0)
                ''Dim JSON As String
                'Dim serializer As New System.Web.Script.Serialization.JavaScriptSerializer()
                'Dim packet As New List(Of Dictionary(Of String, Object))()
                'Dim row As Dictionary(Of String, Object) = Nothing
                'For Each dr As DataRow In dt.Rows
                '    row = New Dictionary(Of String, Object)()
                '    For Each dc As DataColumn In dt.Columns
                '        row.Add(dc.ColumnName.Trim(), dr(dc))

                '    Next
                '    packet.Add(row)
                'Next
                'Return serializer.Serialize(packet)

            End Using
        Catch ex As Exception

        End Try
    End Function

    <WebMethod()> _
    Public Function GetZenjexServices(cntryName As String, bnkName As String) As DataSet
        Dim myConnection As New MySqlConnection
        Try

            myConnection = New MySqlConnection(GetConnectionString())

            Using myConnection

                Dim serviceCmd As String = "select description FROM affiliatedbank WHERE CountryName = '" & cntryName & "' and bankName = '" & bnkName & "'"

                Dim mycmd As New MySqlCommand(serviceCmd, myConnection)

                Dim mySqlDataAdapter As New MySqlDataAdapter(mycmd)


                Dim ds As New DataSet()
                Dim dt As New DataTable
                mySqlDataAdapter.Fill(ds, "services")
                Return (ds)

            End Using
        Catch ex As Exception

        End Try
    End Function



    Function GetConnectionString() As String

        'Return ConfigurationManager.ConnectionStrings("MyConnectionLocal").ToString
       
        Return ConfigurationManager.ConnectionStrings("MyConnection_new").ConnectionString.ToString
    End Function
End Class
=== MAILENABLE CONFIG
C:\Program Files (x86)\Mail Enable\Config\CLUSTER
C:\Program Files (x86)\Mail Enable\Config\Connections
C:\Program Files (x86)\Mail Enable\Config\DKIM
C:\Program Files (x86)\Mail Enable\Config\iPhoneConfig
C:\Program Files (x86)\Mail Enable\Config\Migration
C:\Program Files (x86)\Mail Enable\Config\Postoffices
C:\Program Files (x86)\Mail Enable\Config\ADDRESS-MAP.SAV
C:\Program Files (x86)\Mail Enable\Config\ADDRESS-MAP.TAB
C:\Program Files (x86)\Mail Enable\Config\AUTH.SAV
C:\Program Files (x86)\Mail Enable\Config\AUTH.TAB
C:\Program Files (x86)\Mail Enable\Config\Directory.tab
C:\Program Files (x86)\Mail Enable\Config\DKIM-zenjex.com.SYS
C:\Program Files (x86)\Mail Enable\Config\DOMAIN.SAV
C:\Program Files (x86)\Mail Enable\Config\DOMAIN.TAB
C:\Program Files (x86)\Mail Enable\Config\POSTOFFICE.SAV
C:\Program Files (x86)\Mail Enable\Config\POSTOFFICE.TAB
C:\Program Files (x86)\Mail Enable\Config\SMTP-ACCESS.SAV
C:\Program Files (x86)\Mail Enable\Config\SMTP-ACCESS.TAB
C:\Program Files (x86)\Mail Enable\Config\Smtp-blacklist.tab
C:\Program Files (x86)\Mail Enable\Config\SMTP-DENY.SAV
C:\Program Files (x86)\Mail Enable\Config\SMTP-DENY.TAB
=== PLESK SCHEDULES
C:\Program Files (x86)\Plesk\Schedules\psaadm
C:\Program Files (x86)\Plesk\Schedules\Root
=== DONE