Imports System.Data.OleDb

Public Class WebForm1
    Inherits System.Web.UI.Page

#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub

    'NOTE: The following placeholder declaration is required by the Web Form Designer.
    'Do not delete or move it.
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim sConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\book1.xls;Extended Properties=Excel 8.0;"
        Dim con As OleDbConnection = New OleDbConnection(sConnectionString)
        con.Open()
        Dim cmd As OleDbCommand = New OleDbCommand("SELECT * FROM [Sheet1$]", con)
        Dim dp As OleDbDataAdapter = New OleDbDataAdapter
        dp.SelectCommand = cmd
        Dim dt As New DataTable
        dp.Fill(dt)
        'For i As Integer = 0 To dt.Rows.Count - 1
        If Request.QueryString("Sender") <> "" Then


            If Request.QueryString("SMSPrefix") = "اليد الكبيرة" Or Request.QueryString("SMSPrefix") = "كبيرة" Or Request.QueryString("SMSPrefix") = "1" Then
                Response.Write(dt.Rows(3)(3))
            ElseIf Request.QueryString("SMSPrefix") = "اليد الصغيرة" Or Request.QueryString("SMSPrefix") = "صغيرة" Or Request.QueryString("SMSPrefix") = "2" Then
                Response.Write(dt.Rows(4)(3))
            ElseIf Request.QueryString("SMSPrefix") = "اليد القصيرة" Or Request.QueryString("SMSPrefix") = "قصيرة" Or Request.QueryString("SMSPrefix") = "3" Then
                Response.Write(dt.Rows(5)(3))

            ElseIf Request.QueryString("SMSPrefix") = "اليد الضيقة" Or Request.QueryString("SMSPrefix") = "ضيقة" Or Request.QueryString("SMSPrefix") = "4" Then
                Response.Write(dt.Rows(6)(3))

            ElseIf Request.QueryString("SMSPrefix") = "اليد العريضة" Or Request.QueryString("SMSPrefix") = "عريضة" Or Request.QueryString("SMSPrefix") = "5" Then
                Response.Write(dt.Rows(7)(3))


            ElseIf Request.QueryString("SMSPrefix") = "اليد القاسية" Or Request.QueryString("SMSPrefix") = "قاسية" Or Request.QueryString("SMSPrefix") = "6" Then
                Response.Write(dt.Rows(8)(3))
            ElseIf Request.QueryString("SMSPrefix") = "اليد الناعمة" Or Request.QueryString("SMSPrefix") = "ناعمة" Or Request.QueryString("SMSPrefix") = "7" Then
                Response.Write(dt.Rows(9)(3))

            ElseIf Request.QueryString("SMSPrefix") = "اليد النحيلة" Or Request.QueryString("SMSPrefix") = "نحيلة" Or Request.QueryString("SMSPrefix") = "8" Then
                Response.Write(dt.Rows(10)(3))
            Else
                Response.Write("عفوا,أرسل1لليد الكبيرة 2صغيرة 3قصيرة 4ضيقة 5عريضة 6قاسية 7ناعمة 8نحيلة")

            End If

        End If
       

    End Sub
End Class