<% 'Dim variables Here dim DetectedButton dim Sql ' Delcare our counter variables dim i ' Delcare the array to be redimmed dim RsRecordArray ' Tells us how many fields in a record to redim above array dim rsrecordcount ' Count the fields ' CountFields() ' Now Set the Array Redim RsRecordArray(rsrecordcount) ' Run Keywords Sub Here ' Keywords() ' KeywordUsedDateUpdate() ' Detect Button Clicked if Request.Form("FindMyProfessional") <> "" then DetectedButton = Request.Form("FindMyProfessional") Response.Redirect("http://www.servicebidpro.com/servicebidpro/Home.htm") end if if Request.Form("PrescreenMyCompany") <> "" then DetectedButton = Request.Form("PrescreenMyCompany") Response.Redirect("http://www.servicebidpro.com/servicebidpro/new_Service_Provider.asp") end if Sub Keywords() 'Prep the database to be accessed set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/fpdb/ServiceBidProKeywords.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql = "SELECT TOP 1 tbl_Keyword_Rotation.ID, tbl_Keyword_Rotation.Keywords, tbl_Keyword_Rotation.Description, tbl_Keyword_Rotation.LastUsedDate " sql = sql & "FROM tbl_Keyword_Rotation " sql = sql & "WHERE tbl_Keyword_Rotation.WebSite LIKE 'EventDJ'" sql = sql & "ORDER BY tbl_Keyword_Rotation.LastUsedDate ASC" 'Response.write(sql & "
") on error resume next rs.Open sql, conn if err<>0 then response.write("No update permissions! What was Last Change to system,, Think Man, Thimk ERROR = " & err ) else 'Now read the record into the array i = 0 for each x in rs.Fields RsRecordArray(i) = x.value i = i + 1 next Session("UseThisRecord") = RsRecordArray 'response.write("

" & "Reading Record Confirmed!" & "

") end if rs.close conn.close End Sub ' END KEYWORDS ' Update Keywords LastUsedDate Sub KeywordUsedDateUpdate() 'Prep the database to be accessed set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/fpdb/ServiceBidProKeywords.mdb")) set rs = Server.CreateObject("ADODB.recordset") 'sql = "UPDATE tbl_Keyword_Rotation SET " 'sql = sql & "tbl_Keyword_Rotation.LastUsedDate = #" & Now() & "#," 'sql = sql & "WHERE tbl_Keyword_Rotation.ID=" & RsRecordArray(0) sql = "UPDATE tbl_Keyword_Rotation SET tbl_Keyword_Rotation.LastUsedDate = Now() " sql = sql & "WHERE tbl_Keyword_Rotation.ID = " & RsRecordArray(0) 'Response.Write(sql & "
" ) on error resume next conn.Execute sql if err<>0 then Response.Write(sql & "
" ) response.write("KeywordUsedDate Update Sub! What was Last Change to system,, Think Man, Thimk ERROR = " & err ) else 'response.write("

" & "Updating Record Confirmed!" & "

") end if conn.close End Sub Sub CountFields() 'Prep the database to be accessed set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/fpdb/ServiceBidProKeywords.mdb")) set rs = Server.CreateObject("ADODB.recordset") ' this is a working query sql = "SELECT * FROM tbl_Keyword_Rotation WHERE ID = 1" on error resume next rs.Open sql, conn if err<>0 then response.write("No update permissions! What was Last Change to system,, Think Man, Thimk ERROR = " & err & "
") Response.Write(sql & "
") else ' All we're doing is counting the number of fields in the recordset to dim the array with i = 0 for each x in rs.Fields i = i + 1 next rsrecordcount = i ' Debug Line ' response.write("The number of Fields is: " & rsrecordcount) ' response.write(" The number of Records is: " & truerecordcount & "
") ' Session("RsRecordCount") = rsrecordcount end if rs.close conn.close End Sub %> Event DJ Services Links | Event DJ, DJ Services, Club DJ