|
[x]
Posted via EE Mobile
|
||
Search, ask, and monitor your questions on the go with EE Mobile. Visit Experts Exchange from your mobile device and never be out of touch again. |
||
| 10/02/2009 at 02:07PM PDT, ID: 24781579 |
|
[x]
Attachment Details
|
||
|
[x]
The Solution Rating System
|
||
With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.
Your Input Matters If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support. Thank you! |
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38: 39: 40: 41: 42: 43: 44: 45: 46: 47: |
Partial Class articleDownload
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim aArticle As New Article
Dim aDownload As New Download
Dim aTitleID As String
aTitleID = Request.QueryString("title")
aArticle.load(aTitleID)
Dim downloads As Integer = aArticle.getDownloads()
downloads = downloads + 1
aArticle.setDownloads(downloads)
'Saves the updated download information for the article to the DB'
aArticle.sendUpdateToDb()
aDownload.recordDownload(aTitleID)
Response.Redirect("PDFLibrary/" & Request.QueryString("linkURL"))
aArticle.dispose()
End Sub
End Class
'records to the database that a title has been downloaded
Public Sub recordDownload(ByRef titleId As Integer)
_titleIdFk = titleId
conn = New SqlConnection(connString)
cmd = New SqlCommand("INSERT INTO _Download(downloadId, titleIdFk, dateTime) Values(@downloadId, @titleIdFk, @dateTime)", conn)
cmd.Parameters.Add(New SqlParameter("@downloadId", SqlDbType.Int))
cmd.Parameters("@downloadId").Value = CreateID.GetNextID("_Download")
cmd.Parameters.Add(New SqlParameter("@titleIdFk", SqlDbType.Int))
cmd.Parameters("@titleIdFk").Value = getTitleIdFk()
cmd.Parameters.Add(New SqlParameter("@dateTime", SqlDbType.DateTime))
cmd.Parameters("@dateTime").Value = DateTime.Today.Now
Try
conn.Open()
cmd.ExecuteNonQuery()
Finally
cmd.Dispose()
conn.Close()
End Try
End Sub
End Class
|
Advertisement