<% connectionComplete = "false" On Error Resume Next If err.Number = 0 Then if myConn.State = 1 then On Error Goto 0 Set press_cmd = Server.CreateObject ("ADODB.Command") press_cmd.ActiveConnection = myConn press_cmd.CommandText = "SELECT * FROM dbo.k4kPressRelease ORDER BY date DESC" press_cmd.Prepared = true On Error Resume Next If err.Number = 0 Then Set press = press_cmd.Execute connectionComplete = "true" press_numRows = 0 end if end if else connectionComplete = "false" ' Error trapping - connection failed end if %>
|Best way to export and then import DHCP to a new server?||6||62|
|Advice on Xojo as a development tool over VB.||4||39|
|Convert html page to a php post email form automatically?||10||30|
|Add image to into animation on website template||1||9|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
14 Experts available now in Live!