<% response.buffer = true %> <% RRIC = CINT(request.querystring("RIC")) If RRIC <> "" AND RRIC <> 0 Then Set RS = Server.CreateObject("ADODB.RecordSet") StrSql = "DELETE FROM c21_ciudades WHERE id_ciudad=" & RRIC Set RS = Conn.Execute(StrSql) response.redirect "act_ciudades.asp" End If If err.number > 0 then response.write "VBScript Errors Occured:" & "

" response.write "Error Number =" & err.number & "

" response.write "Error Descr. =" & err.description & "

" response.write "Help Context =" & err.helpcontext & "

" response.write "Help Path =" & err.helppath & "

" response.write "Native Error =" & err.nativeerror & "

" response.write "Source =" & err.source & "

" response.write "SQLState =" & err.sqlstate & "

" End if IF conn.errors.count > 0 then response.write "Database Errors Occured" & "

" response.write SQLstmt & "

" for counter = 0 to conn.errors.count response.write "Error #" & conn.errors(counter).number & "

" response.write "Error desc. -> " & conn.errors(counter).description & "

" next Else response.redirect "act_ciudades.asp" End if Conn.Close Set Conn = Nothing %>