ASP.NET

Imports System.Data.SqlClient<br />
<br />
Partial Class Login<br />
    Inherits System.Web.UI.Page<br />
Protected Sub Login1_Authenticate(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.AuthenticateEventArgs) Handles Login1.Authenticate<br />
        Dim authentication As Boolean = False<br />
        authentication = Sitelevelauthentication(Login1.UserName, Login1.Password)<br />
        e.Authenticated = authentication<br />
        If authentication = True Then<br />
            Response.Redirect("Default.aspx")<br />
        End If<br />
<br />
    End Sub<br />
    Private Function Sitelevelauthentication(ByVal Username As String, ByVal Password As String) As Boolean<br />
        Dim boolretval As Boolean<br />
        Dim con As New SqlConnection<br />
        Dim Dr As SqlDataReader<br />
        Dim sql As String<br />
        con.ConnectionString = "Data Source=;Initial Catalog=;User ID=;Password="<br />
        sql = "SELECT * FROM Login"<br />
        con.Open()<br />
        Dim cmd As New SqlCommand(sql, con)<br />
        Dr = cmd.ExecuteReader()<br />
        While Dr.Read()<br />
            If Username = Dr("Username").ToString And Password = Dr("Password") Then<br />
                boolretval = True<br />
            End If<br />
            Dr.Close()<br />
            Return boolretval<br />
<br />
        End While<br />
    End Function<br />
End Class

set steps=%steps% "_07.5.2 QUTransUnionSimulator"
set steps=%steps% "_07.5.1 RunScoreBureauSimulator"

set steps=%steps% "_07.5.2 QUTransUnionSimulator"
set steps=%steps% "_07.5.1 RunScoreBureauSimulator"

Dim rssHUDPressDoc As XDocument = XDocument.Load("http://www.hud.gov/news/hudrss.xml")
Dim pressPosts = From item In rssHUDPressDoc.Descendants("item") _
                 Take 5 _
                 Select Title = item.Element("title").Value, _
                 link = item.Element("link").Value, _
                 description = item.Element("description").Value, _
                 pubDate = item.Element("pubDate").Value
If pressPosts.Count = 0 Then
      lblNoPress.Visible = True
Else
      rssHUDPress.DataSource = pressPosts
      rssHUDPress.DataBind()
End If

Dim keywords() as string = new string(){"keyword1","keyword2","keyword3"}

Dim pressPosts = From item In rssHUDPressDoc.Descendants("item") _
                 Take 5 _
                 Where item.Element("description").Value.ToString.Contains(keywords)
                 Select Title = item.Element("title").Value, _
                 link = item.Element("link").Value, _
                 description = item.Element("description").Value, _
                 pubDate = item.Element("pubDate").Value

<?xml version="1.0"?>
<!--
  For more information on how to configure your ASP.NET application, please visit
  http://go.microsoft.com/fwlink/?LinkId=169433
  -->
<configuration>

  <system.net>
    <mailSettings>
      <smtp from="makovetskiyd@yahoo.co.uk">
        <network host="smtp.gmail.com"  enableSsl="true" defaultCredentials="false" port="587" userName="yourguru27@gmail.com" password="luckyd55"/>
      </smtp>
    </mailSettings>
  </system.net>
  <connectionStrings>
    <add name="YourGuruDB" connectionString="Data Source=DIMA-00AA1DA557;Initial Catalog=model;Integrated Security=True"/>
    <add name="modelConnectionString" connectionString="Data Source=DIMA-00AA1DA557;Initial Catalog=model;Integrated Security=True" providerName="System.Data.SqlClient"/>
    <add name="LocalSqlServer2" connectionString="Data Source=.\SQLEXPRESS;AttachDbFilename='D:\Documents and Settings\Dima\My Documents\Visual Studio 2010\WebSites\WebSite10\App_Data\ASPNETDB.MDF';Integrated Security=True;User Instance=True" providerName="System.Data.SqlClient"/>


  
  </connectionStrings>
  <system.web>


    
    <membership defaultProvider="MyMembershipProvider">
      <providers>
        <clear/>
        <add
          name="MyMembershipProvider"
          type="System.Web.Security.SqlMembershipProvider"
          connectionStringName="LocalSqlServer"
          minRequiredPasswordLength="2"
         
          minRequiredNonalphanumericCharacters="0"
          maxInvalidPasswordAttempts="1000"
          passwordAttemptWindow="1000"
          applicationName="/WebSite10"
    
          />
      </providers>
    </membership>
    
    <roleManager enabled="true" />

    <authentication mode="Forms">
        <forms name="MyAppCookie"
             loginUrl="~/Registration.aspx"
             protection="All"   
            timeout="43200"
            requireSSL="false"
            slidingExpiration="true"
            cookieless="UseCookies"
            enableCrossAppRedirects="false"
               path="/" />
    </authentication>


    <compilation debug="true" targetFramework="4.0">
      <assemblies>
        <add assembly="System.Design, Version=4.0.0.0, Culture=neutral, PublicKeyToken=B03F5F7F11D50A3A"/>
        <add assembly="System.Web.Extensions.Design, Version=4.0.0.0, Culture=neutral, PublicKeyToken=31BF3856AD364E35"/>
        <add assembly="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=B77A5C561934E089"/>
        <add assembly="System.Data.Linq, Version=4.0.0.0, Culture=neutral, PublicKeyToken=B77A5C561934E089"/>
      </assemblies>
    </compilation>
  </system.web>
</configuration>