Two Codes For Steve

Private Sub readNews(ByVal channelID As Integer, ByVal URl As String)
'put all news items into NorthDataSet.news table. Not database
Dim a As DataRow
Dim myRequest As WebRequest = WebRequest.Create(URl)
Dim myResponse As WebResponse = myRequest.GetResponse
Dim rssStream As Stream = myResponse.GetResponseStream()
Dim rssDoc As XmlDocument = New XmlDocument
rssDoc.Load(rssStream)
Dim rssItem As XmlNodeList = rssDoc.SelectNodes("rss/channel/item")
Dim currentItem As XmlNode
For Each currentItem In rssItem
a = NorthDataSet.News.NewRow
Dim rssDetail As XmlNode
a(0) = newsMax
rssDetail = currentItem.SelectSingleNode("title")
a(1) = rssDetail.InnerText
rssDetail = currentItem.SelectSingleNode("description")
a(2) = rssDetail.InnerText
rssDetail = currentItem.SelectSingleNode("link")
a(3) = rssDetail.InnerText '"http://www.sobran.com"
a(4) = Now
a(5) = channelID
NorthDataSet.News.AddNewsRow(a)
newsMax = newsMax + 1
Next
End Sub

Dim i As Integer
i = DetailsView1.PageIndex
Dim currentAnswer As answerRecord = New answerRecord()
answer = CType(Session("answers"), ArrayList)
Dim a As System.Data.DataRowView
a = CType(DetailsView1.DataItem, System.Data.DataRowView)
currentAnswer.questionID = a("QuestionOrder").ToString
currentAnswer.correctAnswer = a("CorrectAnswer").ToString
currentAnswer.yourAnswer = DropDownList1.SelectedIndex + 1
If currentAnswer.correctAnswer = currentAnswer.yourAnswer Then
currentAnswer.result = "Correct"
Else
currentAnswer.result = "InCorrect"
End If
answer.Add(currentAnswer)
Session.Add("answers", answer)

If i < DetailsView1.PageCount - 2 Then
DetailsView1.PageIndex = DetailsView1.PageIndex + 1
ElseIf i = DetailsView1.PageCount - 2 Then
Button1.Text = "Finish"
Label4.Text = " This is the last question"
DetailsView1.PageIndex = DetailsView1.PageIndex + 1
Else
Dim j As Integer
Dim sc As Double = 0
Dim score As Integer
For j = 0 To answer.Count - 1
If answer(j).result = "Correct" Then
sc += 1
End If
Next
score = (sc * 100) / (answer.Count)
Dim test As SqlDataSource
test = New SqlDataSource()
test.ConnectionString = "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\QuizEngine.mdf;Integrated
Security=True;User Instance=True"
test.InsertCommand = "INSERT INTO [UserQuiz] ([UserQuizID], [DateCompleted], [QuizID], [Score], [Username])
VALUES (@UserQuizID, @DateCompleted, @QuizID, @Score, @Username)"
test.InsertParameters.Add("UserQuizID", 7)
test.InsertParameters.Add("DateCompleted", DateTime.Now.ToString)
test.InsertParameters.Add("QuizID", Session("QuizID").ToString)
test.InsertParameters.Add("Score", score)
test.InsertParameters.Add("Username", User.Identity.Name)
test.Insert()
Response.Redirect("Result.aspx")