ASP.NET

<configuration>
<location path="Login.xml">
<system.web>
<authorization>
<deny users="*"/>
</authorization>
</system.web>
</location>
</configuration>

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