%@Language=VBScript%> <% Response.Expires = -1000 'Makes the browser not cache this page Response.Buffer = True 'Buffers the content so our Response.Redirect will work %> <% Set RS50 = Server.CreateObject("ADODB.RecordSet") sSQL = "Select Top 1 * From HitCounter_UAN " rs50.Open sSQL, objConn Hit_Count = CInt(rs50("Hit_Count")) + 1 FirstRecord = rs50("Page_Hit") Set RS50 = Server.CreateObject("ADODB.RecordSet") sSQL = "Update HitCounter_UAN " & _ "Set Hit_Count ='" & Hit_Count &"'" & _ ", Date_Entered = '" & FormatDateTime(Now) &"'" & _ "Where Page_Hit = '" & FirstRecord & "'" rs50.Open sSQL, objConn Page_Hit = "index" CurrentDate = FormatDateTime(Now) Set rs51 = Server.CreateObject("ADODB.RecordSet") sSQL = "Insert Into HitCounter_UAN " & _ "(Hit_Count, Page_Hit, Date_Entered) values " & _ "('" & Hit_Count & "', '" & Page_Hit & "', '" & CurrentDate & "' )" rs51.Open sSQL, objConn objConn.Close Set objConn = Nothing %>
|
|
||
|
How good is your music production?
If
you think you have what it takes, we have an opportunity for you! Rules & Regulations
If your track is selected to be sent?
Note: If your track is not selected don't be discourage, everybody is not going to like everything you create...try again next month. If your track is selected to be purchased?
...and of
course spread the word!!!
|
||
|
© 2009 UnSignedArtistNetwork.com. All Rights Reserved. |